Annotation of gforth/install-sh, revision 1.3

1.1       anton       1: #!/bin/sh
1.3     ! anton       2: # install - install a program, script, or datafile
        !             3: 
        !             4: scriptversion=2006-10-14.15
        !             5: 
        !             6: # This originates from X11R5 (mit/util/scripts/install.sh), which was
        !             7: # later released in X11R6 (xc/config/util/install.sh) with the
        !             8: # following copyright and license.
        !             9: #
        !            10: # Copyright (C) 1994 X Consortium
1.1       anton      11: #
1.3     ! anton      12: # Permission is hereby granted, free of charge, to any person obtaining a copy
        !            13: # of this software and associated documentation files (the "Software"), to
        !            14: # deal in the Software without restriction, including without limitation the
        !            15: # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
        !            16: # sell copies of the Software, and to permit persons to whom the Software is
        !            17: # furnished to do so, subject to the following conditions:
        !            18: #
        !            19: # The above copyright notice and this permission notice shall be included in
        !            20: # all copies or substantial portions of the Software.
        !            21: #
        !            22: # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
        !            23: # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
        !            24: # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
        !            25: # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
        !            26: # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
        !            27: # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
        !            28: #
        !            29: # Except as contained in this notice, the name of the X Consortium shall not
        !            30: # be used in advertising or otherwise to promote the sale, use or other deal-
        !            31: # ings in this Software without prior written authorization from the X Consor-
        !            32: # tium.
1.2       anton      33: #
                     34: #
1.3     ! anton      35: # FSF changes to this file are in the public domain.
1.1       anton      36: #
                     37: # Calling this script install-sh is preferred over install.sh, to prevent
                     38: # `make' implicit rules from creating a file called install from it
                     39: # when there is no Makefile.
                     40: #
                     41: # This script is compatible with the BSD install script, but was written
1.3     ! anton      42: # from scratch.
1.1       anton      43: 
1.3     ! anton      44: nl='
        !            45: '
        !            46: IFS=" ""       $nl"
1.1       anton      47: 
                     48: # set DOITPROG to echo to test this script
                     49: 
                     50: # Don't use :- since 4.3BSD and earlier shells don't like it.
                     51: doit="${DOITPROG-}"
1.3     ! anton      52: if test -z "$doit"; then
        !            53:   doit_exec=exec
        !            54: else
        !            55:   doit_exec=$doit
        !            56: fi
1.1       anton      57: 
1.3     ! anton      58: # Put in absolute file names if you don't have them in your path;
        !            59: # or use environment vars.
1.1       anton      60: 
                     61: mvprog="${MVPROG-mv}"
                     62: cpprog="${CPPROG-cp}"
                     63: chmodprog="${CHMODPROG-chmod}"
                     64: chownprog="${CHOWNPROG-chown}"
                     65: chgrpprog="${CHGRPPROG-chgrp}"
                     66: stripprog="${STRIPPROG-strip}"
                     67: rmprog="${RMPROG-rm}"
                     68: mkdirprog="${MKDIRPROG-mkdir}"
                     69: 
1.3     ! anton      70: posix_glob=
        !            71: posix_mkdir=
        !            72: 
        !            73: # Desired mode of installed file.
        !            74: mode=0755
        !            75: 
        !            76: chmodcmd=$chmodprog
        !            77: chowncmd=
        !            78: chgrpcmd=
        !            79: stripcmd=
1.1       anton      80: rmcmd="$rmprog -f"
                     81: mvcmd="$mvprog"
