The R Project SVN R

Rev

Rev 38381 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

#!/bin/sh
# install - install a program, script, or datafile

scriptversion=2006-05-11.20

# 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.
#
# 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.
#
#
# FSF changes to this file are in the public domain.
#
# Calling this script install-sh is preferred over install.sh, to prevent
# `make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# 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
# shared with many OS's install programs.

nl='
'
IFS=" ""    $nl"

# set DOITPROG to echo to test this script

# Don't use :- since 4.3BSD and earlier shells don't like it.
doit="${DOITPROG-}"

# Put in absolute file names if you don't have them in your path;
# or use environment vars.

mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"

posix_glob=
posix_mkdir=

# Symbolic mode for testing mkdir with directories.
# It is the same as 755, but also tests that "u+" works.
test_mode=u=rwx,g=rx,o=rx,u+wx

# Desired mode of installed file.
mode=0755

# Desired mode of newly created intermediate directories.
# It is empty if not known yet.
intermediate_mode=

chmodcmd=$chmodprog
chowncmd=
chgrpcmd=
stripcmd=
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=
dst=
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 test $# -ne 0; do
  case $1 in
    -c) shift
        continue;;

    -d) dir_arg=true
        shift
        continue;;

    -g) chgrpcmd="$chgrpprog $2"
        shift
        shift
        continue;;

    --help) echo "$usage"; exit $?;;

    -m) mode=$2
        shift
        shift
        continue;;

    -o) chowncmd="$chownprog $2"
        shift
        shift
        continue;;

    -s) stripcmd=$stripprog
        shift
        continue;;

    -t) dstarg=$2
    shift
    shift
    continue;;

    -T) no_target_directory=true
    shift
    continue;;

    --version) echo "$0 $scriptversion"; exit $?;;

    --) shift
    break;;

    -*) echo "$0: invalid option: $1" >&2
    exit 1;;

    *)  break;;
  esac
done

if test $# -ne 0 && test -z "$dir_arg$dstarg"; then
  # When -d is used, all remaining arguments are directories to create.
  # 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
  fi
  # It's OK to call `install-sh -d' without argument.
  # This can happen when creating conditional directories.
  exit 0
fi

test -n "$dir_arg" || trap '(exit $?); exit' 1 2 13 15

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

    # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
    # might cause directories to be created, which would be especially bad
    # if $src (and thus $dsttmp) contains '*'.
    if test ! -f "$src" && test ! -d "$src"; then
      echo "$0: $src does not exist." >&2
      exit 1
    fi

    if test -z "$dstarg"; then
      echo "$0: no destination specified." >&2
      exit 1
    fi

    dst=$dstarg
    # Protect names starting with `-'.
    case $dst in
      -*) dst=./$dst ;;
    esac

    # If destination is a directory, append the input filename; won't work
    # if double slashes aren't ignored.
    if test -d "$dst"; then
      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

  obsolete_mkdir_used=false

  if test $dstdir_status != 0; then
    case $posix_mkdir in
      '')
    posix_mkdir=false
    if $mkdirprog -m $test_mode -p -- / >/dev/null 2>&1; then
      posix_mkdir=true
    else
      # Remove any dirs left behind by ancient mkdir implementations.
      rmdir ./-m "$test_mode" ./-p ./-- 2>/dev/null
    fi ;;
    esac

    if
      $posix_mkdir && {

    # With -d, create the new directory with the user-specified mode.
    # Otherwise, create it using the same intermediate mode that
    # mkdir -p would use when creating intermediate directories.
    # POSIX says that this mode is "$(umask -S),u+wx", so use that
    # if umask -S works.

    if test -n "$dir_arg"; then
      mkdir_mode=$mode
    else
      case $intermediate_mode in
        '')
          if umask_S=`(umask -S) 2>/dev/null`; then
        intermediate_mode=$umask_S,u+wx
          else
        intermediate_mode=$test_mode
          fi ;;
      esac
      mkdir_mode=$intermediate_mode
    fi

    $mkdirprog -m "$mkdir_mode" -p -- "$dstdir"
      }
    then :
    else

      # 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

      case $posix_glob in
        '')
      if (set -f) 2>/dev/null; then
        posix_glob=true
      else
        posix_glob=false
      fi ;;
      esac

      oIFS=$IFS
      IFS=/
      $posix_glob && set -f
      set fnord $dstdir
      shift
      $posix_glob && set +f
      IFS=$oIFS

      prefixes=

      for d
      do
    test -z "$d" && continue

    prefix=$prefix$d
    if test -d "$prefix"; then
      prefixes=
    else
      if $posix_mkdir; then
        $mkdirprog -m "$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
    prefix=$prefix/
      done

      if test -n "$prefixes"; then
    # Don't fail if two instances are running concurrently.
    eval "\$mkdirprog $prefixes" || test -d "$dstdir" || exit 1
    obsolete_mkdir_used=true
      fi
    fi
  fi

  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

    # Make a couple of temp file names in the proper directory.
    dsttmp=$dstdir/_inst.$$_
    rmtmp=$dstdir/_rm.$$_

    # Trap to clean up those temp files at exit.
    trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0

    # Copy the file name to the temp name.
    $doit $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
    # ignore errors from any of these, just make sure not to ignore
    # errors from the above "$doit $cpprog $src $dsttmp" command.
    #
    { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
      && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
      && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
      && { test -z "$chmodcmd" || $doit $chmodcmd "$mode" "$dsttmp"; } &&

    # 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
       } &&

       # Now rename the file to the real destination.
       $doit $mvcmd "$dsttmp" "$dst"
     }
    } || exit 1

    trap '' 0
  fi
done

# 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: