From d16a68de1401cc2274a8353f52edae012af11b3b Mon Sep 17 00:00:00 2001
From: Nathan Wagner <nw@hydaspes.if.org>
Date: Fri, 21 Sep 2018 08:48:50 +0000
Subject: [PATCH] add zpm-merge

---
 zpm-merge | 170 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 170 insertions(+)
 create mode 100755 zpm-merge

diff --git a/zpm-merge b/zpm-merge
new file mode 100755
index 0000000..d983373
--- /dev/null
+++ b/zpm-merge
@@ -0,0 +1,170 @@
+#!/bin/sh
+
+# merge
+# collects info from package file and copies it into another package file
+
+# merge [ -d ZPMDB ] [-f $pkgfile] pkg
+# -F include file content
+# -S don't include script content
+
+die() {
+	printf 'zpm-merge:' 1>&2
+	printf ' %s' "$@" 1>&2
+	printf '\n' 1>&2
+	exit 1
+}
+
+verbose=0
+mergefiles=0
+mergescripts=1
+target=/var/lib/zpm/local.db
+
+target=${ZPMDB:=/var/lib/zpm/local.db}
+
+# TODO option to merge all packages found in pkgfile
+while getopts :f:vd:FSs: opt; do
+	case $opt in
+		f) pkgfile="$OPTARG" ;;
+		v) verbose=1 ;;
+		d) target="$OPTARG" ;;
+		F) mergefiles=1 ;;
+		S) mergescripts=0 ;;
+		s) newstatus="$OPTARG" ;;
+		*) echo 'zpm-merge unknown option' $OPTARG; exit 1 ;;
+	esac
+done
+shift $((OPTIND - 1))
+
+# TODO test target
+if [ ! -e "$target" ]; then
+	die "target file $target does not exist"
+fi
+
+zpm test -v "$target" || exit 1
+
+# TODO if pkgfile is specified, allow multiple packages as args
+pkgid=$1
+shift
+
+if [ -z "$pkgid" ]; then
+	die "must specify pkgid"
+fi
+
+eval "$(zpm parse -E $pkgid)"
+
+if [ -z "$pkgfile" ]; then
+	pkgfile=$ZPM_PACKAGE_FILE
+fi
+
+# calculate package id, pkgfile, etc
+# cases R = full package id, F = specified package file
+
+# immediate error
+# --- 000 error, must specify something
+if [ -z "$release" ] && [ -z "$pkgfile" ]; then
+	die must specify package file or complete package id
+fi
+
+# try to get from package file
+if [ -z "$release" ]; then
+	pkgid=$(zpm findpkg $pkgfile $pkgid)
+	if [ -z "$pkgid" ]; then
+		die cannot find package id
+	fi
+	eval "$(zpm parse -E $pkgid)"
+fi
+
+# --F 001 error, wouldn't know which pkgid to create, could derive from file?
+if [ -z "$release" ]; then
+	die must specify complete package id
+fi
+
+# set file from pkgid
+# -R- 010 set file from pkgid, create in file, error if no file
+if [ -z "$pkgfile" ]; then
+	pkgfile="$pkgid.zpm"
+fi
+
+if [ $verbose -gt 0 ]; then
+	echo merging $pkgfile $pkgid into $target
+fi
+
+zpm test -v "$pkgfile" || exit 1
+
+merged=$(zpm shell "$target" "select 1 from packages_pkgid where pkgid = '$pkgid'")
+if [ -n "$merged" ]; then
+	die "$pkgid already exists in $target";
+fi
+
+# TODO file tags and package tags
+{
+cat <<EOS
+.bail on
+attach '$pkgfile' as remote;
+
+begin;
+
+insert or rollback into packages
+select * from remote.packages P
+where
+printf('%s-%s-%s', P.package, P.version, P.release) = '$pkgid'
+;
+
+insert or rollback into packagefiles
+select * from remote.packagefiles PF
+where
+printf('%s-%s-%s', PF.package, PF.version, PF.release) = '$pkgid'
+;
+
+insert or rollback into scripts
+select * from remote.scripts PF
+where
+printf('%s-%s-%s', PF.package, PF.version, PF.release) = '$pkgid'
+;
+EOS
+
+# actual files
+if [ $mergefiles -eq 1 ]; then
+cat<<EOS
+insert into files
+select F.* from remote.files F
+inner join remote.packagefiles_pkgid PF
+on PF.hash = F.hash
+where
+PF.pkgid = '$pkgid'
+on conflict (hash) do nothing
+;
+EOS
+fi
+
+# scripts
+# actual files
+if [ $mergescripts -eq 1 ]; then
+cat<<EOS
+insert into files
+select F.* from remote.files F
+inner join remote.scripts_pkgid PF
+on PF.hash = F.hash
+where
+PF.pkgid = '$pkgid'
+on conflict (hash) do nothing
+;
+EOS
+fi
+
+if [ -n "$newstatus" ]; then
+	newstatus=$(zpm quote "$newstatus")
+	package=$(zpm quote "$name")
+	version=$(zpm quote "$version")
+cat <<EOS
+update packages set status = '$newstatus'
+where package = '$package' and version = '$version' and release = '$release'
+;
+EOS
+fi
+
+# elf info
+
+# TODO check for adding file contents
+echo 'commit;'
+} | zpm shell $target
-- 
2.40.0