pd.if.org Git - zpackage/blob - zpm-merge

   1 #!/bin/sh
   2
   3 # merge
   4 # collects info from package file and copies it into another package file
   5
   6 # merge [ -d ZPMDB ] [-f $pkgfile] pkg
   7 # -F include file content
   8 # -S don't include script content
   9
  10 die() {
  11         printf 'zpm-merge:' 1>&2
  12         printf ' %s' "$@" 1>&2
  13         printf '\n' 1>&2
  14         exit 1
  15 }
  16
  17 verbose=0
  18 mergefiles=0
  19 mergescripts=1
  20 mergeall=1
  21 update=0
  22
  23 target=${ZPMDB:=/var/lib/zpm/local.db}
  24
  25 # TODO option to merge all packages found in pkgfile
  26 while getopts :f:vd:FSs:au opt; do
  27         case $opt in
  28                 f) pkgfile="$OPTARG" ;;
  29                 v) verbose=1 ;;
  30                 d) target="$OPTARG" ;;
  31                 F) mergefiles=1 ;;
  32                 S) mergescripts=0 ;;
  33                 s) newstatus="$OPTARG" ;;
  34                 a) mergeall=1 ;;
  35                 u) update=1 ;;
  36
  37                 *) echo 'zpm-merge unknown option' $OPTARG; exit 1 ;;
  38         esac
  39 done
  40 shift $((OPTIND - 1))
  41
  42 # TODO test target
  43 if [ ! -e "$target" ]; then
  44         die "target file $target does not exist"
  45 fi
  46
  47 zpm test -v "$target" || exit 1
  48
  49 if [ $# -eq 0 ]; then
  50         mergeall=1
  51 else
  52         mergeall=0
  53 fi
  54
  55 # TODO if pkgfile is specified, allow multiple packages as args
  56 if [ $mergeall -eq 0 ]; then
  57         pkgid=$1
  58         shift
  59
  60         if [ -z "$pkgid" ]; then
  61                 die "must specify pkgid"
  62         fi
  63
  64         eval "$(zpm parse -E $pkgid)"
  65
  66         if [ -z "$pkgfile" ]; then
  67                 pkgfile=$ZPM_PACKAGE_FILE
  68         fi
  69
  70         # calculate package id, pkgfile, etc
  71         # cases R = full package id, F = specified package file
  72
  73         # immediate error
  74         # --- 000 error, must specify something
  75         if [ -z "$release" ] && [ -z "$pkgfile" ]; then
  76                 die must specify package file or complete package id
  77         fi
  78
  79         # try to get from package file
  80         if [ -z "$release" ]; then
  81                 pkgid=$(zpm findpkg -f $pkgfile $pkgid)
  82                 if [ -z "$pkgid" ]; then
  83                         die cannot find package id
  84                 fi
  85                 eval "$(zpm parse -E $pkgid)"
  86         fi
  87
  88         # --F 001 error, wouldn't know which pkgid to create, could derive from file?
  89         if [ -z "$release" ]; then
  90                 die must specify complete package id
  91         fi
  92
  93         # set file from pkgid
  94         # -R- 010 set file from pkgid, create in file, error if no file
  95         if [ -z "$pkgfile" ]; then
  96                 pkgfile="$pkgid.zpm"
  97         fi
  98
  99         if [ $verbose -gt 0 ]; then
 100                 echo merging $pkgfile $pkgid into $target
 101         fi
 102         pkglist=$pkgid
 103 else
 104         pkglist=$(zpm list -f "$pkgfile")
 105 fi
 106
 107 zpm test -v "$pkgfile" || exit 1
 108
 109 if [ -n "$newstatus" ]; then
 110         newstatus=$(zpm quote "$newstatus")
 111 fi
 112
 113 mergeone() {
 114         pkgid=$1
 115         where="where printf('%s-%s-%s', P.package, P.version, P.release) = '$pkgid'"
 116         if [ $update -eq 1 ]; then
 117                 printf "delete from packages P %s;\n" "$where"
 118         fi
 119         printf "insert or rollback into packages select * from remote.packages P %s;\n" "$where"
 120         printf "insert or rollback into packagefiles select * from remote.packagefiles P %s;\n" "$where"
 121         printf "insert or rollback into scripts select * from remote.scripts P %s;\n" "$where"
 122         if [ $mergefiles -eq 1 ]; then
 123                 printf "insert into files select F.* from remote.files F\n"
 124                 printf "inner join remote.packagefiles_pkgid P on P.hash = F.hash %s\n" "$where"
 125                 printf "on conflict (hash) do nothing;\n";
 126         fi
 127         # scripts
 128         if [ $mergescripts -eq 1 ]; then
 129                 printf "insert into files select F.* from remote.files F\n"
 130                 printf "inner join remote.scripts_pkgid P on P.hash = F.hash where P.pkgid = '%s'\n" "$pkgid"
 131                 printf "on conflict (hash) do nothing;\n";
 132         fi
 133         if [ -n "$newstatus" ]; then
 134                 newstatus=$(zpm quote "$newstatus")
 135                 printf "update packages as P set status = '$newstatus' %s;\n" "$where"
 136         fi
 137 }
 138
 139 # check for already merged packages
 140 if [ $update -eq 0 ]; then
 141         efail=0
 142
 143         for pkg in $pkglist; do
 144                 merged=$(zpm shell "$target" "select 1 from packages_pkgid where pkgid = '$pkgid'")
 145                 if [ -n "$merged" ]; then
 146                         warn "$pkgid already exists in $target";
 147                         efail=1
 148                 fi
 149         done
 150         if [ $efail -eq 1 ]; then
 151                 die "aborting merge"
 152         fi
 153 fi
 154
 155 # TODO file tags and package tags
 156 {
 157         printf ".bail on\n"
 158         printf "attach '%s' as remote;\n" "$pkgfile"
 159         printf "begin;\n"
 160
 161         for pkgid in $pkglist; do
 162                 mergeone "$pkgid"
 163         done
 164
 165         printf "insert or ignore into elfneeded select * from remote.elfneeded;\n"
 166         printf "insert or ignore into elflibraries select * from remote.elflibraries;\n"
 167
 168         printf "commit;\n"
 169 } | zpm shell $target
 170
 171 if [ $verbose -ne 0 ]; then
 172         printf "%s\n" $pkglist
 173 fi