1.3     ! anton      82: src=
        !            83: dst=
        !            84: dir_arg=
        !            85: dstarg=
        !            86: no_target_directory=
        !            87: 
        !            88: usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
        !            89:    or: $0 [OPTION]... SRCFILES... DIRECTORY
        !            90:    or: $0 [OPTION]... -t DIRECTORY SRCFILES...
        !            91:    or: $0 [OPTION]... -d DIRECTORIES...
        !            92: 
        !            93: In the 1st form, copy SRCFILE to DSTFILE.
        !            94: In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
        !            95: In the 4th, create DIRECTORIES.
        !            96: 
        !            97: Options:
        !            98: -c         (ignored)
        !            99: -d         create directories instead of installing files.
        !           100: -g GROUP   $chgrpprog installed files to GROUP.
        !           101: -m MODE    $chmodprog installed files to MODE.
        !           102: -o USER    $chownprog installed files to USER.
        !           103: -s         $stripprog installed files.
        !           104: -t DIRECTORY  install into DIRECTORY.
        !           105: -T         report an error if DSTFILE is a directory.
        !           106: --help     display this help and exit.
        !           107: --version  display version info and exit.
        !           108: 
        !           109: Environment variables override the default commands:
        !           110:   CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG
        !           111: "
        !           112: 
        !           113: while test $# -ne 0; do
        !           114:   case $1 in
        !           115:     -c) shift
        !           116:         continue;;
        !           117: 
        !           118:     -d) dir_arg=true
        !           119:         shift
        !           120:         continue;;
        !           121: 
        !           122:     -g) chgrpcmd="$chgrpprog $2"
        !           123:         shift
        !           124:         shift
        !           125:         continue;;
        !           126: 
        !           127:     --help) echo "$usage"; exit $?;;
        !           128: 
        !           129:     -m) mode=$2
        !           130:         shift
        !           131:         shift
        !           132:        case $mode in
        !           133:          *' '* | *'    '* | *'
        !           134: '*       | *'*'* | *'?'* | *'['*)
        !           135:            echo "$0: invalid mode: $mode" >&2
        !           136:            exit 1;;
        !           137:        esac
        !           138:         continue;;
        !           139: 
        !           140:     -o) chowncmd="$chownprog $2"
        !           141:         shift
        !           142:         shift
        !           143:         continue;;
        !           144: 
        !           145:     -s) stripcmd=$stripprog
        !           146:         shift
        !           147:         continue;;
        !           148: 
        !           149:     -t) dstarg=$2
        !           150:        shift
        !           151:        shift
        !           152:        continue;;
1.1       anton     153: 
1.3     ! anton     154:     -T) no_target_directory=true
        !           155:        shift
        !           156:        continue;;
1.1       anton     157: 
1.3     ! anton     158:     --version) echo "$0 $scriptversion"; exit $?;;
1.1       anton     159: 
1.3     ! anton     160:     --)        shift
        !           161:        break;;
1.1       anton     162: 
1.3     ! anton     163:     -*)        echo "$0: invalid option: $1" >&2
        !           164:        exit 1;;
1.1       anton     165: 
1.3     ! anton     166:     *)  break;;
        !           167:   esac
        !           168: done
1.1       anton     169: 
1.3     ! anton     170: if test $# -ne 0 && test -z "$dir_arg$dstarg"; then
        !           171:   # When -d is used, all remaining arguments are directories to create.
        !           172:   # When -t is used, the destination is already specified.
        !           173:   # Otherwise, the last argument is the destination.  Remove it from $@.
        !           174:   for arg
        !           175:   do
        !           176:     if test -n "$dstarg"; then
        !           177:       # $@ is not empty: it contains at least $arg.
        !           178:       set fnord "$@" "$dstarg"
        !           179:       shift # fnord
        !           180:     fi
        !           181:     shift # arg
        !           182:     dstarg=$arg
        !           183:   done
1.1       anton     184: fi
                    185: 
1.3     ! anton     186: if test $# -eq 0; then
        !           187:   if test -z "$dir_arg"; then
        !           188:     echo "$0: no input file specified." >&2
        !           189:     exit 1
        !           190:   fi
        !           191:   # It's OK to call `install-sh -d' without argument.
        !           192:   # This can happen when creating conditional directories.
        !           193:   exit 0
        !           194: fi
1.1       anton     195: 
1.3     ! anton     196: if test -z "$dir_arg"; then
        !           197:   trap '(exit $?); exit' 1 2 13 15
