[gforth] / gforth / install-sh  

gforth: gforth/install-sh

Diff for /gforth/install-sh between version 1.2 and 1.3

version 1.2, Tue Dec 24 14:47:24 2002 UTC version 1.3, Sat Jun 2 14:25:26 2007 UTC
Line 1 
Line 1 
 #!/bin/sh  #!/bin/sh
 #  
 # install - install a program, script, or datafile  # install - install a program, script, or datafile
 # This comes from X11R5 (mit/util/scripts/install.sh).  
   scriptversion=2006-10-14.15
   
   # This originates from X11R5 (mit/util/scripts/install.sh), which was
   # later released in X11R6 (xc/config/util/install.sh) with the
   # following copyright and license.
   #
   # Copyright (C) 1994 X Consortium
   #
   # Permission is hereby granted, free of charge, to any person obtaining a copy
   # of this software and associated documentation files (the "Software"), to
   # deal in the Software without restriction, including without limitation the
   # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
   # sell copies of the Software, and to permit persons to whom the Software is
   # furnished to do so, subject to the following conditions:
   #
   # The above copyright notice and this permission notice shall be included in
   # all copies or substantial portions of the Software.
   #
   # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
   # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
   # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
   # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 #  #
 # Copyright 1991 by the Massachusetts Institute of Technology  # Except as contained in this notice, the name of the X Consortium shall not
   # be used in advertising or otherwise to promote the sale, use or other deal-
   # ings in this Software without prior written authorization from the X Consor-
   # tium.
 #  #
 # Permission to use, copy, modify, distribute, and sell this software and its  #
 # documentation for any purpose is hereby granted without fee, provided that  # FSF changes to this file are in the public domain.
 # the above copyright notice appear in all copies and that both that  
 # copyright notice and this permission notice appear in supporting  
 # documentation, and that the name of M.I.T. not be used in advertising or  
 # publicity pertaining to distribution of the software without specific,  
 # written prior permission.  M.I.T. makes no representations about the  
 # suitability of this software for any purpose.  It is provided "as is"  
 # without express or implied warranty.  
 #  #
 # Calling this script install-sh is preferred over install.sh, to prevent  # Calling this script install-sh is preferred over install.sh, to prevent
 # `make' implicit rules from creating a file called install from it  # `make' implicit rules from creating a file called install from it
 # when there is no Makefile.  # when there is no Makefile.
 #  #
 # This script is compatible with the BSD install script, but was written  # This script is compatible with the BSD install script, but was written
 # from scratch.  It can only install one file at a time, a restriction  # from scratch.
 # shared with many OS's install programs.  
   
   nl='
   '
   IFS=" ""        $nl"
   
 # set DOITPROG to echo to test this script  # set DOITPROG to echo to test this script
   
 # Don't use :- since 4.3BSD and earlier shells don't like it.  # Don't use :- since 4.3BSD and earlier shells don't like it.
 doit="${DOITPROG-}"  doit="${DOITPROG-}"
   if test -z "$doit"; then
     doit_exec=exec
   else
     doit_exec=$doit
   fi
   
   # Put in absolute file names if you don't have them in your path;
 # put in absolute paths if you don't have them in your path; or use env. vars.  # or use environment vars.
   
 mvprog="${MVPROG-mv}"  mvprog="${MVPROG-mv}"
 cpprog="${CPPROG-cp}"  cpprog="${CPPROG-cp}"
