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