po/shtool

   1 #!/bin/sh
   2 ##
   3 ##  GNU shtool -- The GNU Portable Shell Tool
   4 ##  Copyright (c) 1994-2000 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 1.4.9 (16-Apr-2000)
  10 ##  Ingredients: 3/17 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 ##
  45 ##  Not available commands (because module was not built-in):
  46 ##    mdate      Pretty-print modification time of a file or dir
  47 ##    table      Pretty-print a field-separated list as a table
  48 ##    prop       Display progress with a running propeller
  49 ##    move       Move files with simultaneous substitution
  50 ##    mkln       Make link with calculation of relative paths
  51 ##    mkshadow   Make a shadow tree through symbolic links
  52 ##    fixperm    Fix file permissions inside a source tree
  53 ##    tarball    Roll distribution tarballs
  54 ##    guessos    Simple operating system guesser
  55 ##    arx        Extended archive command
  56 ##    slo        Separate linker options by library class
  57 ##    scpp       Sharing C Pre-Processor
  58 ##    version    Generate and maintain a version information file
  59 ##    path       Deal with program paths
  60 ##
  61
  62 if [ $# -eq 0 ]; then
  63     echo "$0:Error: invalid command line" 1>&2
  64     echo "$0:Hint:  run \`$0 -h' for usage" 1>&2
  65     exit 1
  66 fi
  67 if [ ".$1" = ".-h" -o ".$1" = ".--help" ]; then
  68     echo "This is GNU shtool, version 1.4.9 (16-Apr-2000)"
  69     echo "Copyright (c) 1994-2000 Ralf S. Engelschall <rse@engelschall.com>"
  70     echo "Report bugs to <bug-shtool@gnu.org>"
  71     echo ''
  72     echo "Usage: shtool [<options>] [<cmd-name> [<cmd-options>] [<cmd-args>]]"
  73     echo ''
  74     echo 'Available global <options>:'
  75     echo '  -v, --version   display shtool version information'
  76     echo '  -h, --help      display shtool usage help page (this one)'
  77     echo '  -d, --debug     display shell trace information'
  78     echo ''
  79     echo 'Available <cmd-name> [<cmd-options>] [<cmd-args>]:'
  80     echo '  echo     [-n] [-e] [<str> ...]'
  81     echo '  install  [-v] [-t] [-c] [-C] [-s] [-m<mode>] [-o<owner>] [-g<group>]'
  82     echo '           [-e<ext>] <file> <path>'
  83     echo '  mkdir    [-t] [-f] [-p] [-m<mode>] <dir> [<dir> ...]'
  84     echo ''
  85     echo 'Not available <cmd-name> (because module was not built-in):'
  86     echo '  mdate    [-n] [-z] [-s] [-d] [-f<str>] [-o<spec>] <path>'
  87     echo '  table    [-F<sep>] [-w<width>] [-c<cols>] [-s<strip>] <str><sep><str>...'
  88     echo '  prop     [-p<str>]'
  89     echo '  move     [-v] [-t] [-e] [-p] <src-file> <dst-file>'
  90     echo '  mkln     [-t] [-f] [-s] <src-path> [<src-path> ...] <dst-path>'
  91     echo '  mkshadow [-v] [-t] [-a] <src-dir> <dst-dir>'
  92     echo '  fixperm  [-v] [-t] <path> [<path> ...]'
  93     echo '  tarball  [-t] [-v] [-o <tarball>] [-c <prog>] [-d <dir>] [-u'
  94     echo '           <user>] [-g <group>] [-e <pattern>] <path> [<path> ...]'
  95     echo '  guessos  '
  96     echo '  arx      [-t] [-C<cmd>] <op> <archive> [<file> ...]'
  97     echo '  slo      [-p<str>] -- -L<dir> -l<lib> [-L<dir> -l<lib> ...]'
  98     echo '  scpp     [-v] [-p] [-f<filter>] [-o<ofile>] [-t<tfile>] [-M<mark>]'
  99     echo '           [-D<dname>] [-C<cname>] <file> [<file> ...]'
 100     echo '  version  [-l<lang>] [-n<name>] [-p<prefix>] [-s<version>] [-i<knob>]'
 101     echo '           [-d<type>] <file>'
 102     echo '  path     [-s] [-r] [-d] [-b] [-m] [-p<path>] <str> [<str> ...]'
 103     echo ''
 104     exit 0
 105 fi
 106 if [ ".$1" = ".-v" -o ".$1" = ."--version" ]; then
 107     echo "GNU shtool 1.4.9 (16-Apr-2000)"
 108     exit 0
 109 fi
 110 if [ ".$1" = ".-d" -o ".$1" = ."--debug" ]; then
 111     shift
 112     set -x
 113 fi
 114 name=`echo "$0" | sed -e 's;.*/\([^/]*\)$;\1;' -e 's;-sh$;;' -e 's;\.sh$;;'`
 115 case "$name" in
 116     echo|install|mkdir )
 117         #   implicit tool command selection
 118         tool="$name"
 119         ;;
 120     * )
 121         #   explicit tool command selection
 122         tool="$1"
 123         shift
 124         ;;
 125 esac
 126 arg_spec=""
 127 opt_spec=""
 128 gen_tmpfile=no
 129
 130 ##
 131 ##  DISPATCH INTO SCRIPT PROLOG
 132 ##
 133
 134 case $tool in
 135     echo )
 136         str_tool="echo"
 137         str_usage="[-n] [-e] [<str> ...]"
 138         arg_spec="0+"
 139         opt_spec="n.e."
 140         opt_n=no
 141         opt_e=no
 142         ;;
 143     install )
 144         str_tool="install"
 145         str_usage="[-v] [-t] [-c] [-C] [-s] [-m<mode>] [-o<owner>] [-g<group>] [-e<ext>] <file> <path>"
 146         arg_spec="2="
 147         opt_spec="v.t.c.C.s.m:o:g:e:"
 148         opt_v=no
 149         opt_t=no
 150         opt_c=no
 151         opt_C=no
 152         opt_s=no
 153         opt_m=""
 154         opt_o=""
 155         opt_g=""
 156         opt_e=""
 157         ;;
 158     mkdir )
 159         str_tool="mkdir"
 160         str_usage="[-t] [-f] [-p] [-m<mode>] <dir> [<dir> ...]"
 161         arg_spec="1+"
 162         opt_spec="t.f.p.m:"
 163         opt_t=no
 164         opt_f=no
 165         opt_p=no
 166         opt_m=""
 167         ;;
 168     -* )
 169         echo "$0:Error: unknown option \`$tool'" 2>&1
 170         echo "$0:Hint:  run \`$0 -h' for usage" 2>&1
 171         exit 1
 172         ;;
 173     * )
 174         echo "$0:Error: unknown command \`$tool'" 2>&1
 175         echo "$0:Hint:  run \`$0 -h' for usage" 2>&1
 176         exit 1
 177         ;;
 178 esac
 179
 180 ##
 181 ##  COMMON UTILITY CODE
 182 ##
 183
 184 #   determine name of tool
 185 if [ ".$tool" != . ]; then
 186     #   used inside shtool script
 187     toolcmd="$0 $tool"
 188     toolcmdhelp="shtool $tool"
 189     msgprefix="shtool:$tool"
 190 else
 191     #   used as standalone script
 192     toolcmd="$0"
 193     toolcmdhelp="sh $0"
 194     msgprefix="$str_tool"
 195 fi
 196
 197 #   parse argument specification string
 198 eval `echo $arg_spec |\
 199       sed -e 's/^\([0-9]*\)\([+=]\)/arg_NUMS=\1; arg_MODE=\2/'`
 200
 201 #   parse option specification string
 202 eval `echo h.$opt_spec |\
 203       sed -e 's/\([a-zA-Z0-9]\)\([.:+]\)/opt_MODE_\1=\2;/g'`
 204
 205 #   interate over argument line
 206 opt_PREV=''
 207 while [ $# -gt 0 ]; do
 208     #   special option stops processing
 209     if [ ".$1" = ".--" ]; then
 210         shift
 211         break
 212     fi
 213
 214     #   determine option and argument
 215     opt_ARG_OK=no
 216     if [ ".$opt_PREV" != . ]; then
 217         #   merge previous seen option with argument
 218         opt_OPT="$opt_PREV"
 219         opt_ARG="$1"
 220         opt_ARG_OK=yes
 221         opt_PREV=''
 222     else
 223         #   split argument into option and argument
 224         case "$1" in
 225             -[a-zA-Z0-9]*)
 226                 eval `echo "x$1" |\
 227                       sed -e 's/^x-\([a-zA-Z0-9]\)/opt_OPT="\1";/' \
 228                           -e 's/";\(.*\)$/"; opt_ARG="\1"/'`
 229                 ;;
 230             -[a-zA-Z0-9])
 231                 opt_OPT=`echo "x$1" | cut -c3-`
 232                 opt_ARG=''
 233                 ;;
 234             *)
 235                 break
 236                 ;;
 237         esac
 238     fi
 239
 240     #   eat up option
 241     shift
 242
 243     #   determine whether option needs an argument
 244     eval "opt_MODE=\$opt_MODE_${opt_OPT}"
 245     if [ ".$opt_ARG" = . -a ".$opt_ARG_OK" != .yes ]; then
 246         if [ ".$opt_MODE" = ".:" -o ".$opt_MODE" = ".+" ]; then
 247             opt_PREV="$opt_OPT"
 248             continue
 249         fi
 250     fi
 251
 252     #   process option
 253     case $opt_MODE in
 254         '.' )
 255             #   boolean option
 256             eval "opt_${opt_OPT}=yes"
 257             ;;
 258         ':' )
 259             #   option with argument (multiple occurances override)
 260             eval "opt_${opt_OPT}=\"\$opt_ARG\""
 261             ;;
 262         '+' )
 263             #   option with argument (multiple occurances append)
 264             eval "opt_${opt_OPT}=\"\$opt_${opt_OPT} \$opt_ARG\""
 265             ;;
 266         * )
 267             echo "$msgprefix:Error: unknown option: \`-$opt_OPT'" 1>&2
 268             echo "$msgprefix:Hint:  run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2
 269             exit 1
 270             ;;
 271     esac
 272 done
 273 if [ ".$opt_PREV" != . ]; then
 274     echo "$msgprefix:Error: missing argument to option \`-$opt_PREV'" 1>&2
 275     echo "$msgprefix:Hint:  run \`$toolcmdhelp -h' or \`man shtool' for details" 1>&2
 276     exit 1
 277 fi
 278
 279 #   process help option
 280 if [ ".$opt_h" = .yes ]; then
 281     echo "Usage: $toolcmdhelp $str_usage"
 282     exit 0
 283 fi
 284
 285 #   complain about incorrect number of arguments
 286 case $arg_MODE in
 287     '=' )
 288         if [ $# -ne $arg_NUMS ]; then
 289             echo "$msgprefix:Error: invalid number of arguments (exactly $arg_NUMS expected)" 1>&2
 290             echo "$msgprefix:Hint:  run \`$toolcmd -h' or \`man shtool' for details" 1>&2
 291             exit 1
 292         fi
 293         ;;
 294     '+' )
 295         if [ $# -lt $arg_NUMS ]; then
 296             echo "$msgprefix:Error: invalid number of arguments (at least $arg_NUMS expected)" 1>&2
 297             echo "$msgprefix:Hint:  run \`$toolcmd -h' or \`man shtool' for details" 1>&2
 298             exit 1
 299         fi
 300         ;;
 301 esac
 302
 303 #   establish a temporary file on request
 304 if [ ".$gen_tmpfile" = .yes ]; then
 305     if [ ".$TMPDIR" != . ]; then
 306         tmpdir="$TMPDIR"
 307     elif [ ".$TEMPDIR" != . ]; then
 308         tmpdir="$TEMPDIR"
 309     else
 310         tmpdir="/tmp"
 311     fi
 312     tmpfile="$tmpdir/.shtool.$$"
 313     rm -f $tmpfile >/dev/null 2>&1
 314     touch $tmpfile
 315 fi
 316
 317 ##
 318 ##  DISPATCH INTO SCRIPT BODY
 319 ##
 320
 321 case $tool in
 322
 323 echo )
 324     ##
 325     ##  echo -- Print string with optional construct expansion
 326     ##  Copyright (c) 1998-2000 Ralf S. Engelschall <rse@engelschall.com>
 327     ##  Originally written for WML as buildinfo
 328     ##
 329
 330     text="$*"
 331
 332     #   check for broken escape sequence expansion
 333     seo=''
 334     bytes=`echo '\1' | wc -c | awk '{ printf("%s", $1); }'`
 335     if [ ".$bytes" != .3 ]; then
 336         bytes=`echo -E '\1' | wc -c | awk '{ printf("%s", $1); }'`
 337         if [ ".$bytes" = .3 ]; then
 338             seo='-E'
 339         fi
 340     fi
 341
 342     #   check for existing -n option (to suppress newline)
 343     minusn=''
 344     bytes=`echo -n 123 2>/dev/null | wc -c | awk '{ printf("%s", $1); }'`
 345     if [ ".$bytes" = .3 ]; then
 346         minusn='-n'
 347     fi
 348
 349     #   determine terminal bold sequence
 350     term_bold=''
 351     term_norm=''
 352     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%[Bb]'`" != . ]; then
 353         case $TERM in
 354             #   for the most important terminal types we directly know the sequences
 355             xterm|xterm*|vt220|vt220*)
 356                 term_bold=`awk 'BEGIN { printf("%c%c%c%c", 27, 91, 49, 109); }' </dev/null 2>/dev/null`
 357                 term_norm=`awk 'BEGIN { printf("%c%c%c", 27, 91, 109); }' </dev/null 2>/dev/null`
 358                 ;;
 359             vt100|vt100*)
 360                 term_bold=`awk 'BEGIN { printf("%c%c%c%c%c%c", 27, 91, 49, 109, 0, 0); }' </dev/null 2>/dev/null`
 361                 term_norm=`awk 'BEGIN { printf("%c%c%c%c%c", 27, 91, 109, 0, 0); }' </dev/null 2>/dev/null`
 362                 ;;
 363             #   for all others, we try to use a possibly existing `tput' or `tcout' utility
 364             * )
 365                 paths=`echo $PATH | sed -e 's/:/ /g'`
 366                 for tool in tput tcout; do
 367                     for dir in $paths; do
 368                         if [ -r "$dir/$tool" ]; then
 369                             for seq in bold md smso; do # 'smso' is last
 370                                 bold="`$dir/$tool $seq 2>/dev/null`"
 371                                 if [ ".$bold" != . ]; then
 372                                     term_bold="$bold"
 373                                     break
 374                                 fi
 375                             done
 376                             if [ ".$term_bold" != . ]; then
 377                                 for seq in sgr0 me rmso reset; do # 'reset' is last
 378                                     norm="`$dir/$tool $seq 2>/dev/null`"
 379                                     if [ ".$norm" != . ]; then
 380                                         term_norm="$norm"
 381                                         break
 382                                     fi
 383                                 done
 384                             fi
 385                             break
 386                         fi
 387                     done
 388                     if [ ".$term_bold" != . -a ".$term_norm" != . ]; then
 389                         break;
 390                     fi
 391                 done
 392                 ;;
 393         esac
 394         if [ ".$term_bold" = . -o ".$term_norm" = . ]; then
 395             echo "$msgprefix:Warning: unable to determine terminal sequence for bold mode" 1>&2
 396         fi
 397     fi
 398
 399     #   determine user name
 400     username=''
 401     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%[uU]'`" != . ]; then
 402         username="$LOGNAME"
 403         if [ ".$username" = . ]; then
 404             username="$USER"
 405             if [ ".$username" = . ]; then
 406                 username="`(whoami) 2>/dev/null |\
 407                            awk '{ printf("%s", $1); }'`"
 408                 if [ ".$username" = . ]; then
 409                     username="`(who am i) 2>/dev/null |\
 410                                awk '{ printf("%s", $1); }'`"
 411                     if [ ".$username" = . ]; then
 412                         username='unknown'
 413                     fi
 414                 fi
 415             fi
 416         fi
 417     fi
 418
 419     #   determine user id
 420     userid=''
 421     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%U'`" != . ]; then
 422         userid="`(id -u) 2>/dev/null`"
 423         if [ ".$userid" = . ]; then
 424             str="`(id) 2>/dev/null`"
 425             if [ ".`echo $str | grep '^uid[     ]*=[    ]*[0-9]*('`" != . ]; then
 426                 userid=`echo $str | sed -e 's/^uid[     ]*=[    ]*//' -e 's/(.*//'`
 427             fi
 428             if [ ".$userid" = . ]; then
 429                 userid=`egrep "^${username}:" /etc/passwd 2>/dev/null | \
 430                         sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
 431                 if [ ".$userid" = . ]; then
 432                     userid=`(ypcat passwd) 2>/dev/null |
 433                             egrep "^${username}:" | \
 434                             sed -e 's/[^:]*:[^:]*://' -e 's/:.*$//'`
 435                     if [ ".$userid" = . ]; then
 436                         userid='?'
 437                     fi
 438                 fi
 439             fi
 440         fi
 441     fi
 442
 443     #   determine host name
 444     hostname=''
 445     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%h'`" != . ]; then
 446         hostname="`(uname -n) 2>/dev/null |\
 447                    awk '{ printf("%s", $1); }'`"
 448         if [ ".$hostname" = . ]; then
 449             hostname="`(hostname) 2>/dev/null |\
 450                        awk '{ printf("%s", $1); }'`"
 451             if [ ".$hostname" = . ]; then
 452                 hostname='unknown'
 453             fi
 454         fi
 455         case $hostname in
 456             *.* )
 457                 domainname=".`echo $hostname | cut -d. -f2-`"
 458                 hostname="`echo $hostname | cut -d. -f1`"
 459                 ;;
 460         esac
 461     fi
 462
 463     #   determine domain name
 464     domainname=''
 465     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%d'`" != . ]; then
 466         if [ ".$domainname" = . ]; then
 467             if [ -f /etc/resolv.conf ]; then
 468                 domainname="`egrep '^[  ]*domain' /etc/resolv.conf | head -1 |\
 469                              sed -e 's/.*domain//' \
 470                                  -e 's/^[       ]*//' -e 's/^ *//' -e 's/^      *//' \
 471                                  -e 's/^\.//' -e 's/^/./' |\
 472                              awk '{ printf("%s", $1); }'`"
 473                 if [ ".$domainname" = . ]; then
 474                     domainname="`egrep '^[      ]*search' /etc/resolv.conf | head -1 |\
 475                                  sed -e 's/.*search//' \
 476                                      -e 's/^[   ]*//' -e 's/^ *//' -e 's/^      *//' \
 477                                      -e 's/ .*//' -e 's/        .*//' \
 478                                      -e 's/^\.//' -e 's/^/./' |\
 479                                  awk '{ printf("%s", $1); }'`"
 480                 fi
 481             fi
 482         fi
 483     fi
 484
 485     #   determine current time
 486     time_day=''
 487     time_month=''
 488     time_year=''
 489     time_monthname=''
 490     if [ ".$opt_e" = .yes -a ".`echo $text | egrep '%[DMYm]'`" != . ]; then
 491         time_day=`date '+%d'`
 492         time_month=`date '+%m'`
 493         time_year=`date '+%Y' 2>/dev/null`
 494         if [ ".$time_year" = . ]; then
 495             time_year=`date '+%y'`
 496             case $time_year in
 497                 [5-9][0-9]) time_year="19$time_year" ;;
 498                 [0-4][0-9]) time_year="20$time_year" ;;
 499             esac
 500         fi
 501         case $time_month in
 502             1|01) time_monthname='Jan' ;;
 503             2|02) time_monthname='Feb' ;;
 504             3|03) time_monthname='Mar' ;;
 505             4|04) time_monthname='Apr' ;;
 506             5|05) time_monthname='May' ;;
 507             6|06) time_monthname='Jun' ;;
 508             7|07) time_monthname='Jul' ;;
 509             8|08) time_monthname='Aug' ;;
 510             9|09) time_monthname='Sep' ;;
 511               10) time_monthname='Oct' ;;
 512               11) time_monthname='Nov' ;;
 513               12) time_monthname='Dec' ;;
 514         esac
 515     fi
 516
 517     #   expand special ``%x'' constructs
 518     if [ ".$opt_e" = .yes ]; then
 519         text=`echo $seo "$text" |\
 520               sed -e "s/%B/${term_bold}/g" \
 521                   -e "s/%b/${term_norm}/g" \
 522                   -e "s/%u/${username}/g" \
 523                   -e "s/%U/${userid}/g" \
 524                   -e "s/%h/${hostname}/g" \
 525                   -e "s/%d/${domainname}/g" \
 526                   -e "s/%D/${time_day}/g" \
 527                   -e "s/%M/${time_month}/g" \
 528                   -e "s/%Y/${time_year}/g" \
 529                   -e "s/%m/${time_monthname}/g" 2>/dev/null`
 530     fi
 531
 532     #   create output
 533     if [ .$opt_n = .no ]; then
 534         echo $seo "$text"
 535     else
 536         #   the harder part: echo -n is best, because
 537         #   awk may complain about some \xx sequences.
 538         if [ ".$minusn" != . ]; then
 539             echo $seo $minusn "$text"
 540         else
 541             echo dummy | awk '{ printf("%s", TEXT); }' TEXT="$text"
 542         fi
 543     fi
 544     ;;
 545
 546 install )
 547     ##
 548     ##  install -- Install a program, script or datafile
 549     ##  Copyright (c) 1997-2000 Ralf S. Engelschall <rse@engelschall.com>
 550     ##  Originally written for shtool
 551     ##
 552
 553     src="$1"
 554     dst="$2"
 555
 556     #  If destination is a directory, append the input filename
 557     if [ -d $dst ]; then
 558         dst=`echo "$dst" | sed -e 's:/$::'`
 559         dstfile=`echo "$src" | sed -e 's;.*/\([^/]*\)$;\1;'`
 560         dst="$dst/$dstfile"
 561     fi
 562
 563     #  Add a possible extension to src and dst
 564     if [ ".$opt_e" != . ]; then
 565         src="$src$opt_e"
 566         dst="$dst$opt_e"
 567     fi
 568
 569     #  Check for correct arguments
 570     if [ ".$src" = ".$dst" ]; then
 571         echo "$msgprefix:Error: source and destination are the same" 1>&2
 572         exit 1
 573     fi
 574
 575     #  Make a temp file name in the destination directory
 576     dstdir=`echo $dst | sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;'`
 577     dsttmp="$dstdir/#INST@$$#"
 578
 579     #  Verbosity
 580     if [ ".$opt_v" = .yes ]; then
 581         echo "$src -> $dst" 1>&2
 582     fi
 583
 584     #  Copy or move the file name to the temp name
 585     #  (because we might be not allowed to change the source)
 586     if [ ".$opt_C" = .yes ]; then
 587         opt_c=yes
 588     fi
 589     if [ ".$opt_c" = .yes ]; then
 590         if [ ".$opt_t" = .yes ]; then
 591             echo "cp $src $dsttmp" 1>&2
 592         fi
 593         cp $src $dsttmp || exit $?
 594     else
 595         if [ ".$opt_t" = .yes ]; then
 596             echo "mv $src $dsttmp" 1>&2
 597         fi
 598         mv $src $dsttmp || exit $?
 599     fi
 600
 601     #  Adjust the target file
 602     #  (we do chmod last to preserve setuid bits)
 603     if [ ".$opt_s" = .yes ]; then
 604         if [ ".$opt_t" = .yes ]; then
 605             echo "strip $dsttmp" 1>&2
 606         fi
 607         strip $dsttmp || exit $?
 608     fi
 609     if [ ".$opt_o" != . ]; then
 610         if [ ".$opt_t" = .yes ]; then
 611             echo "chown $opt_o $dsttmp" 1>&2
 612         fi
 613         chown $opt_o $dsttmp || exit $?
 614     fi
 615     if [ ".$opt_g" != . ]; then
 616         if [ ".$opt_t" = .yes ]; then
 617             echo "chgrp $opt_g $dsttmp" 1>&2
 618         fi
 619         chgrp $opt_g $dsttmp || exit $?
 620     fi
 621     if [ ".$opt_m" != . ]; then
 622         if [ ".$opt_t" = .yes ]; then
 623             echo "chmod $opt_m $dsttmp" 1>&2
 624         fi
 625         chmod $opt_m $dsttmp || exit $?
 626     fi
 627
 628     #   Determine whether to do a quick install
 629     #   (has to be done _after_ the strip was already done)
 630     quick=no
 631     if [ ".$opt_C" = .yes ]; then
 632         if [ -r $dst ]; then
 633             if cmp -s $src $dst; then
 634                 quick=yes
 635             fi
 636         fi
 637     fi
 638
 639     #   Finally install the file to the real destination
 640     if [ $quick = yes ]; then
 641         if [ ".$opt_t" = .yes ]; then
 642             echo "rm -f $dsttmp" 1>&2
 643         fi
 644         rm -f $dsttmp
 645     else
 646         if [ ".$opt_t" = .yes ]; then
 647             echo "rm -f $dst && mv $dsttmp $dst" 1>&2
 648         fi
 649         rm -f $dst && mv $dsttmp $dst
 650     fi
 651     ;;
 652
 653 mkdir )
 654     ##
 655     ##  mkdir -- Make one or more directories
 656     ##  Copyright (c) 1996-2000 Ralf S. Engelschall <rse@engelschall.com>
 657     ##  Originally written for public domain by Noah Friedman <friedman@prep.ai.mit.edu>
 658     ##  Cleaned up and enhanced for shtool
 659     ##
 660
 661     errstatus=0
 662     for p in ${1+"$@"}; do
 663         #   if the directory already exists...
 664         if [ -d "$p" ]; then
 665             if [ ".$opt_f" = .no ] && [ ".$opt_p" = .no ]; then
 666                 echo "$msgprefix:Error: directory already exists: $p" 1>&2
 667                 errstatus=1
 668                 break
 669             else
 670                 continue
 671             fi
 672         fi
 673         #   if the directory has to be created...
 674         if [ ".$opt_p" = .no ]; then
 675             if [ ".$opt_t" = .yes ]; then
 676                 echo "mkdir $p" 1>&2
 677             fi
 678             mkdir $p || errstatus=$?
 679         else
 680             #   the smart situation
 681             set fnord `echo ":$p" |\
 682                        sed -e 's/^:\//%/' \
 683                            -e 's/^://' \
 684                            -e 's/\// /g' \
 685                            -e 's/^%/\//'`
 686             shift
 687             pathcomp=''
 688             for d in ${1+"$@"}; do
 689                 pathcomp="$pathcomp$d"
 690                 case "$pathcomp" in
 691                     -* ) pathcomp="./$pathcomp" ;;
 692                 esac
 693                 if [ ! -d "$pathcomp" ]; then
 694                     if [ ".$opt_t" = .yes ]; then
 695                         echo "mkdir $pathcomp" 1>&2
 696                     fi
 697                     mkdir $pathcomp || errstatus=$?
 698                     if [ ".$opt_m" != . ]; then
 699                         if [ ".$opt_t" = .yes ]; then
 700                             echo "chmod $opt_m $pathcomp" 1>&2
 701                         fi
 702                         chmod $opt_m $pathcomp || errstatus=$?
 703                     fi
 704                 fi
 705                 pathcomp="$pathcomp/"
 706             done
 707         fi
 708     done
 709     exit $errstatus
 710     ;;
 711
 712 esac
 713
 714 exit 0
 715
 716 ##EOF##