Line 41 
Line 67 
 rmprog="${RMPROG-rm}"  rmprog="${RMPROG-rm}"
 mkdirprog="${MKDIRPROG-mkdir}"  mkdirprog="${MKDIRPROG-mkdir}"
   
 transformbasename=""  posix_glob=
 transform_arg=""  posix_mkdir=
 instcmd="$mvprog"  
 chmodcmd="$chmodprog 0755"  # Desired mode of installed file.
 chowncmd=""  mode=0755
 chgrpcmd=""  
 stripcmd=""  chmodcmd=$chmodprog
   chowncmd=
   chgrpcmd=
   stripcmd=
 rmcmd="$rmprog -f"  rmcmd="$rmprog -f"
 mvcmd="$mvprog"  mvcmd="$mvprog"
 src=""  src=
 dst=""  dst=
 dir_arg=""  dir_arg=
   dstarg=
   no_target_directory=
   
   usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
      or: $0 [OPTION]... SRCFILES... DIRECTORY
      or: $0 [OPTION]... -t DIRECTORY SRCFILES...
      or: $0 [OPTION]... -d DIRECTORIES...
   
   In the 1st form, copy SRCFILE to DSTFILE.
   In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
   In the 4th, create DIRECTORIES.
   
   Options:
   -c         (ignored)
   -d         create directories instead of installing files.
   -g GROUP   $chgrpprog installed files to GROUP.
   -m MODE    $chmodprog installed files to MODE.
   -o USER    $chownprog installed files to USER.
   -s         $stripprog installed files.
   -t DIRECTORY  install into DIRECTORY.
   -T         report an error if DSTFILE is a directory.
   --help     display this help and exit.
   --version  display version info and exit.
   
   Environment variables override the default commands:
     CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG
   "
   
 while [ x"$1" != x ]; do  while test $# -ne 0; do
     case $1 in      case $1 in
         -c) instcmd="$cpprog"      -c) shift
             shift  
             continue;;              continue;;
   
         -d) dir_arg=true          -d) dir_arg=true
             shift              shift
             continue;;              continue;;
   
         -m) chmodcmd="$chmodprog $2"      -g) chgrpcmd="$chgrpprog $2"
             shift              shift
             shift              shift
             continue;;              continue;;
   
         -o) chowncmd="$chownprog $2"      --help) echo "$usage"; exit $?;;
   
       -m) mode=$2
             shift              shift
             shift              shift
           case $mode in
             *' '* | *'    '* | *'
   '*        | *'*'* | *'?'* | *'['*)
               echo "$0: invalid mode: $mode" >&2
               exit 1;;
           esac
             continue;;              continue;;
   
         -g) chgrpcmd="$chgrpprog $2"      -o) chowncmd="$chownprog $2"
             shift              shift
             shift              shift
             continue;;              continue;;
   
         -s) stripcmd="$stripprog"      -s) stripcmd=$stripprog
             shift              shift
             continue;;              continue;;
   
         -t=*) transformarg=`echo $1 | sed 's/-t=//'`      -t) dstarg=$2
             shift              shift
             continue;;  
   
         -b=*) transformbasename=`echo $1 | sed 's/-b=//'`  
             shift              shift
             continue;;              continue;;
   
         *)  if [ x"$src" = x ]      -T) no_target_directory=true
             then  
                 src=$1  
             else  
                 # this colon is to work around a 386BSD /bin/sh bug  
                 :  
                 dst=$1  
             fi  
             shift              shift
             continue;;              continue;;
   
       --version) echo "$0 $scriptversion"; exit $?;;
   
       --) shift
           break;;
   
       -*) echo "$0: invalid option: $1" >&2
           exit 1;;
   
       *)  break;;
     esac      esac
 done  done
   
 if [ x"$src" = x ]  if test $# -ne 0 && test -z "$dir_arg$dstarg"; then
 then    # When -d is used, all remaining arguments are directories to create.
         echo "install:  no input file specified"    # When -t is used, the destination is already specified.
     # Otherwise, the last argument is the destination.  Remove it from $@.
     for arg
     do
       if test -n "$dstarg"; then
         # $@ is not empty: it contains at least $arg.
         set fnord "$@" "$dstarg"
         shift # fnord
       fi
       shift # arg
       dstarg=$arg
     done
   fi
   
   if test $# -eq 0; then
     if test -z "$dir_arg"; then
       echo "$0: no input file specified." >&2
         exit 1          exit 1
 else    fi
         :    # It's OK to call `install-sh -d' without argument.
     # This can happen when creating conditional directories.
     exit 0
 fi  fi
   
 if [ x"$dir_arg" != x ]; then  if test -z "$dir_arg"; then
         dst=$src    trap '(exit $?); exit' 1 2 13 15
         src=""  
   
         if [ -d $dst ]; then    # Set umask so as not to create temps with too-generous modes.
                 instcmd=:    # However, 'strip' requires both read and write access to temps.
                 chmodcmd=""    case $mode in
       # Optimize common cases.
       *644) cp_umask=133;;
       *755) cp_umask=22;;
   
       *[0-7])
         if test -z "$stripcmd"; then
           u_plus_rw=
         else
           u_plus_rw='% 200'
         fi
         cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
       *)
         if test -z "$stripcmd"; then
           u_plus_rw=
         else          else
                 instcmd=$mkdirprog          u_plus_rw=,u+rw
         fi
         cp_umask=$mode$u_plus_rw;;
     esac
         fi          fi
   
   for src
   do
     # Protect names starting with `-'.
     case $src in
       -*) src=./$src ;;
     esac
   
     if test -n "$dir_arg"; then
       dst=$src
       dstdir=$dst
       test -d "$dstdir"
       dstdir_status=$?
 else  else
   
 # Waiting for this to be detected by the "$instcmd $src $dsttmp" command      # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
 # might cause directories to be created, which would be especially bad  # might cause directories to be created, which would be especially bad
 # if $src (and thus $dsttmp) contains '*'.  # if $src (and thus $dsttmp) contains '*'.
       if test ! -f "$src" && test ! -d "$src"; then
         if [ -f "$src" ] || [ -d "$src" ]        echo "$0: $src does not exist." >&2
         then  
                 :  
         else  
                 echo "install:  $src does not exist"  
                 exit 1                  exit 1
         fi          fi
   
         if [ x"$dst" = x ]      if test -z "$dstarg"; then
         then        echo "$0: no destination specified." >&2
                 echo "install:  no destination specified"  
                 exit 1                  exit 1
         else  
                 :  
         fi          fi
   
 # If destination is a directory, append the input filename; if your system      dst=$dstarg
 # does not like double slashes in filenames, you may need to add some logic      # Protect names starting with `-'.
       case $dst in
         -*) dst=./$dst ;;
       esac
   
         if [ -d $dst ]      # If destination is a directory, append the input filename; won't work
         then      # if double slashes aren't ignored.
                 dst="$dst"/`basename $src`      if test -d "$dst"; then
         else        if test -n "$no_target_directory"; then
                 :          echo "$0: $dstarg: Is a directory" >&2
           exit 1
         fi
         dstdir=$dst
         dst=$dstdir/`basename "$src"`
         dstdir_status=0
       else
         # Prefer dirname, but fall back on a substitute if dirname fails.
         dstdir=`
           (dirname "$dst") 2>/dev/null ||
           expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
                X"$dst" : 'X\(//\)[^/]' \| \
                X"$dst" : 'X\(//\)$' \| \
                X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
           echo X"$dst" |
               sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
                      s//\1/
                      q
                    }
                    /^X\(\/\/\)[^/].*/{
                      s//\1/
                      q
                    }
                    /^X\(\/\/\)$/{
                      s//\1/
                      q
                    }
                    /^X\(\/\).*/{
                      s//\1/
                      q
                    }
                    s/.*/./; q'
         `
   
         test -d "$dstdir"
         dstdir_status=$?
         fi          fi
 fi  fi
   
 ## this sed command emulates the dirname command    obsolete_mkdir_used=false
 dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`  
     if test $dstdir_status != 0; then
 # Make sure that the destination directory exists.      case $posix_mkdir in
 #  this part is taken from Noah Friedman's mkinstalldirs script        '')
           # Create intermediate dirs using mode 755 as modified by the umask.
 # Skip lots of stat calls in the usual case.          # This is like FreeBSD 'install' as of 1997-10-28.
 if [ ! -d "$dstdir" ]; then          umask=`umask`
 defaultIFS='          case $stripcmd.$umask in
         '            # Optimize common cases.
 IFS="${IFS-${defaultIFS}}"            *[2367][2367]) mkdir_umask=$umask;;
             .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
 oIFS="${IFS}"  
 # Some sh's can't handle IFS=/ for some reason.            *[0-7])
 IFS='%'              mkdir_umask=`expr $umask + 22 \
 set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`                - $umask % 100 % 40 + $umask % 20 \
 IFS="${oIFS}"                - $umask % 10 % 4 + $umask % 2
               `;;
 pathcomp=''            *) mkdir_umask=$umask,go-w;;
           esac
   
 while [ $# -ne 0 ] ; do          # With -d, create the new directory with the user-specified mode.
         pathcomp="${pathcomp}${1}"          # Otherwise, rely on $mkdir_umask.
         shift          if test -n "$dir_arg"; then
             mkdir_mode=-m$mode
           else
             mkdir_mode=
           fi
   
           posix_mkdir=false
           case $umask in
             *[123567][0-7][0-7])
               # POSIX mkdir -p sets u+wx bits regardless of umask, which
               # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
               ;;
             *)
               tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
               trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
   
         if [ ! -d "${pathcomp}" ] ;              if (umask $mkdir_umask &&
                   exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
         then          then
                 $mkdirprog "${pathcomp}"                if test -z "$dir_arg" || {
         else                     # Check for POSIX incompatibilities with -m.
                 :                     # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
                      # other-writeable bit of parent directory when it shouldn't.
                      # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
                      ls_ld_tmpdir=`ls -ld "$tmpdir"`
                      case $ls_ld_tmpdir in
                        d????-?r-*) different_mode=700;;
                        d????-?--*) different_mode=755;;
                        *) false;;
                      esac &&
                      $mkdirprog -m$different_mode -p -- "$tmpdir" && {
                        ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
                        test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
                      }
                    }
                 then posix_mkdir=:
         fi          fi
                 rmdir "$tmpdir/d" "$tmpdir"
         pathcomp="${pathcomp}/"              else
 done                # Remove any dirs left behind by ancient mkdir implementations.
                 rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
 fi  fi
               trap '' 0;;
           esac;;
       esac
   
 if [ x"$dir_arg" != x ]      if
 then        $posix_mkdir && (
         $doit $instcmd $dst &&          umask $mkdir_umask &&
           $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
         )
       then :
       else
   
         # The umask is ridiculous, or mkdir does not conform to POSIX,
         # or it failed possibly due to a race condition.  Create the
         # directory the slow way, step by step, checking for races as we go.
   
         case $dstdir in
           /*) prefix=/ ;;
           -*) prefix=./ ;;
           *)  prefix= ;;
         esac
   
         if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else : ; fi &&        case $posix_glob in
         if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else : ; fi &&          '')
         if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else : ; fi &&            if (set -f) 2>/dev/null; then
         if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else : ; fi              posix_glob=true
 else  else
               posix_glob=false
             fi ;;
         esac
   
 # If we're going to rename the final executable, determine the name now.        oIFS=$IFS
         IFS=/
         if [ x"$transformarg" = x ]        $posix_glob && set -f
         then        set fnord $dstdir
                 dstfile=`basename $dst`        shift
         else        $posix_glob && set +f
                 dstfile=`basename $dst $transformbasename |        IFS=$oIFS
                         sed $transformarg`$transformbasename  
         prefixes=
   
         for d
         do
           test -z "$d" && continue
   
           prefix=$prefix$d
           if test -d "$prefix"; then
             prefixes=
           else
             if $posix_mkdir; then
               (umask=$mkdir_umask &&
                $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
               # Don't fail if two instances are running concurrently.
               test -d "$prefix" || exit 1
             else
               case $prefix in
                 *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
                 *) qprefix=$prefix;;
               esac
               prefixes="$prefixes '$qprefix'"
         fi          fi
   
 # don't allow the sed command to completely eliminate the filename  
   
         if [ x"$dstfile" = x ]  
         then  
                 dstfile=`basename $dst`  
         else  
                 :  
         fi          fi
           prefix=$prefix/
         done
   
 # Make a temp file name in the proper directory.        if test -n "$prefixes"; then
           # Don't fail if two instances are running concurrently.
         dsttmp=$dstdir/#inst.$$#          (umask $mkdir_umask &&
            eval "\$doit_exec \$mkdirprog $prefixes") ||
             test -d "$dstdir" || exit 1
           obsolete_mkdir_used=true
         fi
       fi
     fi
   
 # Move or copy the file name to the temp name    if test -n "$dir_arg"; then
       { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
       { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
       { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
         test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
     else
   
         $doit $instcmd $src $dsttmp &&      # Make a couple of temp file names in the proper directory.
       dsttmp=$dstdir/_inst.$$_
       rmtmp=$dstdir/_rm.$$_
   
         trap "rm -f ${dsttmp}" 0 &&      # Trap to clean up those temp files at exit.
       trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
   
 # and set any options; do chmod last to preserve setuid bits      # Copy the file name to the temp name.
       (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
   
       # and set any options; do chmod last to preserve setuid bits.
       #
 # If any of these fail, we abort the whole thing.  If we want to  # If any of these fail, we abort the whole thing.  If we want to
 # ignore errors from any of these, just make sure not to ignore  # ignore errors from any of these, just make sure not to ignore
 # errors from the above "$doit $instcmd $src $dsttmp" command.      # errors from the above "$doit $cpprog $src $dsttmp" command.
       #
         if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else :;fi &&      { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
         if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else :;fi &&        && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
         if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else :;fi &&        && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
         if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else :;fi &&        && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
   
 # Now rename the file to the real destination.  # Now rename the file to the real destination.
       { $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null \
         || {
              # The rename failed, perhaps because mv can't rename something else
              # to itself, or perhaps because mv is so ancient that it does not
              # support -f.
   
              # Now remove or move aside any old file at destination location.
              # We try this two ways since rm can't unlink itself on some
              # systems and the destination file might be busy for other
              # reasons.  In this case, the final cleanup might fail but the new
              # file should still install successfully.
              {
                if test -f "$dst"; then
                  $doit $rmcmd -f "$dst" 2>/dev/null \
                  || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null \
                        && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }; }\
                  || {
                    echo "$0: cannot unlink or rename $dst" >&2
                    (exit 1); exit 1
                  }
                else
                  :
                fi
              } &&
   
         $doit $rmcmd -f $dstdir/$dstfile &&             # Now rename the file to the real destination.
         $doit $mvcmd $dsttmp $dstdir/$dstfile             $doit $mvcmd "$dsttmp" "$dst"
            }
 fi &&      } || exit 1
   
       trap '' 0
     fi
   done
   
 exit 0  # Local variables:
   # eval: (add-hook 'write-file-hooks 'time-stamp)
   # time-stamp-start: "scriptversion="
   # time-stamp-format: "%:y-%02m-%02d.%02H"
   # time-stamp-end: "$"
   # End:


Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help