1#!/bin/sh 2## 3## GNU shtool -- The GNU Portable Shell Tool 4## Copyright (c) 1994-2008 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.8 (18-Jul-2008) 10## Contents: 5/19 available modules 11## 12 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## 36 37## 38## Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]] 39## 40## Available commands: 41## echo Print string with optional construct expansion 42## install Install a program, script or datafile 43## mkdir Make one or more directories 44## platform Platform Identification Utility 45## path Deal with program paths 46## 47## Not available commands (because module was not built-in): 48## mdate Pretty-print modification time of a file or dir 49## table Pretty-print a field-separated list as a table 50## prop Display progress with a running propeller 51## move Move files with simultaneous substitution 52## mkln Make link with calculation of relative paths 53## mkshadow Make a shadow tree through symbolic links 54## fixperm Fix file permissions inside a source tree 55## rotate Logfile rotation 56## tarball Roll distribution tarballs 57## subst Apply sed(1) substitution operations 58## arx Extended archive command 59## slo Separate linker options by library class 60## scpp Sharing C Pre-Processor 61## version Maintain a version information file 62## 63 64# maximum Bourne-Shell compatibility 65if [ ".$ZSH_VERSION" != . ] && (emulate sh) >/dev/null 2>&1; then 66 # reconfigure zsh(1) 67 emulate sh 68 NULLCMD=: 69 alias -g '${1+"$@"}'='"$@"' 70elif [ ".$BASH_VERSION" != . ] && (set -o posix) >/dev/null 2>&1; then 71 # reconfigure bash(1) 72 set -o posix 73fi 74 75# maximum independence of NLS nuisances 76for var in \ 77 LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ 78 LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ 79 LC_TELEPHONE LC_TIME 80do 81 if (set +x; test -z "`(eval $var=C; export $var) 2>&1`"); then 82 eval $var=C; export $var 83 else 84 unset $var 85 fi 86done 87 88# initial command line handling 89if [ $# -eq 0 ]; then 90 echo "$0:Error: invalid command line" 1>&2 91 echo "$0:Hint: run \`$0 -h' for usage" 1>&2 92 exit 1 93fi 94if [ ".$1" = ".-h" ] || [ ".$1" = ".--help" ]; then 95 echo "This is GNU shtool, version 2.0.8 (18-Jul-2008)" 96 echo 'Copyright (c) 1994-2008 Ralf S. Engelschall <rse@engelschall.com>' 97 echo 'Report bugs to <bug-shtool@gnu.org>' 98 echo '' 99 echo 'Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]' 100 echo '' 101 echo 'Available global <options>:' 102 echo ' -v, --version display shtool version information' 103 echo ' -h, --help display shtool usage help page (this one)' 104 echo ' -d, --debug display shell trace information' 105 echo ' -r, --recreate recreate this shtool script via shtoolize' 106 echo '' 107 echo 'Available <cmd-name> [<cmd-options>] [<cmd-args>]:' 108 echo ' echo [-n|--newline] [-e|--expand] [<string> ...]' 109 echo ' install [-v|--verbose] [-t|--trace] [-d|--mkdir] [-c|--copy]' 110 echo ' [-C|--compare-copy] [-s|--strip] [-m|--mode <mode>]' 111 echo ' [-o|--owner <owner>] [-g|--group <group>] [-e|--exec' 112 echo ' <sed-cmd>] <file> [<file> ...] <path>' 113 echo ' mkdir [-t|--trace] [-f|--force] [-p|--parents] [-m|--mode' 114 echo ' <mode>] [-o|--owner <owner>] [-g|--group <group>] <dir>' 115 echo ' [<dir> ...]' 116 echo ' platform [-F|--format <format>] [-S|--sep <string>] [-C|--conc' 117 echo ' <string>] [-L|--lower] [-U|--upper] [-v|--verbose]' 118 echo ' [-c|--concise] [-n|--no-newline] [-t|--type <type>]' 119 echo ' [-V|--version] [-h|--help]' 120 echo ' path [-s|--suppress] [-r|--reverse] [-d|--dirname] [-b|--basename]' 121 echo ' [-m|--magic] [-p|--path <path>] <str> [<str> ...]' 122 echo '' 123 echo 'Not available <cmd-name> (because module was not built-in):' 124 echo ' mdate [-n|--newline] [-z|--zero] [-s|--shorten] [-d|--digits]' 125 echo ' [-f|--field-sep <str>] [-o|--order <spec>] <path>' 126 echo ' table [-F|--field-sep <sep>] [-w|--width <width>] [-c|--columns' 127 echo ' <cols>] [-s|--strip <strip>] <str><sep><str>...' 128 echo ' prop [-p|--prefix <str>]' 129 echo ' move [-v|--verbose] [-t|--trace] [-e|--expand] [-p|--preserve]' 130 echo ' <src-file> <dst-file>' 131 echo ' mkln [-t|--trace] [-f|--force] [-s|--symbolic] <src-path>' 132 echo ' [<src-path> ...] <dst-path>' 133 echo ' mkshadow [-v|--verbose] [-t|--trace] [-a|--all] <src-dir> <dst-dir>' 134 echo ' fixperm [-v|--verbose] [-t|--trace] <path> [<path> ...]' 135 echo ' rotate [-v|--verbose] [-t|--trace] [-f|--force] [-n|--num-files' 136 echo ' <count>] [-s|--size <size>] [-c|--copy] [-r|--remove]' 137 echo ' [-a|--archive-dir <dir>] [-z|--compress [<tool>:]<level>]' 138 echo ' [-b|--background] [-d|--delay] [-p|--pad <len>] [-m|--mode' 139 echo ' <mode>] [-o|--owner <owner>] [-g|--group <group>] [-M|--migrate' 140 echo ' <cmd>] [-P|--prolog <cmd>] [-E|--epilog <cmd>] <file> [...]' 141 echo ' tarball [-t|--trace] [-v|--verbose] [-o|--output <tarball>]' 142 echo ' [-c|--compress <prog>] [-d|--directory <dir>] [-u|--user' 143 echo ' <user>] [-g|--group <group>] [-e|--exclude <pattern>]' 144 echo ' <path> [<path> ...]' 145 echo ' subst [-v|--verbose] [-t|--trace] [-n|--nop] [-w|--warning]' 146 echo ' [-q|--quiet] [-s|--stealth] [-i|--interactive] [-b|--backup' 147 echo ' <ext>] [-e|--exec <cmd>] [-f|--file <cmd-file>] [<file>]' 148 echo ' [...]' 149 echo ' arx [-t|--trace] [-C|--command <cmd>] <op> <archive> [<file>' 150 echo ' ...]' 151 echo ' slo [-p|--prefix <str>] -- -L<dir> -l<lib> [-L<dir> -l<lib>' 152 echo ' ...]' 153 echo ' scpp [-v|--verbose] [-p|--preserve] [-f|--filter <filter>]' 154 echo ' [-o|--output <ofile>] [-t|--template <tfile>] [-M|--mark' 155 echo ' <mark>] [-D|--define <dname>] [-C|--class <cname>]' 156 echo ' <file> [<file> ...]' 157 echo ' version [-l|--language <lang>] [-n|--name <name>] [-p|--prefix' 158 echo ' <prefix>] [-s|--set <version>] [-e|--edit] [-i|--increase' 159 echo ' <knob>] [-d|--display <type>] <file>' 160 echo '' 161 exit 0 162fi 163if [ ".$1" = ".-v" ] || [ ".$1" = ".--version" ]; then 164 echo "GNU shtool 2.0.8 (18-Jul-2008)" 165 exit 0 166fi 167if [ ".$1" = ".-r" ] || [ ".$1" = ".--recreate" ]; then 168 shtoolize -obuild/shtool echo install mkdir platform path 169 exit 0 170fi 171if [ ".$1" = ".-d" ] || [ ".$1" = ".--debug" ]; then 172 shift 173 set -x 174fi 175name=`echo "$0" | sed -e 's;.*/\([^/]*\)$;\1;' -e 's;-sh$;;' -e 's;\.sh$;;'` 176case "$name" in 177 echo|install|mkdir|platform|path ) 178 # implicit tool command selection 179 tool="$name" 180 ;; 181 * ) 182 # explicit tool command selection 183 tool="$1" 184 shift 185 ;; 186esac 187arg_spec="" 188opt_spec="" 189gen_tmpfile=no 190 191## 192## DISPATCH INTO SCRIPT PROLOG 193## 194 195case $tool in 196 echo ) 197 str_tool="echo" 198 str_usage="[-n|--newline] [-e|--expand] [<string> ...]" 199 arg_spec="0+" 200 opt_spec="n.e." 201 opt_alias="n:newline,e:expand" 202 opt_n=no 203 opt_e=no 204 ;; 205 install ) 206 str_tool="install" 207 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>" 208 arg_spec="1+" 209 opt_spec="v.t.d.c.C.s.m:o:g:e+" 210 opt_alias="v:verbose,t:trace,d:mkdir,c:copy,C:compare-copy,s:strip,m:mode,o:owner,g:group,e:exec" 211 opt_v=no 212 opt_t=no 213 opt_d=no 214 opt_c=no 215 opt_C=no 216 opt_s=no 217 opt_m="0755" 218 opt_o="" 219 opt_g="" 220 opt_e="" 221 ;; 222 mkdir ) 223 str_tool="mkdir" 224 str_usage="[-t|--trace] [-f|--force] [-p|--parents] [-m|--mode <mode>] [-o|--owner <owner>] [-g|--group <group>] <dir> [<dir> ...]" 225 arg_spec="1+" 226 opt_spec="t.f.p.m:o:g:" 227 opt_alias="t:trace,f:force,p:parents,m:mode,o:owner,g:group" 228 opt_t=no 229 opt_f=no 230 opt_p=no 231 opt_m="" 232 opt_o="" 233 opt_g="" 234 ;; 235 platform ) 236 str_tool="platform" 237 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]" 238 arg_spec="0=" 239 opt_spec="F:S:C:L.U.v.c.n.t:d.V.h." 240 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" 241 opt_F="%{sp} (%{ap})" 242 opt_S=" " 243 opt_C="/" 244 opt_L=no 245 opt_U=no 246 opt_t="" 247 opt_v=no 248 opt_c=no 249 opt_n=no 250 opt_V=no 251 opt_h=no 252 ;; 253 path ) 254 str_tool="path" 255 str_usage="[-s|--suppress] [-r|--reverse] [-d|--dirname] [-b|--basename] [-m|--magic] [-p|--path <path>] <str> [<str> ...]" 256 gen_tmpfile=yes 257 arg_spec="1+" 258 opt_spec="s.r.d.b.m.p:" 259 opt_alias="s:suppress,r:reverse,d:dirname,b:basename,m:magic,p:path" 260 opt_s=no 261 opt_r=no 262 opt_d=no 263 opt_b=no 264 opt_m=no 265 opt_p="$PATH" 266 ;; 267 -* ) 268 echo "$0:Error: unknown option \`$tool'" 2>&1 269 echo "$0:Hint: run \`$0 -h' for usage" 2>&1 270 exit 1 271 ;; 272 * ) 273 echo "$0:Error: unknown command \`$tool'" 2>&1 274 echo "$0:Hint: run \`$0 -h' for usage" 2>&1 275 exit 1 276 ;; 277esac 278 279## 280## COMMON UTILITY CODE 281## 282 283# commonly used ASCII values 284ASC_TAB=" " 285ASC_NL=" 286" 287 288# determine name of tool 289if [ ".$tool" != . ]; then 290 # used inside shtool script 291 toolcmd="$0 $tool" 292 toolcmdhelp="shtool $tool" 293 msgprefix="shtool:$tool" 294else 295 # used as standalone script 296 toolcmd="$0" 297 toolcmdhelp="sh $0" 298 msgprefix="$str_tool" 299fi 300 301# parse argument specification string 302eval `echo $arg_spec |\ 303 sed -e 's/^\([0-9]*\)\([+=]\)/arg_NUMS=\1; arg_MODE=\2/'` 304 305# parse option specification string 306eval `echo h.$opt_spec |\ 307 sed -e 's/\([a-zA-Z0-9]\)\([.:+]\)/opt_MODE_\1=\2;/g'` 308 309# parse option alias string 310eval `echo h:help,$opt_alias |\ 311 sed -e 's/-/_/g' -e 's/\([a-zA-Z0-9]\):\([^,]*\),*/opt_ALIAS_\2=\1;/g'` 312 313# interate over argument line 314opt_PREV='' 315while [ $# -gt 0 ]; do 316 # special option stops processing 317 if [ ".$1" = ".--" ]; then 318 shift 319 break 320 fi 321 322 # determine option and argument 323 opt_ARG_OK=no 324 if [ ".$opt_PREV" != . ]; then 325 # merge previous seen option with argument 326 opt_OPT="$opt_PREV" 327 opt_ARG="$1" 328 opt_ARG_OK=yes 329 opt_PREV='' 330 else 331 # split argument into option and argument 332 case "$1" in 333 --[a-zA-Z0-9]*=*) 334 eval `echo "x$1" |\ 335 sed -e 's/^x--\([a-zA-Z0-9-]*\)=\(.*\)$/opt_OPT="\1";opt_ARG="\2"/'` 336 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'` 337 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}" 338 ;; 339 --[a-zA-Z0-9]*) 340 opt_OPT=`echo "x$1" | cut -c4-` 341 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'` 342 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}" 343 opt_ARG='' 344 ;; 345 -[a-zA-Z0-9]*) 346 eval `echo "x$1" |\ 347 sed -e 's/^x-\([a-zA-Z0-9]\)/opt_OPT="\1";/' \ 348 -e 's/";\(.*\)$/"; opt_ARG="\1"/'` 349 ;; 350 -[a-zA-Z0-9]) 351 opt_OPT=`echo "x$1" | cut -c3-` 352 opt_ARG='' 353 ;; 354 *) 355 break 356 ;; 357 esac 358 fi 359 360 # eat up option 361 shift 362 363 # determine whether option needs an argument 364 eval "opt_MODE=\$opt_MODE_${opt_OPT}" 365 if [ ".$opt_ARG" = . ] && [ ".$opt_ARG_OK" != .yes ]; then 366 if [ ".$opt_MODE" = ".:" ] || [ ".$opt_MODE" = ".+" ]; then 367 opt_PREV="$opt_OPT" 368 continue 369 fi 370 fi 371 372 # process option 373 case $opt_MODE in 374 '.' ) 375 # boolean option 376 eval "opt_${opt_OPT}=yes" 377 ;; 378 ':' ) 379 # option with argument (multiple occurrences override) 380 eval "opt_${opt_OPT}=\"\$opt_ARG\"" 381 ;; 382 '+' ) 383 # option with argument (multiple occurrences append) 384 eval "opt_${opt_OPT}=\"\$opt_${opt_OPT}\${ASC_NL}\$opt_ARG\"" 385 ;; 386 * ) 387 echo "$msgprefix:Error: unknown option: \`$opt_OPT'" 1>&2 388 echo "$msgprefix:Hint: run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2 389 exit 1 390 ;; 391 esac 392done 393if [ ".$opt_PREV" != . ]; then 394 echo "$msgprefix:Error: missing argument to option \`$opt_PREV'" 1>&2 395 echo "$msgprefix:Hint: run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2 396 exit 1 397fi 398 399# process help option 400if [ ".$opt_h" = .yes ]; then 401 echo "Usage: $toolcmdhelp $str_usage" 402 exit 0 403fi 404 405# complain about incorrect number of arguments 406case $arg_MODE in 407 '=' ) 408 if [ $# -ne $arg_NUMS ]; then 409 echo "$msgprefix:Error: invalid number of arguments (exactly $arg_NUMS expected)" 1>&2 410 echo "$msgprefix:Hint: run \`$toolcmd -h' or \`man shtool' for details" 1>&2 411 exit 1 412 fi 413 ;; 414 '+' ) 415 if [ $# -lt $arg_NUMS ]; then 416 echo "$msgprefix:Error: invalid number of arguments (at least $arg_NUMS expected)" 1>&2 417 echo "$msgprefix:Hint: run \`$toolcmd -h' or \`man shtool' for details" 1>&2 418 exit 1 419 fi 420 ;; 421esac 422 423# establish a temporary file on request 424if [ ".$gen_tmpfile" = .yes ]; then 425 # create (explicitly) secure temporary directory 426 if [ ".$TMPDIR" != . ]; then 427 tmpdir="$TMPDIR" 428 elif [ ".$TEMPDIR" != . ]; then 429 tmpdir="$TEMPDIR" 430 else 431 tmpdir="/tmp" 432 fi 433 tmpdir="$tmpdir/.shtool.$$" 434 ( umask 077 435 rm -rf "$tmpdir" >/dev/null 2>&1 || true 436 mkdir "$tmpdir" >/dev/null 2>&1 437 if [ $? -ne 0 ]; then 438 echo "$msgprefix:Error: failed to create temporary directory \`$tmpdir'" 1>&2 439 exit 1 440 fi 441 ) 442 443 # create (implicitly) secure temporary file 444 tmpfile="$tmpdir/shtool.tmp" 445 touch "$tmpfile" 446fi 447 448# utility function: map string to lower case 449util_lower () { 450 echo "$1" | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' 451} 452 453# utility function: map string to upper case 454util_upper () { 455 echo "$1" | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 456} 457 458# cleanup procedure 459shtool_exit () { 460 rc="$1" 461 if [ ".$gen_tmpfile" = .yes ]; then 462 rm -rf "$tmpdir" >/dev/null 2>&1 || true 463 fi 464 exit $rc 465} 466 467## 468## DISPATCH INTO SCRIPT BODY 469## 470 471case $tool in 472 473echo ) 474 ## 475 ## echo -- Print string with optional construct expansion 476 ## Copyright (c) 1998-2008 Ralf S. Engelschall <rse@engelschall.com> 477 ## 478 479 text="$*" 480 481 # check for broken escape sequence expansion 482 seo='' 483 bytes=`echo '\1' | wc -c | awk '{ printf("%s", $1); }'` 484 if [ ".$bytes" != .3 ]; then 485 bytes=`echo -E '\1' | wc -c | awk '{ printf("%s", $1); }'` 486 if [ ".$bytes" = .3 ]; then 487 seo='-E' 488 fi 489 fi 490 491 # check for existing -n option (to suppress newline) 492 minusn='' 493 bytes=`echo -n 123 2>/dev/null | wc -c | awk '{ printf("%s", $1); }'` 494 if [ ".$bytes" = .3 ]; then 495 minusn='-n' 496 fi 497 498 # determine terminal bold sequence 499 term_bold='' 500 term_norm='' 501 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[Bb]'`" != . ]; then 502 case $TERM in 503 # for the most important terminal types we directly know the sequences 504 xterm|xterm*|vt220|vt220*) 505 term_bold=`awk 'BEGIN { printf("%c%c%c%c", 27, 91, 49, 109); }' </dev/null 2>/dev/null` 506 term_norm=`awk 'BEGIN { printf("%c%c%c", 27, 91, 109); }' </dev/null 2>/dev/null` 507 ;; 508 vt100|vt100*|cygwin) 509 term_bold=`awk 'BEGIN { printf("%c%c%c%c%c%c", 27, 91, 49, 109, 0, 0); }' </dev/null 2>/dev/null` 510 term_norm=`awk 'BEGIN { printf("%c%c%c%c%c", 27, 91, 109, 0, 0); }' </dev/null 2>/dev/null` 511 ;; 512 # for all others, we try to use a possibly existing `tput' or `tcout' utility 513 * ) 514 paths=`echo $PATH | sed -e 's/:/ /g'` 515 for tool in tput tcout; do 516 for dir in $paths; do 517 if [ -r "$dir/$tool" ]; then 518 for seq in bold md smso; do # 'smso' is last 519 bold="`$dir/$tool $seq 2>/dev/null`" 520 if [ ".$bold" != . ]; then 521 term_bold="$bold" 522 break 523 fi 524 done 525 if [ ".$term_bold" != . ]; then 526 for seq in sgr0 me rmso init reset; do # 'reset' is last 527 norm="`$dir/$tool $seq 2>/dev/null`" 528 if [ ".$norm" != . ]; then 529 term_norm="$norm" 530 break 531 fi 532 done 533 fi 534 break 535 fi 536 done 537 if [ ".$term_bold" != . ] && [ ".$term_norm" != . ]; then 538 break; 539 fi 540 done 541 ;; 542 esac 543 if [ ".$term_bold" = . ] || [ ".$term_norm" = . ]; then 544 echo "$msgprefix:Warning: unable to determine terminal sequence for bold mode" 1>&2 545 term_bold='' 546 term_norm='' 547 fi 548 fi 549 550 # determine user name 551 username='' 552 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[uUgG]'`" != . ]; then 553 username="`(id -un) 2>/dev/null`" 554 if [ ".$username" = . ]; then 555 str="`(id) 2>/dev/null`" 556 if [ ".`echo $str | grep '^uid[ ]*=[ ]*[0-9]*('`" != . ]; then 557 username=`echo $str | sed -e 's/^uid[ ]*=[ ]*[0-9]*(//' -e 's/).*$//'` 558 fi 559 if [ ".$username" = . ]; then 560 username="$LOGNAME" 561 if [ ".$username" = . ]; then 562 username="$USER" 563 if [ ".$username" = . ]; then 564 username="`(whoami) 2>/dev/null |\ 565 awk '{ printf("%s", $1); }'`" 566 if [ ".$username" = . ]; then 567 username="`(who am i) 2>/dev/null |\ 568 awk '{ printf("%s", $1); }'`" 569 if [ ".$username" = . ]; then 570 username='unknown' 571 fi 572 fi 573 fi 574 fi 575 fi 576 fi 577 fi 578 579 # determine user id 580 userid='' 581 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%U'`" != . ]; then 582 userid="`(id -u) 2>/dev/null`" 583 if [ ".$userid" = . ]; then 584 userid="`(id -u ${username}) 2>/dev/null`" 585 if [ ".$userid" = . ]; then 586 str="`(id) 2>/dev/null`" 587 if [ ".`echo $str | grep '^uid[ ]*=[ ]*[0-9]*('`" != . ]; then 588 userid=`echo $str | sed -e 's/^uid[ ]*=[ ]*//' -e 's/(.*$//'` 589 fi 590 if [ ".$userid" = . ]; then 591 userid=`(getent passwd ${username}) 2>/dev/null | \ 592 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'` 593 if [ ".$userid" = . ]; then 594 userid=`grep "^${username}:" /etc/passwd 2>/dev/null | \ 595 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'` 596 if [ ".$userid" = . ]; then 597 userid=`(ypmatch "${username}" passwd; nismatch "${username}" passwd) 2>/dev/null | \ 598 sed -e 'q' | sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'` 599 if [ ".$userid" = . ]; then 600 userid=`(nidump passwd . | grep "^${username}:") 2>/dev/null | \ 601 sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'` 602 if [ ".$userid" = . ]; then 603 userid='?' 604 fi 605 fi 606 fi 607 fi 608 fi 609 fi 610 fi 611 fi 612 613 # determine (primary) group id 614 groupid='' 615 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[gG]'`" != . ]; then 616 groupid="`(id -g ${username}) 2>/dev/null`" 617 if [ ".$groupid" = . ]; then 618 str="`(id) 2>/dev/null`" 619 if [ ".`echo $str | grep 'gid[ ]*=[ ]*[0-9]*('`" != . ]; then 620 groupid=`echo $str | sed -e 's/^.*gid[ ]*=[ ]*//' -e 's/(.*$//'` 621 fi 622 if [ ".$groupid" = . ]; then 623 groupid=`(getent passwd ${username}) 2>/dev/null | \ 624 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'` 625 if [ ".$groupid" = . ]; then 626 groupid=`grep "^${username}:" /etc/passwd 2>/dev/null | \ 627 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'` 628 if [ ".$groupid" = . ]; then 629 groupid=`(ypmatch "${username}" passwd; nismatch "${username}" passwd) 2>/dev/null | \ 630 sed -e 'q' | sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'` 631 if [ ".$groupid" = . ]; then 632 groupid=`(nidump passwd . | grep "^${username}:") 2>/dev/null | \ 633 sed -e 's/[^:]*:[^:]*:[^:]*://' -e 's/:.*$//'` 634 if [ ".$groupid" = . ]; then 635 groupid='?' 636 fi 637 fi 638 fi 639 fi 640 fi 641 fi 642 fi 643 644 # determine (primary) group name 645 groupname='' 646 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%g'`" != . ]; then 647 groupname="`(id -gn ${username}) 2>/dev/null`" 648 if [ ".$groupname" = . ]; then 649 str="`(id) 2>/dev/null`" 650 if [ ".`echo $str | grep 'gid[ ]*=[ ]*[0-9]*('`" != . ]; then 651 groupname=`echo $str | sed -e 's/^.*gid[ ]*=[ ]*[0-9]*(//' -e 's/).*$//'` 652 fi 653 if [ ".$groupname" = . ]; then 654 groupname=`(getent group) 2>/dev/null | \ 655 grep "^[^:]*:[^:]*:${groupid}:" | \ 656 sed -e 's/:.*$//'` 657 if [ ".$groupname" = . ]; then 658 groupname=`grep "^[^:]*:[^:]*:${groupid}:" /etc/group 2>/dev/null | \ 659 sed -e 's/:.*$//'` 660 if [ ".$groupname" = . ]; then 661 groupname=`(ypcat group; niscat group) 2>/dev/null | \ 662 sed -e 'q' | grep "^[^:]*:[^:]*:${groupid}:" | \ 663 sed -e 's/:.*$//'` 664 if [ ".$groupname" = . ]; then 665 groupname=`(nidump group .) 2>/dev/null | \ 666 grep "^[^:]*:[^:]*:${groupid}:" | \ 667 sed -e 's/:.*$//'` 668 if [ ".$groupname" = . ]; then 669 groupname='?' 670 fi 671 fi 672 fi 673 fi 674 fi 675 fi 676 fi 677 678 # determine host and domain name 679 hostname='' 680 domainname='' 681 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%h'`" != . ]; then 682 hostname="`(uname -n) 2>/dev/null |\ 683 awk '{ printf("%s", $1); }'`" 684 if [ ".$hostname" = . ]; then 685 hostname="`(hostname) 2>/dev/null |\ 686 awk '{ printf("%s", $1); }'`" 687 if [ ".$hostname" = . ]; then 688 hostname='unknown' 689 fi 690 fi 691 case $hostname in 692 *.* ) 693 domainname=".`echo $hostname | cut -d. -f2-`" 694 hostname="`echo $hostname | cut -d. -f1`" 695 ;; 696 esac 697 fi 698 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%d'`" != . ]; then 699 if [ ".$domainname" = . ]; then 700 if [ -f /etc/resolv.conf ]; then 701 domainname="`grep '^[ ]*domain' /etc/resolv.conf | sed -e 'q' |\ 702 sed -e 's/.*domain//' \ 703 -e 's/^[ ]*//' -e 's/^ *//' -e 's/^ *//' \ 704 -e 's/^\.//' -e 's/^/./' |\ 705 awk '{ printf("%s", $1); }'`" 706 if [ ".$domainname" = . ]; then 707 domainname="`grep '^[ ]*search' /etc/resolv.conf | sed -e 'q' |\ 708 sed -e 's/.*search//' \ 709 -e 's/^[ ]*//' -e 's/^ *//' -e 's/^ *//' \ 710 -e 's/ .*//' -e 's/ .*//' \ 711 -e 's/^\.//' -e 's/^/./' |\ 712 awk '{ printf("%s", $1); }'`" 713 fi 714 fi 715 fi 716 fi 717 718 # determine current time 719 time_day='' 720 time_month='' 721 time_year='' 722 time_monthname='' 723 if [ ".$opt_e" = .yes ] && [ ".`echo $text | grep '%[DMYm]'`" != . ]; then 724 time_day=`date '+%d'` 725 time_month=`date '+%m'` 726 time_year=`date '+%Y' 2>/dev/null` 727 if [ ".$time_year" = . ]; then 728 time_year=`date '+%y'` 729 case $time_year in 730 [5-9][0-9]) time_year="19$time_year" ;; 731 [0-4][0-9]) time_year="20$time_year" ;; 732 esac 733 fi 734 case $time_month in 735 1|01) time_monthname='Jan' ;; 736 2|02) time_monthname='Feb' ;; 737 3|03) time_monthname='Mar' ;; 738 4|04) time_monthname='Apr' ;; 739 5|05) time_monthname='May' ;; 740 6|06) time_monthname='Jun' ;; 741 7|07) time_monthname='Jul' ;; 742 8|08) time_monthname='Aug' ;; 743 9|09) time_monthname='Sep' ;; 744 10) time_monthname='Oct' ;; 745 11) time_monthname='Nov' ;; 746 12) time_monthname='Dec' ;; 747 esac 748 fi 749 750 # expand special ``%x'' constructs 751 if [ ".$opt_e" = .yes ]; then 752 text=`echo $seo "$text" |\ 753 sed -e "s/%B/${term_bold}/g" \ 754 -e "s/%b/${term_norm}/g" \ 755 -e "s/%u/${username}/g" \ 756 -e "s/%U/${userid}/g" \ 757 -e "s/%g/${groupname}/g" \ 758 -e "s/%G/${groupid}/g" \ 759 -e "s/%h/${hostname}/g" \ 760 -e "s/%d/${domainname}/g" \ 761 -e "s/%D/${time_day}/g" \ 762 -e "s/%M/${time_month}/g" \ 763 -e "s/%Y/${time_year}/g" \ 764 -e "s/%m/${time_monthname}/g" 2>/dev/null` 765 fi 766 767 # create output 768 if [ .$opt_n = .no ]; then 769 echo $seo "$text" 770 else 771 # the harder part: echo -n is best, because 772 # awk may complain about some \xx sequences. 773 if [ ".$minusn" != . ]; then 774 echo $seo $minusn "$text" 775 else 776 echo dummy | awk '{ printf("%s", TEXT); }' TEXT="$text" 777 fi 778 fi 779 780 shtool_exit 0 781 ;; 782 783install ) 784 ## 785 ## install -- Install a program, script or datafile 786 ## Copyright (c) 1997-2008 Ralf S. Engelschall <rse@engelschall.com> 787 ## 788 789 # special case: "shtool install -d <dir> [...]" internally 790 # maps to "shtool mkdir -f -p -m 755 <dir> [...]" 791 if [ "$opt_d" = yes ]; then 792 cmd="$0 mkdir -f -p -m 755" 793 if [ ".$opt_o" != . ]; then 794 cmd="$cmd -o '$opt_o'" 795 fi 796 if [ ".$opt_g" != . ]; then 797 cmd="$cmd -g '$opt_g'" 798 fi 799 if [ ".$opt_v" = .yes ]; then 800 cmd="$cmd -v" 801 fi 802 if [ ".$opt_t" = .yes ]; then 803 cmd="$cmd -t" 804 fi 805 for dir in "$@"; do 806 eval "$cmd $dir" || shtool_exit $? 807 done 808 shtool_exit 0 809 fi 810 811 # determine source(s) and destination 812 argc=$# 813 srcs="" 814 while [ $# -gt 1 ]; do 815 srcs="$srcs $1" 816 shift 817 done 818 dstpath="$1" 819 820 # type check for destination 821 dstisdir=0 822 if [ -d $dstpath ]; then 823 dstpath=`echo "$dstpath" | sed -e 's:/$::'` 824 dstisdir=1 825 fi 826 827 # consistency check for destination 828 if [ $argc -gt 2 ] && [ $dstisdir = 0 ]; then 829 echo "$msgprefix:Error: multiple sources require destination to be directory" 1>&2 830 shtool_exit 1 831 fi 832 833 # iterate over all source(s) 834 for src in $srcs; do 835 dst=$dstpath 836 837 # if destination is a directory, append the input filename 838 if [ $dstisdir = 1 ]; then 839 dstfile=`echo "$src" | sed -e 's;.*/\([^/]*\)$;\1;'` 840 dst="$dst/$dstfile" 841 fi 842 843 # check for correct arguments 844 if [ ".$src" = ".$dst" ]; then 845 echo "$msgprefix:Warning: source and destination are the same - skipped" 1>&2 846 continue 847 fi 848 if [ -d "$src" ]; then 849 echo "$msgprefix:Warning: source \`$src' is a directory - skipped" 1>&2 850 continue 851 fi 852 853 # make a temp file name in the destination directory 854 dsttmp=`echo $dst |\ 855 sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;' \ 856 -e "s;\$;/#INST@$$#;"` 857 858 # verbosity 859 if [ ".$opt_v" = .yes ]; then 860 echo "$src -> $dst" 1>&2 861 fi 862 863 # copy or move the file name to the temp name 864 # (because we might be not allowed to change the source) 865 if [ ".$opt_C" = .yes ]; then 866 opt_c=yes 867 fi 868 if [ ".$opt_c" = .yes ]; then 869 if [ ".$opt_t" = .yes ]; then 870 echo "cp $src $dsttmp" 1>&2 871 fi 872 cp "$src" "$dsttmp" || shtool_exit $? 873 else 874 if [ ".$opt_t" = .yes ]; then 875 echo "mv $src $dsttmp" 1>&2 876 fi 877 mv "$src" "$dsttmp" || shtool_exit $? 878 fi 879 880 # adjust the target file 881 if [ ".$opt_e" != . ]; then 882 sed='sed' 883 OIFS="$IFS"; IFS="$ASC_NL"; set -- $opt_e; IFS="$OIFS" 884 for e 885 do 886 sed="$sed -e '$e'" 887 done 888 cp "$dsttmp" "$dsttmp.old" 889 chmod u+w $dsttmp 890 eval "$sed <$dsttmp.old >$dsttmp" || shtool_exit $? 891 rm -f $dsttmp.old 892 fi 893 if [ ".$opt_s" = .yes ]; then 894 if [ ".$opt_t" = .yes ]; then 895 echo "strip $dsttmp" 1>&2 896 fi 897 strip $dsttmp || shtool_exit $? 898 fi 899 if [ ".$opt_o" != . ]; then 900 if [ ".$opt_t" = .yes ]; then 901 echo "chown $opt_o $dsttmp" 1>&2 902 fi 903 chown $opt_o $dsttmp || shtool_exit $? 904 fi 905 if [ ".$opt_g" != . ]; then 906 if [ ".$opt_t" = .yes ]; then 907 echo "chgrp $opt_g $dsttmp" 1>&2 908 fi 909 chgrp $opt_g $dsttmp || shtool_exit $? 910 fi 911 if [ ".$opt_m" != ".-" ]; then 912 if [ ".$opt_t" = .yes ]; then 913 echo "chmod $opt_m $dsttmp" 1>&2 914 fi 915 chmod $opt_m $dsttmp || shtool_exit $? 916 fi 917 918 # determine whether to do a quick install 919 # (has to be done _after_ the strip was already done) 920 quick=no 921 if [ ".$opt_C" = .yes ]; then 922 if [ -r $dst ]; then 923 if cmp -s "$src" "$dst"; then 924 quick=yes 925 fi 926 fi 927 fi 928 929 # finally, install the file to the real destination 930 if [ $quick = yes ]; then 931 if [ ".$opt_t" = .yes ]; then 932 echo "rm -f $dsttmp" 1>&2 933 fi 934 rm -f $dsttmp 935 else 936 if [ ".$opt_t" = .yes ]; then 937 echo "rm -f $dst && mv $dsttmp $dst" 1>&2 938 fi 939 rm -f $dst && mv $dsttmp $dst 940 fi 941 done 942 943 shtool_exit 0 944 ;; 945 946mkdir ) 947 ## 948 ## mkdir -- Make one or more directories 949 ## Copyright (c) 1996-2008 Ralf S. Engelschall <rse@engelschall.com> 950 ## 951 952 errstatus=0 953 for p in ${1+"$@"}; do 954 # if the directory already exists... 955 if [ -d "$p" ]; then 956 if [ ".$opt_f" = .no ] && [ ".$opt_p" = .no ]; then 957 echo "$msgprefix:Error: directory already exists: $p" 1>&2 958 errstatus=1 959 break 960 else 961 continue 962 fi 963 fi 964 # if the directory has to be created... 965 if [ ".$opt_p" = .no ]; then 966 if [ ".$opt_t" = .yes ]; then 967 echo "mkdir $p" 1>&2 968 fi 969 mkdir $p || errstatus=$? 970 if [ ".$opt_o" != . ]; then 971 if [ ".$opt_t" = .yes ]; then 972 echo "chown $opt_o $p" 1>&2 973 fi 974 chown $opt_o $p || errstatus=$? 975 fi 976 if [ ".$opt_g" != . ]; then 977 if [ ".$opt_t" = .yes ]; then 978 echo "chgrp $opt_g $p" 1>&2 979 fi 980 chgrp $opt_g $p || errstatus=$? 981 fi 982 if [ ".$opt_m" != . ]; then 983 if [ ".$opt_t" = .yes ]; then 984 echo "chmod $opt_m $p" 1>&2 985 fi 986 chmod $opt_m $p || errstatus=$? 987 fi 988 else 989 # the smart situation 990 set fnord `echo ":$p" |\ 991 sed -e 's/^:\//%/' \ 992 -e 's/^://' \ 993 -e 's/\// /g' \ 994 -e 's/^%/\//'` 995 shift 996 pathcomp='' 997 for d in ${1+"$@"}; do 998 pathcomp="$pathcomp$d" 999 case "$pathcomp" in 1000 -* ) pathcomp="./$pathcomp" ;; 1001 esac 1002 if [ ! -d "$pathcomp" ]; then 1003 if [ ".$opt_t" = .yes ]; then 1004 echo "mkdir $pathcomp" 1>&2 1005 fi 1006 # See https://bugs.php.net/51076 1007 # The fix is from Debian who have sent it 1008 # upstream, too; but upstream seems dead. 1009 mkdir $pathcomp || { 1010 _errstatus=$? 1011 [ -d "$pathcomp" ] || errstatus=${_errstatus} 1012 unset _errstatus 1013 } 1014 if [ ".$opt_o" != . ]; then 1015 if [ ".$opt_t" = .yes ]; then 1016 echo "chown $opt_o $pathcomp" 1>&2 1017 fi 1018 chown $opt_o $pathcomp || errstatus=$? 1019 fi 1020 if [ ".$opt_g" != . ]; then 1021 if [ ".$opt_t" = .yes ]; then 1022 echo "chgrp $opt_g $pathcomp" 1>&2 1023 fi 1024 chgrp $opt_g $pathcomp || errstatus=$? 1025 fi 1026 if [ ".$opt_m" != . ]; then 1027 if [ ".$opt_t" = .yes ]; then 1028 echo "chmod $opt_m $pathcomp" 1>&2 1029 fi 1030 chmod $opt_m $pathcomp || errstatus=$? 1031 fi 1032 fi 1033 pathcomp="$pathcomp/" 1034 done 1035 fi 1036 done 1037 1038 shtool_exit $errstatus 1039 ;; 1040 1041platform ) 1042 ## 1043 ## platform -- Platform Identification Utility 1044 ## Copyright (c) 2003-2008 Ralf S. Engelschall <rse@engelschall.com> 1045 ## 1046 1047 # option post-processing 1048 if [ ".$opt_t" != . ]; then 1049 case "$opt_t" in 1050 binary ) 1051 # binary package id (OpenPKG RPM) 1052 opt_F="%<ap>-%<sp>" 1053 opt_L=yes 1054 opt_S="" 1055 opt_C="+" 1056 ;; 1057 build ) 1058 # build time checking (OpenPKG RPM) 1059 opt_F="%<at>-%<st>" 1060 opt_L=yes 1061 opt_S="" 1062 opt_C="+" 1063 ;; 1064 gnu ) 1065 # GNU config.guess style <arch>-<vendor>-<os><osversion> 1066 opt_F="%<at>-unknown-%<st>" 1067 opt_L=yes 1068 opt_S="" 1069 opt_C="+" 1070 ;; 1071 web ) 1072 # non-whitespace HTTP Server-header id 1073 opt_F="%<sp>-%<ap>" 1074 opt_S="/" 1075 opt_C="+" 1076 ;; 1077 summary) 1078 # human readable verbose summary information 1079 opt_F="Class: %[sc] (%[ac])\\nProduct: %[sp] (%[ap])\\nTechnology: %[st] (%[at])" 1080 opt_S=" " 1081 opt_C="/" 1082 ;; 1083 all-in-one ) 1084 # full-table all-in-one information 1085 opt_F="" 1086 opt_F="${opt_F}concise architecture class: %<ac>\\n" 1087 opt_F="${opt_F}regular architecture class: %{ac}\\n" 1088 opt_F="${opt_F}verbose architecture class: %[ac]\\n" 1089 opt_F="${opt_F}concise architecture product: %<ap>\\n" 1090 opt_F="${opt_F}regular architecture product: %{ap}\\n" 1091 opt_F="${opt_F}verbose architecture product: %[ap]\\n" 1092 opt_F="${opt_F}concise architecture technology: %<at>\\n" 1093 opt_F="${opt_F}regular architecture technology: %{at}\\n" 1094 opt_F="${opt_F}verbose architecture technology: %[at]\\n" 1095 opt_F="${opt_F}concise system class: %<sc>\\n" 1096 opt_F="${opt_F}regular system class: %{sc}\\n" 1097 opt_F="${opt_F}verbose system class: %[sc]\\n" 1098 opt_F="${opt_F}concise system product: %<sp>\\n" 1099 opt_F="${opt_F}regular system product: %{sp}\\n" 1100 opt_F="${opt_F}verbose system product: %[sp]\\n" 1101 opt_F="${opt_F}concise system technology: %<st>\\n" 1102 opt_F="${opt_F}regular system technology: %{st}\\n" 1103 opt_F="${opt_F}verbose system technology: %[st]" 1104 ;; 1105 * ) 1106 echo "$msgprefix:Error: invalid type \`$opt_t'" 1>&2 1107 exit 1 1108 ;; 1109 esac 1110 fi 1111 1112 # assemble initial platform information 1113 UNAME_MACHINE=`(uname -m) 2>/dev/null` ||\ 1114 UNAME_MACHINE=`(uname -p) 2>/dev/null` ||\ 1115 UNAME_MACHINE='unknown' 1116 UNAME_SYSTEM=`(uname -s) 2>/dev/null` ||\ 1117 UNAME_SYSTEM='unknown' 1118 UNAME_RELEASE=`(uname -r) 2>/dev/null` ||\ 1119 UNAME_RELEASE=`(uname -v) 2>/dev/null` ||\ 1120 UNAME_RELEASE='unknown' 1121 1122 UNAME="${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}" 1123 1124 AC=""; AP=""; AT="" 1125 SC=""; SP=""; ST="" 1126 1127 # dispatch into platform specific sections 1128 case "${UNAME}" in 1129 1130 # FreeBSD 1131 *:FreeBSD:* ) 1132 # determine architecture 1133 AC="${UNAME_MACHINE}" 1134 case "${AC}" in 1135 i386 ) AC="iX86" ;; 1136 esac 1137 AP="${AC}" 1138 AT="${AP}" 1139 if [ ".${AT}" = ".iX86" ]; then 1140 case "`(/sbin/sysctl -n hw.model) 2>&1`" in 1141 *"Xeon"* | *"Pentium Pro"* | *"Cyrix 6x86MX"* | *"Pentium II"* | *"Pentium III"* | *"Pentium 4"* | *"Celeron"* ) AT="i686" ;; 1142 *"Pentium"* ) AT="i586" ;; *"i486[SD]X"* | *"Cyrix 486"* | *"Cyrix [56]x86"* | *"Blue Lightning" | *"Cyrix 486S/DX" ) AT="i486" ;; 1143 *"i386[SD]X"* | *"NexGen 586"* ) AT="i386" ;; 1144 esac 1145 fi 1146 # determine system 1147 r=`echo "${UNAME_RELEASE}" |\ 1148 sed -e 's;[()];;' -e 's/\(-.*\)$/[\1]/'` 1149 ST="FreeBSD ${r}" 1150 SP="${ST}" 1151 case "${r}" in 1152 1.* ) SC="4.3BSD" ;; 1153 * ) SC="4.4BSD" ;; 1154 esac 1155 ;; 1156 1157 # NetBSD 1158 *:NetBSD:* ) 1159 # determine architecture 1160 AT="${UNAME_MACHINE}" 1161 AP="${AT}" 1162 case "${AP}" in 1163 i[3-6]86 ) AP="iX86" ;; 1164 esac 1165 AC="${AP}" 1166 # determine system 1167 r=`echo "${UNAME_RELEASE}" | sed -e 's/\([-_].*\)$/[\1]/'` 1168 ST="NetBSD ${r}" 1169 SP="${ST}" 1170 case "${r}" in 1171 0.* ) SC="4.3BSD" ;; 1172 * ) SC="4.4BSD" ;; 1173 esac 1174 ;; 1175 1176 # OpenBSD 1177 *:OpenBSD:* ) 1178 # determine architecture 1179 AT="${UNAME_MACHINE}" 1180 AP="${AT}" 1181 case "${AP}" in 1182 i[3-6]86 ) AP="iX86" ;; 1183 esac 1184 AC="${AP}" 1185 # determine system 1186 r=`echo "${UNAME_RELEASE}" | sed -e 's/\([-_].*\)$/[\1]/'` 1187 ST="OpenBSD ${r}" 1188 SP="${ST}" 1189 SC="4.4BSD" 1190 ;; 1191 1192 # DragonFly BSD 1193 *:DragonFly:* ) 1194 # determine architecture 1195 AT="${UNAME_MACHINE}" 1196 AP="${AT}" 1197 case "${AP}" in 1198 i[3-6]86 ) AP="iX86" ;; 1199 esac 1200 AC="${AP}" 1201 # determine system 1202 r=`echo "${UNAME_RELEASE}" | sed -e 's/\([-_].*\)$/[\1]/'` 1203 ST="DragonFly ${r}" 1204 SP="${ST}" 1205 SC="4.4BSD" 1206 ;; 1207 1208 # GNU/Linux 1209 *:Linux:* ) 1210 # determine architecture 1211 AT="${UNAME_MACHINE}" 1212 case "${AT}" in 1213 ia64 ) AT="IA64" ;; 1214 x86_64 ) AT='AMD64' ;; 1215 parisc ) AT="HPPA32" ;; 1216 parisc64 ) AT="HPPA64" ;; 1217 esac 1218 AP="${AT}" 1219 case "${AP}" in 1220 i[3-6]86 ) AP='iX86' ;; 1221 esac 1222 AC="${AP}" 1223 # determine system 1224 v_kern=`echo "${UNAME_RELEASE}" |\ 1225 sed -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\).*/\1/'` 1226 v_libc=`(strings /lib/libc.so.* | grep '^GLIBC_' | sed -e 's/^GLIBC_//' |\ 1227 env -i sort -n | sed -n -e '$p' | sed -e 's/^\([0-9][0-9]*\.[0-9][0-9]*\).*/\1/') 2>/dev/null` 1228 ST="GNU/<Linux >${v_libc}/<${v_kern}>" 1229 if [ -f /etc/lsb-release ]; then 1230 eval `( . /etc/lsb-release 1231 echo "SC=\"LSB${LSB_VERSION}\"" 1232 if [ ".${DISTRIB_ID}" != . -a ".${DISTRIB_RELEASE}" != . ]; then 1233 echo "SP=\"${DISTRIB_ID} ${DISTRIB_RELEASE}\"" 1234 fi 1235 ) 2>/dev/null` 1236 fi 1237 if [ ".$SP" = . ]; then 1238 for tagfile in x \ 1239 `cd /etc && \ 1240 /bin/ls *[_-]release *[_-]version 2>/dev/null | env -i sort | \ 1241 sed -e '/^redhat-release$/d' -e '/^lsb-release$/d'; \ 1242 echo redhat-release lsb-release` 1243 do 1244 [ ".${tagfile}" = .x ] && continue 1245 [ ! -f "/etc/${tagfile}" ] && continue 1246 n=`echo ${tagfile} | sed -e 's/[_-]release$//' -e 's/[_-]version$//'` 1247 v=`(grep VERSION /etc/${tagfile}; cat /etc/${tagfile}) | grep '[0-9]' | sed -e 'q' |\ 1248 sed -e 's/^/#/' \ 1249 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \ 1250 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \ 1251 -e 's/^#[^0-9]*\([0-9][0-9]*\).*$/\1/' \ 1252 -e 's/^#.*$//'` 1253 case "`util_lower ${n}`" in 1254 redhat ) 1255 if [ ".`egrep '(Red Hat Enterprise Linux|CentOS)' /etc/${tagfile}`" != . ]; then 1256 n="<R>ed <H>at <E>nterprise <L>inux" 1257 else 1258 n="<R>ed <H>at <L>inux" 1259 fi 1260 ;; 1261 debian ) n="Debian[ GNU/Linux]" ;; 1262 ubuntu ) n="Ubuntu[ GNU/Linux]" ;; 1263 fedora ) n="<Fedora> Core[ GNU/Linux]" ;; 1264 suse ) n="[Novell ]SUSE[ Linux]" ;; 1265 mandrake*|mandriva ) n="Mandriva[ Linux]" ;; 1266 gentoo ) n="Gentoo[ GNU/Linux]" ;; 1267 slackware ) n="Slackware[ Linux]" ;; 1268 turbolinux ) n="TurboLinux" ;; 1269 unitedlinux ) n="UnitedLinux" ;; 1270 * ) n="${n}[ GNU/Linux]" ;; 1271 esac 1272 case "$n" in 1273 *"<"*">"* ) SP="$n <$v>" ;; 1274 * ) SP="$n $v" ;; 1275 esac 1276 break 1277 done 1278 fi 1279 [ ".$SP" = . ] && SP="${ST}" 1280 [ ".$SC" = . ] && SC="LSB" 1281 ;; 1282 1283 # Sun Solaris 1284 *:SunOS:* ) 1285 # determine architecture 1286 AT="${UNAME_MACHINE}" 1287 case "${AT}" in 1288 i86pc ) 1289 AT="iX86" 1290 case "`(/bin/isainfo -k) 2>&1`" in 1291 amd64 ) AT="AMD64" ;; 1292 esac 1293 ;; 1294 esac 1295 AP="${AT}" 1296 case "${AP}" in 1297 sun4[cdm] ) AP="SPARC32" ;; 1298 sun4[uv] ) AP="SPARC64" ;; 1299 sun4* ) AP="SPARC" ;; 1300 esac 1301 AC="${AP}" 1302 case "${AC}" in 1303 SPARC* ) AC="SPARC" ;; 1304 esac 1305 # determine system 1306 ST="[Sun ]SunOS ${UNAME_RELEASE}" 1307 v=`echo "${UNAME_RELEASE}" |\ 1308 sed -e 's;^4\.;1.;' \ 1309 -e 's;^5\.\([0-6]\)[^0-9]*$;2.\1;' \ 1310 -e 's;^5\.\([0-9][0-9]*\).*;\1;'` 1311 SP="[Sun ]Solaris $v" 1312 case "${UNAME_RELEASE}" in 1313 4.* ) SC="4.3BSD" ;; 1314 5.* ) SC="SVR4" ;; 1315 esac 1316 ;; 1317 1318 # SCO UnixWare 1319 *:UnixWare:* ) 1320 # determine architecture 1321 AT="${UNAME_MACHINE}" 1322 case "${AT}" in 1323 i[3-6]86 | ix86at ) AT="iX86" ;; 1324 esac 1325 AP="${AT}" 1326 # determine system 1327 v=`/sbin/uname -v` 1328 ST="[SCO ]UnixWare ${v}" 1329 SP="${ST}" 1330 SC="SVR${UNAME_RELEASE}" 1331 ;; 1332 1333 # QNX 1334 *:QNX:* ) 1335 # determine architecture 1336 AT="${UNAME_MACHINE}" 1337 case "${AT}" in 1338 x86pc ) AT="iX86" ;; 1339 esac 1340 AP="${AT}" 1341 # determine system 1342 v="${UNAME_RELEASE}" 1343 ST="QNX[ Neutrino RTOS] ${v}" 1344 v=`echo "${v}" | sed -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\).*$;\1;'` 1345 SP="QNX[ Neutrino RTOS] ${v}" 1346 SC="QNX" 1347 ;; 1348 1349 # SGI IRIX 1350 *:IRIX*:* ) 1351 # determine architecture 1352 AT="${UNAME_MACHINE}" 1353 AP="${AT}" 1354 case "${AP}:${UNAME_SYSTEM}" in 1355 IP*:IRIX64 ) AP="MIPS64" ;; 1356 IP*:* ) AP="MIPS" ;; 1357 esac 1358 AC="${AP}" 1359 # determine system 1360 v=`(/bin/uname -R || /bin/uname -r) 2>/dev/null | sed -e 's;[0-9.]* ;;'` 1361 ST="[SGI ]IRIX ${v}" 1362 v="${UNAME_RELEASE}" 1363 SP="[SGI ]IRIX ${v}" 1364 SC="4.2BSD/SVR3" 1365 ;; 1366 1367 # HP HP-UX 1368 *:HP-UX:* ) 1369 # determine architecture 1370 AT="${UNAME_MACHINE}" 1371 case "${AT}" in 1372 ia64 ) AT="IA64" ;; 1373 9000/[34]?? ) AT=M68K ;; 1374 9000/[678][0-9][0-9]) 1375 sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` 1376 sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` 1377 case "${sc_cpu_version}" in 1378 523 ) AT="HPPA1.0" ;; 1379 528 ) AT="HPPA1.1" ;; 1380 532 ) AT="HPPA2.0" 1381 case "${sc_kernel_bits}" in 1382 32 ) AT="${AT}n" ;; 1383 64 ) AT="${AT}w" ;; 1384 esac 1385 ;; 1386 esac 1387 ;; 1388 esac 1389 AP="${AT}" 1390 case "${AP}" in 1391 HPPA* ) AP="HPPA" ;; 1392 esac 1393 AC="${AP}" 1394 # determine system 1395 v=`echo "${UNAME_RELEASE}" | sed -e 's;^[^0-9]*;;'` 1396 ST="[HP ]<HP>-<UX ${v}>" 1397 SP="${ST}" 1398 case "${v}" in 1399 10.* ) SC="SVR4.2" ;; 1400 [7-9]* ) SC="SVR4" ;; 1401 esac 1402 ;; 1403 1404 # HP Tru64 (OSF1) 1405 *:OSF1:* ) 1406 # determine architecture 1407 AP="${UNAME_MACHINE}" 1408 case "${AP}" in 1409 alpha ) AP="Alpha" ;; 1410 esac 1411 alpha_type=`(/usr/sbin/psrinfo -v) 2>/dev/null |\ 1412 sed -n -e 's/^.*The alpha \([^ ][^ ]*\).*processor.*$/\1/p' | sed -e 'q'` 1413 AT="${AP}${alpha_type}" 1414 AC="${AP}" 1415 # determine system 1416 v=`echo "${UNAME_RELEASE}" | sed -e 's;^[VTX];;'` 1417 ST="[HP ]Tru64 ${v}" 1418 SP="${ST}" 1419 SC="OSF1" 1420 ;; 1421 1422 # IBM AIX 1423 *:AIX:* ) 1424 # determine architecture 1425 cpu_arch=RS6000 1426 if [ -x /usr/sbin/lsdev -a -x /usr/sbin/lsattr ]; then 1427 cpu_id=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` 1428 if [ ".`/usr/sbin/lsattr -El ${cpu_id} | grep -i powerpc`" != . ]; then 1429 cpu_arch=PPC 1430 fi 1431 elif [ -d /QOpenSys ]; then 1432 # IBM i5/OS (aka OS/400) with PASE (Portable Application Solutions Environment) 1433 cpu_arch=PPC 1434 fi 1435 if [ -x /usr/bin/oslevel ]; then 1436 os_level=`/usr/bin/oslevel` 1437 else 1438 os_level="`uname -v`.`uname -r`" 1439 fi 1440 os_level=`echo "${os_level}" |\ 1441 sed -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\)\(\.[0-9][0-9]*\)\(.*\)$;<\1>\2[\3];' \ 1442 -e 's;^\([0-9][0-9]*\.[0-9][0-9]*\)\(.*\)$;<\1>\2;'` 1443 AT="${cpu_arch}" 1444 AP="${AT}" 1445 AC="${AP}" 1446 # determine system 1447 ST="[IBM ]<AIX >${os_level}" 1448 SP="${ST}" 1449 case "${os_level}" in 1450 [12]* ) SC="SVR2" ;; 1451 * ) SC="SVR4" ;; 1452 esac 1453 ;; 1454 1455 # Apple Mac OS X (Darwin) 1456 *:Darwin:* ) 1457 # determine architecture 1458 AT="`uname -p`" 1459 case "${AT}" in 1460 powerpc ) AT="PPC" ;; 1461 esac 1462 AP="${AT}" 1463 case "${AP}" in 1464 i?86 ) AP="iX86" ;; 1465 esac 1466 AC="${AP}" 1467 # determine system 1468 unset v1; unset v2; unset v3 1469 eval `echo "${UNAME_RELEASE}" |\ 1470 sed -e 's/^/#/' \ 1471 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"; v3="\3"/' \ 1472 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"/' \ 1473 -e 's/^#\([0-9][0-9]*\).*$/v1="\1"/' \ 1474 -e 's/^#.*$/v1="0"/'` 1475 ST="[Apple ]<${UNAME_SYSTEM} ${v1}>${v2+.$v2}${v3+[.$v3]}" 1476 SP="$ST" 1477 v="`(sw_vers) 2>/dev/null | grep 'ProductVersion:' | sed -e 's/^ProductVersion:[^0-9]*\([0-9][0-9.]*\).*$/\1/'`" 1478 if [ ".$v" = . ]; then 1479 for name in System Server; do 1480 if [ -f /System/Library/CoreServices/${name}Version.plist ]; then 1481 v=`(defaults read "/System/Library/CoreServices/${name}Version" "ProductVersion") 2>/dev/null` 1482 [ ".$v" != . ] && break 1483 fi 1484 done 1485 fi 1486 if [ ".$v" != . ]; then 1487 unset v1; unset v2; unset v3 1488 eval `echo "${v}" |\ 1489 sed -e 's/^/#/' \ 1490 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"; v3="\3"/' \ 1491 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"/' \ 1492 -e 's/^#\([0-9][0-9]*\).*$/v1="\1"/' \ 1493 -e 's/^#.*$/v1="0"/'` 1494 SP="[Apple ]Mac OS X ${v1}${v2+.$v2}${v3+[.$v3]}" 1495 fi 1496 SC="4.4BSD/Mach3.0" 1497 ;; 1498 1499 # Windows/Cygwin 1500 *:CYGWIN*:* ) 1501 # determine architecture 1502 AT="`uname -m`" 1503 AP="${AT}" 1504 case "${AP}" in 1505 i?86 ) AP="iX86" ;; 1506 esac 1507 AC="${AP}" 1508 # determine system 1509 unset v1; unset v2; unset v3 1510 eval `echo "${UNAME_RELEASE}" |\ 1511 sed -e 's/^/#/' \ 1512 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"; v3="\3"/' \ 1513 -e 's/^#\([0-9][0-9]*\)\.\([0-9][0-9]*\).*$/v1="\1"; v2="\2"/' \ 1514 -e 's/^#\([0-9][0-9]*\).*$/v1="\1"/' \ 1515 -e 's/^#.*$/v1="0"/'` 1516 ST="Cygwin ${v1}${v2+.$v2}${v3+[.$v3]}" 1517 SP="$ST" 1518 SC="Windows" 1519 v=`echo "${UNAME_SYSTEM}" | sed -e 's/^CYGWIN_NT-//' |\ 1520 sed -e 's/^/#/' -e 's/^#\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' -e 's/^#.*$//'` 1521 case "$v" in 1522 4.0 ) SC="$SC[ NT]" ;; 1523 5.0 ) SC="$SC[ 2000]" ;; 1524 5.1 ) SC="$SC[ XP]" ;; 1525 6.0 ) SC="$SC[ Vista]" ;; 1526 esac 1527 ;; 1528 1529 # TODO ...ADD YOUR NEW PLATFORM CHECK HERE... TODO 1530 # *:XXX:* ) 1531 # ... 1532 # ;; 1533 1534 # ...A STILL UNKNOWN PLATFORM... 1535 * ) 1536 AT=`echo "${UNAME_MACHINE}" | sed -e "s; ;${opt_C};g"` 1537 AP="${AT}" 1538 AC="${AP}" 1539 v=`echo "${UNAME_RELEASE}" |\ 1540 sed -e 's/^/#/' \ 1541 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \ 1542 -e 's/^#[^0-9]*\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/' \ 1543 -e 's/^#[^0-9]*\([0-9][0-9]*\).*$/\1/' \ 1544 -e 's/^#.*$/?/'` 1545 ST="${UNAME_SYSTEM} ${v}" 1546 SP="${ST}" 1547 SC="${SP}" 1548 ;; 1549 1550 esac 1551 1552 # provide fallback values 1553 [ ".$AT" = . ] && AT="${AP:-${AC}}" 1554 [ ".$AP" = . ] && AP="${AT:-${AC}}" 1555 [ ".$AC" = . ] && AC="${AP:-${AT}}" 1556 [ ".$ST" = . ] && ST="${SP:-${SC}}" 1557 [ ".$SP" = . ] && SP="${ST:-${SC}}" 1558 [ ".$SC" = . ] && SC="${SP:-${ST}}" 1559 1560 # support explicit enforced verbose/concise output 1561 if [ ".$opt_v" = .yes ]; then 1562 opt_F=`echo ":$opt_F" | sed -e 's/^://' -e 's/%\([as][cpt]\)/%[\1]/g'` 1563 elif [ ".$opt_c" = .yes ]; then 1564 opt_F=`echo ":$opt_F" | sed -e 's/^://' -e 's/%\([as][cpt]\)/%<\1>/g'` 1565 fi 1566 1567 # provide verbose and concise variants 1568 AC_V=""; AC_N=""; AC_C="" 1569 AP_V=""; AP_N=""; AP_C="" 1570 AT_V=""; AT_N=""; AT_C="" 1571 SC_V=""; SC_N=""; SC_C="" 1572 SP_V=""; SP_N=""; SP_C="" 1573 ST_V=""; ST_N=""; ST_C="" 1574 for var_lc in at ap ac st sp sc; do 1575 case "$opt_F" in 1576 *"%[${val_lc}]"* | *"%{${val_lc}}"* | *"%${val_lc}"* | *"%<${val_lc}>"* ) 1577 var_uc=`util_upper "$var_lc"` 1578 eval "val=\"\$${var_uc}\"" 1579 val_V=""; val_N=""; val_C="" 1580 case "$opt_F" in 1581 *"%[${var_lc}]"* ) 1582 val_V=`echo ":$val" | \ 1583 sed -e 's/^://' \ 1584 -e 's;\[\([^]]*\)\];\1;g' \ 1585 -e 's;<\([^>]*\)>;\1;g' \ 1586 -e "s; ;��;g" \ 1587 -e "s;/;%%;g" \ 1588 -e "s;��;${opt_S};g" \ 1589 -e "s;%%;${opt_C};g"` 1590 eval "${var_uc}_V=\"\${val_V}\"" 1591 ;; 1592 esac 1593 case "$opt_F" in 1594 *"%{${var_lc}}"* | *"%${var_lc}"* ) 1595 val_N=`echo ":$val" | \ 1596 sed -e 's/^://' \ 1597 -e 's;\[\([^]]*\)\];;g' \ 1598 -e 's;<\([^>]*\)>;\1;g' \ 1599 -e "s; ;��;g" \ 1600 -e "s;/;%%;g" \ 1601 -e "s;��;${opt_S};g" \ 1602 -e "s;%%;${opt_C};g"` 1603 eval "${var_uc}_N=\"\${val_N}\"" 1604 ;; 1605 esac 1606 case "$opt_F" in 1607 *"%<${var_lc}>"* ) 1608 val_C=`echo ":$val" | \ 1609 sed -e 's/^://' \ 1610 -e 's;\[\([^]]*\)\];;g' \ 1611 -e 's;[^<]*<\([^>]*\)>[^<]*;\1;g' \ 1612 -e "s; ;��;g" \ 1613 -e "s;/;%%;g" \ 1614 -e "s;��;${opt_S};g" \ 1615 -e "s;%%;${opt_C};g"` 1616 eval "${var_uc}_C=\"\${val_C}\"" 1617 ;; 1618 esac 1619 ;; 1620 esac 1621 done 1622 1623 # create output string 1624 output=`echo ":$opt_F" |\ 1625 sed -e "s/^://" \ 1626 -e "s;%\\[ac\\];${AC_V};g" \ 1627 -e "s;%{ac};${AC_N};g" \ 1628 -e "s;%ac;${AC_N};g" \ 1629 -e "s;%<ac>;${AC_C};g" \ 1630 -e "s;%\\[ap\\];${AP_V};g" \ 1631 -e "s;%{ap};${AP_N};g" \ 1632 -e "s;%ap;${AP_N};g" \ 1633 -e "s;%<ap>;${AP_C};g" \ 1634 -e "s;%\\[at\\];${AT_V};g" \ 1635 -e "s;%{at};${AT_N};g" \ 1636 -e "s;%at;${AT_N};g" \ 1637 -e "s;%<at>;${AT_C};g" \ 1638 -e "s;%\\[sc\\];${SC_V};g" \ 1639 -e "s;%{sc};${SC_N};g" \ 1640 -e "s;%sc;${SC_N};g" \ 1641 -e "s;%<sc>;${SC_C};g" \ 1642 -e "s;%\\[sp\\];${SP_V};g" \ 1643 -e "s;%{sp};${SP_N};g" \ 1644 -e "s;%sp;${SP_N};g" \ 1645 -e "s;%<sp>;${SP_C};g" \ 1646 -e "s;%\\[st\\];${ST_V};g" \ 1647 -e "s;%{st};${ST_N};g" \ 1648 -e "s;%st;${ST_N};g" \ 1649 -e "s;%<st>;${ST_C};g" \ 1650 -e 's/\\\\n/^/g' |\ 1651 tr '^' '\012'` 1652 1653 # support lower/upper-case mapping 1654 if [ ".$opt_L" = .yes ]; then 1655 output=`util_lower "$output"` 1656 elif [ ".$opt_U" = .yes ]; then 1657 output=`util_upper "$output"` 1658 fi 1659 1660 # display output string 1661 if [ ".$opt_n" = .yes ]; then 1662 echo . | awk '{ printf("%s", output); }' output="$output" 1663 else 1664 echo "$output" 1665 fi 1666 1667 shtool_exit 0 1668 ;; 1669 1670path ) 1671 ## 1672 ## path -- Deal with program paths 1673 ## Copyright (c) 1998-2008 Ralf S. Engelschall <rse@engelschall.com> 1674 ## 1675 1676 namelist="$*" 1677 1678 # check whether the test command supports the -x option 1679 if [ -x /bin/sh ] 2>/dev/null; then 1680 minusx="-x" 1681 else 1682 minusx="-r" 1683 fi 1684 1685 # split path string 1686 paths="`echo $opt_p |\ 1687 sed -e 's/^:/.:/' \ 1688 -e 's/::/:.:/g' \ 1689 -e 's/:$/:./' \ 1690 -e 's/:/ /g'`" 1691 1692 # SPECIAL REQUEST 1693 # translate forward to reverse path 1694 if [ ".$opt_r" = .yes ]; then 1695 if [ "x$namelist" = "x." ]; then 1696 rp='.' 1697 else 1698 rp='' 1699 for pe in `IFS="$IFS/"; echo $namelist`; do 1700 rp="../$rp" 1701 done 1702 fi 1703 echo $rp | sed -e 's:/$::' 1704 shtool_exit 0 1705 fi 1706 1707 # SPECIAL REQUEST 1708 # strip out directory or base name 1709 if [ ".$opt_d" = .yes ]; then 1710 echo "$namelist" |\ 1711 sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' 1712 shtool_exit 0 1713 fi 1714 if [ ".$opt_b" = .yes ]; then 1715 echo "$namelist" |\ 1716 sed -e 's;.*/\([^/]*\)$;\1;' 1717 shtool_exit 0 1718 fi 1719 1720 # MAGIC SITUATION 1721 # Perl Interpreter (perl) 1722 if [ ".$opt_m" = .yes ] && [ ".$namelist" = .perl ]; then 1723 rm -f $tmpfile >/dev/null 2>&1 1724 touch $tmpfile 1725 found=0 1726 pc=99 1727 for dir in $paths; do 1728 dir=`echo $dir | sed -e 's;/*$;;'` 1729 nc=99 1730 for name in perl perl5 miniperl; do 1731 if [ $minusx "$dir/$name" ] && [ ! -d "$dir/$name" ]; then 1732 perl="$dir/$name" 1733 pv=`$perl -e 'printf("%.3f", $]);'` 1734 echo "$pv:$pc:$nc:$perl" >>$tmpfile 1735 found=1 1736 fi 1737 nc=`expr $nc - 1` 1738 done 1739 pc=`expr $pc - 1` 1740 done 1741 if [ $found = 1 ]; then 1742 perl="`cat $tmpfile | sort -r -u | sed -e 'q' | cut -d: -f4`" 1743 rm -f $tmpfile >/dev/null 2>&1 1744 echo "$perl" 1745 shtool_exit 0 1746 fi 1747 rm -f $tmpfile >/dev/null 2>&1 1748 shtool_exit 1 1749 fi 1750 1751 # MAGIC SITUATION 1752 # C pre-processor (cpp) 1753 if [ ".$opt_m" = .yes ] && [ ".$namelist" = .cpp ]; then 1754 echo >$tmpfile.c "#include <assert.h>" 1755 echo >>$tmpfile.c "Syntax Error" 1756 # 1. try the standard cc -E approach 1757 cpp="${CC-cc} -E" 1758 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out 1759 my_error=`grep -v '^ *+' $tmpfile.out` 1760 if [ ".$my_error" != . ]; then 1761 # 2. try the cc -E approach and GCC's -traditional-ccp option 1762 cpp="${CC-cc} -E -traditional-cpp" 1763 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out 1764 my_error=`grep -v '^ *+' $tmpfile.out` 1765 if [ ".$my_error" != . ]; then 1766 # 3. try a standalone cpp command in path and lib dirs 1767 for path in $paths /lib /usr/lib /usr/local/lib; do 1768 path=`echo $path | sed -e 's;/*$;;'` 1769 if [ $minusx "$path/cpp" ] && [ ! -d "$path/cpp" ]; then 1770 cpp="$path/cpp" 1771 break 1772 fi 1773 done 1774 if [ ".$cpp" != . ]; then 1775 (eval "$cpp $tmpfile.c >/dev/null") 2>$tmpfile.out 1776 my_error=`grep -v '^ *+' $tmpfile.out` 1777 if [ ".$my_error" != . ]; then 1778 # ok, we gave up... 1779 cpp='' 1780 fi 1781 fi 1782 fi 1783 fi 1784 rm -f $tmpfile >/dev/null 2>&1 1785 rm -f $tmpfile.c $tmpfile.out >/dev/null 2>&1 1786 if [ ".$cpp" != . ]; then 1787 echo "$cpp" 1788 shtool_exit 0 1789 fi 1790 shtool_exit 1 1791 fi 1792 1793 # STANDARD SITUATION 1794 # iterate over names 1795 for name in $namelist; do 1796 # iterate over paths 1797 for path in $paths; do 1798 path=`echo $path | sed -e 's;/*$;;'` 1799 if [ $minusx "$path/$name" ] && [ ! -d "$path/$name" ]; then 1800 if [ ".$opt_s" != .yes ]; then 1801 echo "$path/$name" 1802 fi 1803 shtool_exit 0 1804 fi 1805 done 1806 done 1807 1808 shtool_exit 1 1809 ;; 1810 1811esac 1812 1813shtool_exit 0 1814 1815