1.1       anton     198: 
1.3     ! anton     199:   # Set umask so as not to create temps with too-generous modes.
        !           200:   # However, 'strip' requires both read and write access to temps.
        !           201:   case $mode in
        !           202:     # Optimize common cases.
        !           203:     *644) cp_umask=133;;
        !           204:     *755) cp_umask=22;;
        !           205: 
        !           206:     *[0-7])
        !           207:       if test -z "$stripcmd"; then
        !           208:        u_plus_rw=
        !           209:       else
        !           210:        u_plus_rw='% 200'
        !           211:       fi
        !           212:       cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
        !           213:     *)
        !           214:       if test -z "$stripcmd"; then
        !           215:        u_plus_rw=
        !           216:       else
        !           217:        u_plus_rw=,u+rw
        !           218:       fi
        !           219:       cp_umask=$mode$u_plus_rw;;
        !           220:   esac
        !           221: fi
1.1       anton     222: 
1.3     ! anton     223: for src
        !           224: do
        !           225:   # Protect names starting with `-'.
        !           226:   case $src in
        !           227:     -*) src=./$src ;;
        !           228:   esac
        !           229: 
        !           230:   if test -n "$dir_arg"; then
        !           231:     dst=$src
        !           232:     dstdir=$dst
        !           233:     test -d "$dstdir"
        !           234:     dstdir_status=$?
        !           235:   else
        !           236: 
        !           237:     # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
        !           238:     # might cause directories to be created, which would be especially bad
        !           239:     # if $src (and thus $dsttmp) contains '*'.
        !           240:     if test ! -f "$src" && test ! -d "$src"; then
        !           241:       echo "$0: $src does not exist." >&2
        !           242:       exit 1
        !           243:     fi
        !           244: 
        !           245:     if test -z "$dstarg"; then
        !           246:       echo "$0: no destination specified." >&2
        !           247:       exit 1
        !           248:     fi
        !           249: 
        !           250:     dst=$dstarg
        !           251:     # Protect names starting with `-'.
        !           252:     case $dst in
        !           253:       -*) dst=./$dst ;;
        !           254:     esac
1.1       anton     255: 
1.3     ! anton     256:     # If destination is a directory, append the input filename; won't work
        !           257:     # if double slashes aren't ignored.
        !           258:     if test -d "$dst"; then
        !           259:       if test -n "$no_target_directory"; then
        !           260:        echo "$0: $dstarg: Is a directory" >&2
        !           261:        exit 1
        !           262:       fi
        !           263:       dstdir=$dst
        !           264:       dst=$dstdir/`basename "$src"`
        !           265:       dstdir_status=0
        !           266:     else
        !           267:       # Prefer dirname, but fall back on a substitute if dirname fails.
        !           268:       dstdir=`
        !           269:        (dirname "$dst") 2>/dev/null ||
        !           270:        expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
        !           271:             X"$dst" : 'X\(//\)[^/]' \| \
        !           272:             X"$dst" : 'X\(//\)$' \| \
        !           273:             X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
        !           274:        echo X"$dst" |
        !           275:            sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
        !           276:                   s//\1/
        !           277:                   q
        !           278:                 }
        !           279:                 /^X\(\/\/\)[^/].*/{
        !           280:                   s//\1/
        !           281:                   q
        !           282:                 }
        !           283:                 /^X\(\/\/\)$/{
        !           284:                   s//\1/
        !           285:                   q
        !           286:                 }
        !           287:                 /^X\(\/\).*/{
        !           288:                   s//\1/
        !           289:                   q
        !           290:                 }
        !           291:                 s/.*/./; q'
        !           292:       `
        !           293: 
        !           294:       test -d "$dstdir"
        !           295:       dstdir_status=$?
        !           296:     fi
        !           297:   fi
        !           298: 
        !           299:   obsolete_mkdir_used=false
        !           300: 
        !           301:   if test $dstdir_status != 0; then
        !           302:     case $posix_mkdir in
        !           303:       '')
        !           304:        # Create intermediate dirs using mode 755 as modified by the umask.
        !           305:        # This is like FreeBSD 'install' as of 1997-10-28.
        !           306:        umask=`umask`
        !           307:        case $stripcmd.$umask in
        !           308:          # Optimize common cases.
        !           309:          *[2367][2367]) mkdir_umask=$umask;;
        !           310:          .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
        !           311: 
        !           312:          *[0-7])
        !           313:            mkdir_umask=`expr $umask + 22 \
        !           314:              - $umask % 100 % 40 + $umask % 20 \
        !           315:              - $umask % 10 % 4 + $umask % 2
        !           316:            `;;
        !           317:          *) mkdir_umask=$umask,go-w;;
        !           318:        esac
        !           319: 
        !           320:        # With -d, create the new directory with the user-specified mode.
        !           321:        # Otherwise, rely on $mkdir_umask.
        !           322:        if test -n "$dir_arg"; then
        !           323:          mkdir_mode=-m$mode
