X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=zpm-merge;h=5d3692623dfc762be963380f9bfed7fde94d0e41;hb=5405c7c75dc410d93818fabdfa290dbaa4505aac;hp=67b8c7376e8419164b11250d52eabe2a62f236eb;hpb=9e4e730ecc2b7d5b99bd057f3a7efaff7e4b37d0;p=zpackage

diff --git a/zpm-merge b/zpm-merge
index 67b8c73..5d36926 100755
--- a/zpm-merge
+++ b/zpm-merge
@@ -19,11 +19,15 @@ mergefiles=0
 mergescripts=1
 mergeall=1
 update=0
+remove_older=0
+only_if_newer=0
 
 target=${ZPMDB:=/var/lib/zpm/local.db}
 
+# TODO option to only update if new
+# new is hash is different or build time is later
 # TODO option to merge all packages found in pkgfile
-while getopts :f:vd:FSs:au opt; do
+while getopts :f:vd:FSs:auon opt; do
 	case $opt in
 		f) pkgfile="$OPTARG" ;;
 		v) verbose=1 ;;
@@ -33,7 +37,8 @@ while getopts :f:vd:FSs:au opt; do
 		s) newstatus="$OPTARG" ;;
 		a) mergeall=1 ;;
 		u) update=1 ;;
-
+		o) remove_older=1 ;;
+		n) only_if_newer=1 ;;
 		*) echo 'zpm-merge unknown option' $OPTARG; exit 1 ;;
 	esac
 done
@@ -101,7 +106,7 @@ if [ $mergeall -eq 0 ]; then
 	fi
 	pkglist=$pkgid
 else
-	pkglist=$(zpm list "$pkgfile")
+	pkglist=$(zpm list -f "$pkgfile")
 fi
 
 zpm test -v "$pkgfile" || exit 1
@@ -114,7 +119,10 @@ mergeone() {
 	pkgid=$1
 	where="where printf('%s-%s-%s', P.package, P.version, P.release) = '$pkgid'"
 	if [ $update -eq 1 ]; then
-		printf "delete from packages %s;\n" "$where"
+		printf "delete from packages_pkgid where pkgid = '%s';\n" "$pkgid"
+	fi
+	if [ $remove_older -eq 1 ]; then
+		printf "delete from packages_pkgid where pkgid < '%s' collate vercmp;\n" "$pkgid"
 	fi
 	printf "insert or rollback into packages select * from remote.packages P %s;\n" "$where"
 	printf "insert or rollback into packagefiles select * from remote.packagefiles P %s;\n" "$where"
@@ -152,6 +160,29 @@ if [ $update -eq 0 ]; then
 	fi
 fi
 
+check_newer() {
+	pkg=$1
+	package=$(zpm parse -n "$pkg")
+	newer=$(zpm shell "$target" "select 1 from packages_pkgid where '$pkg' > (select max(pkgid) collate vercmp from packages_pkgid where package = '$package') and package = '$package'")
+	if [ "$newer" = '1' ]; then
+		return 0;
+	fi
+	return 1
+}
+
+mlist="$pkglist"
+if [ $only_if_newer -eq 1 ]; then
+	mlist=
+	for pkgid in $pkglist; do
+		if check_newer "$pkgid" ; then
+			mlist="$mlist $pkgid"
+		fi
+	done
+	if [ -z "$mlist" ]; then
+		exit 0
+	fi
+fi
+
 # TODO file tags and package tags
 {
 	printf ".bail on\n"
@@ -167,3 +198,7 @@ fi
 
 	printf "commit;\n"
 } | zpm shell $target
+
+if [ $verbose -ne 0 ]; then
+	printf "%s\n" $pkglist
+fi