pd.if.org Git - zpackage/blob - bin/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 warn() {
  11         printf 'zpm-merge:' 1>&2
  12         printf ' %s' "$@" 1>&2
  13         printf '\n' 1>&2
  14         exit 1
  15 }
  16
  17 die() {
  18         warn "$@"
  19         exit 1
  20 }
  21
  22 verbose=0
  23 mergefiles=0
  24 mergescripts=1
  25 mergeall=1
  26 update=0
  27 remove_older=0
  28 only_if_newer=0
  29 one_at_a_time=0
  30
  31 target=${ZPMDB:=/var/lib/zpm/local.db}
  32
  33 # TODO option to only update if new
  34 # new is hash is different or build time is later
  35 # TODO option to merge all packages found in pkgfile
  36 while getopts :f:vd:FSs:auonO opt; do
  37         case $opt in
  38                 f) pkgfile="$OPTARG" ;;
  39                 v) verbose=$(( verbose + 1 )) ;;
  40                 d) target="$OPTARG" ;;
  41                 F) mergefiles=1 ;;
  42                 S) mergescripts=0 ;;
  43                 s) newstatus="$OPTARG" ;;
  44                 a) mergeall=1 ;;
  45                 u) update=1 ;;
  46                 o) remove_older=1 ;;
  47                 n) only_if_newer=1 ;;
  48                 O) one_at_a_time=1 ;;
  49                 *) echo 'zpm-merge unknown option' $OPTARG; exit 1 ;;
  50         esac
  51 done
  52 shift $((OPTIND - 1))
  53
  54 # TODO test target
  55 if [ ! -e "$target" ]; then
  56         die "target file $target does not exist"
  57 fi
  58
  59 zpm test -v "$target" || exit 1
  60
  61 if [ $# -eq 0 ]; then
  62         mergeall=1
  63 else
  64         mergeall=0
  65 fi
  66
  67 # TODO if pkgfile is specified, allow multiple packages as args
  68 if [ $mergeall -eq 0 ]; then
  69         pkgid=$1
  70         shift
  71
  72         if [ -z "$pkgid" ]; then
  73                 die "must specify pkgid"
  74         fi
  75
  76         eval "$(zpm parse -E $pkgid)"
  77
  78         if [ -z "$pkgfile" ]; then
  79                 pkgfile=$ZPM_PACKAGE_FILE
  80         fi
  81
  82         # calculate package id, pkgfile, etc
  83         # cases R = full package id, F = specified package file
  84
  85         # immediate error
  86         # --- 000 error, must specify something
  87         if [ -z "$release" ] && [ -z "$pkgfile" ]; then
  88                 die must specify package file or complete package id
  89         fi
  90
  91         # try to get from package file
  92         if [ -z "$release" ]; then
  93                 pkgid=$(zpm findpkg -f $pkgfile $pkgid)
  94                 if [ -z "$pkgid" ]; then
  95                         die cannot find package id
  96                 fi
  97                 eval "$(zpm parse -E $pkgid)"
  98         fi
  99
 100         # --F 001 error, wouldn't know which pkgid to create, could derive from file?
 101         if [ -z "$release" ]; then
 102                 die must specify complete package id
 103         fi
 104
 105         # set file from pkgid
 106         # -R- 010 set file from pkgid, create in file, error if no file
 107         if [ -z "$pkgfile" ]; then
 108                 pkgfile="$pkgid.zpm"
 109         fi
 110
 111         if [ $verbose -gt 1 ]; then
 112                 echo merging $pkgfile $pkgid into $target
 113         fi
 114         pkglist=$pkgid
 115 else
 116         pkglist=$(zpm list -f "$pkgfile")
 117 fi
 118
 119 zpm test -v "$pkgfile" || exit 1
 120
 121 if [ -n "$newstatus" ]; then
 122         newstatus=$(zpm quote "$newstatus")
 123 fi
 124
 125 mergeone() {
 126         pkgid=$1
 127         package=$(zpm parse -n "$pkgid")
 128         where="where printf('%s-%s-%s', P.package, P.version, P.release) = '$pkgid'"
 129         if [ $update -eq 1 ]; then
 130                 printf "delete from packages_pkgid where pkgid = '%s';\n" "$pkgid"
 131         fi
 132         if [ $remove_older -eq 1 ]; then
 133                 printf "delete from packages_pkgid where package = '$package' and pkgid < '%s' collate vercmp;\n" "$pkgid"
 134         fi
 135         printf "insert or rollback into packages select * from remote.packages P %s;\n" "$where"
 136         printf "insert or rollback into packagefiles select * from remote.packagefiles P %s;\n" "$where"
 137         printf "insert or rollback into scripts select * from remote.scripts P %s;\n" "$where"
 138         printf "insert or rollback into packagedeps select * from remote.packagedeps P %s;\n" "$where"
 139         if [ $mergefiles -eq 1 ]; then
 140                 printf "insert into files select F.* from remote.files F\n"
 141                 printf "inner join remote.packagefiles_pkgid P on P.hash = F.hash %s\n" "$where"
 142                 printf "on conflict (hash) do nothing;\n";
 143         fi
 144         # scripts
 145         if [ $mergescripts -eq 1 ]; then
 146                 printf "insert into files select F.* from remote.files F\n"
 147                 printf "inner join remote.scripts_pkgid P on P.hash = F.hash where P.pkgid = '%s'\n" "$pkgid"
 148                 printf "on conflict (hash) do nothing;\n";
 149         fi
 150         if [ -n "$newstatus" ]; then
 151                 newstatus=$(zpm quote "$newstatus")
 152                 printf "update packages as P set status = '$newstatus' %s;\n" "$where"
 153         fi
 154 }
 155
 156 check_have() {
 157         merged=$(zpm shell "$target" "select 1 from packages_pkgid where pkgid = '$1'")
 158         test -n "$merged"
 159 }
 160
 161 filter_out_have() {
 162         mlist=
 163         for pkgid in "$@"; do
 164                 if ! check_have "$pkgid" ; then
 165                         mlist="$mlist $pkgid"
 166                 fi
 167         done
 168         mlist=${mlist#' '}
 169         printf '%s' "$mlist"
 170 }
 171
 172 filter_have() {
 173         mlist=
 174         for pkgid in "$@"; do
 175                 if check_have "$pkgid" ; then
 176                         mlist="$mlist $pkgid"
 177                 fi
 178         done
 179         mlist=${mlist#' '}
 180         printf '%s' "$mlist"
 181 }
 182
 183 check_newer() {
 184         pkg=$1
 185         package=$(zpm parse -n "$pkg")
 186         newer=$(zpm shell "$target" "select '$pkg' > (select max(pkgid collate vercmp) from packages_pkgid where package = '$package') collate vercmp")
 187         if [ "$newer" = '1' ] || [ -z "$newer" ]; then
 188                 return 0
 189         fi
 190         return 1
 191 }
 192
 193 filter_newer() {
 194         mlist=
 195         for pkgid in "$@"; do
 196                 if check_newer "$pkgid" ; then
 197                         mlist="$mlist $pkgid"
 198                 fi
 199         done
 200         mlist=${mlist#' '}
 201         printf '%s' "$mlist"
 202 }
 203
 204 merge_list() {
 205 # TODO file tags and package tags
 206 (
 207         printf ".bail on\n"
 208         printf "attach '%s' as remote;\n" "$pkgfile"
 209         printf "begin;\n"
 210
 211         for pkgid in "$@"; do
 212                 mergeone "$pkgid"
 213         done
 214
 215         printf "insert or ignore into elfneeded select * from remote.elfneeded;\n"
 216         printf "insert or ignore into elflibraries select * from remote.elflibraries;\n"
 217         printf "insert or ignore into package_signatures select * from remote.package_signatures PS where PS.packagehash in (select hash from remote.packages);\n"
 218
 219         printf "commit;\n"
 220 ) | zpm shell $target
 221 }
 222
 223 # check for already merged packages
 224 if [ $update -eq 0 ] && [ $only_if_newer -eq 0 ]; then
 225         have=$(filter_have $pkglist)
 226         if [ -n "$have" ]; then
 227                 die "already merged: $have"
 228         fi
 229 fi
 230
 231 if [ $update -eq 0 ]; then
 232         pkglist=$(filter_out_have $pkglist)
 233 fi
 234
 235 if [ $only_if_newer -eq 1 ]; then
 236         pkglist=$(filter_newer $pkglist)
 237         if [ -z "$pkglist" ]; then
 238                 exit 0
 239         fi
 240 fi
 241
 242 if [ $one_at_a_time -eq 1 ]; then
 243         for pkgid in $pkglist; do
 244                 if [ $verbose -ne 0 ]; then
 245                         printf '%s\n' $pkgid
 246                 fi
 247                 merge_list $pkgid
 248         done
 249 else
 250         if [ $verbose -ne 0 ]; then
 251                 printf "%s\n" $pkglist
 252         fi
 253         merge_list $pkglist
 254 fi