rev |
line source |
al@865
|
1 #!/bin/sh
|
al@865
|
2 #
|
al@865
|
3 # compressor - module of the SliTaz Cook
|
al@865
|
4 # Copyright (C) SliTaz GNU/Linux - GNU GPL v3
|
al@865
|
5 #
|
al@865
|
6
|
al@865
|
7 . /usr/lib/slitaz/libcook.sh
|
al@865
|
8
|
al@868
|
9 # Compressor cache stuff
|
al@868
|
10
|
al@873
|
11 comp_cache_root='/home/slitaz/cache/cook'
|
al@869
|
12 mkdir -p "$comp_cache_root"
|
al@868
|
13 cache_stat=$(mktemp)
|
al@868
|
14
|
al@868
|
15 # Cache notes.
|
al@868
|
16 # Do not do the same job twice. Getting the file from the cache is much faster
|
al@868
|
17 # than compressing the file one more time. In addition, this cache is trying not
|
paul@1006
|
18 # to take extra space using the hardlinks. Although the files from the cache
|
paul@870
|
19 # without reference to itself should be removed periodically.
|
al@868
|
20
|
al@868
|
21
|
al@868
|
22
|
al@868
|
23
|
al@865
|
24 #
|
al@865
|
25 # Functions
|
al@865
|
26 #
|
al@865
|
27
|
al@865
|
28
|
al@912
|
29 # tazpkg install command
|
al@912
|
30
|
al@912
|
31 tpi() {
|
al@912
|
32 tazpkg -gi --quiet --local --cookmode $1
|
al@912
|
33 }
|
al@912
|
34
|
al@912
|
35
|
al@881
|
36 # Working with time (with hundredths precision)
|
al@865
|
37
|
al@881
|
38 get_time() {
|
al@881
|
39 cut -d" " -f2 /proc/uptime
|
al@881
|
40 }
|
al@865
|
41
|
al@881
|
42 calc_time() {
|
al@881
|
43 # L10n: 's' is for seconds, 'm' is for minutes
|
al@881
|
44 awk -va="$1" -vb="$(get_time)" -vs="$(_ 's')" -vm="$(_ 'm')" '
|
al@881
|
45 BEGIN{
|
al@881
|
46 time = b - a;
|
al@881
|
47 if (time < 30)
|
al@881
|
48 printf("%.2f%s\n", time, s);
|
al@881
|
49 else
|
al@881
|
50 printf("%.2f%s ~ %.0f%s\n", time, s, time / 60, m);
|
al@881
|
51 }'
|
al@865
|
52 }
|
al@865
|
53
|
al@865
|
54
|
al@865
|
55 # Compressor mini summary
|
al@865
|
56
|
al@865
|
57 comp_summary() {
|
al@998
|
58 # "$time0" "$size0" "$size1" "$log_file"
|
al@865
|
59 status
|
al@865
|
60 [ "$2" -eq 0 ] && return
|
al@881
|
61 saving=$(awk -va="$2" -vb="$3" 'BEGIN{ printf("%.0f\n", (a - b) / 1024) }')
|
al@868
|
62 cache_msg=''
|
al@868
|
63 if [ -s "$cache_stat" ]; then
|
al@868
|
64 cache_msg=$(_n ' Cache hit: %d/%d.' "$(fgrep '+' $cache_stat | wc -l)" "$(wc -l < $cache_stat)")
|
al@868
|
65 echo -n > $cache_stat
|
al@868
|
66 fi
|
al@868
|
67 _ ' Time: %s. Size: %s B -> %s B. Save: %s KB.%s' \
|
al@881
|
68 "$(calc_time $1)" "$2" "$3" "$saving" "$cache_msg"
|
al@998
|
69
|
al@998
|
70 if [ -s "$4" ]; then
|
al@1024
|
71 _ 'Compressor warnings and errors:'
|
al@998
|
72 awk '{printf " %s\n", $0;}' "$4"
|
al@998
|
73 echo
|
al@998
|
74 fi
|
al@998
|
75 # Clean log
|
al@998
|
76 [ ! -f "$4" ] || rm "$4"
|
al@865
|
77 }
|
al@865
|
78
|
al@865
|
79
|
al@1020
|
80 # Find ELF files
|
al@1020
|
81
|
al@1020
|
82 find_elf() {
|
al@1020
|
83 local i ifs="$IFS"
|
al@1020
|
84 IFS=$'\n'
|
al@1020
|
85 find $fs -type f \
|
al@1020
|
86 | while read i; do
|
al@1020
|
87 # output of `readelf -h <file> is human-readable information,
|
paul@1021
|
88 # we are interested in the next line:
|
al@1020
|
89 # Type: EXEC (Executable file)
|
al@1020
|
90 # or
|
al@1020
|
91 # Type: DYN (Shared object file)
|
al@1020
|
92 if [ "$(readelf -h "$i" 2>/dev/null \
|
al@1020
|
93 | sed -n '/Type:/ s|.*: *\([^ ]*\) .*|\1|p')" == "$1" ]; then
|
al@1020
|
94 echo "$i" # $1 = { EXEC | DYN }
|
al@1020
|
95 fi
|
al@1020
|
96 done
|
al@1020
|
97 IFS="$ifs"
|
al@1020
|
98 }
|
al@1020
|
99
|
al@1020
|
100
|
al@865
|
101 # Calculating different sizes
|
al@865
|
102
|
al@865
|
103 sizes() {
|
al@1020
|
104 local ifs="$IFS"; IFS=$'\n'
|
al@865
|
105 case $1 in
|
al@865
|
106 man) find $install/usr/share/man -type f -exec ls -l \{\} \; ;;
|
al@865
|
107 png) find $install -type f -name '*.png' -exec ls -l \{\} \; ;;
|
al@865
|
108 svg) find $install -type f -name '*.svg' -exec ls -l \{\} \; ;;
|
al@1064
|
109 gif) find $install -type f -name '*.gif' -exec ls -l \{\} \; ;;
|
al@865
|
110 xml) find $install -type f \( -name '*.ui' -o -name '*.glade' \) -exec ls -l \{\} \; ;;
|
al@865
|
111 des) find $install -type f -name '*.desktop' -exec ls -l \{\} \; ;;
|
al@865
|
112 mo1) find $install -type f -name '*.mo' -exec ls -l \{\} \; ;;
|
al@865
|
113 loc) find $install/usr/share/i18n/locales -type f -exec ls -l \{\} \; ;;
|
al@865
|
114 mo2) find $fs/usr/share/locale -type f -name '*.mo' -exec ls -l \{\} \; ;;
|
al@872
|
115 gz) find $install -type f -name '*.gz' ! -path '*/share/man/*' -exec ls -l \{\} \; ;;
|
al@954
|
116 zip) find $install -type f -name '*.zip' -exec ls -l \{\} \; ;;
|
al@1020
|
117 strip)
|
al@1020
|
118 {
|
al@1020
|
119 find_elf EXEC
|
al@1020
|
120 find_elf DYN
|
al@1020
|
121 find $fs -type f \( -name '*.a' -o -name '*.pyc' -o -name '*.pyo' \
|
al@1020
|
122 -o -name '.packlist' -o -name '*.pm' -o -name '*.pl' -o -name '*.pod' \)
|
al@1020
|
123 } \
|
al@1034
|
124 | tr '\n' '\0' \
|
al@1034
|
125 | xargs -0 ls -l
|
al@1020
|
126 ;;
|
al@865
|
127 esac | awk '{s+=$5}END{print s}'
|
al@1020
|
128 IFS="$ifs"
|
al@865
|
129 }
|
al@865
|
130
|
al@865
|
131
|
al@868
|
132 # Query cache for already existing compressed file; substitute original file with the cached
|
al@868
|
133 # compressed one if so.
|
al@868
|
134 # $1: cache section (gz, mangz, png, etc.); $2: path to original file
|
al@868
|
135
|
al@868
|
136 query_cache() {
|
al@868
|
137 md5=$(md5sum "$2")
|
al@868
|
138 cachefile="$comp_cache_root/$1/${md5%% *}"
|
al@868
|
139 echo "$cachefile"
|
al@1100
|
140 owner=$(stat -c%u:%g "$2")
|
al@1100
|
141 perms=$(stat -c%a "$2")
|
al@868
|
142 if [ -f "$cachefile" ]; then
|
al@868
|
143 ln -f "$cachefile" "$2"
|
al@1100
|
144 chown $owner "$2"
|
al@1100
|
145 chmod $perms "$2"
|
al@868
|
146 echo '+' >> "$cache_stat"
|
al@868
|
147 else
|
al@868
|
148 echo '-' >> "$cache_stat"
|
al@868
|
149 false
|
al@868
|
150 fi
|
al@868
|
151 }
|
al@868
|
152
|
al@868
|
153
|
al@868
|
154 # Store compressed file to the cache
|
al@868
|
155 # $1: path to cache entry to be stored; $2: path to compressed file to be stored
|
al@868
|
156
|
al@868
|
157 store_cache() {
|
al@868
|
158 mkdir -p "${1%/*}"
|
al@868
|
159 mv "$2" "$1"
|
al@868
|
160 ln "$1" "$2"
|
al@868
|
161 }
|
al@868
|
162
|
al@868
|
163
|
al@865
|
164 # Function to compress all man pages
|
al@865
|
165 # Compressing can be disabled with COOKOPTS="!manz"
|
al@865
|
166
|
al@865
|
167 compress_manpages() {
|
al@881
|
168 time0=$(get_time)
|
al@865
|
169 [ "${COOKOPTS/!manz/}" != "$COOKOPTS" ] && return
|
al@874
|
170 manpath="$install/usr/share/man"
|
al@865
|
171 [ -d "$manpath" ] || return
|
al@865
|
172 size0=$(sizes man); [ -z "$size0" ] && return
|
al@865
|
173
|
al@936
|
174 tpi advancecomp-static
|
al@867
|
175
|
al@865
|
176 action 'Compressing man pages...'
|
al@865
|
177
|
al@865
|
178 # We'll use only Gzip compression, so decompress other formats first
|
al@865
|
179 find $manpath -type f -name '*.bz2' -exec bunzip2 \{\} \;
|
al@865
|
180 find $manpath -type f -name '*.xz' -exec unxz \{\} \;
|
al@865
|
181
|
al@865
|
182 # Fast compress with gzip
|
al@874
|
183 find $manpath -type f ! -name '*.gz' -exec gzip \{\} \;
|
al@865
|
184
|
al@865
|
185 # Fix symlinks
|
al@874
|
186 for i in $(find $manpath -type l); do
|
al@865
|
187 dest=$(readlink $i | sed 's|\.[gbx]z2*$||')
|
al@865
|
188 link=$(echo $i | sed 's|\.[gbx]z2*$||')
|
al@865
|
189 rm $i; ln -s $dest.gz $link.gz
|
al@865
|
190 done
|
al@865
|
191
|
al@865
|
192 # Recompress with advdef (it can't compress, only recompress)
|
al@1024
|
193 the_log="$(mktemp)"
|
al@1024
|
194 if which advdef >/dev/null; then
|
al@1024
|
195 IFS=$'\n'
|
al@1024
|
196 for i in $(find $manpath -type f); do
|
al@1024
|
197 if ! cached_path=$(query_cache mangz "$i"); then
|
al@1024
|
198 cp -a "$i" "$i.orig$$" # save the original if something goes wrong
|
al@1024
|
199 out="$(advdef -z4q "$i")"
|
al@1024
|
200 if [ -n "$out" ]; then
|
al@1024
|
201 echo "$i:"$'\n'"$out"$'\n' >> "$the_log"
|
al@1024
|
202 mv -f "$i.orig$$" "$i" # restore the original
|
al@1024
|
203 else
|
al@1024
|
204 store_cache "$cached_path" "$i"
|
al@1024
|
205 rm -f "$i.orig$$" # clean
|
al@1024
|
206 fi
|
al@998
|
207 fi
|
al@1024
|
208 done
|
al@1024
|
209 else
|
al@1024
|
210 echo 'Warning: advdef not found.' > "$the_log"
|
al@1024
|
211 fi
|
al@865
|
212
|
al@1024
|
213 comp_summary "$time0" "$size0" "$(sizes man)" "$the_log"
|
al@865
|
214 }
|
al@865
|
215
|
al@865
|
216
|
al@872
|
217 # Function to recompress all gzip archives
|
al@872
|
218 # Recompressing can be disabled with COOKOPTS="!gz"
|
al@872
|
219
|
al@872
|
220 recompress_gz() {
|
al@881
|
221 time0=$(get_time)
|
al@872
|
222 [ "${COOKOPTS/!gz/}" != "$COOKOPTS" ] && return
|
al@872
|
223 size0=$(sizes gz); [ -z "$size0" ] && return
|
al@872
|
224
|
al@936
|
225 tpi advancecomp-static
|
al@872
|
226
|
al@872
|
227 action 'Recompressing gzip files...'
|
al@872
|
228
|
al@872
|
229 # Recompress with advdef
|
al@1024
|
230 the_log="$(mktemp)"
|
al@1024
|
231 if which advdef >/dev/null; then
|
al@1024
|
232 IFS=$'\n'
|
al@1024
|
233 for i in $(find $install -type f -name '*.gz' ! -path '*/share/man/*'); do
|
al@1024
|
234 if ! cached_path=$(query_cache gz "$i"); then
|
al@1024
|
235 cp -a "$i" "$i.orig$$" # save the original if something goes wrong
|
al@1024
|
236 out="$(advdef -z4q "$i")"
|
al@1024
|
237 if [ -n "$out" ]; then
|
al@1024
|
238 echo "$i:"$'\n'"$out"$'\n' >> "$the_log"
|
al@1024
|
239 mv -f "$i.orig$$" "$i" # restore the original
|
al@1024
|
240 else
|
al@1024
|
241 store_cache "$cached_path" "$i"
|
al@1024
|
242 rm -f "$i.orig$$" # clean
|
al@1024
|
243 fi
|
al@998
|
244 fi
|
al@1024
|
245 done
|
al@1024
|
246 else
|
al@1024
|
247 echo 'Warning: advdef not found.' > "$the_log"
|
al@1024
|
248 fi
|
al@872
|
249
|
al@1024
|
250 comp_summary "$time0" "$size0" "$(sizes gz)" "$the_log"
|
al@872
|
251 }
|
al@872
|
252
|
al@872
|
253
|
al@954
|
254 # Function to recompress all zip archives
|
al@954
|
255 # Recompressing can be disabled with COOKOPTS="!zip"
|
al@954
|
256
|
al@954
|
257 recompress_zip() {
|
al@954
|
258 time0=$(get_time)
|
al@954
|
259 [ "${COOKOPTS/!zip/}" != "$COOKOPTS" ] && return
|
al@954
|
260 size0=$(sizes zip); [ -z "$size0" ] && return
|
al@954
|
261
|
al@954
|
262 tpi advancecomp-static
|
al@954
|
263
|
al@954
|
264 action 'Recompressing zip files...'
|
al@954
|
265
|
al@954
|
266 # Recompress with advzip
|
al@1024
|
267 the_log="$(mktemp)"
|
al@1024
|
268 if which advzip >/dev/null; then
|
al@1024
|
269 IFS=$'\n'
|
al@1024
|
270 for i in $(find $install -type f -name '*.zip'); do
|
al@1024
|
271 if ! cached_path=$(query_cache zip "$i"); then
|
al@1024
|
272 cp -a "$i" "$i.orig$$" # save the original if something goes wrong
|
al@1024
|
273 out="$(advzip -z3qk "$i")" # '-4' is more than two orders slower; use '-3'
|
al@1024
|
274 if [ -n "$out" ]; then
|
al@1024
|
275 echo "$i:"$'\n'"$out"$'\n' >> "$the_log"
|
al@1024
|
276 mv -f "$i.orig$$" "$i" # restore the original
|
al@1024
|
277 else
|
al@1024
|
278 store_cache "$cached_path" "$i"
|
al@1024
|
279 rm -f "$i.orig$$" # clean
|
al@1024
|
280 fi
|
al@998
|
281 fi
|
al@1024
|
282 done
|
al@1024
|
283 else
|
al@1024
|
284 echo 'Warning: advzip not found.' > "$the_log"
|
al@1024
|
285 fi
|
al@954
|
286
|
al@1024
|
287 comp_summary "$time0" "$size0" "$(sizes zip)" "$the_log"
|
al@954
|
288 }
|
al@954
|
289
|
al@954
|
290
|
al@865
|
291 # Function used after compile_rules() to compress all png images
|
al@865
|
292 # Compressing can be disabled with COOKOPTS="!pngz"
|
al@865
|
293
|
al@865
|
294 compress_png() {
|
al@881
|
295 time0=$(get_time)
|
al@865
|
296 [ "${COOKOPTS/!pngz/}" != "$COOKOPTS" ] && return
|
al@865
|
297 size0=$(sizes png); [ -z "$size0" ] && return
|
al@865
|
298
|
al@865
|
299 use_pq=true
|
al@865
|
300 use_op=true
|
al@865
|
301 [ "${COOKOPTS/!pngquant/}" != "$COOKOPTS" ] && use_pq=false
|
al@865
|
302 [ "${COOKOPTS/!optipng/}" != "$COOKOPTS" ] && use_op=false
|
al@932
|
303 $use_pq && tpi pngquant-static
|
al@932
|
304 $use_op && tpi optipng-static
|
al@865
|
305
|
al@867
|
306 action 'Compressing png images...'
|
al@865
|
307
|
al@1024
|
308 the_log="$(mktemp)"
|
al@1024
|
309 $use_pq && if ! which pngquant >/dev/null; then
|
al@1024
|
310 echo 'Warning: pngquant not found.' > "$the_log"
|
al@1024
|
311 use_pq=false
|
al@1024
|
312 fi
|
al@1024
|
313 $use_op && if ! which optipng >/dev/null; then
|
al@1024
|
314 echo 'Warning: optipng not found.' >> "$the_log"
|
al@1024
|
315 use_op=false
|
al@1024
|
316 fi
|
al@1024
|
317
|
al@865
|
318 oplevel=$(echo $COOKOPTS | grep 'op[0-8]' | sed 's|.*op\([0-8]\).*|\1|')
|
al@868
|
319 [ -z "$oplevel" ] && oplevel='2'
|
al@868
|
320
|
al@868
|
321 cache_section="png$oplevel"
|
al@868
|
322 $use_pq && cache_section="${cache_section}p"
|
al@868
|
323 $use_op && cache_section="${cache_section}o"
|
al@868
|
324
|
al@865
|
325 [ "$oplevel" == '8' ] && oplevel='7 -zm1-9'
|
al@865
|
326
|
al@998
|
327 pq_opt='--skip-if-larger' # Sublime Text is mad about `if` in $(), so put it separately
|
al@978
|
328 IFS=$'\n'
|
al@978
|
329 for i in $(find $install -type f -name '*.png'); do
|
al@998
|
330 unset IFS iserror
|
al@868
|
331 if ! cached_path=$(query_cache $cache_section "$i"); then
|
al@998
|
332 cp -a "$i" "$i.orig$$" # save the original if something goes wrong
|
al@998
|
333 if $use_pq; then
|
al@998
|
334 out="$(pngquant -f $pq_opt --ext .png --speed 1 "$i" 2>&1)"
|
al@998
|
335 if [ -n "$out" ]; then
|
al@1024
|
336 echo "$i (pngquant):"$'\n'"$out"$'\n' >> "$the_log"
|
al@998
|
337 iserror='yes'
|
al@1045
|
338 [ -e "$i.tmp" ] && rm "$i.tmp" # zero-size file remains on pngquant fail
|
al@998
|
339 fi
|
al@998
|
340 fi
|
al@998
|
341 if $use_op && [ -z "$iserror" ]; then
|
al@998
|
342 out="$(optipng -quiet -strip all -o$oplevel "$i" 2>&1)"
|
al@998
|
343 if [ -n "$out" ]; then
|
al@1024
|
344 echo "$i (optipng):"$'\n'"$out"$'\n' >> "$the_log"
|
al@998
|
345 iserror='yes'
|
al@998
|
346 fi
|
al@998
|
347 fi
|
al@998
|
348 if [ -n "$iserror" ]; then
|
al@998
|
349 mv -f "$i.orig$$" "$i" # restore the original
|
al@998
|
350 else
|
al@998
|
351 store_cache "$cached_path" "$i"
|
al@998
|
352 rm -f "$i.orig$$" # clean
|
al@998
|
353 fi
|
al@868
|
354 fi
|
al@865
|
355 done
|
al@865
|
356
|
al@1024
|
357 comp_summary "$time0" "$size0" "$(sizes png)" "$the_log"
|
al@865
|
358 }
|
al@865
|
359
|
al@865
|
360
|
al@865
|
361 # Function used after compile_rules() to compress all svg images
|
al@865
|
362 # Compressing can be disabled with COOKOPTS="!svgz"
|
al@865
|
363
|
al@865
|
364 compress_svg() {
|
al@881
|
365 time0=$(get_time)
|
al@865
|
366 [ "${COOKOPTS/!svgz/}" != "$COOKOPTS" ] && return
|
al@865
|
367 size0=$(sizes svg); [ -z "$size0" ] && return
|
al@865
|
368
|
al@912
|
369 tpi svgcleaner
|
al@867
|
370
|
al@865
|
371 action 'Compressing svg images...'
|
al@865
|
372
|
al@1072
|
373 the_log="$(mktemp)"
|
al@1024
|
374 if which svgcleaner >/dev/null; then
|
al@1024
|
375 [ "${COOKOPTS/!svgextra/}" == "$COOKOPTS" ] &&
|
al@1024
|
376 opts="--apply-transform-to-paths yes --coordinates-precision 1 --paths-coordinates-precision 1"
|
al@959
|
377
|
al@1024
|
378 for i in $(IFS=$'\n' find $install -type f -name '*.svg'); do
|
al@1024
|
379 out="$(unset IFS; svgcleaner "$i" "$i" --copy-on-error --quiet \
|
al@1024
|
380 --multipass --remove-unresolved-classes no $opts 2>&1)"
|
al@1024
|
381 [ -z "$out" ] || echo "$i:"$'\n'"$out"$'\n' >> "$the_log"
|
al@1024
|
382 done
|
al@1024
|
383 else
|
al@1024
|
384 echo 'Warning: svgcleaner not found.' > "$the_log"
|
al@1024
|
385 fi
|
al@865
|
386
|
al@1024
|
387 comp_summary "$time0" "$size0" "$(sizes svg)" "$the_log"
|
al@865
|
388 }
|
al@865
|
389
|
al@865
|
390
|
al@1064
|
391 # Function used after compile_rules() to compress all gif images
|
al@1064
|
392 # Compressing can be disabled with COOKOPTS="!gifz"
|
al@1064
|
393
|
al@1064
|
394 compress_gif() {
|
al@1064
|
395 time0=$(get_time)
|
al@1064
|
396 [ "${COOKOPTS/!gifz/}" != "$COOKOPTS" ] && return
|
al@1064
|
397 size0=$(sizes gif); [ -z "$size0" ] && return
|
al@1064
|
398
|
al@1064
|
399 tpi gifsicle
|
al@1064
|
400
|
al@1064
|
401 action 'Compressing gif images...'
|
al@1064
|
402
|
al@1072
|
403 the_log="$(mktemp)"
|
al@1064
|
404 if which gifsicle >/dev/null; then
|
al@1067
|
405 IFS=$'\n'
|
al@1067
|
406 for i in $(find $install -type f -name '*.gif'); do
|
al@1072
|
407 if ! cached_path=$(query_cache gif "$i"); then
|
al@1072
|
408 unset IFS
|
al@1072
|
409 # use intermediate file, if all well ($?=0), then substitute the original
|
al@1072
|
410 if gifsicle -O3 "$i" -o "$i.$$" >> "$the_log" 2>&1; then
|
al@1072
|
411 if [ -s "$i.$$" ]; then
|
al@1072
|
412 mv "$i.$$" "$i"
|
al@1072
|
413 store_cache "$cached_path" "$i"
|
al@1072
|
414 fi
|
al@1072
|
415 else
|
al@1072
|
416 rm "$i.$$"
|
al@1072
|
417 fi
|
al@1064
|
418 fi
|
al@1064
|
419 done
|
al@1064
|
420 else
|
al@1064
|
421 echo 'Warning: gifsicle not found.' > "$the_log"
|
al@1064
|
422 fi
|
al@1064
|
423
|
al@1064
|
424 comp_summary "$time0" "$size0" "$(sizes gif)" "$the_log"
|
al@1064
|
425 }
|
al@1064
|
426
|
al@1064
|
427
|
al@865
|
428 # Function used after compile_rules() to shrink all *.ui and *.glade files:
|
al@865
|
429 # remove insignificant spaces and comments
|
al@865
|
430 # Compressing can be disabled with COOKOPTS="!uiz"
|
al@865
|
431
|
al@865
|
432 compress_ui() {
|
al@865
|
433 [ "${COOKOPTS/!uiz/}" != "$COOKOPTS" ] && return
|
al@865
|
434 [ -z "$(find $install -type f \( -name '*.ui' -o -name '*.glade' \) )" ] && return
|
al@865
|
435
|
al@912
|
436 tpi xmlstarlet
|
al@867
|
437
|
al@865
|
438 action 'Compressing ui files...'
|
al@867
|
439
|
al@1072
|
440 the_log="$(mktemp)"
|
al@1024
|
441 if which xmlstarlet >/dev/null; then
|
al@1024
|
442 size0=$(sizes xml)
|
al@1024
|
443 time0=$(get_time)
|
al@1024
|
444 temp_ui="$(mktemp)"
|
al@1024
|
445 IFS=$'\n'
|
al@1024
|
446 for ui in $(find $install -type f \( -name '*.ui' -o -name '*.glade' \) ); do
|
al@1024
|
447 out="$(xmlstarlet c14n --without-comments "$ui" | xmlstarlet sel -B -t -c '*' > "$temp_ui")"
|
al@1024
|
448 if [ -n "$out" ]; then
|
al@1024
|
449 echo "$ui:"$'\n'"$out"$'\n' >> "$the_log"
|
al@1024
|
450 else
|
al@1024
|
451 cat "$temp_ui" > "$ui"
|
al@1024
|
452 fi
|
al@1024
|
453 done
|
al@1024
|
454 else
|
al@1024
|
455 echo 'Warning: xmlstarlet not found.' > "$the_log"
|
al@1024
|
456 fi
|
al@865
|
457
|
al@1024
|
458 comp_summary "$time0" "$size0" "$(sizes xml)" "$the_log"
|
al@865
|
459 rm "$temp_ui"
|
al@865
|
460 }
|
al@865
|
461
|
al@865
|
462
|
al@865
|
463 # Get list of supported locales...
|
al@865
|
464
|
al@865
|
465 get_supported_locales() {
|
al@865
|
466 lpc='/slitaz-i18n/stuff/locale-pack.conf'
|
al@865
|
467 if [ -e "$WOK$lpc" ]; then
|
al@865
|
468 # ... from package in the local wok
|
al@865
|
469 . "$WOK$lpc"
|
al@865
|
470 else
|
al@865
|
471 # ... from Hg
|
al@865
|
472 temp_conf=$(mktemp)
|
al@865
|
473 wget -q -O $temp_conf -T 10 "http://hg.slitaz.org/wok/raw-file/tip$lpc"
|
al@865
|
474 if [ -s $temp_conf ]; then
|
al@865
|
475 . $temp_conf
|
al@865
|
476 else
|
al@865
|
477 # Give up and use hardcoded list
|
al@865
|
478 LOCALE_PACK="ar ca cs da de el en es fi fr hr hu id is it ja nb nl nn pl pt \
|
al@865
|
479 pt_BR ro ru sl sv tr uk zh_CN zh_TW"
|
al@865
|
480 fi
|
al@865
|
481 rm $temp_conf
|
al@865
|
482 fi
|
al@865
|
483 echo $LOCALE_PACK
|
al@865
|
484 }
|
al@865
|
485
|
al@865
|
486
|
al@865
|
487 # Fix common errors and warnings in the .desktop files
|
al@865
|
488 # Fixing can be disabled with COOKOPTS="!fixdesktops"
|
al@865
|
489
|
al@865
|
490 fix_desktop_files() {
|
al@865
|
491 [ "${COOKOPTS/!fixdesktops/}" != "$COOKOPTS" ] && return
|
al@876
|
492 deskpath="$install/usr/share/applications"
|
al@876
|
493 [ -d "$deskpath" ] || return
|
al@876
|
494 [ -z "$(find $deskpath -type f -name '*.desktop')" ] && return
|
al@865
|
495
|
al@865
|
496 size0=$(sizes des)
|
al@881
|
497 time0=$(get_time)
|
al@865
|
498
|
al@865
|
499 if [ -n "$QA" -a -z "$(which desktop-file-validate)" ]; then
|
al@936
|
500 tpi desktop-file-validate-static
|
al@865
|
501 fi
|
al@865
|
502
|
al@865
|
503 # The variable $LOCALE is set in cook.conf and may be overridden in the receipt.
|
al@865
|
504 # Default value is "" (empty). That means for us that we'll use the full
|
al@865
|
505 # list of supported locales here.
|
al@865
|
506 [ -z "$LOCALE" ] && LOCALE=$(get_supported_locales)
|
al@865
|
507
|
al@876
|
508 IFS=$'\n'
|
al@876
|
509 for desktop in $(find $deskpath -type f -name '*.desktop'); do
|
al@865
|
510 cp "$desktop" "$desktop.orig"
|
al@865
|
511
|
al@865
|
512 # Sort out .desktop file (is prerequisite to correct working of `fix-desktop-file`)
|
al@865
|
513 sdft "$desktop" -i
|
al@865
|
514
|
al@865
|
515 # Fix common errors in .desktop file
|
al@865
|
516 fix-desktop-file "$desktop"
|
al@865
|
517
|
al@865
|
518 # Strip unsupported locales from .desktop file
|
al@865
|
519 [ "${COOKOPTS/!i18nz/}" == "$COOKOPTS" ] &&
|
al@865
|
520 sdft "$desktop" -i -k "$LOCALE"
|
al@865
|
521
|
al@865
|
522 # Extra-strip
|
al@865
|
523 [ "${COOKOPTS/!extradesktops/}" == "$COOKOPTS" ] &&
|
al@865
|
524 sdft "$desktop" -i -g -x -tf -r 'Keywords*' -o
|
al@865
|
525
|
al@865
|
526 if [ -n "$QA" ]; then
|
al@865
|
527 # Check the rest of errors, warnings and tips
|
al@865
|
528 _ 'QA: Checking %s...' "$(basename $desktop)"
|
al@1002
|
529 busybox diff "$desktop.orig" "$desktop" | sed 's!^!|!'
|
al@1036
|
530 if which desktop-file-validate >/dev/null; then
|
al@1024
|
531 desktop-file-validate "$desktop" | busybox fold -s
|
al@1024
|
532 else
|
al@1024
|
533 echo 'Warning: desktop-file-validate not found.'
|
al@1024
|
534 fi
|
al@865
|
535 echo
|
al@865
|
536 fi
|
al@865
|
537
|
al@865
|
538 rm "$desktop.orig"
|
al@865
|
539 done
|
al@865
|
540
|
al@998
|
541 comp_summary "$time0" "$size0" "$(sizes des)" '/dev/null'
|
al@865
|
542 }
|
al@865
|
543
|
al@865
|
544
|
paul@879
|
545 # Normalize all *.mo files: unconditionally convert to UTF-8; remove strings that are not really necessary
|
al@865
|
546 # to the translation (msgid = msgstr)
|
al@865
|
547 # Normalization can be disabled with COOKOPTS="!monorm"
|
al@865
|
548
|
al@865
|
549 normalize_mo() {
|
al@865
|
550 [ "${COOKOPTS/!monorm/}" != "$COOKOPTS" ] && return
|
al@865
|
551 [ -z "$(find $install -type f -name '*.mo')" ] && return
|
al@865
|
552
|
al@867
|
553 # Gettext functions: msgunfmt, msguniq, msgconv, msgfmt
|
al@912
|
554 tpi gettext
|
al@867
|
555 # Gconv modules (convert to UTF-8)
|
al@912
|
556 tpi glibc-locale
|
al@867
|
557
|
al@865
|
558 action 'Normalizing mo files...'
|
al@867
|
559
|
al@1024
|
560 the_log="$(mktemp)"
|
al@1024
|
561 to_continue=true
|
al@1024
|
562 for i in msgunfmt msguniq msgconv msgfmt; do
|
al@1024
|
563 if ! which $i >/dev/null; then
|
al@1024
|
564 echo "Warning: $i not found. Normalizing aborted" > "$the_log"
|
al@1024
|
565 to_continue=false
|
al@1024
|
566 fi
|
al@1024
|
567 done
|
al@1024
|
568
|
al@865
|
569 size0=$(sizes mo1)
|
al@881
|
570 time0=$(get_time)
|
al@865
|
571
|
al@865
|
572 # Process all existing *.mo files
|
al@876
|
573 IFS=$'\n'
|
al@1024
|
574 $to_continue &&
|
al@865
|
575 for mo in $(find "$install" -type f -name '*.mo'); do
|
al@865
|
576 tmpfile="$(mktemp)"
|
al@865
|
577
|
al@998
|
578 # put ANY errors of {msgunfmt,msguniq,msgconv} to $out. FIXME?
|
al@998
|
579 out="$({ msgunfmt "$mo" | msguniq | msgconv -o "$tmpfile" -t 'UTF-8'; } 2>&1)"
|
al@998
|
580 if [ -n "$out" ]; then
|
al@998
|
581 # using literal $'\n' here instead of using `echo -e "...\n..."` because
|
al@998
|
582 # $out may contain escapes ('\r', '\v') that we should print as-is
|
al@1024
|
583 echo "$mo:"$'\n'"$out"$'\n' >> "$the_log"
|
al@998
|
584 continue # proceed to next file
|
al@998
|
585 fi
|
al@998
|
586
|
al@865
|
587 # add newline
|
al@865
|
588 echo >> "$tmpfile"
|
al@865
|
589
|
al@865
|
590 # get Plural-Forms
|
al@865
|
591 awk '
|
al@865
|
592 BEGIN { skip = ""; }
|
al@865
|
593 {
|
al@865
|
594 if (! skip) {
|
al@865
|
595 s = $0;
|
al@865
|
596 gsub(/^[^\"]*\"/, "", s);
|
al@865
|
597 gsub(/\"$/, "", s);
|
al@865
|
598 printf("%s", s);
|
al@865
|
599 }
|
al@865
|
600 if (! $0) skip = "yes";
|
al@865
|
601 }
|
al@865
|
602 ' "$tmpfile" | sed 's|\\n|\n|g' | grep "^Plural-Forms:" > "$tmpfile.pf"
|
al@865
|
603
|
al@865
|
604 if ! grep -q 'msgid_plural' "$tmpfile"; then
|
al@865
|
605 echo > "$tmpfile.pf"
|
al@865
|
606 fi
|
al@865
|
607
|
al@865
|
608 # main
|
al@865
|
609 awk -v pf="$(cat "$tmpfile.pf")" '
|
al@865
|
610 function clean() {
|
al@865
|
611 mode = msgctxt = msgid = msgid_plural = msgstr = msgstr0 = msgstr1 = msgstr2 = msgstr3 = msgstr4 = msgstr5 = "";
|
al@865
|
612 }
|
al@865
|
613
|
al@865
|
614 function getstring() {
|
al@865
|
615 # Skip unquoted words at the beginning (msgid, msgstr...) and get string from inside quotes
|
al@865
|
616 s = $0;
|
al@865
|
617 gsub(/^[^\"]*\"/, "", s);
|
al@865
|
618 gsub(/\"$/, "", s);
|
al@865
|
619 return s;
|
al@865
|
620 }
|
al@865
|
621
|
al@865
|
622 BEGIN {
|
al@865
|
623 printf("msgid \"\"\nmsgstr \"\"\n\"Content-Type: text/plain; charset=UTF-8\\n\"\n");
|
al@865
|
624 if (pf)
|
al@865
|
625 printf("\"%s\\n\"\n", pf);
|
al@865
|
626 printf("\n");
|
al@865
|
627 skip = 1;
|
al@865
|
628 clean();
|
al@865
|
629 }
|
al@865
|
630
|
al@865
|
631 {
|
al@865
|
632 # Skip the entire header
|
al@865
|
633 if (!skip) {
|
al@865
|
634 if ($1 == "msgctxt" || $1 == "msgid" || $1 == "msgstr" || $1 == "msgid_plural")
|
al@865
|
635 mode = $1;
|
al@865
|
636 if ($1 == "msgstr[0]") mode = "msgstr0";
|
al@865
|
637 if ($1 == "msgstr[1]") mode = "msgstr1";
|
al@865
|
638 if ($1 == "msgstr[2]") mode = "msgstr2";
|
al@865
|
639 if ($1 == "msgstr[3]") mode = "msgstr3";
|
al@865
|
640 if ($1 == "msgstr[4]") mode = "msgstr4";
|
al@865
|
641 if ($1 == "msgstr[5]") mode = "msgstr5";
|
al@865
|
642
|
al@865
|
643 if (mode == "msgctxt") msgctxt = msgctxt getstring();
|
al@865
|
644 if (mode == "msgid") msgid = msgid getstring();
|
al@865
|
645 if (mode == "msgstr") msgstr = msgstr getstring();
|
al@865
|
646 if (mode == "msgid_plural") msgid_plural = msgid_plural getstring();
|
al@865
|
647 if (mode == "msgstr0") msgstr0 = msgstr0 getstring();
|
al@865
|
648 if (mode == "msgstr1") msgstr1 = msgstr1 getstring();
|
al@865
|
649 if (mode == "msgstr2") msgstr2 = msgstr2 getstring();
|
al@865
|
650 if (mode == "msgstr3") msgstr3 = msgstr3 getstring();
|
al@865
|
651 if (mode == "msgstr4") msgstr4 = msgstr4 getstring();
|
al@865
|
652 if (mode == "msgstr5") msgstr5 = msgstr5 getstring();
|
al@865
|
653
|
al@865
|
654 if (! $0) {
|
al@865
|
655 if (msgid != msgstr) {
|
al@865
|
656 if (msgctxt) printf("msgctxt \"%s\"\n", msgctxt);
|
al@865
|
657 printf("msgid \"%s\"\n", msgid);
|
al@865
|
658 if (msgid_plural) printf("msgid_plural \"%s\"\n", msgid_plural);
|
al@865
|
659 if (msgstr) printf("msgstr \"%s\"\n", msgstr);
|
al@865
|
660 if (msgstr0) printf("msgstr[0] \"%s\"\n", msgstr0);
|
al@865
|
661 if (msgstr1) printf("msgstr[1] \"%s\"\n", msgstr1);
|
al@865
|
662 if (msgstr2) printf("msgstr[2] \"%s\"\n", msgstr2);
|
al@865
|
663 if (msgstr3) printf("msgstr[3] \"%s\"\n", msgstr3);
|
al@865
|
664 if (msgstr4) printf("msgstr[4] \"%s\"\n", msgstr4);
|
al@865
|
665 if (msgstr5) printf("msgstr[5] \"%s\"\n", msgstr5);
|
al@865
|
666 printf("\n");
|
al@865
|
667 }
|
al@865
|
668 clean();
|
al@865
|
669 }
|
al@865
|
670 }
|
al@865
|
671 if ($0 == "") skip = "";
|
al@865
|
672 }
|
al@865
|
673 ' "$tmpfile" > "$tmpfile.awk"
|
al@865
|
674
|
al@998
|
675 out="$(msgfmt "$tmpfile.awk" -o "$tmpfile.mo" 2>&1)"
|
al@998
|
676 if [ -n "$out" ]; then
|
al@1024
|
677 echo "$mo (msgfmt):"$'\n'"$out"$'\n' >> "$the_log"
|
al@998
|
678 continue # proceed to next file
|
al@998
|
679 fi
|
al@865
|
680
|
al@865
|
681 if [ -s "$tmpfile.mo" ]; then
|
al@865
|
682 rm "$mo"; mv "$tmpfile.mo" "$mo"
|
al@865
|
683 else
|
al@1024
|
684 _ 'Error processing %s' "$mo" >> "$the_log"
|
al@1024
|
685 echo >> "$the_log"
|
al@865
|
686 [ -e "$tmpfile.mo" ] && rm "$tmpfile.mo"
|
al@865
|
687 fi
|
al@865
|
688
|
al@865
|
689 # Clean
|
al@865
|
690 rm "$tmpfile" "$tmpfile.pf" "$tmpfile.awk"
|
al@865
|
691 done
|
al@865
|
692
|
al@1024
|
693 comp_summary "$time0" "$size0" "$(sizes mo1)" "$the_log"
|
al@865
|
694 }
|
al@865
|
695
|
al@865
|
696
|
al@865
|
697 # Strip locale definitions: normalize whitespace and remove comments
|
al@865
|
698 # Stripping can be disabled with COOKOPTS="!locdef"
|
al@865
|
699
|
al@865
|
700 strip_locale_def() {
|
al@865
|
701 [ "${COOKOPTS/!locdef/}" != "$COOKOPTS" ] && return
|
al@865
|
702 [ ! -d "$install/usr/share/i18n/locales" ] && return
|
al@865
|
703 [ -z "$(find $install/usr/share/i18n/locales -type f)" ] && return
|
al@865
|
704
|
al@865
|
705 action 'Stripping locale definitions...'
|
al@865
|
706 size0=$(sizes loc)
|
al@881
|
707 time0=$(get_time)
|
al@865
|
708
|
al@865
|
709 for i in $(find $install/usr/share/i18n/locales -type f); do
|
al@865
|
710 sed -i 's| | |g; s| *| |g; s|^ ||; /^%/d' $i
|
al@865
|
711 done
|
al@865
|
712
|
al@865
|
713 comp_summary "$time0" "$size0" "$(sizes loc)"
|
al@865
|
714 }
|
al@865
|
715
|
al@865
|
716
|
al@865
|
717 # Find and strip: --strip-all (-s) or --strip-debug on static libs as well
|
al@865
|
718 # as removing unneeded files like in Python packages. Cross compiled binaries
|
al@865
|
719 # must be stripped with cross-tools aka $ARCH-slitaz-*-strip
|
al@865
|
720 # Stripping can be disabled with COOKOPTS="!strip"
|
al@865
|
721
|
al@865
|
722 strip_package() {
|
al@865
|
723 [ "${COOKOPTS/!strip/}" != "$COOKOPTS" ] && return
|
al@865
|
724
|
al@1020
|
725 local i ifs="$IFS"
|
al@1020
|
726 IFS=$'\n'
|
al@1020
|
727
|
al@865
|
728 case "$ARCH" in
|
al@865
|
729 arm*|x86_64) export STRIP="$HOST_SYSTEM-strip" ;;
|
al@865
|
730 *) export STRIP='strip' ;;
|
al@865
|
731 esac
|
al@865
|
732 action 'Executing strip on all files...'
|
al@865
|
733 size0=0
|
al@865
|
734 size1=0
|
al@881
|
735 time0=$(get_time)
|
al@1020
|
736 oldsize=$(sizes strip)
|
al@865
|
737
|
al@1027
|
738
|
al@1027
|
739 # GNU strip (GNU Binutils)
|
al@1027
|
740 # -p --preserve-dates Copy modified/access timestamps to the output
|
paul@1030
|
741 # -s --strip-all Remove all symbols and relocation information
|
al@1027
|
742 # --strip-unneeded Remove all symbols not needed by relocations
|
al@1027
|
743 # -D --enable-deterministic-archives Produce deterministic output when stripping archives
|
al@1027
|
744 # -g -S -d --strip-debug Remove all debugging symbols & sections
|
al@1027
|
745
|
al@1027
|
746 # Strip executable files
|
al@1020
|
747 while read i; do
|
al@1027
|
748 $STRIP -ps "$i" 2>/dev/null
|
al@1020
|
749 done <<EOT
|
al@1027
|
750 $(find_elf EXEC)
|
al@1027
|
751 EOT
|
al@1027
|
752
|
al@1027
|
753 # Strip shared libraries
|
al@1027
|
754 while read i; do
|
al@1027
|
755 case $i in
|
al@1027
|
756 *.dbg) ;; # skip library.so.*.dbg debugging symbols
|
al@1027
|
757 *) $STRIP -p --strip-unneeded "$i" 2>/dev/null;;
|
al@1027
|
758 esac
|
al@1027
|
759 done <<EOT
|
al@1027
|
760 $(find_elf DYN)
|
al@1020
|
761 EOT
|
al@865
|
762
|
al@1020
|
763 # Strip static libraries
|
al@1027
|
764 # See also: https://wiki.debian.org/ReproducibleBuilds/TimestampsInStaticLibraries
|
al@1027
|
765 find $fs -name '*.a' -exec $STRIP -pdD '{}' 2>/dev/null \;
|
al@955
|
766
|
al@899
|
767
|
al@899
|
768 # Remove Python *.pyc and *.pyo
|
al@865
|
769 find $fs -type f \( -name '*.pyc' -o -name '*.pyo' \) -delete 2>/dev/null
|
al@865
|
770
|
al@899
|
771 # Remove both with the empty subfolders:
|
al@899
|
772 # 1. Perl perllocal.pod and .packlist (unconditionally)
|
al@899
|
773 local perlfiles="$(find $fs -type f \( -name 'perllocal.pod' -o -name '.packlist' \))"
|
al@899
|
774 # 2. Perl *.pod (if not disabled)
|
al@899
|
775 [ "${COOKOPTS/!rmpod/}" == "$COOKOPTS" ] &&
|
al@1078
|
776 perlfiles="$perlfiles"$'\n'"$(find $fs -type f -name '*.pod')"
|
al@1078
|
777 echo "$perlfiles" | sort -u | xargs rm -f 2>/dev/null
|
al@1078
|
778 echo "$perlfiles" | sort -u | awk 'BEGIN{FS=OFS="/"}{$NF="";print}' \
|
al@1078
|
779 | xargs rmdir -p --ignore-fail-on-non-empty 2>/dev/null
|
al@899
|
780
|
al@1020
|
781 # Strip documentation inside Perl files (*.pm and *.pl) (if not disabled)
|
al@899
|
782 [ "${COOKOPTS/!perlz/}" == "$COOKOPTS" ] &&
|
al@899
|
783 find $fs -type f \( -name '*.pm' -o -name '*.pl' \) -exec sed -i '/^=/,/^=cut/d' '{}' \;
|
al@899
|
784
|
al@1020
|
785 newsize=$(sizes strip)
|
al@865
|
786
|
al@1020
|
787 comp_summary "$time0" "$oldsize" "$newsize"
|
al@1020
|
788 IFS="$ifs"
|
al@865
|
789 }
|
al@865
|
790
|
al@865
|
791
|
al@865
|
792 # Strip unsupported locales (.mo files)
|
al@865
|
793
|
al@865
|
794 strip_mo_i18n() {
|
al@865
|
795 [ "${COOKOPTS/!i18nz/}" != "$COOKOPTS" ] && return
|
al@865
|
796
|
al@865
|
797 [ ! -d "$fs/usr/share/locale" ] && return
|
al@865
|
798 [ -z "$(find $fs/usr/share/locale -type f -name '*.mo')" ] && return
|
al@865
|
799
|
al@865
|
800 action 'Thin out translation files...'
|
al@865
|
801 size0=$(sizes mo2)
|
al@881
|
802 time0=$(get_time)
|
al@865
|
803
|
al@865
|
804 # The variable $LOCALE is set in cook.conf and may be overridden in the receipt.
|
al@865
|
805 # Default value is "" (empty). That means for us that we'll use the full
|
al@865
|
806 # list of supported locales here.
|
al@865
|
807 [ -z "$LOCALE" ] && LOCALE=$(get_supported_locales)
|
al@865
|
808
|
al@865
|
809 # Existing locales
|
al@865
|
810 elocales=" $(ls -1 "$fs/usr/share/locale" | tr '\n' ' ') "
|
al@865
|
811
|
al@865
|
812 # Thin out the list of existing locales. At the end there will be only locales that need
|
al@865
|
813 # deleting (and the garbage like '_AU', _US', '_BR' leaving from 'en_AU', 'en_US', 'pt_BR'...)
|
al@865
|
814 for keep_locale in $LOCALE; do
|
al@865
|
815 elocales=${elocales//$keep_locale}
|
al@865
|
816 done
|
al@865
|
817
|
al@865
|
818 # Remove the unsupported locales
|
al@865
|
819 for rem_locale in $elocales; do
|
al@998
|
820 [ ! -d "$fs/usr/share/locale/$rem_locale" ] ||
|
al@865
|
821 rm -r "$fs/usr/share/locale/$rem_locale"
|
al@865
|
822 done
|
al@865
|
823
|
al@865
|
824 comp_summary "$time0" "$size0" "$(sizes mo2)"
|
al@865
|
825 }
|
al@865
|
826
|
al@865
|
827
|
al@865
|
828
|
al@865
|
829
|
al@865
|
830 case $1 in
|
al@865
|
831 install)
|
al@865
|
832 # Compressors working in the $install
|
al@865
|
833 case "$ARCH" in
|
al@865
|
834 arm*) ;;
|
al@865
|
835 *)
|
al@872
|
836 recompress_gz
|
al@954
|
837 recompress_zip
|
al@865
|
838 compress_manpages
|
al@865
|
839 compress_png
|
al@865
|
840 compress_svg
|
al@1064
|
841 compress_gif
|
al@865
|
842 compress_ui
|
al@865
|
843 ;;
|
al@865
|
844 esac
|
al@865
|
845
|
al@865
|
846 fix_desktop_files
|
al@865
|
847 normalize_mo
|
al@865
|
848 strip_locale_def
|
al@865
|
849 ;;
|
al@865
|
850 fs)
|
al@865
|
851 # Compressors working in the $fs
|
al@865
|
852 strip_package
|
al@865
|
853 strip_mo_i18n
|
al@865
|
854 ;;
|
al@865
|
855 esac
|
al@868
|
856
|
al@868
|
857 # Clean
|
al@868
|
858 rm "$cache_stat"
|
al@869
|
859 find $comp_cache_root -type f -links -2 -delete
|