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