1.1       anton     324:        else
1.3     ! anton     325:          mkdir_mode=
1.1       anton     326:        fi
                    327: 
1.3     ! anton     328:        posix_mkdir=false
        !           329:        case $umask in
        !           330:          *[123567][0-7][0-7])
        !           331:            # POSIX mkdir -p sets u+wx bits regardless of umask, which
        !           332:            # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
        !           333:            ;;
        !           334:          *)
        !           335:            tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
        !           336:            trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
1.1       anton     337: 
1.3     ! anton     338:            if (umask $mkdir_umask &&
        !           339:                exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
        !           340:            then
        !           341:              if test -z "$dir_arg" || {
        !           342:                   # Check for POSIX incompatibilities with -m.
        !           343:                   # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
        !           344:                   # other-writeable bit of parent directory when it shouldn't.
        !           345:                   # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
        !           346:                   ls_ld_tmpdir=`ls -ld "$tmpdir"`
        !           347:                   case $ls_ld_tmpdir in
        !           348:                     d????-?r-*) different_mode=700;;
        !           349:                     d????-?--*) different_mode=755;;
        !           350:                     *) false;;
        !           351:                   esac &&
        !           352:                   $mkdirprog -m$different_mode -p -- "$tmpdir" && {
        !           353:                     ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
        !           354:                     test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
        !           355:                   }
        !           356:                 }
        !           357:              then posix_mkdir=:
        !           358:              fi
        !           359:              rmdir "$tmpdir/d" "$tmpdir"
        !           360:            else
        !           361:              # Remove any dirs left behind by ancient mkdir implementations.
        !           362:              rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
        !           363:            fi
        !           364:            trap '' 0;;
        !           365:        esac;;
        !           366:     esac
