]> pd.if.org Git - zpackage/blob - zpm-merge
add package signing code
[zpackage] / 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         if [ $mergefiles -eq 1 ]; then
139                 printf "insert into files select F.* from remote.files F\n"
140                 printf "inner join remote.packagefiles_pkgid P on P.hash = F.hash %s\n" "$where"
141                 printf "on conflict (hash) do nothing;\n";
142         fi
143         # scripts
144         if [ $mergescripts -eq 1 ]; then
145                 printf "insert into files select F.* from remote.files F\n"
146                 printf "inner join remote.scripts_pkgid P on P.hash = F.hash where P.pkgid = '%s'\n" "$pkgid"
147                 printf "on conflict (hash) do nothing;\n";
148         fi
149         if [ -n "$newstatus" ]; then
150                 newstatus=$(zpm quote "$newstatus")
151                 printf "update packages as P set status = '$newstatus' %s;\n" "$where"
152         fi
153 }
154
155 check_have() {
156         merged=$(zpm shell "$target" "select 1 from packages_pkgid where pkgid = '$1'")
157         test -n "$merged"
158 }
159
160 filter_out_have() {
161         mlist=
162         for pkgid in "$@"; do
163                 if ! check_have "$pkgid" ; then
164                         mlist="$mlist $pkgid"
165                 fi
166         done
167         mlist=${mlist#' '}
168         printf '%s' "$mlist"
169 }
170
171 filter_have() {
172         mlist=
173         for pkgid in "$@"; do
174                 if check_have "$pkgid" ; then
175                         mlist="$mlist $pkgid"
176                 fi
177         done
178         mlist=${mlist#' '}
179         printf '%s' "$mlist"
180 }
181
182 check_newer() {
183         pkg=$1
184         package=$(zpm parse -n "$pkg")
185         newer=$(zpm shell "$target" "select '$pkg' > (select max(pkgid collate vercmp) from packages_pkgid where package = '$package') collate vercmp")
186         if [ "$newer" = '1' ] || [ -z "$newer" ]; then
187                 return 0
188         fi
189         return 1
190 }
191
192 filter_newer() {
193         mlist=
194         for pkgid in "$@"; do
195                 if check_newer "$pkgid" ; then
196                         mlist="$mlist $pkgid"
197                 fi
198         done
199         mlist=${mlist#' '}
200         printf '%s' "$mlist"
201 }
202
203 merge_list() {
204 # TODO file tags and package tags
205 (
206         printf ".bail on\n"
207         printf "attach '%s' as remote;\n" "$pkgfile"
208         printf "begin;\n"
209
210         for pkgid in "$@"; do
211                 mergeone "$pkgid"
212         done
213
214         printf "insert or ignore into elfneeded select * from remote.elfneeded;\n"
215         printf "insert or ignore into elflibraries select * from remote.elflibraries;\n"
216
217         printf "commit;\n"
218 ) | zpm shell $target
219 }
220
221 # check for already merged packages
222 if [ $update -eq 0 ] && [ $only_if_newer -eq 0 ]; then
223         have=$(filter_have $pkglist)
224         if [ -n "$have" ]; then
225                 die "already merged: $have"
226         fi
227 fi
228
229 if [ $update -eq 0 ]; then
230         pkglist=$(filter_out_have $pkglist)
231 fi
232
233 if [ $only_if_newer -eq 1 ]; then
234         pkglist=$(filter_newer $pkglist)
235         if [ -z "$pkglist" ]; then
236                 exit 0
237         fi
238 fi
239
240 if [ $one_at_a_time -eq 1 ]; then
241         for pkgid in $pkglist; do
242                 if [ $verbose -ne 0 ]; then
243                         printf '%s\n' $pkgid
244                 fi
245                 merge_list $pkgid
246         done
247 else
248         if [ $verbose -ne 0 ]; then
249                 printf "%s\n" $pkglist
250         fi
251         merge_list $pkglist
252 fi