openpkg/shtool@e33c1efbd60f
openpkg/shtool
Sun, 29 May 2011 16:29:06 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Sun, 29 May 2011 16:29:06 +0200
- changeset 344
- e33c1efbd60f
- child 428
- f880f219c566
- permissions
- -rw-r--r--
Update, correct, improve build configuration and packaging logic.
Update to new version of vendor software, bump copyright date, remove implicit
gcc dependency, add comments for Trolltech bug tracking, correct enforced
dynamic library linkage, and install mysterious process stub binary.
1 #!/bin/sh
2 ##
3 ## GNU shtool -- The GNU Portable Shell Tool
4 ## Copyright (c) 1994-2007 Ralf S. Engelschall <rse@engelschall.com>
5 ##
6 ## See http://www.gnu.org/software/shtool/ for more information.
7 ## See ftp://ftp.gnu.org/gnu/shtool/ for latest version.
8 ##
9 ## Version: 2.0.7 (19-May-2007)
10 ## Contents: all available modules
11 ##
13 ##
14 ## This program is free software; you can redistribute it and/or modify
15 ## it under the terms of the GNU General Public License as published by
16 ## the Free Software Foundation; either version 2 of the License, or
17 ## (at your option) any later version.
18 ##
19 ## This program is distributed in the hope that it will be useful,
20 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 ## General Public License for more details.
23 ##
24 ## You should have received a copy of the GNU General Public License
25 ## along with this program; if not, write to the Free Software
26 ## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
27 ## USA, or contact Ralf S. Engelschall <rse@engelschall.com>.
28 ##
29 ## NOTICE: Given that you include this file verbatim into your own
30 ## source tree, you are justified in saying that it remains separate
31 ## from your package, and that this way you are simply just using GNU
32 ## shtool. So, in this situation, there is no requirement that your
33 ## package itself is licensed under the GNU General Public License in
34 ## order to take advantage of GNU shtool.
35 ##
37 ##
38 ## Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]
39 ##
40 ## Available commands:
41 ## echo Print string with optional construct expansion
42 ## mdate Pretty-print modification time of a file or dir
43 ## table Pretty-print a field-separated list as a table
44 ## prop Display progress with a running propeller
45 ## move Move files with simultaneous substitution
46 ## install Install a program, script or datafile
47 ## mkdir Make one or more directories
48 ## mkln Make link with calculation of relative paths
49 ## mkshadow Make a shadow tree through symbolic links
50 ## fixperm Fix file permissions inside a source tree
51 ## rotate Logfile rotation
52 ## tarball Roll distribution tarballs
53 ## subst Apply sed(1) substitution operations
54 ## platform Platform Identification Utility
55 ## arx Extended archive command
56 ## slo Separate linker options by library class
57 ## scpp Sharing C Pre-Processor
58 ## version Maintain a version information file
59 ## path Deal with program paths
60 ##
62 # maximum Bourne-Shell compatibility
63 if [ ".$ZSH_VERSION" != . ] && (emulate sh) >/dev/null 2>&1; then
64 # reconfigure zsh(1)
65 emulate sh
66 NULLCMD=:
67 alias -g '${1+"$@"}'='"$@"'
68 elif [ ".$BASH_VERSION" != . ] && (set -o posix) >/dev/null 2>&1; then
69 # reconfigure bash(1)
70 set -o posix
71 fi
73 # maximum independence of NLS nuisances
74 for var in \
75 LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \
76 LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \
77 LC_TELEPHONE LC_TIME
78 do
79 if (set +x; test -z "`(eval $var=C; export $var) 2>&1`"); then
80 eval $var=C; export $var
81 else
82 unset $var
83 fi
84 done
86 # initial command line handling
87 if [ $# -eq 0 ]; then
88 echo "$0:Error: invalid command line" 1>&2
89 echo "$0:Hint: run \`$0 -h' for usage" 1>&2
90 exit 1
91 fi
92 if [ ".$1" = ".-h" ] || [ ".$1" = ".--help" ]; then
93 echo "This is GNU shtool, version 2.0.7 (19-May-2007)"
94 echo 'Copyright (c) 1994-2007 Ralf S. Engelschall <rse@engelschall.com>'
95 echo 'Report bugs to <bug-shtool@gnu.org>'
96 echo ''
97 echo 'Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]'
98 echo ''
99 echo 'Available global <options>:'
100 echo ' -v, --version display shtool version information'
101 echo ' -h, --help display shtool usage help page (this one)'
102 echo ' -d, --debug display shell trace information'
103 echo ' -r, --recreate recreate this shtool script via shtoolize'
104 echo ''
105 echo 'Available <cmd-name> [<cmd-options>] [<cmd-args>]:'
106 echo ' echo [-n|--newline] [-e|--expand] [<string> ...]'
107 echo ' mdate [-n|--newline] [-z|--zero] [-s|--shorten] [-d|--digits]'
108 echo ' [-f|--field-sep <str>] [-o|--order <spec>] <path>'
109 echo ' table [-F|--field-sep <sep>] [-w|--width <width>] [-c|--columns'
110 echo ' <cols>] [-s|--strip <strip>] <str><sep><str>...'
111 echo ' prop [-p|--prefix <str>]'
112 echo ' move [-v|--verbose] [-t|--trace] [-e|--expand] [-p|--preserve]'
113 echo ' <src-file> <dst-file>'
114 echo ' install [-v|--verbose] [-t|--trace] [-d|--mkdir] [-c|--copy]'
115 echo ' [-C|--compare-copy] [-s|--strip] [-m|--mode <mode>]'
116 echo ' [-o|--owner <owner>] [-g|--group <group>] [-e|--exec'
117 echo ' <sed-cmd>] <file> [<file> ...] <path>'
118 echo ' mkdir [-t|--trace] [-f|--force] [-p|--parents] [-m|--mode'
119 echo ' <mode>] [-o|--owner <owner>] [-g|--group <group>] <dir>'
120 echo ' [<dir> ...]'
121 echo ' mkln [-t|--trace] [-f|--force] [-s|--symbolic] <src-path>'
122 echo ' [<src-path> ...] <dst-path>'
123 echo ' mkshadow [-v|--verbose] [-t|--trace] [-a|--all] <src-dir> <dst-dir>'
124 echo ' fixperm [-v|--verbose] [-t|--trace] <path> [<path> ...]'
125 echo ' rotate [-v|--verbose] [-t|--trace] [-f|--force] [-n|--num-files'
126 echo ' <count>] [-s|--size <size>] [-c|--copy] [-r|--remove]'
127 echo ' [-a|--archive-dir <dir>] [-z|--compress [<tool>:]<level>]'
128 echo ' [-b|--background] [-d|--delay] [-p|--pad <len>] [-m|--mode'
129 echo ' <mode>] [-o|--owner <owner>] [-g|--group <group>] [-M|--migrate'
130 echo ' <cmd>] [-P|--prolog <cmd>] [-E|--epilog <cmd>] <file> [...]'
131 echo ' tarball [-t|--trace] [-v|--verbose] [-o|--output <tarball>]'
132 echo ' [-c|--compress <prog>] [-d|--directory <dir>] [-u|--user'
133 echo ' <user>] [-g|--group <group>] [-e|--exclude <pattern>]'
134 echo ' <path> [<path> ...]'
135 echo ' subst [-v|--verbose] [-t|--trace] [-n|--nop] [-w|--warning]'
136 echo ' [-q|--quiet] [-s|--stealth] [-i|--interactive] [-b|--backup'
137 echo ' <ext>] [-e|--exec <cmd>] [-f|--file <cmd-file>] [<file>]'
138 echo ' [...]'
139 echo ' platform [-F|--format <format>] [-S|--sep <string>] [-C|--conc'
140 echo ' <string>] [-L|--lower] [-U|--upper] [-v|--verbose]'
141 echo ' [-c|--concise] [-n|--no-newline] [-t|--type <type>]'
142 echo ' [-V|--version] [-h|--help]'
143 echo ' arx [-t|--trace] [-C|--command <cmd>] <op> <archive> [<file>'
144 echo ' ...]'
145 echo ' slo [-p|--prefix <str>] -- -L<dir> -l<lib> [-L<dir> -l<lib>'
146 echo ' ...]'
147 echo ' scpp [-v|--verbose] [-p|--preserve] [-f|--filter <filter>]'
148 echo ' [-o|--output <ofile>] [-t|--template <tfile>] [-M|--mark'
149 echo ' <mark>] [-D|--define <dname>] [-C|--class <cname>]'
150 echo ' <file> [<file> ...]'
151 echo ' version [-l|--language <lang>] [-n|--name <name>] [-p|--prefix'
152 echo ' <prefix>] [-s|--set <version>] [-e|--edit] [-i|--increase'
153 echo ' <knob>] [-d|--display <type>] <file>'
154 echo ' path [-s|--suppress] [-r|--reverse] [-d|--dirname] [-b|--basename]'
155 echo ' [-m|--magic] [-p|--path <path>] <str> [<str> ...]'
156 echo ''
157 exit 0
158 fi
159 if [ ".$1" = ".-v" ] || [ ".$1" = ".--version" ]; then
160 echo "GNU shtool 2.0.7 (19-May-2007)"
161 exit 0
162 fi
163 if [ ".$1" = ".-r" ] || [ ".$1" = ".--recreate" ]; then
164 shtoolize -oshtool all
165 exit 0
166 fi
167 if [ ".$1" = ".-d" ] || [ ".$1" = ".--debug" ]; then
168 shift
169 set -x
170 fi
171 name=`echo "$0" | sed -e 's;.*/\([^/]*\)$;\1;' -e 's;-sh$;;' -e 's;\.sh$;;'`
172 case "$name" in
173 echo|mdate|table|prop|move|install|mkdir|mkln|mkshadow|fixperm|rotate|tarball|subst|platform|arx|slo|scpp|version|path )
174 # implicit tool command selection
175 tool="$name"
176 ;;
177 * )
178 # explicit tool command selection
179 tool="$1"
180 shift
181 ;;
182 esac
183 arg_spec=""
184 opt_spec=""
185 gen_tmpfile=no
187 ##
188 ## DISPATCH INTO SCRIPT PROLOG
189 ##
191 case $tool in
192 echo )
193 str_tool="echo"
194 str_usage="[-n|--newline] [-e|--expand] [<string> ...]"
195 arg_spec="0+"
196 opt_spec="n.e."
197 opt_alias="n:newline,e:expand"
198 opt_n=no
199 opt_e=no
200 ;;
201 mdate )
202 str_tool="mdate"
203 str_usage="[-n|--newline] [-z|--zero] [-s|--shorten] [-d|--digits] [-f|--field-sep <str>] [-o|--order <spec>] <path>"
204 arg_spec="1="
205 opt_spec="n.z.s.d.f:o:"
206 opt_alias="n:newline,z:zero,s:shorten,d:digits,f:field-sep,o:order"
207 opt_n=no
208 opt_z=no
209 opt_s=no
210 opt_d=no
211 opt_f=" "
212 opt_o="dmy"
213 ;;
214 table )
215 str_tool="table"
216 str_usage="[-F|--field-sep <sep>] [-w|--width <width>] [-c|--columns <cols>] [-s|--strip <strip>] <str><sep><str>..."
217 arg_spec="1+"
218 opt_spec="F:w:c:s:"
219 opt_alias="F:field-sep,w:width,c:columns,s:strip"
220 opt_F=":"
221 opt_w=15
222 opt_c=3
223 opt_s=79
224 ;;
225 prop )
226 str_tool="prop"
227 str_usage="[-p|--prefix <str>]"
228 arg_spec="0="
229 opt_spec="p:"
230 opt_alias="p:prefix"
231 opt_p=""
232 ;;
233 move )
234 str_tool="move"
235 str_usage="[-v|--verbose] [-t|--trace] [-e|--expand] [-p|--preserve] <src-file> <dst-file>"
236 arg_spec="2="
237 opt_spec="v.t.e.p."
238 opt_alias="v:verbose,t:trace,e:expand,p:preserve"
239 opt_v=no
240 opt_t=no
241 opt_e=no
242 opt_p=no
243 ;;
244 install )
245 str_tool="install"
246 str_usage="[-v|--verbose] [-t|--trace] [-d|--mkdir] [-c|--copy] [-C|--compare-copy] [-s|--strip] [-m|--mode <mode>] [-o|--owner <owner>] [-g|--group <group>] [-e|--exec <sed-cmd>] <file> [<file> ...] <path>"
247 arg_spec="1+"
248 opt_spec="v.t.d.c.C.s.m:o:g:e+"
249 opt_alias="v:verbose,t:trace,d:mkdir,c:copy,C:compare-copy,s:strip,m:mode,o:owner,g:group,e:exec"
250 opt_v=no
251 opt_t=no
252 opt_d=no
253 opt_c=no
254 opt_C=no
255 opt_s=no
256 opt_m="0755"
257 opt_o=""
258 opt_g=""
259 opt_e=""
260 ;;
261 mkdir )
262 str_tool="mkdir"
263 str_usage="[-t|--trace] [-f|--force] [-p|--parents] [-m|--mode <mode>] [-o|--owner <owner>] [-g|--group <group>] <dir> [<dir> ...]"
264 arg_spec="1+"
265 opt_spec="t.f.p.m:o:g:"
266 opt_alias="t:trace,f:force,p:parents,m:mode,o:owner,g:group"
267 opt_t=no
268 opt_f=no
269 opt_p=no
270 opt_m=""
271 opt_o=""
272 opt_g=""
273 ;;
274 mkln )
275 str_tool="mkln"
276 str_usage="[-t|--trace] [-f|--force] [-s|--symbolic] <src-path> [<src-path> ...] <dst-path>"
277 arg_spec="2+"
278 opt_spec="t.f.s."
279 opt_alias="t:trace,f:force,s:symbolic"
280 opt_t=no
281 opt_f=no
282 opt_s=no
283 ;;
284 mkshadow )
285 str_tool="mkshadow"
286 str_usage="[-v|--verbose] [-t|--trace] [-a|--all] <src-dir> <dst-dir>"
287 arg_spec="2="
288 opt_spec="v.t.a."
289 opt_alias="v:verbose,t:trace,a:all"
290 opt_v=no
291 opt_t=no
292 opt_a=no
293 ;;
294 fixperm )
295 str_tool="fixperm"
296 str_usage="[-v|--verbose] [-t|--trace] <path> [<path> ...]"
297 arg_spec="1+"
298 opt_spec="v.t."
299 opt_alias="v:verbose,t:trace"
300 opt_v=no
301 opt_t=no
302 ;;
303 rotate )
304 str_tool="rotate"
305 str_usage="[-v|--verbose] [-t|--trace] [-f|--force] [-n|--num-files <count>] [-s|--size <size>] [-c|--copy] [-r|--remove] [-a|--archive-dir <dir>] [-z|--compress [<tool>:]<level>] [-b|--background] [-d|--delay] [-p|--pad <len>] [-m|--mode <mode>] [-o|--owner <owner>] [-g|--group <group>] [-M|--migrate <cmd>] [-P|--prolog <cmd>] [-E|--epilog <cmd>] <file> [...]"
306 arg_spec="1+"
307 opt_spec="v.t.f.n:s:c.r.a:z:b.d.p:o:g:m:M:P:E:"
308 opt_alias="v:verbose,t:trace,f:force,n:num-files,s:size,c:copy,r:remove,a:archive-dir,z:compress,b:background,d:delay,p:pad,o:owner,g:group,m:mode,M:migrate,P:prolog,E:epilog"
309 opt_v=no
310 opt_t=no
311 opt_f=no
312 opt_n=10
313 opt_s=""
314 opt_c=no
315 opt_r=no
316 opt_a=""
317 opt_z=""
318 opt_b=no
319 opt_d=no
320 opt_p=1
321 opt_o=""
322 opt_g=""
323 opt_m=""
324 opt_M=""
325 opt_P=""
326 opt_E=""
327 ;;
328 tarball )
329 str_tool="tarball"
330 str_usage="[-t|--trace] [-v|--verbose] [-o|--output <tarball>] [-c|--compress <prog>] [-d|--directory <dir>] [-u|--user <user>] [-g|--group <group>] [-e|--exclude <pattern>] <path> [<path> ...]"
331 gen_tmpfile=yes
332 arg_spec="1+"
333 opt_spec="t.v.o:c:d:u:g:e:"
334 opt_alias="t:trace,v:verbose,o:output,c:compress,d:directory,u:user,g:group,e:exclude"
335 opt_t=no
336 opt_v=no
337 opt_o=""
338 opt_c=""
339 opt_d=""
340 opt_u=""
341 opt_g=""
342 opt_e="CVS,\\.cvsignore,\\.svn,\\.[oa]\$"
343 ;;
344 subst )
345 str_tool="subst"
346 str_usage="[-v|--verbose] [-t|--trace] [-n|--nop] [-w|--warning] [-q|--quiet] [-s|--stealth] [-i|--interactive] [-b|--backup <ext>] [-e|--exec <cmd>] [-f|--file <cmd-file>] [<file>] [...]"
347 gen_tmpfile=yes
348 arg_spec="0+"
349 opt_spec="v.t.n.w.q.s.i.b:e+f:"
350 opt_alias="v:verbose,t:trace,n:nop,w:warning,q:quiet,s:stealth,i:interactive,b:backup,e:exec,f:file"
351 opt_v=no
352 opt_t=no
353 opt_n=no
354 opt_w=no
355 opt_q=no
356 opt_s=no
357 opt_i=no
358 opt_b=""
359 opt_e=""
360 opt_f=""
361 ;;
362 platform )
363 str_tool="platform"
364 str_usage="[-F|--format <format>] [-S|--sep <string>] [-C|--conc <string>] [-L|--lower] [-U|--upper] [-v|--verbose] [-c|--concise] [-n|--no-newline] [-t|--type <type>] [-V|--version] [-h|--help]"
365 arg_spec="0="
366 opt_spec="F:S:C:L.U.v.c.n.t:d.V.h."
367 opt_alias="F:format,S:sep,C:conc,L:lower,U:upper,v:verbose,c:consise,t:type,n:no-newline,V:version,h:help"
368 opt_F="%{sp} (%{ap})"
369 opt_S=" "
370 opt_C="/"
371 opt_L=no
372 opt_U=no
373 opt_t=""
374 opt_v=no
375 opt_c=no
376 opt_n=no
377 opt_V=no
378 opt_h=no
379 ;;
380 arx )
381 str_tool="arx"
382 str_usage="[-t|--trace] [-C|--command <cmd>] <op> <archive> [<file> ...]"
383 arg_spec="2+"
384 opt_spec="t.C:"
385 opt_alias="t:trace,C:command"
386 opt_t=no
387 opt_C="ar"
388 ;;
389 slo )
390 str_tool="slo"
391 str_usage="[-p|--prefix <str>] -- -L<dir> -l<lib> [-L<dir> -l<lib> ...]"
392 arg_spec="1+"
393 opt_spec="p:"
394 opt_alias="p:prefix"
395 opt_p="SLO_"
396 ;;
397 scpp )
398 str_tool="scpp"
399 str_usage="[-v|--verbose] [-p|--preserve] [-f|--filter <filter>] [-o|--output <ofile>] [-t|--template <tfile>] [-M|--mark <mark>] [-D|--define <dname>] [-C|--class <cname>] <file> [<file> ...]"
400 gen_tmpfile=yes
401 arg_spec="1+"
402 opt_spec="v.p.f+o:t:M:D:C:"
403 opt_alias="v:verbose,p:preserve,f:filter,o:output,t:template,M:mark,D:define,C:class"
404 opt_v=no
405 opt_p=no
406 opt_f=""
407 opt_o="lib.h"
408 opt_t="lib.h.in"
409 opt_M="%%MARK%%"
410 opt_D="cpp"
411 opt_C="intern"
412 ;;
413 version )
414 str_tool="version"
415 str_usage="[-l|--language <lang>] [-n|--name <name>] [-p|--prefix <prefix>] [-s|--set <version>] [-e|--edit] [-i|--increase <knob>] [-d|--display <type>] <file>"
416 arg_spec="1="
417 opt_spec="l:n:p:s:i:e.d:"
418 opt_alias="l:language,n:name,p:prefix,s:set,e:edit,i:increase,d:display"
419 opt_l="txt"
420 opt_n="unknown"
421 opt_p=""
422 opt_s=""
423 opt_e="no"
424 opt_i=""
425 opt_d="short"
426 ;;
427 path )
428 str_tool="path"
429 str_usage="[-s|--suppress] [-r|--reverse] [-d|--dirname] [-b|--basename] [-m|--magic] [-p|--path <path>] <str> [<str> ...]"
430 gen_tmpfile=yes
431 arg_spec="1+"
432 opt_spec="s.r.d.b.m.p:"
433 opt_alias="s:suppress,r:reverse,d:dirname,b:basename,m:magic,p:path"
434 opt_s=no
435 opt_r=no
436 opt_d=no
437 opt_b=no
438 opt_m=no
439 opt_p="$PATH"
440 ;;
441 -* )
442 echo "$0:Error: unknown option \`$tool'" 2>&1
443 echo "$0:Hint: run \`$0 -h' for usage" 2>&1
444 exit 1
445 ;;
446 * )
447 echo "$0:Error: unknown command \`$tool'" 2>&1
448 echo "$0:Hint: run \`$0 -h' for usage" 2>&1
449 exit 1
450 ;;
451 esac
453 ##
454 ## COMMON UTILITY CODE
455 ##
457 # commonly used ASCII values
458 ASC_TAB=" "
459 ASC_NL="
460 "
462 # determine name of tool
463 if [ ".$tool" != . ]; then
464 # used inside shtool script
465 toolcmd="$0 $tool"
466 toolcmdhelp="shtool $tool"
467 msgprefix="shtool:$tool"
468 else
469 # used as standalone script
470 toolcmd="$0"
471 toolcmdhelp="sh $0"
472 msgprefix="$str_tool"
473 fi
475 # parse argument specification string
476 eval `echo $arg_spec |\
477 sed -e 's/^\([0-9]*\)\([+=]\)/arg_NUMS=\1; arg_MODE=\2/'`
479 # parse option specification string
480 eval `echo h.$opt_spec |\
481 sed -e 's/\([a-zA-Z0-9]\)\([.:+]\)/opt_MODE_\1=\2;/g'`
483 # parse option alias string
484 eval `echo h:help,$opt_alias |\
485 sed -e 's/-/_/g' -e 's/\([a-zA-Z0-9]\):\([^,]*\),*/opt_ALIAS_\2=\1;/g'`
487 # interate over argument line
488 opt_PREV=''
489 while [ $# -gt 0 ]; do
490 # special option stops processing
491 if [ ".$1" = ".--" ]; then
492 shift
493 break
494 fi
496 # determine option and argument
497 opt_ARG_OK=no
498 if [ ".$opt_PREV" != . ]; then
499 # merge previous seen option with argument
500 opt_OPT="$opt_PREV"
501 opt_ARG="$1"
502 opt_ARG_OK=yes
503 opt_PREV=''
504 else
505 # split argument into option and argument
506 case "$1" in
507 --[a-zA-Z0-9]*=*)
508 eval `echo "x$1" |\
509 sed -e 's/^x--\([a-zA-Z0-9-]*\)=\(.*\)$/opt_OPT="\1";opt_ARG="\2"/'`
510 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'`
511 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}"
512 ;;
513 --[a-zA-Z0-9]*)
514 opt_OPT=`echo "x$1" | cut -c4-`
515 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'`
516 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}"
517 opt_ARG=''
518 ;;
519 -[a-zA-Z0-9]*)
520 eval `echo "x$1" |\
521 sed -e 's/^x-\([a-zA-Z0-9]\)/opt_OPT="\1";/' \
522 -e 's/";\(.*\)$/"; opt_ARG="\1"/'`
523 ;;
524 -[a-zA-Z0-9])
525 opt_OPT=`echo "x$1" | cut -c3-`
526 opt_ARG=''
527 ;;
528 *)
529 break
530 ;;
531 esac
532 fi
534 # eat up option
535 shift
537 # determine whether option needs an argument
538 eval "opt_MODE=\$opt_MODE_${opt_OPT}"
539 if [ ".$opt_ARG" = . ] && [ ".$opt_ARG_OK" != .yes ]; then
540 if [ ".$opt_MODE" = ".:" ] || [ ".$opt_MODE" = ".+" ]; then
541 opt_PREV="$opt_OPT"
542 continue
543 fi
544 fi
546 # process option
547 case $opt_MODE in
548 '.' )
549 # boolean option
550 eval "opt_${opt_OPT}=yes"
551 ;;
552 ':' )
553 # option with argument (multiple occurances override)
554 eval "opt_${opt_OPT}=\"\$opt_ARG\""
555 ;;
556 '+' )
557 # option with argument (multiple occurances append)
558 eval "opt_${opt_OPT}=\"\$opt_${opt_OPT}\${ASC_NL}\$opt_ARG\""
559 ;;
560 * )
561 echo "$msgprefix:Error: unknown option: \`$opt_OPT'" 1>&2
562 echo "$msgprefix:Hint: run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2
563 exit 1
564 ;;
565 esac
566 done
567 if [ ".$opt_PREV" != . ]; then
568 echo "$msgprefix:Error: missing argument to option \`$opt_PREV'" 1>&2
569 echo "$msgprefix:Hint: run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2
570 exit 1
571 fi
573 # process help option
574 if [ ".$opt_h" = .yes ]; then
575 echo "Usage: $toolcmdhelp $str_usage"
576 exit 0
577 fi
579 # complain about incorrect number of arguments
580 case $arg_MODE in
581 '=' )
582 if [ $# -ne $arg_NUMS ]; then
583 echo "$msgprefix:Error: invalid number of arguments (exactly $arg_NUMS expected)" 1>&2
584 echo "$msgprefix:Hint: run \`$toolcmd -h' or \`man shtool' for details" 1>&2
585 exit 1
586 fi
587 ;;
588 '+' )
589 if [ $# -lt $arg_NUMS ]; then
590 echo "$msgprefix:Error: invalid number of arguments (at least $arg_NUMS expected)" 1>&2
591 echo "$msgprefix:Hint: run \`$toolcmd -h' or \`man shtool' for details" 1>&2
592 exit 1
593 fi
594 ;;
595 esac
597 # establish a temporary file on request
598 if [ ".$gen_tmpfile" = .yes ]; then
599 # create (explicitly) secure temporary directory
600 if [ ".$TMPDIR" != . ]; then
601 tmpdir="$TMPDIR"
602 elif [ ".$TEMPDIR" != . ]; then
603 tmpdir="$TEMPDIR"
604 else
605 tmpdir="/tmp"
606 fi
607 tmpdir="$tmpdir/.shtool.$$"
608 ( umask 077
609 rm -rf "$tmpdir" >/dev/null 2>&1 || true
610 mkdir "$tmpdir" >/dev/null 2>&1
611 if [ $? -ne 0 ]; then
612 echo "$msgprefix:Error: failed to create temporary directory \`$tmpdir'" 1>&2
613 exit 1
614 fi
615 )
617 # create (implicitly) secure temporary file
618 tmpfile="$tmpdir/shtool.tmp"
619 touch "$tmpfile"
620 fi
622 # utility function: map string to lower case
623 util_lower () {
624 echo "$1" | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'
625 }
627 # utility function: map string to upper case
628 util_upper () {
629 echo "$1" | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
630 }
632 # cleanup procedure
633 shtool_exit () {
634 rc="$1"
635 if [ ".$gen_tmpfile" = .yes ]; then
636 rm -rf "$tmpdir" >/dev/null 2>&1 || true
637 fi
638 exit $rc
639 }
641 ##
642 ## DISPATCH INTO SCRIPT BODY
643 ##
645 case $tool in
647 echo )
648 ##
649 ## echo -- Print string with optional construct expansion
650 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
651 ##
653 text="$*"
655 # check for broken escape sequence expansion
656 seo=''
657 bytes=`echo '\1' | wc -c | awk '{ printf("%s", $1); }'`
658 if [ ".$bytes" != .3 ]; then
659 bytes=`echo -E '\1' | wc -c | awk '{ printf("%s", $1); }'`
660 if [ ".$bytes" = .3 ]; then
661 seo='-E'
662 fi
663 fi
665 # check for existing -n option (to suppress newline)
666 minusn=''
667 bytes=`echo -n 123 2>/dev/null | wc -c | awk '{ printf("%s", $1); }'`
668 if [ ".$bytes" = .3 ]; then
669 minusn='-n'
670 fi
672 # determine terminal bold sequence
673 term_bold=''
674 term_norm=''
675 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[Bb]'`" != . ]; then
676 case $TERM in
677 # for the most important terminal types we directly know the sequences
678 xterm|xterm*|vt220|vt220*)
679 term_bold=`awk 'BEGIN { printf("%c%c%c%c", 27, 91, 49, 109); }' </dev/null 2>/dev/null`
680 term_norm=`awk 'BEGIN { printf("%c%c%c", 27, 91, 109); }' </dev/null 2>/dev/null`
681 ;;
682 vt100|vt100*|cygwin)
683 term_bold=`awk 'BEGIN { printf("%c%c%c%c%c%c", 27, 91, 49, 109, 0, 0); }' </dev/null 2>/dev/null`
684 term_norm=`awk 'BEGIN { printf("%c%c%c%c%c", 27, 91, 109, 0, 0); }' </dev/null 2>/dev/null`
685 ;;
686 # for all others, we try to use a possibly existing `tput' or `tcout' utility
687 * )
688 paths=`echo $PATH | sed -e 's/:/ /g'`
689 for tool in tput tcout; do
690 for dir in $paths; do
691 if [ -r "$dir/$tool" ]; then
692 for seq in bold md smso; do # 'smso' is last
693 bold="`$dir/$tool $seq 2>/dev/null`"
694 if [ ".$bold" != . ]; then
695 term_bold="$bold"
696 break
697 fi
698 done
699 if [ ".$term_bold" != . ]; then
700 for seq in sgr0 me rmso init reset; do # 'reset' is last
701 norm="`$dir/$tool $seq 2>/dev/null`"
702 if [ ".$norm" != . ]; then
703 term_norm="$norm"
704 break
705 fi
706 done
707 fi
708 break
709 fi
710 done
711 if [ ".$term_bold" != . ] && [ ".$term_norm" != . ]; then
712 break;
713 fi
714 done
715 ;;
716 esac
717 if [ ".$term_bold" = . ] || [ ".$term_norm" = . ]; then
718 echo "$msgprefix:Warning: unable to determine terminal sequence for bold mode" 1>&2
719 term_bold=''
720 term_norm=''
721 fi
722 fi
724 # determine user name
725 username=''
726 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[uUgG]'`" != . ]; then
727 username="`(id -un) 2>/dev/null`"
728 if [ ".$username" = . ]; then
729 str="`(id) 2>/dev/null`"
730 if [ ".`echo $str | grep '^uid[ ]*=[ ]*[0-9]*('`" != . ]; then
731 username=`echo $str | sed -e 's/^uid[ ]*=[ ]*[0-9]*(//' -e 's/).*$//'`
732 fi
733 if [ ".$username" = . ]; then
734 username="$LOGNAME"
735 if [ ".$username" = . ]; then
736 username="$USER"
737 if [ ".$username" = . ]; then
738 username="`(whoami) 2>/dev/null |\
739 awk '{ printf("%s", $1); }'`"
740 if [ ".$username" = . ]; then
741 username="`(who am i) 2>/dev/null |\
742 awk '{ printf("%s", $1); }'`"
743 if [ ".$username" = . ]; then
744 username='unknown'
745 fi
746 fi
747 fi
748 fi
749 fi
750 fi
751 fi
753 # determine user id
754 userid=''
755 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%U'`" != . ]; then
756 userid="`(id -u) 2>/dev/null`"
757 if [ ".$userid" = . ]; then
758 userid="`(id -u ${username}) 2>/dev/null`"
759 if [ ".$userid" = . ]; then
760 str="`(id) 2>/dev/null`"
761 if [ ".`echo $str | grep '^uid[ ]*=[ ]*[0-9]*('`" != . ]; then
762 userid=`echo $str | sed -e 's/^uid[ ]*=[ ]*//' -e 's/(.*$//'`
763 fi
764 if [ ".$userid" = . ]; then
765 userid=`(getent passwd ${username}) 2>/dev/null | \
766 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
767 if [ ".$userid" = . ]; then
768 userid=`grep "^${username}:" /etc/passwd 2>/dev/null | \
769 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
770 if [ ".$userid" = . ]; then
771 userid=`(ypmatch "${username}" passwd; nismatch "${username}" passwd) 2>/dev/null | \
772 sed -e 'q' | sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
773 if [ ".$userid" = . ]; then
774 userid=`(nidump passwd . | grep "^${username}:") 2>/dev/null | \
775 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
776 if [ ".$userid" = . ]; then
777 userid='?'
778 fi
779 fi
780 fi
781 fi
782 fi
783 fi
784 fi
785 fi
787 # determine (primary) group id
788 groupid=''
789 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[gG]'`" != . ]; then
790 groupid="`(id -g ${username}) 2>/dev/null`"
791 if [ ".$groupid" = . ]; then
792 str="`(id) 2>/dev/null`"
793 if [ ".`echo $str | grep 'gid[ ]*=[ ]*[0-9]*('`" != . ]; then
794 groupid=`echo $str | sed -e 's/^.*gid[ ]*=[ ]*//' -e 's/(.*$//'`
795 fi
796 if [ ".$groupid" = . ]; then
797 groupid=`(getent passwd ${username}) 2>/dev/null | \
798 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'`
799 if [ ".$groupid" = . ]; then
800 groupid=`grep "^${username}:" /etc/passwd 2>/dev/null | \
801 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'`
802 if [ ".$groupid" = . ]; then
803 groupid=`(ypmatch "${username}" passwd; nismatch "${username}" passwd) 2>/dev/null | \
804 sed -e 'q' | sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'`
805 if [ ".$groupid" = . ]; then
806 groupid=`(nidump passwd . | grep "^${username}:") 2>/dev/null | \
807 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'`
808 if [ ".$groupid" = . ]; then
809 groupid='?'
810 fi
811 fi
812 fi
813 fi
814 fi
815 fi
816 fi
818 # determine (primary) group name
819 groupname=''
820 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%g'`" != . ]; then
821 groupname="`(id -gn ${username}) 2>/dev/null`"
822 if [ ".$groupname" = . ]; then
823 str="`(id) 2>/dev/null`"
824 if [ ".`echo $str | grep 'gid[ ]*=[ ]*[0-9]*('`" != . ]; then
825 groupname=`echo $str | sed -e 's/^.*gid[ ]*=[ ]*[0-9]*(//' -e 's/).*$//'`
826 fi
827 if [ ".$groupname" = . ]; then
828 groupname=`(getent group) 2>/dev/null | \
829 grep "^[^:]*:[^:]*:${groupid}:" | \
830 sed -e 's/:.*$//'`
831 if [ ".$groupname" = . ]; then
832 groupname=`grep "^[^:]*:[^:]*:${groupid}:" /etc/group 2>/dev/null | \
833 sed -e 's/:.*$//'`
834 if [ ".$groupname" = . ]; then
835 groupname=`(ypcat group; niscat group) 2>/dev/null | \
836 sed -e 'q' | grep "^[^:]*:[^:]*:${groupid}:" | \
837 sed -e 's/:.*$//'`
838 if [ ".$groupname" = . ]; then
839 groupname=`(nidump group .) 2>/dev/null | \
840 grep "^[^:]*:[^:]*:${groupid}:" | \
841 sed -e 's/:.*$//'`
842 if [ ".$groupname" = . ]; then
843 groupname='?'
844 fi
845 fi
846 fi
847 fi
848 fi
849 fi
850 fi
852 # determine host and domain name
853 hostname=''
854 domainname=''
855 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%h'`" != . ]; then
856 hostname="`(uname -n) 2>/dev/null |\
857 awk '{ printf("%s", $1); }'`"
858 if [ ".$hostname" = . ]; then
859 hostname="`(hostname) 2>/dev/null |\
860 awk '{ printf("%s", $1); }'`"
861 if [ ".$hostname" = . ]; then
862 hostname='unknown'
863 fi
864 fi
865 case $hostname in
866 *.* )
867 domainname=".`echo $hostname | cut -d. -f2-`"
868 hostname="`echo $hostname | cut -d. -f1`"
869 ;;
870 esac
871 fi
872 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%d'`" != . ]; then
873 if [ ".$domainname" = . ]; then
874 if [ -f /etc/resolv.conf ]; then
875 domainname="`grep '^[ ]*domain' /etc/resolv.conf | sed -e 'q' |\
876 sed -e 's/.*domain//' \
877 -e 's/^[ ]*//' -e 's/^ *//' -e 's/^ *//' \
878 -e 's/^\.//' -e 's/^/./' |\
879 awk '{ printf("%s", $1); }'`"
880 if [ ".$domainname" = . ]; then
881 domainname="`grep '^[ ]*search' /etc/resolv.conf | sed -e 'q' |\
882 sed -e 's/.*search//' \
883 -e 's/^[ ]*//' -e 's/^ *//' -e 's/^ *//' \
884 -e 's/ .*//' -e 's/ .*//' \
885 -e 's/^\.//' -e 's/^/./' |\
886 awk '{ printf("%s", $1); }'`"
887 fi
888 fi
889 fi
890 fi
892 # determine current time
893 time_day=''
894 time_month=''
895 time_year=''
896 time_monthname=''
897 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[DMYm]'`" != . ]; then
898 time_day=`date '+%d'`
899 time_month=`date '+%m'`
900 time_year=`date '+%Y' 2>/dev/null`
901 if [ ".$time_year" = . ]; then
902 time_year=`date '+%y'`
903 case $time_year in
904 [5-9][0-9]) time_year="19$time_year" ;;
905 [0-4][0-9]) time_year="20$time_year" ;;
906 esac
907 fi
908 case $time_month in
909 1|01) time_monthname='Jan' ;;
910 2|02) time_monthname='Feb' ;;
911 3|03) time_monthname='Mar' ;;
912 4|04) time_monthname='Apr' ;;
913 5|05) time_monthname='May' ;;
914 6|06) time_monthname='Jun' ;;
915 7|07) time_monthname='Jul' ;;
916 8|08) time_monthname='Aug' ;;
917 9|09) time_monthname='Sep' ;;
918 10) time_monthname='Oct' ;;
919 11) time_monthname='Nov' ;;
920 12) time_monthname='Dec' ;;
921 esac
922 fi
924 # expand special ``%x'' constructs
925 if [ ".$opt_e" = .yes ]; then
926 text=`echo $seo "$text" |\
927 sed -e "s/%B/${term_bold}/g" \
928 -e "s/%b/${term_norm}/g" \
929 -e "s/%u/${username}/g" \
930 -e "s/%U/${userid}/g" \
931 -e "s/%g/${groupname}/g" \
932 -e "s/%G/${groupid}/g" \
933 -e "s/%h/${hostname}/g" \
934 -e "s/%d/${domainname}/g" \
935 -e "s/%D/${time_day}/g" \
936 -e "s/%M/${time_month}/g" \
937 -e "s/%Y/${time_year}/g" \
938 -e "s/%m/${time_monthname}/g" 2>/dev/null`
939 fi
941 # create output
942 if [ .$opt_n = .no ]; then
943 echo $seo "$text"
944 else
945 # the harder part: echo -n is best, because
946 # awk may complain about some \xx sequences.
947 if [ ".$minusn" != . ]; then
948 echo $seo $minusn "$text"
949 else
950 echo dummy | awk '{ printf("%s", TEXT); }' TEXT="$text"
951 fi
952 fi
954 shtool_exit 0
955 ;;
957 mdate )
958 ##
959 ## mdate -- Pretty-print modification time of a file or dir
960 ## Copyright (c) 1995-1997 Free Software Foundation, Inc.
961 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
962 ##
964 fod="$1"
965 case "$opt_o" in
966 [dmy][dmy][dmy] )
967 ;;
968 * ) echo "$msgprefix:Error: invalid argument to option \`-o': $opt_o" 1>&2
969 shtool_exit 1
970 ;;
971 esac
972 if [ ! -r "$fod" ]; then
973 echo "$msgprefix:Error: file or directory not found: $fod" 1>&2
974 shtool_exit 1
975 fi
977 # GNU ls changes its time format in response to the TIME_STYLE
978 # variable. Since we cannot assume "unset" works, revert this
979 # variable to its documented default.
980 if [ ".$TIME_STYLE" != . ]; then
981 TIME_STYLE=posix-long-iso
982 export TIME_STYLE
983 fi
985 # get the extended ls output of the file or directory.
986 if /bin/ls -L /dev/null >/dev/null 2>&1; then
987 set - x`/bin/ls -L -l -d $fod`
988 else
989 set - x`/bin/ls -l -d $fod`
990 fi
992 # The month is at least the fourth argument
993 # (3 shifts here, the next inside the loop).
994 shift; shift; shift
996 # Find the month. Next argument is day, followed by the year or time.
997 month=""
998 while [ ".$month" = . ]; do
999 shift
1000 case $1 in
1001 Jan) month=January; nummonth=1 ;;
1002 Feb) month=February; nummonth=2 ;;
1003 Mar) month=March; nummonth=3 ;;
1004 Apr) month=April; nummonth=4 ;;
1005 May) month=May; nummonth=5 ;;
1006 Jun) month=June; nummonth=6 ;;
1007 Jul) month=July; nummonth=7 ;;
1008 Aug) month=August; nummonth=8 ;;
1009 Sep) month=September; nummonth=9 ;;
1010 Oct) month=October; nummonth=10 ;;
1011 Nov) month=November; nummonth=11 ;;
1012 Dec) month=December; nummonth=12 ;;
1013 esac
1014 done
1015 day="$2"
1016 year="$3"
1018 # We finally have to deal with the problem that the "ls" output
1019 # gives either the time of the day or the year.
1020 case $year in
1021 *:*)
1022 this_year=`date '+%Y' 2>/dev/null`
1023 if [ ".$this_year" = . ]; then
1024 this_year=`date '+%y'`
1025 case $this_year in
1026 [5-9][0-9]) this_year="19$this_year" ;;
1027 [0-4][0-9]) this_year="20$this_year" ;;
1028 esac
1029 fi
1030 # for the following months of the last year the time notation
1031 # is usually also used for files modified in the last year.
1032 this_month=`date '+%m'`
1033 if (expr $nummonth \> $this_month) >/dev/null; then
1034 this_year=`expr $this_year - 1`
1035 fi
1036 year="$this_year"
1037 ;;
1038 esac
1040 # Optionally fill day and month with leeding zeros
1041 if [ ".$opt_z" = .yes ]; then
1042 case $day in
1043 [0-9][0-9] ) ;;
1044 [0-9] ) day="0$day" ;;
1045 esac
1046 case $nummonth in
1047 [0-9][0-9] ) ;;
1048 [0-9] ) nummonth="0$nummonth" ;;
1049 esac
1050 fi
1052 # Optionally use digits for month
1053 if [ ".$opt_d" = .yes ]; then
1054 month="$nummonth"
1055 fi
1057 # Optionally shorten the month name to three characters
1058 if [ ".$opt_s" = .yes ]; then
1059 month=`echo $month | cut -c1-3`
1060 fi
1062 # Output the resulting date string
1063 echo dummy | awk '{
1064 for (i = 0; i < 3; i++) {
1065 now = substr(order, 1, 1);
1066 order = substr(order, 2);
1067 if (now == "d")
1068 out = day;
1069 else if (now == "m")
1070 out = month;
1071 else if (now == "y")
1072 out = year;
1073 if (i < 2)
1074 printf("%s%s", out, field);
1075 else
1076 printf("%s", out);
1077 }
1078 if (newline != "yes")
1079 printf("\n");
1080 }' "day=$day" "month=$month" "year=$year" \
1081 "field=$opt_f" "order=$opt_o" "newline=$opt_n"
1083 shtool_exit 0
1084 ;;
1086 table )
1087 ##
1088 ## table -- Pretty-print a field-separated list as a table
1089 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
1090 ##
1092 if [ $opt_c -gt 4 ]; then
1093 echo "$msgprefix:Error: Invalid number of colums (1..4 allowed only)" 1>&2
1094 shtool_exit 1
1095 fi
1096 case "x$opt_F" in
1097 x? ) ;;
1098 * ) echo "$msgprefix:Error: Invalid separator (one char allowed only)" 1>&2; shtool_exit 1 ;;
1099 esac
1101 # split the list into a table
1102 list=`
1103 IFS="$opt_F"
1104 for entry in $*; do
1105 if [ ".$entry" != . ]; then
1106 echo "$entry"
1107 fi
1108 done |\
1109 awk "
1110 BEGIN { list = \"\"; n = 0; }
1111 {
1112 list = list \\$1;
1113 n = n + 1;
1114 if (n < $opt_c) {
1115 list = list \":\";
1116 }
1117 if (n == $opt_c) {
1118 list = list \"\\n\";
1119 n = 0;
1120 }
1121 }
1122 END { print list; }
1123 "
1124 `
1126 # format table cells and make sure table
1127 # doesn't exceed maximum width
1128 OIFS="$IFS"
1129 IFS='
1130 '
1131 for entry in $list; do
1132 case $opt_c in
1133 1 ) eval "echo \"\${entry}\" | awk -F: '{ printf(\"%-${opt_w}s\\n\", \$1); }'" ;;
1134 2 ) eval "echo \"\${entry}\" | awk -F: '{ printf(\"%-${opt_w}s %-${opt_w}s\\n\", \$1, \$2); }'" ;;
1135 3 ) eval "echo \"\${entry}\" | awk -F: '{ printf(\"%-${opt_w}s %-${opt_w}s %-${opt_w}s\\n\", \$1, \$2, \$3); }'" ;;
1136 4 ) eval "echo \"\${entry}\" | awk -F: '{ printf(\"%-${opt_w}s %-${opt_w}s %-${opt_w}s %-${opt_w}s\\n\", \$1, \$2, \$3, \$4); }'" ;;
1137 esac
1138 done |\
1139 awk "{
1140 if (length(\$0) > $opt_s) {
1141 printf(\"%s\\n\", substr(\$0, 0, $opt_s-1));
1142 } else {
1143 print \$0;
1144 }
1145 }"
1146 IFS="$OIFS"
1148 shtool_exit 0
1149 ;;
1151 prop )
1152 ##
1153 ## prop -- Display progress with a running propeller
1154 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
1155 ##
1157 perl=''
1158 for dir in `echo $PATH | sed -e 's/:/ /g'` .; do
1159 if [ -f "$dir/perl" ]; then
1160 perl="$dir/perl"
1161 break
1162 fi
1163 done
1164 if [ ".$perl" != . ]; then
1165 # Perl is preferred because writing to STDERR in
1166 # Perl really writes immediately as one would expect
1167 $perl -e '
1168 @p = ("|","/","-","\\");
1169 $i = 0;
1170 while (<STDIN>) {
1171 printf(STDERR "\r%s...%s\b", $ARGV[0], $p[$i++]);
1172 $i = 0 if ($i > 3);
1173 }
1174 printf(STDERR "\r%s \n", $ARGV[0]);
1175 ' "$opt_p"
1176 else
1177 # But if Perl doesn't exists we use Awk even
1178 # some Awk's buffer even the /dev/stderr writing :-(
1179 awk '
1180 BEGIN {
1181 split("|#/#-#\\", p, "#");
1182 i = 1;
1183 }
1184 {
1185 printf("\r%s%c\b", prefix, p[i++]) > "/dev/stderr";
1186 if (i > 4) { i = 1; }
1187 }
1188 END {
1189 printf("\r%s \n", prefix) > "/dev/stderr";
1190 }
1191 ' "prefix=$opt_p"
1192 fi
1194 shtool_exit 0
1195 ;;
1197 move )
1198 ##
1199 ## move -- Move files with simultaneous substitution
1200 ## Copyright (c) 1999-2007 Ralf S. Engelschall <rse@engelschall.com>
1201 ##
1203 src="$1"
1204 dst="$2"
1206 # consistency checks
1207 if [ ".$src" = . ] || [ ".$dst" = . ]; then
1208 echo "$msgprefix:Error: Invalid arguments" 1>&2
1209 shtool_exit 1
1210 fi
1211 if [ ".$src" = ".$dst" ]; then
1212 echo "$msgprefix:Error: Source and destination files are the same" 1>&2
1213 shtool_exit 1
1214 fi
1215 expsrc="$src"
1216 if [ ".$opt_e" = .yes ]; then
1217 expsrc="`echo $expsrc`"
1218 fi
1219 if [ ".$opt_e" = .yes ]; then
1220 if [ ".`echo "$src" | sed -e 's;^.*\\*.*$;;'`" = ".$src" ]; then
1221 echo "$msgprefix:Error: Source doesn't contain wildcard ('*'): $dst" 1>&2
1222 shtool_exit 1
1223 fi
1224 if [ ".`echo "$dst" | sed -e 's;^.*%[1-9].*$;;'`" = ".$dst" ]; then
1225 echo "$msgprefix:Error: Destination doesn't contain substitution ('%N'): $dst" 1>&2
1226 shtool_exit 1
1227 fi
1228 if [ ".$expsrc" = ".$src" ]; then
1229 echo "$msgprefix:Error: Sources not found or no asterisk : $src" 1>&2
1230 shtool_exit 1
1231 fi
1232 else
1233 if [ ! -r "$src" ]; then
1234 echo "$msgprefix:Error: Source not found: $src" 1>&2
1235 shtool_exit 1
1236 fi
1237 fi
1239 # determine substitution patterns
1240 if [ ".$opt_e" = .yes ]; then
1241 srcpat=`echo "$src" | sed -e 's/\\./\\\\./g' -e 's/;/\\;/g' -e 's;\\*;\\\\(.*\\\\);g'`
1242 dstpat=`echo "$dst" | sed -e 's;%\([1-9]\);\\\\\1;g'`
1243 fi
1245 # iterate over source(s)
1246 for onesrc in $expsrc; do
1247 if [ .$opt_e = .yes ]; then
1248 onedst=`echo $onesrc | sed -e "s;$srcpat;$dstpat;"`
1249 else
1250 onedst="$dst"
1251 fi
1252 errorstatus=0
1253 if [ ".$opt_v" = .yes ]; then
1254 echo "$onesrc -> $onedst"
1255 fi
1256 if [ ".$opt_p" = .yes ]; then
1257 if [ -r $onedst ]; then
1258 if cmp -s $onesrc $onedst; then
1259 if [ ".$opt_t" = .yes ]; then
1260 echo "rm -f $onesrc" 1>&2
1261 fi
1262 rm -f $onesrc || errorstatus=$?
1263 else
1264 if [ ".$opt_t" = .yes ]; then
1265 echo "mv -f $onesrc $onedst" 1>&2
1266 fi
1267 mv -f $onesrc $onedst || errorstatus=$?
1268 fi
1269 else
1270 if [ ".$opt_t" = .yes ]; then
1271 echo "mv -f $onesrc $onedst" 1>&2
1272 fi
1273 mv -f $onesrc $onedst || errorstatus=$?
1274 fi
1275 else
1276 if [ ".$opt_t" = .yes ]; then
1277 echo "mv -f $onesrc $onedst" 1>&2
1278 fi
1279 mv -f $onesrc $onedst || errorstatus=$?
1280 fi
1281 if [ $errorstatus -ne 0 ]; then
1282 break;
1283 fi
1284 done
1286 shtool_exit $errorstatus
1287 ;;
1289 install )
1290 ##
1291 ## install -- Install a program, script or datafile
1292 ## Copyright (c) 1997-2007 Ralf S. Engelschall <rse@engelschall.com>
1293 ##
1295 # special case: "shtool install -d <dir> [...]" internally
1296 # maps to "shtool mkdir -f -p -m 755 <dir> [...]"
1297 if [ "$opt_d" = yes ]; then
1298 cmd="$0 mkdir -f -p -m 755"
1299 if [ ".$opt_o" != . ]; then
1300 cmd="$cmd -o '$opt_o'"
1301 fi
1302 if [ ".$opt_g" != . ]; then
1303 cmd="$cmd -g '$opt_g'"
1304 fi
1305 if [ ".$opt_v" = .yes ]; then
1306 cmd="$cmd -v"
1307 fi
1308 if [ ".$opt_t" = .yes ]; then
1309 cmd="$cmd -t"
1310 fi
1311 for dir in "$@"; do
1312 eval "$cmd $dir" || shtool_exit $?
1313 done
1314 shtool_exit 0
1315 fi
1317 # determine source(s) and destination
1318 argc=$#
1319 srcs=""
1320 while [ $# -gt 1 ]; do
1321 srcs="$srcs $1"
1322 shift
1323 done
1324 dstpath="$1"
1326 # type check for destination
1327 dstisdir=0
1328 if [ -d $dstpath ]; then
1329 dstpath=`echo "$dstpath" | sed -e 's:/$::'`
1330 dstisdir=1
1331 fi
1333 # consistency check for destination
1334 if [ $argc -gt 2 ] && [ $dstisdir = 0 ]; then
1335 echo "$msgprefix:Error: multiple sources require destination to be directory" 1>&2
1336 shtool_exit 1
1337 fi
1339 # iterate over all source(s)
1340 for src in $srcs; do
1341 dst=$dstpath
1343 # if destination is a directory, append the input filename
1344 if [ $dstisdir = 1 ]; then
1345 dstfile=`echo "$src" | sed -e 's;.*/\([^/]*\)$;\1;'`
1346 dst="$dst/$dstfile"
1347 fi
1349 # check for correct arguments
1350 if [ ".$src" = ".$dst" ]; then
1351 echo "$msgprefix:Warning: source and destination are the same - skipped" 1>&2
1352 continue
1353 fi
1354 if [ -d "$src" ]; then
1355 echo "$msgprefix:Warning: source \`$src' is a directory - skipped" 1>&2
1356 continue
1357 fi
1359 # make a temp file name in the destination directory
1360 dsttmp=`echo $dst |\
1361 sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;' \
1362 -e "s;\$;/#INST@$$#;"`
1364 # verbosity
1365 if [ ".$opt_v" = .yes ]; then
1366 echo "$src -> $dst" 1>&2
1367 fi
1369 # copy or move the file name to the temp name
1370 # (because we might be not allowed to change the source)
1371 if [ ".$opt_C" = .yes ]; then
1372 opt_c=yes
1373 fi
1374 if [ ".$opt_c" = .yes ]; then
1375 if [ ".$opt_t" = .yes ]; then
1376 echo "cp $src $dsttmp" 1>&2
1377 fi
1378 cp "$src" "$dsttmp" || shtool_exit $?
1379 else
1380 if [ ".$opt_t" = .yes ]; then
1381 echo "mv $src $dsttmp" 1>&2
1382 fi
1383 mv "$src" "$dsttmp" || shtool_exit $?
1384 fi
1386 # adjust the target file
1387 if [ ".$opt_e" != . ]; then
1388 sed='sed'
1389 OIFS="$IFS"; IFS="$ASC_NL"; set -- $opt_e; IFS="$OIFS"
1390 for e
1391 do
1392 sed="$sed -e '$e'"
1393 done
1394 cp "$dsttmp" "$dsttmp.old"
1395 chmod u+w $dsttmp
1396 eval "$sed <$dsttmp.old >$dsttmp" || shtool_exit $?
1397 rm -f $dsttmp.old
1398 fi
1399 if [ ".$opt_s" = .yes ]; then
1400 if [ ".$opt_t" = .yes ]; then
1401 echo "strip $dsttmp" 1>&2
1402 fi
1403 strip $dsttmp || shtool_exit $?
1404 fi
1405 if [ ".$opt_o" != . ]; then
1406 if [ ".$opt_t" = .yes ]; then
1407 echo "chown $opt_o $dsttmp" 1>&2
1408 fi
1409 chown $opt_o $dsttmp || shtool_exit $?
1410 fi
1411 if [ ".$opt_g" != . ]; then
1412 if [ ".$opt_t" = .yes ]; then
1413 echo "chgrp $opt_g $dsttmp" 1>&2
1414 fi
1415 chgrp $opt_g $dsttmp || shtool_exit $?
1416 fi
1417 if [ ".$opt_m" != ".-" ]; then
1418 if [ ".$opt_t" = .yes ]; then
1419 echo "chmod $opt_m $dsttmp" 1>&2
1420 fi
1421 chmod $opt_m $dsttmp || shtool_exit $?
1422 fi
1424 # determine whether to do a quick install
1425 # (has to be done _after_ the strip was already done)
1426 quick=no
1427 if [ ".$opt_C" = .yes ]; then
1428 if [ -r $dst ]; then
1429 if cmp -s "$src" "$dst"; then
1430 quick=yes
1431 fi
1432 fi
1433 fi
1435 # finally, install the file to the real destination
1436 if [ $quick = yes ]; then
1437 if [ ".$opt_t" = .yes ]; then
1438 echo "rm -f $dsttmp" 1>&2
1439 fi
1440 rm -f $dsttmp
1441 else
1442 if [ ".$opt_t" = .yes ]; then
1443 echo "rm -f $dst && mv $dsttmp $dst" 1>&2
1444 fi
1445 rm -f $dst && mv $dsttmp $dst
1446 fi
1447 done
1449 shtool_exit 0
1450 ;;
1452 mkdir )
1453 ##
1454 ## mkdir -- Make one or more directories
1455 ## Copyright (c) 1996-2007 Ralf S. Engelschall <rse@engelschall.com>
1456 ##
1458 errstatus=0
1459 for p in ${1+"$@"}; do
1460 # if the directory already exists...
1461 if [ -d "$p" ]; then
1462 if [ ".$opt_f" = .no ] && [ ".$opt_p" = .no ]; then
1463 echo "$msgprefix:Error: directory already exists: $p" 1>&2
1464 errstatus=1
1465 break
1466 else
1467 continue
1468 fi
1469 fi
1470 # if the directory has to be created...
1471 if [ ".$opt_p" = .no ]; then
1472 if [ ".$opt_t" = .yes ]; then
1473 echo "mkdir $p" 1>&2
1474 fi
1475 mkdir $p || errstatus=$?
1476 if [ ".$opt_o" != . ]; then
1477 if [ ".$opt_t" = .yes ]; then
1478 echo "chown $opt_o $p" 1>&2
1479 fi
1480 chown $opt_o $p || errstatus=$?
1481 fi
1482 if [ ".$opt_g" != . ]; then
1483 if [ ".$opt_t" = .yes ]; then
1484 echo "chgrp $opt_g $p" 1>&2
1485 fi
1486 chgrp $opt_g $p || errstatus=$?
1487 fi
1488 if [ ".$opt_m" != . ]; then
1489 if [ ".$opt_t" = .yes ]; then
1490 echo "chmod $opt_m $p" 1>&2
1491 fi
1492 chmod $opt_m $p || errstatus=$?
1493 fi
1494 else
1495 # the smart situation
1496 set fnord `echo ":$p" |\
1497 sed -e 's/^:\//%/' \
1498 -e 's/^://' \
1499 -e 's/\// /g' \
1500 -e 's/^%/\//'`
1501 shift
1502 pathcomp=''
1503 for d in ${1+"$@"}; do
1504 pathcomp="$pathcomp$d"
1505 case "$pathcomp" in
1506 -* ) pathcomp="./$pathcomp" ;;
1507 esac
1508 if [ ! -d "$pathcomp" ]; then
1509 if [ ".$opt_t" = .yes ]; then
1510 echo "mkdir $pathcomp" 1>&2
1511 fi
1512 mkdir $pathcomp || errstatus=$?
1513 if [ ".$opt_o" != . ]; then
1514 if [ ".$opt_t" = .yes ]; then
1515 echo "chown $opt_o $pathcomp" 1>&2
1516 fi
1517 chown $opt_o $pathcomp || errstatus=$?
1518 fi
1519 if [ ".$opt_g" != . ]; then
1520 if [ ".$opt_t" = .yes ]; then
1521 echo "chgrp $opt_g $pathcomp" 1>&2
1522 fi
1523 chgrp $opt_g $pathcomp || errstatus=$?
1524 fi
1525 if [ ".$opt_m" != . ]; then
1526 if [ ".$opt_t" = .yes ]; then
1527 echo "chmod $opt_m $pathcomp" 1>&2
1528 fi
1529 chmod $opt_m $pathcomp || errstatus=$?
1530 fi
1531 fi
1532 pathcomp="$pathcomp/"
1533 done
1534 fi
1535 done
1537 shtool_exit $errstatus
1538 ;;
1540 mkln )
1541 ##
1542 ## mkln -- Make link with calculation of relative paths
1543 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
1544 ##
1546 # determine source(s) and destination
1547 args=$?
1548 srcs=""
1549 while [ $# -gt 1 ]; do
1550 srcs="$srcs $1"
1551 shift
1552 done
1553 dst="$1"
1554 if [ ! -d $dst ]; then
1555 if [ $args -gt 2 ]; then
1556 echo "$msgprefix:Error: multiple sources not allowed when target isn't a directory" 1>&2
1557 shtool_exit 1
1558 fi
1559 fi
1561 # determine link options
1562 lnopt=""
1563 if [ ".$opt_f" = .yes ]; then
1564 lnopt="$lnopt -f"
1565 fi
1566 if [ ".$opt_s" = .yes ]; then
1567 lnopt="$lnopt -s"
1568 fi
1570 # iterate over sources
1571 for src in $srcs; do
1572 # determine if one of the paths is an absolute path,
1573 # because then we _have_ to use an absolute symlink
1574 oneisabs=0
1575 srcisabs=0
1576 dstisabs=0
1577 case $src in
1578 /* ) oneisabs=1; srcisabs=1 ;;
1579 esac
1580 case $dst in
1581 /* ) oneisabs=1; dstisabs=1 ;;
1582 esac
1584 # split source and destination into dir and base name
1585 if [ -d $src ]; then
1586 srcdir=`echo $src | sed -e 's;/*$;;'`
1587 srcbase=""
1588 else
1589 srcdir=`echo $src | sed -e 's;^[^/]*$;;' -e 's;^\(.*/\)[^/]*$;\1;' -e 's;\(.\)/$;\1;'`
1590 srcbase=`echo $src | sed -e 's;.*/\([^/]*\)$;\1;'`
1591 fi
1592 if [ -d $dst ]; then
1593 dstdir=`echo $dst | sed -e 's;/*$;;'`
1594 dstbase=""
1595 else
1596 dstdir=`echo $dst | sed -e 's;^[^/]*$;;' -e 's;^\(.*/\)[^/]*$;\1;' -e 's;\(.\)/$;\1;'`
1597 dstbase=`echo $dst | sed -e 's;.*/\([^/]*\)$;\1;'`
1598 fi
1600 # consistency check
1601 if [ ".$dstdir" != . ]; then
1602 if [ ! -d $dstdir ]; then
1603 echo "$msgprefix:Error: destination directory not found: $dstdir" 1>&2
1604 shtool_exit 1
1605 fi
1606 fi
1608 # make sure the source is reachable from the destination
1609 if [ $dstisabs = 1 ]; then
1610 if [ $srcisabs = 0 ]; then
1611 if [ ".$srcdir" = . ]; then
1612 srcdir="`pwd | sed -e 's;/*$;;'`"
1613 srcisabs=1
1614 oneisabs=1
1615 elif [ -d $srcdir ]; then
1616 srcdir="`cd $srcdir; pwd | sed -e 's;/*$;;'`"
1617 srcisabs=1
1618 oneisabs=1
1619 fi
1620 fi
1621 fi
1623 # split away a common prefix
1624 prefix=""
1625 if [ ".$srcdir" = ".$dstdir" ] && [ ".$srcdir" != . ]; then
1626 prefix="$srcdir/"
1627 srcdir=""
1628 dstdir=""
1629 else
1630 while [ ".$srcdir" != . ] && [ ".$dstdir" != . ]; do
1631 presrc=`echo $srcdir | sed -e 's;^\([^/]*\)/.*;\1;'`
1632 predst=`echo $dstdir | sed -e 's;^\([^/]*\)/.*;\1;'`
1633 if [ ".$presrc" != ".$predst" ]; then
1634 break
1635 fi
1636 prefix="$prefix$presrc/"
1637 srcdir=`echo $srcdir | sed -e 's;^[^/]*/*;;'`
1638 dstdir=`echo $dstdir | sed -e 's;^[^/]*/*;;'`
1639 done
1640 fi
1642 # destination prefix is just the common prefix
1643 dstpre="$prefix"
1645 # determine source prefix which is the reverse directory
1646 # step-up corresponding to the destination directory
1647 srcpre=""
1648 allow_relative_srcpre=no
1649 if [ ".$prefix" != . ] && [ ".$prefix" != ./ ]; then
1650 allow_relative_srcpre=yes
1651 fi
1652 if [ $oneisabs = 0 ]; then
1653 allow_relative_srcpre=yes
1654 fi
1655 if [ ".$opt_s" != .yes ]; then
1656 allow_relative_srcpre=no
1657 fi
1658 if [ ".$allow_relative_srcpre" = .yes ]; then
1659 pl="$dstdir/"
1660 OIFS="$IFS"; IFS='/'
1661 for pe in $pl; do
1662 [ ".$pe" = . ] && continue
1663 [ ".$pe" = .. ] && continue
1664 srcpre="../$srcpre"
1665 done
1666 IFS="$OIFS"
1667 else
1668 if [ $srcisabs = 1 ]; then
1669 srcpre="$prefix"
1670 fi
1671 fi
1673 # determine destination symlink name
1674 if [ ".$dstbase" = . ]; then
1675 if [ ".$srcbase" != . ]; then
1676 dstbase="$srcbase"
1677 else
1678 dstbase=`echo "$prefix$srcdir" | sed -e 's;/*$;;' -e 's;.*/\([^/]*\)$;\1;'`
1679 fi
1680 fi
1682 # now finalize source and destination directory paths
1683 srcdir=`echo $srcdir | sed -e 's;\([^/]\)$;\1/;'`
1684 dstdir=`echo $dstdir | sed -e 's;\([^/]\)$;\1/;'`
1686 # run the final link command
1687 if [ ".$opt_t" = .yes ]; then
1688 echo "ln$lnopt $srcpre$srcdir$srcbase $dstpre$dstdir$dstbase"
1689 fi
1690 eval ln$lnopt $srcpre$srcdir$srcbase $dstpre$dstdir$dstbase
1691 done
1693 shtool_exit 0
1694 ;;
1696 mkshadow )
1697 ##
1698 ## mkshadow -- Make a shadow tree through symbolic links
1699 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
1700 ##
1702 # source and destination directory
1703 src=`echo "$1" | sed -e 's:/$::' -e 's:^\./\(.\):\1:'`
1704 dst=`echo "$2" | sed -e 's:/$::' -e 's:^\./\(.\):\1:'`
1706 # check whether source exists
1707 if [ ! -d $src ]; then
1708 echo "$msgprefix:Error: source directory not found: \`$src'" 1>&2
1709 shtool_exit 1
1710 fi
1712 # determine if one of the paths is an absolute path,
1713 # because then we have to use an absolute symlink
1714 oneisabs=0
1715 case $src in
1716 /* ) oneisabs=1 ;;
1717 esac
1718 case $dst in
1719 /* ) oneisabs=1 ;;
1720 esac
1722 # determine reverse directory for destination directory
1723 dstrevdir=''
1724 if [ $oneisabs = 0 ]; then
1725 # derive reverse path from forward path
1726 pwd=`pwd`
1727 OIFS="$IFS"; IFS='/'
1728 for pe in $dst; do
1729 if [ "x$pe" = "x.." ]; then
1730 OIFS2="$IFS"; IFS="$DIFS"
1731 eval `echo "$pwd" |\
1732 sed -e 's:\([^/]*\)$:; dir="\1":' \
1733 -e 's:^\(.*\)/[^/]*;:pwd="\1";:'\
1734 -e 's:^;:pwd="";:'`
1735 dstrevdir="$dir/$dstrevdir"
1736 IFS="$OIFS2"
1737 else
1738 dstrevdir="../$dstrevdir"
1739 fi
1740 done
1741 IFS="$OIFS"
1742 else
1743 src="`cd $src; pwd`";
1744 fi
1746 # create directory tree at destination
1747 if [ ! -d $dst ]; then
1748 if [ ".$opt_t" = .yes ]; then
1749 echo "mkdir $dst" 1>&2
1750 fi
1751 mkdir $dst
1752 fi
1753 if [ ".$opt_a" = .yes ]; then
1754 DIRS=`cd $src; find . -type d -print |\
1755 sed -e '/^\.$/d' -e 's:^\./::'`
1756 else
1757 DIRS=`cd $src; find . -type d -print |\
1758 sed -e '/\/CVS/d' -e '/^\.$/d' -e 's:^\./::'`
1759 fi
1760 for dir in $DIRS; do
1761 if [ ".$opt_t" = .yes ]; then
1762 echo "mkdir $dst/$dir" 1>&2
1763 fi
1764 mkdir $dst/$dir
1765 done
1767 # fill directory tree with symlinks to files
1768 if [ ".$opt_a" = .yes ]; then
1769 FILES="`cd $src; find . -depth -print |\
1770 sed -e 's/^\.\///'`"
1771 else
1772 FILES="`cd $src; find . -depth -print |\
1773 sed -e '/\.o$/d' -e '/\.a$/d' -e '/\.so$/d' \
1774 -e '/\.cvsignore$/d' -e '/\/CVS/d' \
1775 -e '/\/\.#/d' -e '/\.orig$/d' \
1776 -e 's/^\.\///'`"
1777 fi
1778 for file in $FILES; do
1779 # don't use `-type f' above for find because of symlinks
1780 if [ -d "$src/$file" ]; then
1781 continue
1782 fi
1783 basename=`echo $file | sed -e 's:^.*/::'`
1784 dir=`echo $file | sed -e 's:[^/]*$::' -e 's:/$::' -e 's:$:/:' -e 's:^/$::'`
1785 from=`echo "$src/$file" | sed -e 's/^\.\///'`
1786 to="$dst/$dir$basename"
1787 if [ $oneisabs = 0 ]; then
1788 if [ ".$dir" != . ]; then
1789 subdir=`echo $dir | sed -e 's:/$::'`
1790 # derive reverse path from forward path
1791 revdir=''
1792 OIFS="$IFS"; IFS='/'
1793 for pe in $subdir; do
1794 revdir="../$revdir"
1795 done
1796 IFS="$OIFS"
1797 # finalize from
1798 from="$revdir$from"
1799 fi
1800 from="$dstrevdir$from"
1801 fi
1802 if [ ".$opt_v" = .yes ]; then
1803 echo " $to" 1>&2
1804 fi
1805 if [ ".$opt_t" = .yes ]; then
1806 echo "ln -s $from $to" 1>&2
1807 fi
1808 ln -s $from $to
1809 done
1811 shtool_exit 0
1812 ;;
1814 fixperm )
1815 ##
1816 ## fixperm -- Fix file permissions inside a source tree
1817 ## Copyright (c) 1996-2007 Ralf S. Engelschall <rse@engelschall.com>
1818 ##
1820 paths="$*"
1822 # check whether the test command supports the -x option
1823 if [ -x /bin/sh ] 2>/dev/null; then
1824 minusx="-x"
1825 else
1826 minusx="-r"
1827 fi
1829 # iterate over paths
1830 for p in $paths; do
1831 for file in `find $p -depth -print`; do
1832 if [ -f $file ]; then
1833 if [ $minusx $file ]; then
1834 if [ ".$opt_v" = .yes ]; then
1835 echo "-rwxr-xr-x $file" 2>&1
1836 fi
1837 if [ ".$opt_t" = .yes ]; then
1838 echo "chmod 755 $file" 2>&1
1839 fi
1840 chmod 755 $file
1841 else
1842 if [ ".$opt_v" = .yes ]; then
1843 echo "-rw-r--r-- $file" 2>&1
1844 fi
1845 if [ ".$opt_t" = .yes ]; then
1846 echo "chmod 644 $file" 2>&1
1847 fi
1848 chmod 644 $file
1849 fi
1850 continue
1851 fi
1852 if [ -d $file ]; then
1853 if [ ".$opt_v" = .yes ]; then
1854 echo "drwxr-xr-x $file" 2>&1
1855 fi
1856 if [ ".$opt_t" = .yes ]; then
1857 echo "chmod 755 $file" 2>&1
1858 fi
1859 chmod 755 $file
1860 continue
1861 fi
1862 if [ ".$opt_v" = .yes ]; then
1863 echo "?????????? $file" 2>&1
1864 fi
1865 done
1866 done
1868 shtool_exit 0
1869 ;;
1871 rotate )
1872 ##
1873 ## rotate -- Logfile rotation
1874 ## Copyright (c) 2001-2007 Ralf S. Engelschall <rse@engelschall.com>
1875 ##
1877 # make sure we have at least one file to rotate
1878 if [ ".$opt_n" = .0 ]; then
1879 echo "$msgprefix:Error: invalid argument \`$opt_n' to option -n." 1>&2
1880 shtool_exit 1
1881 fi
1883 # canonicalize -s option argument
1884 if [ ".$opt_s" != . ]; then
1885 if [ ".`expr $opt_s : '[0-9]*$'`" != .0 ]; then
1886 :
1887 elif [ ".`expr $opt_s : '[0-9]*[Kk]$'`" != .0 ]; then
1888 opt_s=`expr $opt_s : '\([0-9]*\)[Kk]$'`
1889 opt_s=`expr $opt_s \* 1024`
1890 elif [ ".`expr $opt_s : '[0-9]*[Mm]$'`" != .0 ]; then
1891 opt_s=`expr $opt_s : '\([0-9]*\)[Mm]$'`
1892 opt_s=`expr $opt_s \* 1048576` # 1024*1024
1893 elif [ ".`expr $opt_s : '[0-9]*[Gg]$'`" != .0 ]; then
1894 opt_s=`expr $opt_s : '\([0-9]*\)[Gg]$'`
1895 opt_s=`expr $opt_s \* 1073741824` # 1024*1024*1024
1896 else
1897 echo "$msgprefix:Error: invalid argument \`$opt_s' to option -s." 1>&2
1898 shtool_exit 1
1899 fi
1900 fi
1902 # option -d/-z consistency
1903 if [ ".$opt_d" = .yes ] && [ ".$opt_z" = . ]; then
1904 echo "$msgprefix:Error: option -d requires option -z." 1>&2
1905 shtool_exit 1
1906 fi
1908 # make sure target directory exists
1909 if [ ".$opt_a" != . ]; then
1910 if [ ! -d $opt_a ]; then
1911 if [ ".$opt_f" = .no ]; then
1912 echo "$msgprefix:Error: archive directory \`$opt_a' does not exist." 1>&2
1913 shtool_exit 1
1914 fi
1915 mkdir $opt_a || shtool_exit $?
1916 chmod 755 $opt_a
1917 fi
1918 if [ ! -w $opt_a ]; then
1919 echo "$msgprefix:Error: archive directory \`$opt_a' not writable." 1>&2
1920 shtool_exit 1
1921 fi
1922 fi
1924 # determine compression approach
1925 if [ ".$opt_z" != . ]; then
1926 comp_lvl="$opt_z"
1927 comp_prg=""
1928 case $comp_lvl in
1929 *:* ) eval `echo $comp_lvl |\
1930 sed -e 's%^\(.*\):\(.*\)$%comp_prg="\1"; comp_lvl="\2"%'` ;;
1931 esac
1933 # compression level consistency
1934 case $comp_lvl in
1935 [0-9] )
1936 ;;
1937 * ) echo "$msgprefix:Error: invalid compression level \`$comp_lvl'" 1>&2
1938 shtool_exit 1
1939 ;;
1940 esac
1942 # determine a suitable compression tool
1943 if [ ".$comp_prg" = . ]; then
1944 # check whether the test command supports the -x option
1945 if [ -x /bin/sh ] 2>/dev/null; then
1946 minusx="-x"
1947 else
1948 minusx="-r"
1949 fi
1950 # search for tools in $PATH
1951 paths="`echo $PATH |\
1952 sed -e 's%/*:%:%g' -e 's%/*$%%' \
1953 -e 's/^:/.:/' -e 's/::/:.:/g' -e 's/:$/:./' \
1954 -e 's/:/ /g'`"
1955 for prg in bzip2 gzip compress; do
1956 for path in $paths; do
1957 if [ $minusx "$path/$prg" ] && [ ! -d "$path/$prg" ]; then
1958 comp_prg="$prg"
1959 break
1960 fi
1961 done
1962 if [ ".$comp_prg" != . ]; then
1963 break
1964 fi
1965 done
1966 if [ ".$comp_prg" = . ]; then
1967 echo "$msgprefix:Error: no suitable compression tool found in \$PATH" 1>&2
1968 shtool_exit 1
1969 fi
1970 fi
1972 # determine standard compression extension
1973 # and make sure it is a known tool
1974 case $comp_prg in
1975 */bzip2 | bzip2 ) comp_ext="bz2" comp_lvl="-$comp_lvl" ;;
1976 */gzip | gzip ) comp_ext="gz" comp_lvl="-$comp_lvl" ;;
1977 */compress | compress ) comp_ext="Z"; comp_lvl="" ;;
1978 * ) echo "$msgprefix:Error: tool \`$comp_prg' is not a known compression tool" 1>&2
1979 shtool_exit 1
1980 ;;
1981 esac
1982 comp_suf=".$comp_ext"
1983 fi
1985 # iterate over all given logfile arguments
1986 for file in $*; do
1987 # make sure the logfile exists
1988 if [ ! -f $file ]; then
1989 if [ ".$opt_f" = .yes ]; then
1990 continue
1991 fi
1992 echo "$msgprefix:Error: logfile \`$file' not found" 1>&2
1993 shtool_exit 1
1994 fi
1996 # determine log directory (where original logfile is placed)
1997 ldir="."
1998 case $file in
1999 */* ) eval `echo $file | sed -e 's%^\(.*\)/\([^/]*\)$%ldir="\1"; file="\2";%'` ;;
2000 esac
2002 # determine archive directory (where rotated logfiles are placed)
2003 adir="$ldir"
2004 if [ ".$opt_a" != . ]; then
2005 case "$opt_a" in
2006 /* | ./* ) adir="$opt_a" ;;
2007 * ) adir="$ldir/$opt_a" ;;
2008 esac
2009 fi
2011 # optionally take logfile size into account
2012 if [ ".$opt_s" != . ]; then
2013 # determine size of logfile
2014 set -- `env -i /bin/ls -l "$ldir/$file" | sed -e "s;$ldir/$file;;" |\
2015 sed -e 's; -> .*$;;' -e 's;[ ][ ]*; ;g'`
2016 n=`expr $# - 3`
2017 eval "size=\`echo \${$n}\`"
2019 # skip logfile if size is still too small
2020 if [ $size -lt $opt_s ]; then
2021 if [ ".$opt_v" = .yes ]; then
2022 echo "$ldir/$file: still too small in size -- skipping"
2023 fi
2024 continue
2025 fi
2026 fi
2028 # verbosity
2029 if [ ".$opt_v" = .yes ]; then
2030 echo "rotating $ldir/$file"
2031 fi
2033 # execute prolog
2034 if [ ".$opt_P" != . ]; then
2035 if [ ".$opt_t" = .yes ]; then
2036 echo "$opt_P"
2037 fi
2038 eval $opt_P
2039 [ $? -ne 0 ] && shtool_exit $?
2040 fi
2042 # kick away out-rotated logfile
2043 n=`expr $opt_n - 1`
2044 n=`echo dummy | awk "{ printf(\"%0${opt_p}d\", n); }" n=$n`
2045 if [ -f "${adir}/${file}.${n}${comp_suf}" ]; then
2046 # optionally migrate away the out-rotated logfile
2047 if [ ".$opt_M" != . ]; then
2048 if [ ".$opt_t" = .yes ]; then
2049 echo "$opt_M ${adir}/${file}.${n}${comp_suf}"
2050 fi
2051 eval "$opt_M ${adir}/${file}.${n}${comp_suf}"
2052 [ $? -ne 0 ] && shtool_exit $?
2053 fi
2054 # finally get rid of the out-rotated logfile
2055 if [ ".$opt_t" = .yes ]; then
2056 echo "rm -f ${adir}/${file}.${n}${comp_suf}"
2057 fi
2058 rm -f ${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2059 fi
2061 # rotate already archived logfiles
2062 while [ $n -gt 0 ]; do
2063 m=$n
2064 n=`expr $n - 1`
2065 n=`echo dummy | awk "{ printf(\"%0${opt_p}d\", n); }" n=$n`
2066 if [ $n -eq 0 ] && [ ".$opt_d" = .yes ]; then
2067 # special case: first rotation file under delayed compression situation
2068 if [ ! -f "${adir}/${file}.${n}" ]; then
2069 continue
2070 fi
2072 # compress file (delayed)
2073 if [ ".$opt_b" = .yes ]; then
2074 if [ ".$opt_t" = .yes ]; then
2075 echo "mv ${adir}/${file}.${n} ${adir}/${file}.${m}"
2076 fi
2077 mv ${adir}/${file}.${n} ${adir}/${file}.${m} || shtool_exit $?
2078 if [ ".$opt_t" = .yes ]; then
2079 echo "(${comp_prg} ${comp_lvl} <${adir}/${file}.${m} >${adir}/${file}.${m}${comp_suf}; rm -f ${adir}/${file}.${m}) &"
2080 fi
2081 ( ${comp_prg} ${comp_lvl} \
2082 <${adir}/${file}.${m} \
2083 >${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2084 rm -f ${adir}/${file}.${m} || shtool_exit $?
2085 ) </dev/null >/dev/null 2>&1 &
2086 else
2087 if [ ".$opt_t" = .yes ]; then
2088 echo "${comp_prg} ${comp_lvl} <${adir}/${file}.${n} >${adir}/${file}.${m}${comp_suf}"
2089 fi
2090 ${comp_prg} ${comp_lvl} \
2091 <${adir}/${file}.${n} \
2092 >${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2093 if [ ".$opt_t" = .yes ]; then
2094 echo "rm -f ${adir}/${file}.${n}"
2095 fi
2096 rm -f ${adir}/${file}.${n} || shtool_exit $?
2097 fi
2099 # fix file attributes
2100 if [ ".$opt_o" != . ]; then
2101 if [ ".$opt_t" = .yes ]; then
2102 echo "chown $opt_o ${adir}/${file}.${m}${comp_suf}"
2103 fi
2104 chown $opt_o ${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2105 fi
2106 if [ ".$opt_g" != . ]; then
2107 if [ ".$opt_t" = .yes ]; then
2108 echo "chgrp $opt_g ${adir}/${file}.${m}${comp_suf}"
2109 fi
2110 chgrp $opt_g ${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2111 fi
2112 if [ ".$opt_m" != . ]; then
2113 if [ ".$opt_t" = .yes ]; then
2114 echo "chmod $opt_m ${adir}/${file}.${m}${comp_suf}"
2115 fi
2116 chmod $opt_m ${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2117 fi
2118 else
2119 # standard case: second and following rotation file
2120 if [ ! -f "${adir}/${file}.${n}${comp_suf}" ]; then
2121 continue
2122 fi
2123 if [ ".$opt_t" = .yes ]; then
2124 echo "mv ${adir}/${file}.${n}${comp_suf} ${adir}/${file}.${m}${comp_suf}"
2125 fi
2126 mv ${adir}/${file}.${n}${comp_suf} ${adir}/${file}.${m}${comp_suf} || shtool_exit $?
2127 fi
2128 done
2130 # move away current logfile
2131 if [ ".$opt_c" = .yes ]; then
2132 # approach: copy[+truncate]
2133 if [ ".$opt_t" = .yes ]; then
2134 echo "cp -p ${ldir}/${file} ${adir}/${file}.${n}"
2135 fi
2136 cp -p ${ldir}/${file} ${adir}/${file}.${n} || shtool_exit $?
2137 if [ ".$opt_r" = .no ]; then
2138 if [ ".$opt_t" = .yes ]; then
2139 echo "cp /dev/null ${ldir}/${file}"
2140 fi
2141 cp /dev/null ${ldir}/${file} || shtool_exit $?
2142 fi
2143 else
2144 # approach: move[+touch]
2145 if [ ".$opt_t" = .yes ]; then
2146 echo "mv ${ldir}/${file} ${adir}/${file}.${n}"
2147 fi
2148 mv ${ldir}/${file} ${adir}/${file}.${n} || shtool_exit $?
2149 if [ ".$opt_r" = .no ]; then
2150 if [ ".$opt_t" = .yes ]; then
2151 echo "touch ${ldir}/${file}"
2152 fi
2153 touch ${ldir}/${file} || shtool_exit $?
2154 # fix file attributes
2155 if [ ".$opt_o" != . ]; then
2156 if [ ".$opt_t" = .yes ]; then
2157 echo "chown $opt_o ${ldir}/${file}"
2158 fi
2159 chown $opt_o ${ldir}/${file} || shtool_exit $?
2160 fi
2161 if [ ".$opt_g" != . ]; then
2162 if [ ".$opt_t" = .yes ]; then
2163 echo "chgrp $opt_g ${ldir}/${file}"
2164 fi
2165 chgrp $opt_g ${ldir}/${file} || shtool_exit $?
2166 fi
2167 if [ ".$opt_m" != . ]; then
2168 if [ ".$opt_t" = .yes ]; then
2169 echo "chmod $opt_m ${ldir}/${file}"
2170 fi
2171 chmod $opt_m ${ldir}/${file} || shtool_exit $?
2172 fi
2173 fi
2174 fi
2176 # regular compression step
2177 if [ ".$opt_z" != . ] && [ ".$opt_d" = .no ]; then
2178 # compress file
2179 if [ ".$opt_b" = .yes ]; then
2180 if [ ".$opt_t" = .yes ]; then
2181 echo "(${comp_prg} ${comp_lvl} <${adir}/${file}.${n} >${adir}/${file}.${n}${comp_suf}; rm -f ${adir}/${file}.${n}) &"
2182 fi
2183 ( ${comp_prg} ${comp_lvl} \
2184 <${adir}/${file}.${n} \
2185 >${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2186 rm -f ${adir}/${file}.${n} || shtool_exit $?
2187 ) </dev/null >/dev/null 2>&1 &
2188 else
2189 if [ ".$opt_t" = .yes ]; then
2190 echo "${comp_prg} ${comp_lvl} <${adir}/${file}.${n} >${adir}/${file}.${n}${comp_suf}"
2191 fi
2192 ${comp_prg} ${comp_lvl} \
2193 <${adir}/${file}.${n} \
2194 >${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2195 if [ ".$opt_t" = .yes ]; then
2196 echo "rm -f ${opt_a}${file}.${n}"
2197 fi
2198 rm -f ${adir}/${file}.${n} || shtool_exit $?
2199 fi
2201 # fix file attributes
2202 if [ ".$opt_o" != . ]; then
2203 if [ ".$opt_t" = .yes ]; then
2204 echo "chown $opt_o ${adir}/${file}.${n}${comp_suf}"
2205 fi
2206 chown $opt_o ${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2207 fi
2208 if [ ".$opt_g" != . ]; then
2209 if [ ".$opt_t" = .yes ]; then
2210 echo "chgrp $opt_g ${adir}/${file}.${n}${comp_suf}"
2211 fi
2212 chgrp $opt_g ${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2213 fi
2214 if [ ".$opt_m" != . ]; then
2215 if [ ".$opt_t" = .yes ]; then
2216 echo "chmod $opt_m ${adir}/${file}.${n}${comp_suf}"
2217 fi
2218 chmod $opt_m ${adir}/${file}.${n}${comp_suf} || shtool_exit $?
2219 fi
2220 fi
2222 # execute epilog
2223 if [ ".$opt_E" != . ]; then
2224 if [ ".$opt_t" = .yes ]; then
2225 echo "$opt_E"
2226 fi
2227 eval $opt_E
2228 [ $? -ne 0 ] && shtool_exit $?
2229 fi
2230 done
2232 shtool_exit 0
2233 ;;
2235 tarball )
2236 ##
2237 ## tarball -- Roll distribution tarballs
2238 ## Copyright (c) 1999-2007 Ralf S. Engelschall <rse@engelschall.com>
2239 ##
2241 srcs="$*"
2243 # check whether the test command supports the -x option
2244 if [ -x /bin/sh ] 2>/dev/null; then
2245 minusx="-x"
2246 else
2247 minusx="-r"
2248 fi
2250 # find the tools
2251 paths="`echo $PATH |\
2252 sed -e 's%/*:%:%g' -e 's%/*$%%' \
2253 -e 's/^:/.:/' -e 's/::/:.:/g' -e 's/:$/:./' \
2254 -e 's/:/ /g'`"
2255 for spec in find:gfind,find tar:gtar,tar tardy:tardy,tarcust; do
2256 prg=`echo $spec | sed -e 's/:.*$//'`
2257 tools=`echo $spec | sed -e 's/^.*://'`
2258 eval "prg_${prg}=''"
2259 # iterate over tools
2260 for tool in `echo $tools | sed -e 's/,/ /g'`; do
2261 # iterate over paths
2262 for path in $paths; do
2263 if [ $minusx "$path/$tool" ] && [ ! -d "$path/$tool" ]; then
2264 eval "prg_${prg}=\"$path/$tool\""
2265 break
2266 fi
2267 done
2268 eval "val=\$prg_${prg}"
2269 if [ ".$val" != . ]; then
2270 break
2271 fi
2272 done
2273 done
2275 # expand source paths
2276 exclude=''
2277 for pat in `echo $opt_e | sed 's/,/ /g'`; do
2278 exclude="$exclude | grep -v '$pat'"
2279 done
2280 if [ ".$opt_t" = .yes ]; then
2281 echo "cp /dev/null $tmpfile.lst" 1>&2
2282 fi
2283 cp /dev/null $tmpfile.lst
2284 for src in $srcs; do
2285 if [ -d $src ]; then
2286 if [ ".$opt_t" = .yes ]; then
2287 echo "(cd $src && $prg_find . -type f -depth -print) | sed -e 's:^\\.\$::' -e 's:^\\./::' | cat $exclude >>$tmpfile.lst" 1>&2
2288 fi
2289 (cd $src && $prg_find . -type f -depth -print) |\
2290 sed -e 's:^\.$::' -e 's:^\./::' | eval cat $exclude >>$tmpfile.lst
2291 else
2292 if [ ".$opt_t" = .yes ]; then
2293 echo "echo $src >>$tmpfile.lst" 1>&2
2294 fi
2295 echo $src >>$tmpfile.lst
2296 fi
2297 done
2298 sort <$tmpfile.lst >$tmpfile.lst.n
2299 mv $tmpfile.lst.n $tmpfile.lst
2300 if [ ".$opt_v" = .yes ]; then
2301 cat $tmpfile.lst | sed -e 's/^/ /' 1>&2
2302 fi
2304 # determine tarball file and directory name
2305 if [ ".$opt_o" != . ]; then
2306 tarfile="$opt_o"
2307 if [ ".$opt_d" != . ]; then
2308 tarname="$opt_d"
2309 else
2310 tarname=`echo $tarfile | sed -e 's/\.tar.*$//' -e 's;.*/\([^/]*\)$;\1;'`
2311 fi
2312 else
2313 if [ ".$opt_d" != . ]; then
2314 tarname="$opt_d"
2315 elif [ -d "$from" ]; then
2316 tarname=`echo $from | sed -e 's;.*/\([^/]*\)$;\1;'`
2317 else
2318 tarname="out"
2319 fi
2320 tarfile="$tarname.tar"
2321 fi
2323 # roll the tarball
2324 compress=''
2325 if [ ".$opt_c" != . ]; then
2326 compress="| $opt_c"
2327 fi
2328 if [ ".$prg_tardy" != . ]; then
2329 # the elegant hackers way
2330 tardy_opt="--prefix=$tarname"
2331 tardy_opt="$tardy_opt --user_number=0 --group_number=0" # security!
2332 if [ ".$opt_u" != . ]; then
2333 tardy_opt="$tardy_opt --user_name=$opt_u"
2334 fi
2335 if [ ".$opt_g" != . ]; then
2336 tardy_opt="$tardy_opt --group_name=$opt_g"
2337 fi
2338 if [ ".$opt_t" = .yes ]; then
2339 echo "cat $tmpfile.lst | xargs $prg_tar cf - | $prg_tardy $tardy_opt | cat $compress >$tmpfile.out" 1>&2
2340 fi
2341 cat $tmpfile.lst |\
2342 xargs $prg_tar cf - |\
2343 $prg_tardy $tardy_opt |\
2344 eval cat $compress >$tmpfile.out
2345 if [ ".$opt_t" = .yes ]; then
2346 echo "cp $tmpfile.out $tarfile" 1>&2
2347 fi
2348 cp $tmpfile.out $tarfile
2349 else
2350 # the portable standard way
2351 if [ ".$opt_t" = .yes ]; then
2352 echo "mkdir $tmpdir/$tarname" 1>&2
2353 fi
2354 mkdir $tmpdir/$tarname || shtool_exit 1
2355 if [ ".$opt_t" = .yes ]; then
2356 echo "cat $tmpfile.lst | xargs $prg_tar cf - | (cd $tmpdir/$tarname && $prg_tar xf -)" 1>&2
2357 fi
2358 cat $tmpfile.lst |\
2359 xargs $prg_tar cf - |\
2360 (cd $tmpdir/$tarname && $prg_tar xf -)
2361 if [ ".$opt_u" != . ]; then
2362 if [ ".$opt_t" = .yes ]; then
2363 echo "chown -R $opt_u $tmpdir/$tarname >/dev/null 2>&1" 2>&1
2364 fi
2365 chown -R $opt_u $tmpdir/$tarname >/dev/null 2>&1 ||\
2366 echo "$msgprefix:Warning: cannot set user name \`$opt_u' (would require root privileges)"
2367 fi
2368 if [ ".$opt_g" != . ]; then
2369 if [ ".$opt_t" = .yes ]; then
2370 echo "chgrp -R $opt_g $tmpdir/$tarname >/dev/null 2>&1" 2>&1
2371 fi
2372 chgrp -R $opt_g $tmpdir/$tarname >/dev/null 2>&1 ||\
2373 echo "$msgprefix:Warning: cannot set group name \`$opt_g' (would require root privileges)"
2374 fi
2375 if [ ".$opt_t" = .yes ]; then
2376 echo "(cd $tmpdir && $prg_find $tarname -type f -depth -print | sort | xargs $prg_tar cf -) | cat $compress >$tmpfile.out" 1>&2
2377 fi
2378 (cd $tmpdir && $prg_find $tarname -type f -depth -print | sort | xargs $prg_tar cf -) |\
2379 eval cat $compress >$tmpfile.out
2380 if [ ".$opt_t" = .yes ]; then
2381 echo "cp $tmpfile.out $tarfile" 1>&2
2382 fi
2383 cp $tmpfile.out $tarfile
2384 if [ ".$opt_t" = .yes ]; then
2385 echo "rm -rf $tmpdir/$tarname" 1>&2
2386 fi
2387 rm -rf $tmpdir/$tarname
2388 fi
2390 # cleanup
2391 if [ ".$opt_t" = .yes ]; then
2392 echo "rm -f $tmpfile.lst $tmpfile.out" 1>&2
2393 fi
2394 rm -f $tmpfile.lst $tmpfile.out
2396 shtool_exit 0
2397 ;;
2399 subst )
2400 ##
2401 ## subst -- Apply sed(1) substitution operations
2402 ## Copyright (c) 2001-2007 Ralf S. Engelschall <rse@engelschall.com>
2403 ##
2405 # remember optional list of file(s)
2406 files="$*"
2407 files_num="$#"
2409 # parameter consistency check
2410 if [ $# -eq 0 ] && [ ".$opt_b" != . ]; then
2411 echo "$msgprefix:Error: option -b cannot be applied to stdin" 1>&2
2412 shtool_exit 1
2413 fi
2414 if [ $# -eq 0 ] && [ ".$opt_s" = .yes ]; then
2415 echo "$msgprefix:Error: option -s cannot be applied to stdin" 1>&2
2416 shtool_exit 1
2417 fi
2419 # build underlying sed(1) command
2420 sedcmd='sed'
2421 if [ ".$opt_e" != . ]; then
2422 OIFS="$IFS"; IFS="$ASC_NL"; set -- $opt_e; IFS="$OIFS"
2423 for e
2424 do
2425 sedcmd="$sedcmd -e '$e'"
2426 done
2427 elif [ ".$opt_f" != . ]; then
2428 if [ ! -f $opt_f ]; then
2429 echo "$msgprefix:Error: command file \`$opt_f' not found or not a regular file" 1>&2
2430 shtool_exit 1
2431 fi
2432 sedcmd="$sedcmd -f '$opt_f'"
2433 else
2434 echo "$msgprefix:Error: either -e option(s) or -f option required" 1>&2
2435 shtool_exit 1
2436 fi
2438 # determine extension for original file
2439 orig=".orig"
2440 if [ ".$opt_b" != . ]; then
2441 orig="$opt_b"
2442 fi
2444 # apply sed(1) operation(s)
2445 if [ ".$files" != . ]; then
2446 # apply operation(s) to files
2447 substdone=no
2448 for file in $files; do
2449 test ".$file" = . && continue
2450 if [ ! -f $file ]; then
2451 echo "$msgprefix:Warning: file \`$file' not found or not a regular file" 1>&2
2452 continue
2453 fi
2455 # handle interactive mode
2456 if [ ".$opt_i" = .yes ]; then
2457 eval "$sedcmd <$file >$file.new"
2458 skip=no
2459 if cmp $file $file.new >/dev/null 2>&1; then
2460 rm -f $file.new
2461 skip=yes
2462 else
2463 (diff -U1 $file $file.new >$tmpfile) 2>/dev/null
2464 if [ ".`cat $tmpfile`" = . ]; then
2465 (diff -C1 $file $file.new >$tmpfile) 2>/dev/null
2466 if [ ".`cat $tmpfile`" = . ]; then
2467 echo "$msgprefix:Warning: unable to show difference for file \`$file'" 1>&2
2468 cp /dev/null $tmpfile
2469 fi
2470 fi
2471 rm -f $file.new
2472 cat $tmpfile
2473 echo dummy | awk '{ printf("%s", TEXT); }' TEXT=">>> Apply [Y/n]: "
2474 read input
2475 if [ ".$input" != .Y ] &&\
2476 [ ".$input" != .y ] &&\
2477 [ ".$input" != . ]; then
2478 skip=yes
2479 fi
2480 fi
2481 if [ ".$skip" = .yes ]; then
2482 if [ ".$opt_v" = .yes ]; then
2483 echo "file \`$file' -- skipped" 1>&2
2484 fi
2485 continue
2486 fi
2487 fi
2489 # apply sed(1) operation(s)
2490 if [ ".$opt_v" = .yes ]; then
2491 echo "patching \`$file'" 1>&2
2492 fi
2493 if [ ".$opt_t" = .yes ]; then
2494 echo "\$ cp -p $file $file$orig"
2495 echo "\$ chmod u+w $file"
2496 echo "\$ $sedcmd <$file$orig >$file"
2497 fi
2498 if [ ".$opt_n" = .no ]; then
2499 cp -p $file $file$orig
2500 chmod u+w $file >/dev/null 2>&1 || true
2501 eval "$sedcmd <$file$orig >$file"
2502 fi
2504 # optionally fix timestamp
2505 if [ ".$opt_s" = .yes ]; then
2506 if [ ".$opt_t" = .yes ]; then
2507 echo "\$ touch -r $file$orig $file"
2508 fi
2509 if [ ".$opt_n" = .no ]; then
2510 touch -r $file$orig $file
2511 fi
2512 fi
2514 # optionally check whether any content change actually occurred
2515 if [ ".$opt_q" = .no ]; then
2516 if cmp $file$orig $file >/dev/null 2>&1; then
2517 if [ ".$opt_w" = .yes ]; then
2518 echo "$msgprefix:Warning: substitution resulted in no content change on file \"$file\"" 1>&2
2519 fi
2520 else
2521 substdone=yes
2522 fi
2523 fi
2525 # optionally remove preserved original file
2526 if [ ".$opt_b" = . ]; then
2527 if [ ".$opt_t" = .yes ]; then
2528 echo "\$ rm -f $file$orig"
2529 fi
2530 if [ ".$opt_n" = .no ]; then
2531 rm -f $file$orig
2532 fi
2533 fi
2534 done
2535 if [ ".$opt_q" = .no ] && [ ".$opt_w" = .no ]; then
2536 if [ ".$substdone" = .no ]; then
2537 if [ ".$files_num" = .1 ]; then
2538 echo "$msgprefix:Warning: substitution resulted in no content change on file \"$file\"" 1>&2
2539 else
2540 echo "$msgprefix:Warning: substitution resulted in no content change on any file" 1>&2
2541 fi
2542 fi
2543 fi
2544 else
2545 # apply operation(s) to stdin/stdout
2546 if [ ".$opt_v" = .yes ]; then
2547 echo "patching <stdin>" 1>&2
2548 fi
2549 if [ ".$opt_t" = .yes ]; then
2550 echo "\$ $sedcmd"
2551 fi
2552 if [ ".$opt_n" = .no ]; then
2553 eval "$sedcmd"
2554 fi
2555 fi
2557 shtool_exit 0
2558 ;;
2560 platform )
2561 ##
2562 ## platform -- Platform Identification Utility
2563 ## Copyright (c) 2003-2007 Ralf S. Engelschall <rse@engelschall.com>
2564 ##
2566 # option post-processing
2567 if [ ".$opt_t" != . ]; then
2568 case "$opt_t" in
2569 binary )
2570 # binary package id (OpenPKG RPM)
2571 opt_F="%<ap>-%<sp>"
2572 opt_L=yes
2573 opt_S=""
2574 opt_C="+"
2575 ;;
2576 build )
2577 # build time checking (OpenPKG RPM)
2578 opt_F="%<at>-%<st>"
2579 opt_L=yes
2580 opt_S=""
2581 opt_C="+"
2582 ;;
2583 gnu )
2584 # GNU config.guess style <arch>-<vendor>-<os><osversion>
2585 opt_F="%<at>-unknown-%<st>"
2586 opt_L=yes
2587 opt_S=""
2588 opt_C="+"
2589 ;;
2590 web )
2591 # non-whitespace HTTP Server-header id
2592 opt_F="%<sp>-%<ap>"
2593 opt_S="/"
2594 opt_C="+"
2595 ;;
2596 summary)
2597 # human readable verbose summary information
2598 opt_F="Class: %[sc] (%[ac])\\nProduct: %[sp] (%[ap])\\nTechnology: %[st] (%[at])"
2599 opt_S=" "
2600 opt_C="/"
2601 ;;
2602 all-in-one )
2603 # full-table all-in-one information
2604 opt_F=""
2605 opt_F="${opt_F}concise architecture class: %<ac>\\n"
2606 opt_F="${opt_F}regular architecture class: %{ac}\\n"
2607 opt_F="${opt_F}verbose architecture class: %[ac]\\n"
2608 opt_F="${opt_F}concise architecture product: %<ap>\\n"
2609 opt_F="${opt_F}regular architecture product: %{ap}\\n"
2610 opt_F="${opt_F}verbose architecture product: %[ap]\\n"
2611 opt_F="${opt_F}concise architecture technology: %<at>\\n"
2612 opt_F="${opt_F}regular architecture technology: %{at}\\n"
2613 opt_F="${opt_F}verbose architecture technology: %[at]\\n"
2614 opt_F="${opt_F}concise system class: %<sc>\\n"
2615 opt_F="${opt_F}regular system class: %{sc}\\n"
2616 opt_F="${opt_F}verbose system class: %[sc]\\n"
2617 opt_F="${opt_F}concise system product: %<sp>\\n"
2618 opt_F="${opt_F}regular system product: %{sp}\\n"
2619 opt_F="${opt_F}verbose system product: %[sp]\\n"
2620 opt_F="${opt_F}concise system technology: %<st>\\n"
2621 opt_F="${opt_F}regular system technology: %{st}\\n"
2622 opt_F="${opt_F}verbose system technology: %[st]"
2623 ;;
2624 * )
2625 echo "$msgprefix:Error: invalid type \`$opt_t'" 1>&2
2626 exit 1
2627 ;;
2628 esac
2629 fi
2631 # assemble initial platform information
2632 UNAME_MACHINE=`(uname -m) 2>/dev/null` ||\
2633 UNAME_MACHINE=`(uname -p) 2>/dev/null` ||\
2634 UNAME_MACHINE='unknown'
2635 UNAME_SYSTEM=`(uname -s) 2>/dev/null` ||\
2636 UNAME_SYSTEM='unknown'
2637 UNAME_RELEASE=`(uname -r) 2>/dev/null` ||\
2638 UNAME_RELEASE=`(uname -v) 2>/dev/null` ||\
2639 UNAME_RELEASE='unknown'
2641 UNAME="${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}"
2643 AC=""; AP=""; AT=""
2644 SC=""; SP=""; ST=""
2646 # dispatch into platform specific sections
2647 case "${UNAME}" in
2649 # FreeBSD
2650 *:FreeBSD:* )
2651 # determine architecture
2652 AC="${UNAME_MACHINE}"
2653 case "${AC}" in
2654 i386 ) AC="iX86" ;;
2655 esac
2656 AP="${AC}"
2657 AT="${AP}"
2658 if [ ".${AT}" = ".iX86" ]; then
2659 case "`(/sbin/sysctl -n hw.model) 2>&1`" in
2660 *"Xeon"* | *"Pentium Pro"* | *"Cyrix 6x86MX"* | *"Pentium II"* | *"Pentium III"* | *"Pentium 4"* | *"Celeron"* ) AT="i686" ;;
2661 *"Pentium"* ) AT="i586" ;; *"i486[SD]X"* | *"Cyrix 486"* | *"Cyrix [56]x86"* | *"Blue Lightning" | *"Cyrix 486S/DX" ) AT="i486" ;;
2662 *"i386[SD]X"* | *"NexGen 586"* ) AT="i386" ;;
2663 esac
2664 fi
2665 # determine system
2666 r=`echo "${UNAME_RELEASE}" |\
2667 sed -e 's;[()];;' -e 's/\(-.*\)$/[\1]/'`
2668 ST="FreeBSD ${r}"
2669 SP="${ST}"
2670 case "${r}" in
2671 1.* ) SC="4.3BSD" ;;
2672 * ) SC="4.4BSD" ;;
2673 esac
2674 ;;
2676 # NetBSD
2677 *:NetBSD:* )
2678 # determine architecture
2679 AT="${UNAME_MACHINE}"
2680 AP="${AT}"
2681 case "${AP}" in
2682 i[3-6]86 ) AP="iX86" ;;
2683 esac
2684 AC="${AP}"
2685 # determine system
2686 r=`echo "${UNAME_RELEASE}" | sed -e 's/\([-_].*\)$/[\1]/'`
2687 ST="NetBSD ${r}"
2688 SP="${ST}"
2689 case "${r}" in
2690 0.* ) SC="4.3BSD" ;;
2691 * ) SC="4.4BSD" ;;
2692 esac
2693 ;;
2695 # OpenBSD
2696 *:OpenBSD:* )
2697 # determine architecture
2698 AT="${UNAME_MACHINE}"
2699 AP="${AT}"
2700 case "${AP}" in
2701 i[3-6]86 ) AP="iX86" ;;
2702 esac
2703 AC="${AP}"
2704 # determine system
2705 r=`echo "${UNAME_RELEASE}" | sed -e 's/\([-_].*\)$/[\1]/'`
2706 ST="OpenBSD ${r}"
2707 SP="${ST}"
2708 SC="4.4BSD"
2709 ;;
2711 # GNU/Linux
2712 *:Linux:* )
2713 # determine architecture
2714 AT="${UNAME_MACHINE}"
2715 case "${AT}" in
2716 ia64 ) AT="IA64" ;;
2717 x86_64 ) AT='AMD64' ;;
2718 parisc ) AT="HPPA32" ;;
2719 parisc64 ) AT="HPPA64" ;;
2720 esac
2721 AP="${AT}"
2722 case "${AP}" in
2723 i[3-6]86 ) AP='iX86' ;;
2724 esac
2725 AC="${AP}"
2726 # determine system
2727 v_kern=`echo "${UNAME_RELEASE}" |\
2728 sed -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\).*/\1/'`
2729 v_libc=`(strings /lib/libc.so.* | grep '^GLIBC_' | sed -e 's/^GLIBC_//' |\
2730 env -i sort -n | sed -n -e '$p' | sed -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\).*/\1/') 2>/dev/null`
2731 ST="GNU/<Linux >${v_libc}/<${v_kern}>"
2732 if [ -f /etc/lsb-release ]; then
2733 eval `( . /etc/lsb-release
2734 echo "SC=\"LSB${LSB_VERSION}\""
2735 if [ ".${DISTRIB_ID}" != . -a ".${DISTRIB_RELEASE}" != . ]; then
2736 echo "SP=\"${DISTRIB_ID} ${DISTRIB_RELEASE}\""
2737 fi
2738 ) 2>/dev/null`
2739 fi
2740 if [ ".$SP" = . ]; then
2741 for tagfile in x \
2742 `cd /etc && \
2743 /bin/ls *[_-]release *[_-]version 2>/dev/null | env -i sort | \
2744 sed -e '/^redhat-release$/d' -e '/^lsb-release$/d'; \
2745 echo redhat-release lsb-release`
2746 do
2747 [ ".${tagfile}" = .x ] && continue
2748 [ ! -f "/etc/${tagfile}" ] && continue
2749 n=`echo ${tagfile} | sed -e 's/[_-]release$//' -e 's/[_-]version$//'`
2750 v=`(grep VERSION /etc/${tagfile}; cat /etc/${tagfile}) | grep '[0-9]' | sed -e 'q' |\
2751 sed -e 's/^/#/' \
2752 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \
2753 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \
2754 -e 's/^#[^0-9]*\([0-9][0-9]*\).*$/\1/' \
2755 -e 's/^#.*$//'`
2756 case "`util_lower ${n}`" in
2757 redhat )
2758 if [ ".`egrep '(Red Hat Enterprise Linux|CentOS)' /etc/${tagfile}`" != . ]; then
2759 n="<R>ed <H>at <E>nterprise <L>inux"
2760 else
2761 n="<R>ed <H>at <L>inux"
2762 fi
2763 ;;
2764 debian ) n="Debian[ GNU/Linux]" ;;
2765 ubuntu ) n="Ubuntu[ GNU/Linux]" ;;
2766 fedora ) n="<Fedora> Core[ GNU/Linux]" ;;
2767 suse ) n="[Novell ]SUSE[ Linux]" ;;
2768 mandrake*|mandriva ) n="Mandriva[ Linux]" ;;
2769 gentoo ) n="Gentoo[ GNU/Linux]" ;;
2770 slackware ) n="Slackware[ Linux]" ;;
2771 turbolinux ) n="TurboLinux" ;;
2772 unitedlinux ) n="UnitedLinux" ;;
2773 * ) n="${n}[ GNU/Linux]" ;;
2774 esac
2775 case "$n" in
2776 *"<"*">"* ) SP="$n <$v>" ;;
2777 * ) SP="$n $v" ;;
2778 esac
2779 break
2780 done
2781 fi
2782 [ ".$SP" = . ] && SP="${ST}"
2783 [ ".$SC" = . ] && SC="LSB"
2784 ;;
2786 # Sun Solaris
2787 *:SunOS:* )
2788 # determine architecture
2789 AT="${UNAME_MACHINE}"
2790 case "${AT}" in
2791 i86pc )
2792 AT="iX86"
2793 case "`(/bin/isainfo -k) 2>&1`" in
2794 amd64 ) AT="AMD64" ;;
2795 esac
2796 ;;
2797 esac
2798 AP="${AT}"
2799 case "${AP}" in
2800 sun4[cdm] ) AP="SPARC32" ;;
2801 sun4[uv] ) AP="SPARC64" ;;
2802 sun4* ) AP="SPARC" ;;
2803 esac
2804 AC="${AP}"
2805 case "${AC}" in
2806 SPARC* ) AC="SPARC" ;;
2807 esac
2808 # determine system
2809 ST="[Sun ]SunOS ${UNAME_RELEASE}"
2810 v=`echo "${UNAME_RELEASE}" |\
2811 sed -e 's;^4\.;1.;' \
2812 -e 's;^5\.\([0-6]\)[^0-9]*$;2.\1;' \
2813 -e 's;^5\.\([0-9][0-9]*\).*;\1;'`
2814 SP="[Sun ]Solaris $v"
2815 case "${UNAME_RELEASE}" in
2816 4.* ) SC="4.3BSD" ;;
2817 5.* ) SC="SVR4" ;;
2818 esac
2819 ;;
2821 # SCO UnixWare
2822 *:UnixWare:* )
2823 # determine architecture
2824 AT="${UNAME_MACHINE}"
2825 case "${AT}" in
2826 i[3-6]86 | ix86at ) AT="iX86" ;;
2827 esac
2828 AP="${AT}"
2829 # determine system
2830 v=`/sbin/uname -v`
2831 ST="[SCO ]UnixWare ${v}"
2832 SP="${ST}"
2833 SC="SVR${UNAME_RELEASE}"
2834 ;;
2836 # QNX
2837 *:QNX:* )
2838 # determine architecture
2839 AT="${UNAME_MACHINE}"
2840 case "${AT}" in
2841 x86pc ) AT="iX86" ;;
2842 esac
2843 AP="${AT}"
2844 # determine system
2845 v="${UNAME_RELEASE}"
2846 ST="QNX[ Neutrino RTOS] ${v}"
2847 v=`echo "${v}" | sed -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\).*$;\1;'`
2848 SP="QNX[ Neutrino RTOS] ${v}"
2849 SC="QNX"
2850 ;;
2852 # SGI IRIX
2853 *:IRIX*:* )
2854 # determine architecture
2855 AT="${UNAME_MACHINE}"
2856 AP="${AT}"
2857 case "${AP}:${UNAME_SYSTEM}" in
2858 IP*:IRIX64 ) AP="MIPS64" ;;
2859 IP*:* ) AP="MIPS" ;;
2860 esac
2861 AC="${AP}"
2862 # determine system
2863 v=`(/bin/uname -R || /bin/uname -r) 2>/dev/null | sed -e 's;[0-9.]* ;;'`
2864 ST="[SGI ]IRIX ${v}"
2865 v="${UNAME_RELEASE}"
2866 SP="[SGI ]IRIX ${v}"
2867 SC="4.2BSD/SVR3"
2868 ;;
2870 # HP HP-UX
2871 *:HP-UX:* )
2872 # determine architecture
2873 AT="${UNAME_MACHINE}"
2874 case "${AT}" in
2875 ia64 ) AT="IA64" ;;
2876 9000/[34]?? ) AT=M68K ;;
2877 9000/[678][0-9][0-9])
2878 sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
2879 sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
2880 case "${sc_cpu_version}" in
2881 523 ) AT="HPPA1.0" ;;
2882 528 ) AT="HPPA1.1" ;;
2883 532 ) AT="HPPA2.0"
2884 case "${sc_kernel_bits}" in
2885 32 ) AT="${AT}n" ;;
2886 64 ) AT="${AT}w" ;;
2887 esac
2888 ;;
2889 esac
2890 ;;
2891 esac
2892 AP="${AT}"
2893 case "${AP}" in
2894 HPPA* ) AP="HPPA" ;;
2895 esac
2896 AC="${AP}"
2897 # determine system
2898 v=`echo "${UNAME_RELEASE}" | sed -e 's;^[^0-9]*;;'`
2899 ST="[HP ]<HP>-<UX ${v}>"
2900 SP="${ST}"
2901 case "${v}" in
2902 10.* ) SC="SVR4.2" ;;
2903 [7-9]* ) SC="SVR4" ;;
2904 esac
2905 ;;
2907 # HP Tru64 (OSF1)
2908 *:OSF1:* )
2909 # determine architecture
2910 AP="${UNAME_MACHINE}"
2911 case "${AP}" in
2912 alpha ) AP="Alpha" ;;
2913 esac
2914 alpha_type=`(/usr/sbin/psrinfo -v) 2>/dev/null |\
2915 sed -n -e 's/^.*The alpha \([^ ][^ ]*\).*processor.*$/\1/p' | sed -e 'q'`
2916 AT="${AP}${alpha_type}"
2917 AC="${AP}"
2918 # determine system
2919 v=`echo "${UNAME_RELEASE}" | sed -e 's;^[VTX];;'`
2920 ST="[HP ]Tru64 ${v}"
2921 SP="${ST}"
2922 SC="OSF1"
2923 ;;
2925 # IBM AIX
2926 *:AIX:* )
2927 # determine architecture
2928 cpu_arch=rs6000
2929 if [ -x /usr/sbin/lsdev -a -x /usr/sbin/lsattr ]; then
2930 cpu_id=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
2931 if [ ".`/usr/sbin/lsattr -El ${cpu_id} | grep -i powerpc`" != . ]; then
2932 cpu_arch=powerpc
2933 fi
2934 elif [ -d /QOpenSys ]; then
2935 # IBM i5/OS (aka OS/400) with PASE (Portable Application Solutions Environment)
2936 cpu_arch=powerpc
2937 fi
2938 if [ -x /usr/bin/oslevel ]; then
2939 os_level=`/usr/bin/oslevel`
2940 else
2941 os_level="`uname -v`.`uname -r`"
2942 fi
2943 os_level=`echo "${os_level}" |\
2944 sed -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\)\(\.[0-9][0-9]*\)\(.*\)$;<\1>\2[\3];' \
2945 -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\)\(.*\)$;<\1>\2;'`
2946 AT="${cpu_arch}"
2947 AP="${AT}"
2948 AC="${AP}"
2949 # determine system
2950 ST="[IBM ]<AIX >${os_level}"
2951 SP="${ST}"
2952 case "${os_level}" in
2953 [12]* ) SC="SVR2" ;;
2954 * ) SC="SVR4" ;;
2955 esac
2956 ;;
2958 # Apple Mac OS X (Darwin)
2959 *:Darwin:* )
2960 # determine architecture
2961 AT="`uname -p`"
2962 case "${AT}" in
2963 powerpc ) AT="PPC" ;;
2964 esac
2965 AP="${AT}"
2966 case "${AP}" in
2967 i?86 ) AP="iX86" ;;
2968 esac
2969 AC="${AP}"
2970 # determine system
2971 unset v1; unset v2; unset v3
2972 eval `echo "${UNAME_RELEASE}" |\
2973 sed -e 's/^/#/' \
2974 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"; v3="\3"/' \
2975 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"/' \
2976 -e 's/^#\([0-9][0-9]*\).*$/v1="\1"/' \
2977 -e 's/^#.*$/v1="0"/'`
2978 ST="[Apple ]<${UNAME_SYSTEM} ${v1}>${v2+.$v2}${v3+[.$v3]}"
2979 SP="$ST"
2980 v="`(sw_vers) 2>/dev/null | grep 'ProductVersion:' | sed -e 's/^ProductVersion:[^0-9]*\([0-9][0-9.]*\).*$/\1/'`"
2981 if [ ".$v" = . ]; then
2982 for name in System Server; do
2983 if [ -f /System/Library/CoreServices/${name}Version.plist ]; then
2984 v=`(defaults read "/System/Library/CoreServices/${name}Version" "ProductVersion") 2>/dev/null`
2985 [ ".$v" != . ] && break
2986 fi
2987 done
2988 fi
2989 if [ ".$v" != . ]; then
2990 unset v1; unset v2; unset v3
2991 eval `echo "${v}" |\
2992 sed -e 's/^/#/' \
2993 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"; v3="\3"/' \
2994 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"/' \
2995 -e 's/^#\([0-9][0-9]*\).*$/v1="\1"/' \
2996 -e 's/^#.*$/v1="0"/'`
2997 SP="[Apple ]Mac OS X ${v1}${v2+.$v2}${v3+[.$v3]}"
2998 fi
2999 SC="4.4BSD/Mach3.0"
3000 ;;
3002 # TODO ...ADD YOUR NEW PLATFORM CHECK HERE... TODO
3003 # *:XXX:* )
3004 # ...
3005 # ;;
3007 # ...A STILL UNKNOWN PLATFORM...
3008 * )
3009 AT=`echo "${UNAME_MACHINE}" | sed -e "s; ;${opt_C};g"`
3010 AP="${AT}"
3011 AC="${AP}"
3012 v=`echo "${UNAME_RELEASE}" |\
3013 sed -e 's/^/#/' \
3014 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \
3015 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \
3016 -e 's/^#[^0-9]*\([0-9][0-9]*\).*$/\1/' \
3017 -e 's/^#.*$/?/'`
3018 ST="${UNAME_SYSTEM} ${v}"
3019 SP="${ST}"
3020 SC="${SP}"
3021 ;;
3023 esac
3025 # provide fallback values
3026 [ ".$AT" = . ] && AT="${AP:-${AC}}"
3027 [ ".$AP" = . ] && AP="${AT:-${AC}}"
3028 [ ".$AC" = . ] && AC="${AP:-${AT}}"
3029 [ ".$ST" = . ] && ST="${SP:-${SC}}"
3030 [ ".$SP" = . ] && SP="${ST:-${SC}}"
3031 [ ".$SC" = . ] && SC="${SP:-${ST}}"
3033 # support explicit enforced verbose/concise output
3034 if [ ".$opt_v" = .yes ]; then
3035 opt_F=`echo ":$opt_F" | sed -e 's/^://' -e 's/%\([as][cpt]\)/%[\1]/g'`
3036 elif [ ".$opt_c" = .yes ]; then
3037 opt_F=`echo ":$opt_F" | sed -e 's/^://' -e 's/%\([as][cpt]\)/%<\1>/g'`
3038 fi
3040 # provide verbose and concise variants
3041 AC_V=""; AC_N=""; AC_C=""
3042 AP_V=""; AP_N=""; AP_C=""
3043 AT_V=""; AT_N=""; AT_C=""
3044 SC_V=""; SC_N=""; SC_C=""
3045 SP_V=""; SP_N=""; SP_C=""
3046 ST_V=""; ST_N=""; ST_C=""
3047 for var_lc in at ap ac st sp sc; do
3048 case "$opt_F" in
3049 *"%[${val_lc}]"* | *"%{${val_lc}}"* | *"%${val_lc}"* | *"%<${val_lc}>"* )
3050 var_uc=`util_upper "$var_lc"`
3051 eval "val=\"\$${var_uc}\""
3052 val_V=""; val_N=""; val_C=""
3053 case "$opt_F" in
3054 *"%[${var_lc}]"* )
3055 val_V=`echo ":$val" | \
3056 sed -e 's/^://' \
3057 -e 's;\[\([^]]*\)\];\1;g' \
3058 -e 's;<\([^>]*\)>;\1;g' \
3059 -e "s; ;§§;g" \
3060 -e "s;/;%%;g" \
3061 -e "s;§§;${opt_S};g" \
3062 -e "s;%%;${opt_C};g"`
3063 eval "${var_uc}_V=\"\${val_V}\""
3064 ;;
3065 esac
3066 case "$opt_F" in
3067 *"%{${var_lc}}"* | *"%${var_lc}"* )
3068 val_N=`echo ":$val" | \
3069 sed -e 's/^://' \
3070 -e 's;\[\([^]]*\)\];;g' \
3071 -e 's;<\([^>]*\)>;\1;g' \
3072 -e "s; ;§§;g" \
3073 -e "s;/;%%;g" \
3074 -e "s;§§;${opt_S};g" \
3075 -e "s;%%;${opt_C};g"`
3076 eval "${var_uc}_N=\"\${val_N}\""
3077 ;;
3078 esac
3079 case "$opt_F" in
3080 *"%<${var_lc}>"* )
3081 val_C=`echo ":$val" | \
3082 sed -e 's/^://' \
3083 -e 's;\[\([^]]*\)\];;g' \
3084 -e 's;[^<]*<\([^>]*\)>[^<]*;\1;g' \
3085 -e "s; ;§§;g" \
3086 -e "s;/;%%;g" \
3087 -e "s;§§;${opt_S};g" \
3088 -e "s;%%;${opt_C};g"`
3089 eval "${var_uc}_C=\"\${val_C}\""
3090 ;;
3091 esac
3092 ;;
3093 esac
3094 done
3096 # create output string
3097 output=`echo ":$opt_F" |\
3098 sed -e "s/^://" \
3099 -e "s;%\\[ac\\];${AC_V};g" \
3100 -e "s;%{ac};${AC_N};g" \
3101 -e "s;%ac;${AC_N};g" \
3102 -e "s;%<ac>;${AC_C};g" \
3103 -e "s;%\\[ap\\];${AP_V};g" \
3104 -e "s;%{ap};${AP_N};g" \
3105 -e "s;%ap;${AP_N};g" \
3106 -e "s;%<ap>;${AP_C};g" \
3107 -e "s;%\\[at\\];${AT_V};g" \
3108 -e "s;%{at};${AT_N};g" \
3109 -e "s;%at;${AT_N};g" \
3110 -e "s;%<at>;${AT_C};g" \
3111 -e "s;%\\[sc\\];${SC_V};g" \
3112 -e "s;%{sc};${SC_N};g" \
3113 -e "s;%sc;${SC_N};g" \
3114 -e "s;%<sc>;${SC_C};g" \
3115 -e "s;%\\[sp\\];${SP_V};g" \
3116 -e "s;%{sp};${SP_N};g" \
3117 -e "s;%sp;${SP_N};g" \
3118 -e "s;%<sp>;${SP_C};g" \
3119 -e "s;%\\[st\\];${ST_V};g" \
3120 -e "s;%{st};${ST_N};g" \
3121 -e "s;%st;${ST_N};g" \
3122 -e "s;%<st>;${ST_C};g" \
3123 -e 's/\\\\n/^/g' |\
3124 tr '^' '\012'`
3126 # support lower/upper-case mapping
3127 if [ ".$opt_L" = .yes ]; then
3128 output=`util_lower "$output"`
3129 elif [ ".$opt_U" = .yes ]; then
3130 output=`util_upper "$output"`
3131 fi
3133 # display output string
3134 if [ ".$opt_n" = .yes ]; then
3135 echo . | awk '{ printf("%s", output); }' output="$output"
3136 else
3137 echo "$output"
3138 fi
3140 shtool_exit 0
3141 ;;
3143 arx )
3144 ##
3145 ## arx -- Extended archive command
3146 ## Copyright (c) 1999-2007 Ralf S. Engelschall <rse@engelschall.com>
3147 ##
3149 ar_prg="$opt_C"
3150 ar_cmd="$1"; shift
3151 archive="$1"; shift
3152 files="$*"
3154 # walk through the file list and expand archives members
3155 ar_tmpdir=`echo $archive | sed -e 's;[^/]*$;.arx;'`
3156 nfiles=''
3157 if [ ".$files" != . ]; then
3158 for file in $files; do
3159 if [ ! -f $file ]; then
3160 echo "$msgprefix:Error: input file not found: $file" 1>&2
3161 shtool_exit 1
3162 fi
3163 case $file in
3164 *.a )
3165 if [ ! -d $ar_tmpdir ]; then
3166 if [ ".$opt_t" = .yes ]; then
3167 echo "mkdir $ar_tmpdir" 1>&2
3168 fi
3169 mkdir $ar_tmpdir
3170 fi
3171 case $ar_tmpdir in
3172 .arx )
3173 from="../$file"
3174 ;;
3175 * )
3176 dir=`echo $file | sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;'`
3177 base=`echo $file | sed -e 's;.*/\([^/]*\)$;\1;'`
3178 from="`cd $dir; pwd`/$base"
3179 ;;
3180 esac
3181 if [ ".$opt_t" = .yes ]; then
3182 echo "(cd $ar_tmpdir && $ar_prg x $from)" 1>&2
3183 fi
3184 (cd $ar_tmpdir && eval $ar_prg x $from)
3185 if [ $? -ne 0 ]; then
3186 echo "$msgprefix:Error: member extraction failed for archive: $file" 1>&2
3187 shtool_exit 1
3188 fi
3189 for member in - `eval $ar_prg t $file | sed -e '/_\.SYMDEF/d'`; do
3190 [ ".$member" = .- ] && continue
3191 nfiles="$nfiles $ar_tmpdir/$member"
3192 done
3193 ;;
3194 * )
3195 nfiles="$nfiles $file"
3196 ;;
3197 esac
3198 done
3199 fi
3201 # run the final archive command
3202 if [ ".$opt_t" = .yes ]; then
3203 echo "$ar_prg $ar_cmd $archive $nfiles" 1>&2
3204 fi
3205 eval $ar_prg $ar_cmd $archive $nfiles
3206 if [ $? -ne 0 ]; then
3207 echo "$msgprefix:Error: archive command failed" 1>&2
3208 shtool_exit $?
3209 fi
3211 # cleanup and die gracefully
3212 if [ -d $ar_tmpdir ]; then
3213 if [ ".$opt_t" = .yes ]; then
3214 echo "rm -rf $ar_tmpdir" 1>&2
3215 fi
3216 rm -rf $ar_tmpdir
3217 fi
3219 shtool_exit 0
3220 ;;
3222 slo )
3223 ##
3224 ## slo -- Separate linker options by library class
3225 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
3226 ##
3228 DIFS="$IFS"
3230 # parse out -L and -l options from command line
3231 DIRS=''
3232 LIBS=''
3233 ARGV=''
3234 optprev=''
3235 for opt
3236 do
3237 # concatenate with previous option if exists
3238 if [ ".$optprev" != . ]; then
3239 opt="${optprev}${opt}";
3240 optprev=''
3241 fi
3242 # remember options for arg if used stand-alone
3243 if [ ".$opt" = ".-L" ] || [ ".$opt" = ".-l" ]; then
3244 optprev="$opt"
3245 continue;
3246 fi
3247 # split argument into option plus option argument
3248 arg="`echo $opt | cut -c3-`"
3249 opt="`echo $opt | cut -c1-2`"
3250 # store into containers
3251 case $opt in
3252 -L) DIRS="$DIRS:$arg" ;;
3253 -l) LIBS="$LIBS:$arg" ;;
3254 *) ARGV="$ARGV $opt" ;;
3255 esac
3256 done
3258 # set linker default directories
3259 DIRS_DEFAULT='/lib:/usr/lib'
3260 if [ ".$LD_LIBRARY_PATH" != . ]; then
3261 DIRS_DEFAULT="$DIRS_DEFAULT:$LD_LIBRARY_PATH"
3262 fi
3264 # sort options by class
3265 DIRS_OBJ=''
3266 LIBS_OBJ=''
3267 DIRS_PIC=''
3268 LIBS_PIC=''
3269 DIRS_DSO=''
3270 LIBS_DSO=''
3272 # for each library...
3273 OIFS="$IFS"; IFS=':'
3274 for lib in $LIBS; do
3275 [ ".$lib" = . ] && continue
3277 found='no'
3278 found_indefdir='no'
3279 found_type=''
3280 found_dir=''
3282 # for each directory...
3283 OIFS2="$IFS"; IFS=":$DIFS"
3284 for dir in ${DIRS} switch-to-defdirs ${DIRS_DEFAULT}; do
3285 [ ".$dir" = . ] && continue
3286 [ ".$dir" = .switch-to-defdirs ] && found_indefdir=yes
3287 [ ! -d $dir ] && continue
3289 # search the file
3290 OIFS3="$IFS"; IFS="$DIFS"
3291 for file in '' `cd $dir && env -i /bin/ls lib${lib}.* 2>/dev/null`; do
3292 [ ".$file" = . ] && continue
3293 case $file in
3294 *.so|*.so.[0-9]*|*.sl|*.sl.[0-9]* )
3295 found=yes;
3296 found_type=DSO;
3297 break
3298 ;;
3299 *.lo|*.la )
3300 found=yes;
3301 found_type=PIC
3302 ;;
3303 *.a )
3304 if [ ".$found_type" = . ]; then
3305 found=yes
3306 found_type=OBJ
3307 fi
3308 ;;
3309 esac
3310 done
3311 IFS="$OIFS3"
3312 if [ ".$found" = .yes ]; then
3313 found_dir="$dir"
3314 break
3315 fi
3316 done
3317 IFS="$OIFS2"
3319 if [ ".$found" = .yes ]; then
3320 if [ ".$found_indefdir" != .yes ]; then
3321 eval "dirlist=\"\${DIRS_${found_type}}:\""
3322 case "$dirlist" in
3323 *:$found_dir:* ) ;;
3324 * ) eval "DIRS_${found_type}=\"\$DIRS_${found_type}:${found_dir}\"" ;;
3325 esac
3326 eval "LIBS_${found_type}=\"\$LIBS_${found_type}:$lib\""
3327 else
3328 eval "LIBS_${found_type}=\"\$LIBS_${found_type}:$lib\""
3329 fi
3330 else
3331 LIBS_OBJ="$LIBS_OBJ:$lib"
3332 #dirlist="`echo $DIRS $DIRS_DEFAULT | sed -e 's/:/ /g'`"
3333 #echo "slo:Warning: library \"$lib\" not found in any of the following dirs:" 2>&1
3334 #echo "slo:Warning: $dirlist" 1>&1
3335 fi
3336 done
3337 IFS="$OIFS"
3339 # also pass-through unused dirs even if it's useless
3340 OIFS="$IFS"; IFS=':'
3341 for dir in $DIRS; do
3342 dirlist="${DIRS_OBJ}:${DIRS_PIC}:${DIRS_DSO}:"
3343 case "$dirlist" in
3344 *:$dir:* ) ;;
3345 * ) DIRS_OBJ="$DIRS_OBJ:$dir" ;;
3346 esac
3347 done
3348 IFS="$OIFS"
3350 # reassemble the options but separated by type
3351 for type in OBJ PIC DSO; do
3352 OIFS="$IFS"; IFS=':'
3353 eval "libs=\"\$LIBS_${type}\""
3354 opts=''
3355 for lib in $libs; do
3356 [ ".$lib" = . ] && continue
3357 opts="$opts -l$lib"
3358 done
3359 eval "LIBS_${type}=\"$opts\""
3361 eval "dirs=\"\$DIRS_${type}\""
3362 opts=''
3363 for dir in $dirs; do
3364 [ ".$dir" = . ] && continue
3365 opts="$opts -L$dir"
3366 done
3367 eval "DIRS_${type}=\"$opts\""
3368 IFS="$OIFS"
3369 done
3371 # give back results
3372 for var in ARGV DIRS_OBJ LIBS_OBJ DIRS_PIC LIBS_PIC DIRS_DSO LIBS_DSO; do
3373 eval "val=\"\$${var}\""
3374 val="`echo $val | sed -e 's/^ *//'`"
3375 echo "${opt_p}${var}=\"${val}\""
3376 done
3378 shtool_exit 0
3379 ;;
3381 scpp )
3382 ##
3383 ## scpp -- Sharing C Pre-Processor
3384 ## Copyright (c) 1999-2007 Ralf S. Engelschall <rse@engelschall.com>
3385 ##
3387 srcs="$*"
3388 output="${opt_o}.n"
3390 # find a reasonable Awk
3391 awk=''
3392 paths=`echo $PATH |\
3393 sed -e 's%/*:%:%g' -e 's%/$%%' \
3394 -e 's/^:/.:/' -e 's/::/:.:/g' -e 's/:$/:./' \
3395 -e 's/:/ /g'`
3396 for name in gawk nawk awk; do
3397 for path in $paths; do
3398 if [ -r "$path/$name" ]; then
3399 awk="$path/$name"
3400 break
3401 fi
3402 done
3403 if [ ".$awk" != . ]; then
3404 break
3405 fi
3406 done
3407 if [ ".$awk" = . ]; then
3408 echo "$msgprefix:Error: cannot find a reasonable Awk" 1>&2
3409 shtool_exit 1
3410 fi
3412 # parse source file(s)
3413 if [ ".$opt_v" = .yes ]; then
3414 echo "Parsing:" | $awk '{ printf("%s", $0); }' 1>&2
3415 fi
3416 for src in $srcs; do
3417 if [ ".$opt_v" = .yes ]; then
3418 echo $src | $awk '{ printf(" %s", $0); }' 1>&2
3419 fi
3420 if [ ".$opt_f" != . ]; then
3421 inputcmd="sed"
3422 OIFS="$IFS"; IFS="$ASC_NL"; set -- $opt_f; IFS="$OIFS"
3423 for e
3424 do
3425 inputcmd="$inputcmd -e '$e'"
3426 done
3427 inputcmd="$inputcmd '$src'"
3428 else
3429 inputcmd="cat '$src'"
3430 fi
3431 eval $inputcmd |\
3432 $awk '
3433 BEGIN {
3434 ln = 0;
3435 fln = 0;
3436 level = 0;
3437 mode = "";
3438 store = "";
3439 }
3440 {
3441 ln++;
3442 }
3443 /^#if.*/ {
3444 level++;
3445 }
3446 /^#if [a-zA-Z_][a-zA-Z0-9_]* *$/ {
3447 if ($2 == define) {
3448 mode = "D";
3449 printf("D:#line %d \"%s\"\n", ln, src);
3450 next;
3451 }
3452 }
3453 /^#endif.*/ {
3454 level--;
3455 if (mode == "D" && level == 0) {
3456 mode = "";
3457 next;
3458 }
3459 }
3460 /^[a-zA-Z_][a-zA-Z0-9_].*;.*/ {
3461 if ($1 == class) {
3462 printf("V:#line %d \"%s\"\n", ln, src);
3463 printf("V:%s\n", $0);
3464 printf("J:%s\n", $0);
3465 next;
3466 }
3467 }
3468 /^[a-zA-Z_][a-zA-Z0-9_].*=.*/ {
3469 if ($1 == class) {
3470 printf("V:#line %d \"%s\"\n", ln, src);
3471 printf("V:%s\n", $0);
3472 printf("J:%s\n", $0);
3473 next;
3474 }
3475 }
3476 /^[a-zA-Z_][a-zA-Z0-9_]*/ {
3477 if ($1 == class) {
3478 fln = ln;
3479 store = $0;
3480 mode = "F";
3481 next;
3482 }
3483 }
3484 /^\{ *$/ {
3485 if (mode == "F") {
3486 printf("F:#line %d \"%s\"\n", fln, src);
3487 printf("F:%s;\n", store);
3488 printf("I:%s;\n", store);
3489 store = "";
3490 mode = "";
3491 next;
3492 }
3493 }
3494 {
3495 if (mode == "D")
3496 printf("D:%s\n", $0);
3497 else if (mode == "F")
3498 store = store " " $0;
3499 }
3500 ' "src=$src" "define=$opt_D" "class=$opt_C" >>$tmpfile
3501 done
3502 if [ ".$opt_v" = .yes ]; then
3503 echo "" 1>&2
3504 fi
3506 # start generating output header
3507 echo "/* $opt_o -- autogenerated from $opt_t, DO NOT EDIT! */" >$output
3508 echo "#line 1 \"$opt_t\"" >>$output
3509 sed <$opt_t -e "1,/^${opt_M} *\$/p" -e 'd' |\
3510 sed -e "/^${opt_M} *\$/d" >>$output
3512 # merge in the define blocks
3513 grep '^D:' $tmpfile | sed -e 's/^D://' >>$output
3515 # generate standard prolog
3516 echo "#line 1 \"_ON_THE_FLY_\"" >>$output
3517 echo "" >>$output
3518 echo "/* make sure the scpp source extensions are skipped */" >>$output
3519 echo "#define $opt_D 0" >>$output
3520 echo "#define $opt_C /**/" >>$output
3522 # generate namespace hiding for variables
3523 echo "" >>$output
3524 echo "/* move intern variables to hidden namespace */" >>$output
3525 grep '^J:' $tmpfile | sed >>$output \
3526 -e 's/^J://' \
3527 -e 's/ */ /g' \
3528 -e 's/^[^=;]*[ *]\([a-zA-Z0-9_]*\)\[\];.*$/#define \1 __\1/' \
3529 -e 's/^[^=;]*[ *]\([a-zA-Z0-9_]*\)\[\] =.*$/#define \1 __\1/' \
3530 -e 's/^[^=;]*[ *]\([a-zA-Z0-9_]*\);.*$/#define \1 __\1/' \
3531 -e 's/^[^=;]*[ *]\([a-zA-Z0-9_]*\) =.*$/#define \1 __\1/'
3533 # generate namespace hiding for functions
3534 echo "" >>$output
3535 echo "/* move intern functions to hidden namespace */" >>$output
3536 grep '^I:' $tmpfile | sed >>$output \
3537 -e 's/^I://' \
3538 -e 's/\([ (]\) */\1/g' \
3539 -e 's/ *\([),]\)/\1/g' \
3540 -e 's/^[^(]*[ *]\([a-zA-Z0-9_]*\)(.*$/#define \1 __\1/'
3542 # generate prototypes for variables
3543 echo "" >>$output
3544 echo "/* prototypes for intern variables */" >>$output
3545 grep '^V:' $tmpfile | sed >>$output \
3546 -e 's/^V://' \
3547 -e 's/ */ /g' \
3548 -e 's/^\([^=;]*[ *][a-zA-Z0-9_]*\[\]\);.*$/\1;/' \
3549 -e 's/^\([^=;]*[ *][a-zA-Z0-9_]*\[\]\) =.*$/\1;/' \
3550 -e 's/^\([^=;]*[ *][a-zA-Z0-9_]*\);.*$/\1;/' \
3551 -e 's/^\([^=;]*[ *][a-zA-Z0-9_]*\) =.*$/\1;/' \
3552 -e 's/ ;/;/g' \
3553 -e "s/^$opt_C /extern /"
3555 # generate prototypes for functions
3556 echo "" >>$output
3557 echo "/* prototypes for intern functions */" >>$output
3558 grep '^F:' $tmpfile | sed >>$output \
3559 -e 's/^F://' \
3560 -e 's/\([ (]\) */\1/g' \
3561 -e 's/ *\([),]\)/\1/g' \
3562 -e 's/\([* ]\)[a-zA-Z0-9_]*,/\1,/g' \
3563 -e 's/\([* ]\)[a-zA-Z0-9_]*);/\1);/g' \
3564 -e 's/(\*[a-zA-Z0-9_]*)(/(*)(/g' \
3565 -e 's/\([ (]\) */\1/g' \
3566 -e 's/ *\([),]\)/\1/g' \
3567 -e "s/^$opt_C /extern /"
3569 # finish generating output header
3570 n=`(echo ''; sed <$opt_t -e "1,/^${opt_M} *\$/p" -e 'd') |\
3571 wc -l | sed -e 's;^ *\([0-9]*\) *$;\1;'`
3572 echo "#line $n \"$opt_t\"" >>$output
3573 sed <$opt_t -e "/^${opt_M} *\$/,\$p" -e 'd' |\
3574 sed -e "/^${opt_M} *\$/d" >>$output
3576 # create final output file
3577 if [ -f $opt_o ]; then
3578 if [ ".$opt_p" = .yes ]; then
3579 grep -v '^#line' $opt_o >$tmpfile.o
3580 grep -v '^#line' $output >$tmpfile.n
3581 out_old="$tmpfile.o"
3582 out_new="$tmpfile.n"
3583 else
3584 out_old="$opt_o"
3585 out_new="$output"
3586 fi
3587 if cmp -s $out_old $out_new; then
3588 :
3589 else
3590 cp $output $opt_o
3591 fi
3592 else
3593 cp $output $opt_o
3594 fi
3595 rm -f $output
3596 rm -f $tmpfile $tmpfile.* >/dev/null 2>&1
3598 shtool_exit 0
3599 ;;
3601 version )
3602 ##
3603 ## version -- Maintain a version information file
3604 ## Copyright (c) 1994-2007 Ralf S. Engelschall <rse@engelschall.com>
3605 ##
3607 file="$1"
3609 # determine prefix and name
3610 name="$opt_n"
3611 prefix="$opt_p"
3613 # determine current version
3614 triple="$opt_s"
3615 if [ ".$triple" != . ]; then
3616 # use given triple
3617 if [ ".`echo $triple | grep '[0-9]*.[0-9]*[sabp.][0-9]*'`" = . ]; then
3618 echo "$msgprefix:Error: invalid argument to option \`-s': \`$opt_s'" 1>&2
3619 shtool_exit 1
3620 fi
3621 eval `echo $triple |\
3622 sed -e 's%\([0-9]*\)\.\([0-9]*\)\([sabp.]\)\([0-9]*\).*%\
3623 ver="\1";rev="\2";typ="\3";lev="\4"%'`
3624 tim=calc
3625 elif [ -r $file ]; then
3626 # determine triple from given file
3627 eval `grep 'Version [0-9]*.[0-9]*[sabp.][0-9]* ([0-9]*-[a-zA-Z]*-[0-9]*)' $file |\
3628 sed -e 's%.*Version \([0-9]*\)\.\([0-9]*\)\([sabp.]\)\([0-9]*\) (\([0-9]*-[a-zA-Z]*-[0-9]*\)).*%\
3629 ver="\1";rev="\2";typ="\3";lev="\4";tim="\5"%' -e 'q'`
3630 else
3631 # intialise to first version
3632 ver=0
3633 rev=1
3634 typ=.
3635 lev=0
3636 tim=calc
3637 fi
3639 # determine new version in batch
3640 if [ ".$opt_i" != . ]; then
3641 case $opt_i in
3642 v ) ver=`expr $ver + 1`
3643 rev=0
3644 lev=0
3645 ;;
3646 r ) rev=`expr $rev + 1`
3647 lev=0
3648 ;;
3649 l ) lev=`expr $lev + 1`
3650 ;;
3651 * ) echo "$msgprefix:Error: invalid argument to option \`-i': \`$opt_i'" 1>&2
3652 shtool_exit 1
3653 ;;
3654 esac
3655 tim=calc
3656 fi
3658 # determine new version interactively
3659 if [ ".$opt_e" = .yes ]; then
3660 echo "old version: ${ver}.${rev}${typ}${lev}"
3661 while [ 1 ]; do
3662 echo dummy | awk '{ printf("new version: "); }'
3663 read triple
3664 case $triple in
3665 [0-9]*.[0-9]*[sabp.][0-9]* )
3666 ;;
3667 * ) echo "$msgprefix:Error: invalid version string entered: \`$triple'" 1>&2
3668 continue
3669 ;;
3670 esac
3671 break
3672 done
3673 eval `echo $triple |\
3674 sed -e 's%^\([0-9]*\)\.\([0-9]*\)\([sabp.]\)\([0-9]*\)$%\
3675 ver="\1";rev="\2";typ="\3";lev="\4"%'`
3676 tim=calc
3677 fi
3679 # determine hexadecimal and libtool value of version
3680 case $typ in
3681 a ) typnum=0; levnum=$lev ;;
3682 b ) typnum=1; levnum=$lev ;;
3683 p | . ) typnum=2; levnum=$lev ;;
3684 s ) typnum=15; levnum=255 ;; # snapshots are special
3685 esac
3686 hex=`echo "$ver:$rev:$typnum:$levnum" |\
3687 awk -F: '{ printf("0x%x%02x%1x%02x", $1, $2, $3, $4); }' |\
3688 tr 'abcdef' 'ABCDEF'`
3689 ltv=`echo "$ver:$rev:$typnum:$levnum" |\
3690 awk -F: '{ printf("%d:%d", $1*10 + $2, $3*10 + $4); }'`
3692 # determine date
3693 if [ ".$tim" = .calc ]; then
3694 day=`date '+%d'`
3695 month=`date '+%m'`
3696 year=`date '+%Y' 2>/dev/null`
3697 if [ ".$time_year" = . ]; then
3698 year=`date '+%y'`
3699 case $year in
3700 [5-9][0-9]) year="19$year" ;;
3701 [0-4][0-9]) year="20$year" ;;
3702 esac
3703 fi
3704 case $month in
3705 1|01) month='Jan' ;;
3706 2|02) month='Feb' ;;
3707 3|03) month='Mar' ;;
3708 4|04) month='Apr' ;;
3709 5|05) month='May' ;;
3710 6|06) month='Jun' ;;
3711 7|07) month='Jul' ;;
3712 8|08) month='Aug' ;;
3713 9|09) month='Sep' ;;
3714 10) month='Oct' ;;
3715 11) month='Nov' ;;
3716 12) month='Dec' ;;
3717 esac
3718 tim="${day}-${month}-${year}"
3719 fi
3721 # perform result actions
3722 mode=show
3723 if [ ".$opt_i" != . ]; then
3724 mode=edit
3725 elif [ ".$opt_e" = .yes ]; then
3726 mode=edit
3727 elif [ ".$opt_s" != . ]; then
3728 mode=edit
3729 fi
3730 if [ ".$mode" = .show ]; then
3731 # just display the current version
3732 case $opt_d in
3733 short )
3734 echo "${ver}.${rev}${typ}${lev}"
3735 ;;
3736 long )
3737 echo "${ver}.${rev}${typ}${lev} ($tim)"
3738 ;;
3739 libtool )
3740 echo "${ltv}"
3741 ;;
3742 hex )
3743 echo "${hex}"
3744 ;;
3745 * ) echo "$msgprefix:Error: invalid argument to option \`-d': \`$opt_d'" 1>&2
3746 shtool_exit 1
3747 ;;
3748 esac
3749 else
3750 # update the version file
3752 # pre-generate various strings
3753 triple="${ver}.${rev}${typ}${lev}"
3754 vHex="$hex"
3755 vShort="${triple}"
3756 vLong="${triple} (${tim})"
3757 vTeX="This is ${name}, Version ${triple} (${tim})"
3758 vGNU="${name} ${triple} (${tim})"
3759 vWeb="${name}/${triple}"
3760 vSCCS="@(#)${name} ${triple} (${tim})"
3761 vRCS="\$Id: ${name} ${triple} (${tim}) \$"
3763 # determine string out of filename
3764 # (do NOT try to optimize this in any way because of portability)
3765 filestr=`util_upper "$file" | tr './%+' '____' | sed -e 's/-/_/g'`
3767 # generate uppercase prefix
3768 prefixupper=`util_upper "$prefix"`
3770 # create the version file according the the selected language
3771 echo "new version: ${vLong}"
3773 cp /dev/null $file
3774 case $opt_l in
3775 txt )
3776 echo >>$file ""
3777 echo >>$file " ${file} -- Version Information for ${name} (syntax: Text)"
3778 echo >>$file " [automatically generated and maintained by GNU shtool]"
3779 echo >>$file ""
3780 echo >>$file " $vTeX"
3781 echo >>$file ""
3782 ;;
3783 c )
3784 echo >>$file "/*"
3785 echo >>$file "** ${file} -- Version Information for ${name} (syntax: C/C++)"
3786 echo >>$file "** [automatically generated and maintained by GNU shtool]"
3787 echo >>$file "*/"
3788 echo >>$file ""
3789 echo >>$file "#ifdef _${filestr}_AS_HEADER_"
3790 echo >>$file ""
3791 echo >>$file "#ifndef _${filestr}_"
3792 echo >>$file "#define _${filestr}_"
3793 echo >>$file ""
3794 echo >>$file "#define ${prefixupper}VERSION ${vHex}"
3795 echo >>$file ""
3796 echo >>$file "typedef struct {"
3797 echo >>$file " const int v_hex;"
3798 echo >>$file " const char *v_short;"
3799 echo >>$file " const char *v_long;"
3800 echo >>$file " const char *v_tex;"
3801 echo >>$file " const char *v_gnu;"
3802 echo >>$file " const char *v_web;"
3803 echo >>$file " const char *v_sccs;"
3804 echo >>$file " const char *v_rcs;"
3805 echo >>$file "} ${prefix}version_t;"
3806 echo >>$file ""
3807 echo >>$file "extern ${prefix}version_t ${prefix}version;"
3808 echo >>$file ""
3809 echo >>$file "#endif /* _${filestr}_ */"
3810 echo >>$file ""
3811 echo >>$file "#else /* _${filestr}_AS_HEADER_ */"
3812 echo >>$file ""
3813 echo >>$file "#define _${filestr}_AS_HEADER_"
3814 echo >>$file "#include \"${file}\""
3815 echo >>$file "#undef _${filestr}_AS_HEADER_"
3816 echo >>$file ""
3817 echo >>$file "${prefix}version_t ${prefix}version = {"
3818 echo >>$file " ${vHex},"
3819 echo >>$file " \"${vShort}\","
3820 echo >>$file " \"${vLong}\","
3821 echo >>$file " \"${vTeX}\","
3822 echo >>$file " \"${vGNU}\","
3823 echo >>$file " \"${vWeb}\","
3824 echo >>$file " \"${vSCCS}\","
3825 echo >>$file " \"${vRCS}\""
3826 echo >>$file "};"
3827 echo >>$file ""
3828 echo >>$file "#endif /* _${filestr}_AS_HEADER_ */"
3829 echo >>$file ""
3830 ;;
3831 m4 )
3832 echo >>$file "##"
3833 echo >>$file "## ${file} -- Version Information for ${name} (syntax: M4)"
3834 echo >>$file "## [automatically generated and maintained by GNU shtool]"
3835 echo >>$file "##"
3836 echo >>$file ""
3837 echo >>$file "m4_define([v_hex], [${vHex}])"
3838 echo >>$file "m4_define([v_short], [${vShort}])"
3839 echo >>$file "m4_define([v_long], [${vLong}])"
3840 echo >>$file "m4_define([v_tex], [${vTeX}])"
3841 echo >>$file "m4_define([v_gnu], [${vGNU}])"
3842 echo >>$file "m4_define([v_web], [${vWeb}])"
3843 echo >>$file "m4_define([v_sccs], [${vSCCS}])"
3844 echo >>$file "m4_define([v_rcs], [${vRCS}])"
3845 echo >>$file ""
3846 ;;
3847 perl )
3848 echo >>$file "##"
3849 echo >>$file "## ${file} -- Version Information for ${name} (syntax: Perl)"
3850 echo >>$file "## [automatically generated and maintained by GNU shtool]"
3851 echo >>$file "##"
3852 echo >>$file ""
3853 echo >>$file "our \$${prefix}version = {"
3854 echo >>$file " 'v_hex' => ${vHex},"
3855 echo >>$file " 'v_short' => \"${vShort}\","
3856 echo >>$file " 'v_long' => \"${vLong}\","
3857 echo >>$file " 'v_tex' => \"${vTeX}\","
3858 echo >>$file " 'v_gnu' => \"${vGNU}\","
3859 echo >>$file " 'v_web' => \"${vWeb}\","
3860 echo >>$file " 'v_sccs' => \"${vSCCS}\","
3861 echo >>$file " 'v_rcs' => \"\\${vRCS}/\""
3862 echo >>$file "};"
3863 echo >>$file ""
3864 echo >>$file "1;"
3865 echo >>$file ""
3866 ;;
3867 python )
3868 echo >>$file "##"
3869 echo >>$file "## ${file} -- Version Information for ${name} (syntax: Python)"
3870 echo >>$file "## [automatically generated and maintained by GNU shtool]"
3871 echo >>$file "##"
3872 echo >>$file ""
3873 echo >>$file "class ${prefix}version:"
3874 echo >>$file " v_hex = ${vHex}"
3875 echo >>$file " v_short = \"${vShort}\""
3876 echo >>$file " v_long = \"${vLong}\""
3877 echo >>$file " v_tex = \"${vTeX}\""
3878 echo >>$file " v_gnu = \"${vGNU}\""
3879 echo >>$file " v_web = \"${vWeb}\""
3880 echo >>$file " v_sccs = \"${vSCCS}\""
3881 echo >>$file " v_rcs = \"${vRCS}\""
3882 echo >>$file ""
3883 ;;
3884 * ) echo "$msgprefix:Error: invalid argument to option \`-l': \`$opt_l'" 1>&2
3885 shtool_exit 1
3886 ;;
3887 esac
3888 fi
3890 shtool_exit 0
3891 ;;
3893 path )
3894 ##
3895 ## path -- Deal with program paths
3896 ## Copyright (c) 1998-2007 Ralf S. Engelschall <rse@engelschall.com>
3897 ##
3899 namelist="$*"
3901 # check whether the test command supports the -x option
3902 if [ -x /bin/sh ] 2>/dev/null; then
3903 minusx="-x"
3904 else
3905 minusx="-r"
3906 fi
3908 # split path string
3909 paths="`echo $opt_p |\
3910 sed -e 's/^:/.:/' \
3911 -e 's/::/:.:/g' \
3912 -e 's/:$/:./' \
3913 -e 's/:/ /g'`"
3915 # SPECIAL REQUEST
3916 # translate forward to reverse path
3917 if [ ".$opt_r" = .yes ]; then
3918 if [ "x$namelist" = "x." ]; then
3919 rp='.'
3920 else
3921 rp=''
3922 for pe in `IFS="$IFS/"; echo $namelist`; do
3923 rp="../$rp"
3924 done
3925 fi
3926 echo $rp | sed -e 's:/$::'
3927 shtool_exit 0
3928 fi
3930 # SPECIAL REQUEST
3931 # strip out directory or base name
3932 if [ ".$opt_d" = .yes ]; then
3933 echo "$namelist" |\
3934 sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;'
3935 shtool_exit 0
3936 fi
3937 if [ ".$opt_b" = .yes ]; then
3938 echo "$namelist" |\
3939 sed -e 's;.*/\([^/]*\)$;\1;'
3940 shtool_exit 0
3941 fi
3943 # MAGIC SITUATION
3944 # Perl Interpreter (perl)
3945 if [ ".$opt_m" = .yes ] && [ ".$namelist" = .perl ]; then
3946 rm -f $tmpfile >/dev/null 2>&1
3947 touch $tmpfile
3948 found=0
3949 pc=99
3950 for dir in $paths; do
3951 dir=`echo $dir | sed -e 's;/*$;;'`
3952 nc=99
3953 for name in perl perl5 miniperl; do
3954 if [ $minusx "$dir/$name" ] && [ ! -d "$dir/$name" ]; then
3955 perl="$dir/$name"
3956 pv=`$perl -e 'printf("%.3f", $]);'`
3957 echo "$pv:$pc:$nc:$perl" >>$tmpfile
3958 found=1
3959 fi
3960 nc=`expr $nc - 1`
3961 done
3962 pc=`expr $pc - 1`
3963 done
3964 if [ $found = 1 ]; then
3965 perl="`cat $tmpfile | sort -r -u | sed -e 'q' | cut -d: -f4`"
3966 rm -f $tmpfile >/dev/null 2>&1
3967 echo "$perl"
3968 shtool_exit 0
3969 fi
3970 rm -f $tmpfile >/dev/null 2>&1
3971 shtool_exit 1
3972 fi
3974 # MAGIC SITUATION
3975 # C pre-processor (cpp)
3976 if [ ".$opt_m" = .yes ] && [ ".$namelist" = .cpp ]; then
3977 echo >$tmpfile.c "#include <assert.h>"
3978 echo >>$tmpfile.c "Syntax Error"
3979 # 1. try the standard cc -E approach
3980 cpp="${CC-cc} -E"
3981 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out
3982 my_error=`grep -v '^ *+' $tmpfile.out`
3983 if [ ".$my_error" != . ]; then
3984 # 2. try the cc -E approach and GCC's -traditional-ccp option
3985 cpp="${CC-cc} -E -traditional-cpp"
3986 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out
3987 my_error=`grep -v '^ *+' $tmpfile.out`
3988 if [ ".$my_error" != . ]; then
3989 # 3. try a standalone cpp command in path and lib dirs
3990 for path in $paths /lib /usr/lib /usr/local/lib; do
3991 path=`echo $path | sed -e 's;/*$;;'`
3992 if [ $minusx "$path/cpp" ] && [ ! -d "$path/cpp" ]; then
3993 cpp="$path/cpp"
3994 break
3995 fi
3996 done
3997 if [ ".$cpp" != . ]; then
3998 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out
3999 my_error=`grep -v '^ *+' $tmpfile.out`
4000 if [ ".$my_error" != . ]; then
4001 # ok, we gave up...
4002 cpp=''
4003 fi
4004 fi
4005 fi
4006 fi
4007 rm -f $tmpfile >/dev/null 2>&1
4008 rm -f $tmpfile.c $tmpfile.out >/dev/null 2>&1
4009 if [ ".$cpp" != . ]; then
4010 echo "$cpp"
4011 shtool_exit 0
4012 fi
4013 shtool_exit 1
4014 fi
4016 # STANDARD SITUATION
4017 # iterate over names
4018 for name in $namelist; do
4019 # iterate over paths
4020 for path in $paths; do
4021 path=`echo $path | sed -e 's;/*$;;'`
4022 if [ $minusx "$path/$name" ] && [ ! -d "$path/$name" ]; then
4023 if [ ".$opt_s" != .yes ]; then
4024 echo "$path/$name"
4025 fi
4026 shtool_exit 0
4027 fi
4028 done
4029 done
4031 shtool_exit 1
4032 ;;
4034 esac
4036 shtool_exit 0