1.1       anton     367: 
1.3     ! anton     368:     if
        !           369:       $posix_mkdir && (
        !           370:        umask $mkdir_umask &&
        !           371:        $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
        !           372:       )
        !           373:     then :
        !           374:     else
        !           375: 
        !           376:       # The umask is ridiculous, or mkdir does not conform to POSIX,
        !           377:       # or it failed possibly due to a race condition.  Create the
        !           378:       # directory the slow way, step by step, checking for races as we go.
        !           379: 
        !           380:       case $dstdir in
        !           381:        /*) prefix=/ ;;
        !           382:        -*) prefix=./ ;;
        !           383:        *)  prefix= ;;
        !           384:       esac
        !           385: 
        !           386:       case $posix_glob in
        !           387:         '')
        !           388:          if (set -f) 2>/dev/null; then
        !           389:            posix_glob=true
        !           390:          else
        !           391:            posix_glob=false
        !           392:          fi ;;
        !           393:       esac
        !           394: 
        !           395:       oIFS=$IFS
        !           396:       IFS=/
        !           397:       $posix_glob && set -f
        !           398:       set fnord $dstdir
        !           399:       shift
        !           400:       $posix_glob && set +f
        !           401:       IFS=$oIFS
        !           402: 
        !           403:       prefixes=
        !           404: 
        !           405:       for d
        !           406:       do
        !           407:        test -z "$d" && continue
        !           408: 
        !           409:        prefix=$prefix$d
        !           410:        if test -d "$prefix"; then
        !           411:          prefixes=
1.1       anton     412:        else
1.3     ! anton     413:          if $posix_mkdir; then
        !           414:            (umask=$mkdir_umask &&
        !           415:             $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
        !           416:            # Don't fail if two instances are running concurrently.
        !           417:            test -d "$prefix" || exit 1
        !           418:          else
        !           419:            case $prefix in
        !           420:              *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
        !           421:              *) qprefix=$prefix;;
        !           422:            esac
        !           423:            prefixes="$prefixes '$qprefix'"
        !           424:          fi
1.1       anton     425:        fi
1.3     ! anton     426:        prefix=$prefix/
        !           427:       done
1.1       anton     428: 
1.3     ! anton     429:       if test -n "$prefixes"; then
        !           430:        # Don't fail if two instances are running concurrently.
        !           431:        (umask $mkdir_umask &&
        !           432:         eval "\$doit_exec \$mkdirprog $prefixes") ||
        !           433:          test -d "$dstdir" || exit 1
        !           434:        obsolete_mkdir_used=true
        !           435:       fi
        !           436:     fi
        !           437:   fi
        !           438: 
        !           439:   if test -n "$dir_arg"; then
        !           440:     { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
        !           441:     { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
        !           442:     { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
        !           443:       test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
        !           444:   else
        !           445: 
        !           446:     # Make a couple of temp file names in the proper directory.
        !           447:     dsttmp=$dstdir/_inst.$$_
        !           448:     rmtmp=$dstdir/_rm.$$_
        !           449: 
        !           450:     # Trap to clean up those temp files at exit.
        !           451:     trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
        !           452: 
        !           453:     # Copy the file name to the temp name.
        !           454:     (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
        !           455: 
        !           456:     # and set any options; do chmod last to preserve setuid bits.
        !           457:     #
        !           458:     # If any of these fail, we abort the whole thing.  If we want to
        !           459:     # ignore errors from any of these, just make sure not to ignore
        !           460:     # errors from the above "$doit $cpprog $src $dsttmp" command.
        !           461:     #
        !           462:     { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
        !           463:       && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
        !           464:       && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
        !           465:       && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
        !           466: 
        !           467:     # Now rename the file to the real destination.
        !           468:     { $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null \
        !           469:       || {
        !           470:           # The rename failed, perhaps because mv can't rename something else
        !           471:           # to itself, or perhaps because mv is so ancient that it does not
        !           472:           # support -f.
        !           473: 
        !           474:           # Now remove or move aside any old file at destination location.
        !           475:           # We try this two ways since rm can't unlink itself on some
        !           476:           # systems and the destination file might be busy for other
        !           477:           # reasons.  In this case, the final cleanup might fail but the new
        !           478:           # file should still install successfully.
        !           479:           {
        !           480:             if test -f "$dst"; then
        !           481:               $doit $rmcmd -f "$dst" 2>/dev/null \
        !           482:               || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null \
        !           483:                     && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }; }\
        !           484:               || {
        !           485:                 echo "$0: cannot unlink or rename $dst" >&2
        !           486:                 (exit 1); exit 1
        !           487:               }
        !           488:             else
        !           489:               :
        !           490:             fi
        !           491:           } &&
        !           492: 
        !           493:           # Now rename the file to the real destination.
        !           494:           $doit $mvcmd "$dsttmp" "$dst"
        !           495:         }
        !           496:     } || exit 1
1.1       anton     497: 
1.3     ! anton     498:     trap '' 0
        !           499:   fi
        !           500: done
1.1       anton     501: 
1.3     ! anton     502: # Local variables:
        !           503: # eval: (add-hook 'write-file-hooks 'time-stamp)
        !           504: # time-stamp-start: "scriptversion="
        !           505: # time-stamp-format: "%:y-%02m-%02d.%02H"
        !           506: # time-stamp-end: "$"
        !           507: # End:

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>