Blame install-sh

Packit Service 88ab54
#!/bin/sh
Packit Service 88ab54
# install - install a program, script, or datafile
Packit Service 88ab54
Packit Service 88ab54
scriptversion=2014-09-12.12; # UTC
Packit Service 88ab54
Packit Service 88ab54
# This originates from X11R5 (mit/util/scripts/install.sh), which was
Packit Service 88ab54
# later released in X11R6 (xc/config/util/install.sh) with the
Packit Service 88ab54
# following copyright and license.
Packit Service 88ab54
#
Packit Service 88ab54
# Copyright (C) 1994 X Consortium
Packit Service 88ab54
#
Packit Service 88ab54
# Permission is hereby granted, free of charge, to any person obtaining a copy
Packit Service 88ab54
# of this software and associated documentation files (the "Software"), to
Packit Service 88ab54
# deal in the Software without restriction, including without limitation the
Packit Service 88ab54
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
Packit Service 88ab54
# sell copies of the Software, and to permit persons to whom the Software is
Packit Service 88ab54
# furnished to do so, subject to the following conditions:
Packit Service 88ab54
#
Packit Service 88ab54
# The above copyright notice and this permission notice shall be included in
Packit Service 88ab54
# all copies or substantial portions of the Software.
Packit Service 88ab54
#
Packit Service 88ab54
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
Packit Service 88ab54
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
Packit Service 88ab54
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
Packit Service 88ab54
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
Packit Service 88ab54
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
Packit Service 88ab54
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Packit Service 88ab54
#
Packit Service 88ab54
# Except as contained in this notice, the name of the X Consortium shall not
Packit Service 88ab54
# be used in advertising or otherwise to promote the sale, use or other deal-
Packit Service 88ab54
# ings in this Software without prior written authorization from the X Consor-
Packit Service 88ab54
# tium.
Packit Service 88ab54
#
Packit Service 88ab54
#
Packit Service 88ab54
# FSF changes to this file are in the public domain.
Packit Service 88ab54
#
Packit Service 88ab54
# Calling this script install-sh is preferred over install.sh, to prevent
Packit Service 88ab54
# 'make' implicit rules from creating a file called install from it
Packit Service 88ab54
# when there is no Makefile.
Packit Service 88ab54
#
Packit Service 88ab54
# This script is compatible with the BSD install script, but was written
Packit Service 88ab54
# from scratch.
Packit Service 88ab54
Packit Service 88ab54
tab='	'
Packit Service 88ab54
nl='
Packit Service 88ab54
'
Packit Service 88ab54
IFS=" $tab$nl"
Packit Service 88ab54
Packit Service 88ab54
# Set DOITPROG to "echo" to test this script.
Packit Service 88ab54
Packit Service 88ab54
doit=${DOITPROG-}
Packit Service 88ab54
doit_exec=${doit:-exec}
Packit Service 88ab54
Packit Service 88ab54
# Put in absolute file names if you don't have them in your path;
Packit Service 88ab54
# or use environment vars.
Packit Service 88ab54
Packit Service 88ab54
chgrpprog=${CHGRPPROG-chgrp}
Packit Service 88ab54
chmodprog=${CHMODPROG-chmod}
Packit Service 88ab54
chownprog=${CHOWNPROG-chown}
Packit Service 88ab54
cmpprog=${CMPPROG-cmp}
Packit Service 88ab54
cpprog=${CPPROG-cp}
Packit Service 88ab54
mkdirprog=${MKDIRPROG-mkdir}
Packit Service 88ab54
mvprog=${MVPROG-mv}
Packit Service 88ab54
rmprog=${RMPROG-rm}
Packit Service 88ab54
stripprog=${STRIPPROG-strip}
Packit Service 88ab54
Packit Service 88ab54
posix_mkdir=
Packit Service 88ab54
Packit Service 88ab54
# Desired mode of installed file.
Packit Service 88ab54
mode=0755
Packit Service 88ab54
Packit Service 88ab54
chgrpcmd=
Packit Service 88ab54
chmodcmd=$chmodprog
Packit Service 88ab54
chowncmd=
Packit Service 88ab54
mvcmd=$mvprog
Packit Service 88ab54
rmcmd="$rmprog -f"
Packit Service 88ab54
stripcmd=
Packit Service 88ab54
Packit Service 88ab54
src=
Packit Service 88ab54
dst=
Packit Service 88ab54
dir_arg=
Packit Service 88ab54
dst_arg=
Packit Service 88ab54
Packit Service 88ab54
copy_on_change=false
Packit Service 88ab54
is_target_a_directory=possibly
Packit Service 88ab54
Packit Service 88ab54
usage="\
Packit Service 88ab54
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
Packit Service 88ab54
   or: $0 [OPTION]... SRCFILES... DIRECTORY
Packit Service 88ab54
   or: $0 [OPTION]... -t DIRECTORY SRCFILES...
Packit Service 88ab54
   or: $0 [OPTION]... -d DIRECTORIES...
Packit Service 88ab54
Packit Service 88ab54
In the 1st form, copy SRCFILE to DSTFILE.
Packit Service 88ab54
In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
Packit Service 88ab54
In the 4th, create DIRECTORIES.
Packit Service 88ab54
Packit Service 88ab54
Options:
Packit Service 88ab54
     --help     display this help and exit.
Packit Service 88ab54
     --version  display version info and exit.
Packit Service 88ab54
Packit Service 88ab54
  -c            (ignored)
Packit Service 88ab54
  -C            install only if different (preserve the last data modification time)
Packit Service 88ab54
  -d            create directories instead of installing files.
Packit Service 88ab54
  -g GROUP      $chgrpprog installed files to GROUP.
Packit Service 88ab54
  -m MODE       $chmodprog installed files to MODE.
Packit Service 88ab54
  -o USER       $chownprog installed files to USER.
Packit Service 88ab54
  -s            $stripprog installed files.
Packit Service 88ab54
  -t DIRECTORY  install into DIRECTORY.
Packit Service 88ab54
  -T            report an error if DSTFILE is a directory.
Packit Service 88ab54
Packit Service 88ab54
Environment variables override the default commands:
Packit Service 88ab54
  CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
Packit Service 88ab54
  RMPROG STRIPPROG
Packit Service 88ab54
"
Packit Service 88ab54
Packit Service 88ab54
while test $# -ne 0; do
Packit Service 88ab54
  case $1 in
Packit Service 88ab54
    -c) ;;
Packit Service 88ab54
Packit Service 88ab54
    -C) copy_on_change=true;;
Packit Service 88ab54
Packit Service 88ab54
    -d) dir_arg=true;;
Packit Service 88ab54
Packit Service 88ab54
    -g) chgrpcmd="$chgrpprog $2"
Packit Service 88ab54
        shift;;
Packit Service 88ab54
Packit Service 88ab54
    --help) echo "$usage"; exit $?;;
Packit Service 88ab54
Packit Service 88ab54
    -m) mode=$2
Packit Service 88ab54
        case $mode in
Packit Service 88ab54
          *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*)
Packit Service 88ab54
            echo "$0: invalid mode: $mode" >&2
Packit Service 88ab54
            exit 1;;
Packit Service 88ab54
        esac
Packit Service 88ab54
        shift;;
Packit Service 88ab54
Packit Service 88ab54
    -o) chowncmd="$chownprog $2"
Packit Service 88ab54
        shift;;
Packit Service 88ab54
Packit Service 88ab54
    -s) stripcmd=$stripprog;;
Packit Service 88ab54
Packit Service 88ab54
    -t)
Packit Service 88ab54
        is_target_a_directory=always
Packit Service 88ab54
        dst_arg=$2
Packit Service 88ab54
        # Protect names problematic for 'test' and other utilities.
Packit Service 88ab54
        case $dst_arg in
Packit Service 88ab54
          -* | [=\(\)!]) dst_arg=./$dst_arg;;
Packit Service 88ab54
        esac
Packit Service 88ab54
        shift;;
Packit Service 88ab54
Packit Service 88ab54
    -T) is_target_a_directory=never;;
Packit Service 88ab54
Packit Service 88ab54
    --version) echo "$0 $scriptversion"; exit $?;;
Packit Service 88ab54
Packit Service 88ab54
    --) shift
Packit Service 88ab54
        break;;
Packit Service 88ab54
Packit Service 88ab54
    -*) echo "$0: invalid option: $1" >&2
Packit Service 88ab54
        exit 1;;
Packit Service 88ab54
Packit Service 88ab54
    *)  break;;
Packit Service 88ab54
  esac
Packit Service 88ab54
  shift
Packit Service 88ab54
done
Packit Service 88ab54
Packit Service 88ab54
# We allow the use of options -d and -T together, by making -d
Packit Service 88ab54
# take the precedence; this is for compatibility with GNU install.
Packit Service 88ab54
Packit Service 88ab54
if test -n "$dir_arg"; then
Packit Service 88ab54
  if test -n "$dst_arg"; then
Packit Service 88ab54
    echo "$0: target directory not allowed when installing a directory." >&2
Packit Service 88ab54
    exit 1
Packit Service 88ab54
  fi
Packit Service 88ab54
fi
Packit Service 88ab54
Packit Service 88ab54
if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
Packit Service 88ab54
  # When -d is used, all remaining arguments are directories to create.
Packit Service 88ab54
  # When -t is used, the destination is already specified.
Packit Service 88ab54
  # Otherwise, the last argument is the destination.  Remove it from $@.
Packit Service 88ab54
  for arg
Packit Service 88ab54
  do
Packit Service 88ab54
    if test -n "$dst_arg"; then
Packit Service 88ab54
      # $@ is not empty: it contains at least $arg.
Packit Service 88ab54
      set fnord "$@" "$dst_arg"
Packit Service 88ab54
      shift # fnord
Packit Service 88ab54
    fi
Packit Service 88ab54
    shift # arg
Packit Service 88ab54
    dst_arg=$arg
Packit Service 88ab54
    # Protect names problematic for 'test' and other utilities.
Packit Service 88ab54
    case $dst_arg in
Packit Service 88ab54
      -* | [=\(\)!]) dst_arg=./$dst_arg;;
Packit Service 88ab54
    esac
Packit Service 88ab54
  done
Packit Service 88ab54
fi
Packit Service 88ab54
Packit Service 88ab54
if test $# -eq 0; then
Packit Service 88ab54
  if test -z "$dir_arg"; then
Packit Service 88ab54
    echo "$0: no input file specified." >&2
Packit Service 88ab54
    exit 1
Packit Service 88ab54
  fi
Packit Service 88ab54
  # It's OK to call 'install-sh -d' without argument.
Packit Service 88ab54
  # This can happen when creating conditional directories.
Packit Service 88ab54
  exit 0
Packit Service 88ab54
fi
Packit Service 88ab54
Packit Service 88ab54
if test -z "$dir_arg"; then
Packit Service 88ab54
  if test $# -gt 1 || test "$is_target_a_directory" = always; then
Packit Service 88ab54
    if test ! -d "$dst_arg"; then
Packit Service 88ab54
      echo "$0: $dst_arg: Is not a directory." >&2
Packit Service 88ab54
      exit 1
Packit Service 88ab54
    fi
Packit Service 88ab54
  fi
Packit Service 88ab54
fi
Packit Service 88ab54
Packit Service 88ab54
if test -z "$dir_arg"; then
Packit Service 88ab54
  do_exit='(exit $ret); exit $ret'
Packit Service 88ab54
  trap "ret=129; $do_exit" 1
Packit Service 88ab54
  trap "ret=130; $do_exit" 2
Packit Service 88ab54
  trap "ret=141; $do_exit" 13
Packit Service 88ab54
  trap "ret=143; $do_exit" 15
Packit Service 88ab54
Packit Service 88ab54
  # Set umask so as not to create temps with too-generous modes.
Packit Service 88ab54
  # However, 'strip' requires both read and write access to temps.
Packit Service 88ab54
  case $mode in
Packit Service 88ab54
    # Optimize common cases.
Packit Service 88ab54
    *644) cp_umask=133;;
Packit Service 88ab54
    *755) cp_umask=22;;
Packit Service 88ab54
Packit Service 88ab54
    *[0-7])
Packit Service 88ab54
      if test -z "$stripcmd"; then
Packit Service 88ab54
        u_plus_rw=
Packit Service 88ab54
      else
Packit Service 88ab54
        u_plus_rw='% 200'
Packit Service 88ab54
      fi
Packit Service 88ab54
      cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
Packit Service 88ab54
    *)
Packit Service 88ab54
      if test -z "$stripcmd"; then
Packit Service 88ab54
        u_plus_rw=
Packit Service 88ab54
      else
Packit Service 88ab54
        u_plus_rw=,u+rw
Packit Service 88ab54
      fi
Packit Service 88ab54
      cp_umask=$mode$u_plus_rw;;
Packit Service 88ab54
  esac
Packit Service 88ab54
fi
Packit Service 88ab54
Packit Service 88ab54
for src
Packit Service 88ab54
do
Packit Service 88ab54
  # Protect names problematic for 'test' and other utilities.
Packit Service 88ab54
  case $src in
Packit Service 88ab54
    -* | [=\(\)!]) src=./$src;;
Packit Service 88ab54
  esac
Packit Service 88ab54
Packit Service 88ab54
  if test -n "$dir_arg"; then
Packit Service 88ab54
    dst=$src
Packit Service 88ab54
    dstdir=$dst
Packit Service 88ab54
    test -d "$dstdir"
Packit Service 88ab54
    dstdir_status=$?
Packit Service 88ab54
  else
Packit Service 88ab54
Packit Service 88ab54
    # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
Packit Service 88ab54
    # might cause directories to be created, which would be especially bad
Packit Service 88ab54
    # if $src (and thus $dsttmp) contains '*'.
Packit Service 88ab54
    if test ! -f "$src" && test ! -d "$src"; then
Packit Service 88ab54
      echo "$0: $src does not exist." >&2
Packit Service 88ab54
      exit 1
Packit Service 88ab54
    fi
Packit Service 88ab54
Packit Service 88ab54
    if test -z "$dst_arg"; then
Packit Service 88ab54
      echo "$0: no destination specified." >&2
Packit Service 88ab54
      exit 1
Packit Service 88ab54
    fi
Packit Service 88ab54
    dst=$dst_arg
Packit Service 88ab54
Packit Service 88ab54
    # If destination is a directory, append the input filename; won't work
Packit Service 88ab54
    # if double slashes aren't ignored.
Packit Service 88ab54
    if test -d "$dst"; then
Packit Service 88ab54
      if test "$is_target_a_directory" = never; then
Packit Service 88ab54
        echo "$0: $dst_arg: Is a directory" >&2
Packit Service 88ab54
        exit 1
Packit Service 88ab54
      fi
Packit Service 88ab54
      dstdir=$dst
Packit Service 88ab54
      dst=$dstdir/`basename "$src"`
Packit Service 88ab54
      dstdir_status=0
Packit Service 88ab54
    else
Packit Service 88ab54
      dstdir=`dirname "$dst"`
Packit Service 88ab54
      test -d "$dstdir"
Packit Service 88ab54
      dstdir_status=$?
Packit Service 88ab54
    fi
Packit Service 88ab54
  fi
Packit Service 88ab54
Packit Service 88ab54
  obsolete_mkdir_used=false
Packit Service 88ab54
Packit Service 88ab54
  if test $dstdir_status != 0; then
Packit Service 88ab54
    case $posix_mkdir in
Packit Service 88ab54
      '')
Packit Service 88ab54
        # Create intermediate dirs using mode 755 as modified by the umask.
Packit Service 88ab54
        # This is like FreeBSD 'install' as of 1997-10-28.
Packit Service 88ab54
        umask=`umask`
Packit Service 88ab54
        case $stripcmd.$umask in
Packit Service 88ab54
          # Optimize common cases.
Packit Service 88ab54
          *[2367][2367]) mkdir_umask=$umask;;
Packit Service 88ab54
          .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
Packit Service 88ab54
Packit Service 88ab54
          *[0-7])
Packit Service 88ab54
            mkdir_umask=`expr $umask + 22 \
Packit Service 88ab54
              - $umask % 100 % 40 + $umask % 20 \
Packit Service 88ab54
              - $umask % 10 % 4 + $umask % 2
Packit Service 88ab54
            `;;
Packit Service 88ab54
          *) mkdir_umask=$umask,go-w;;
Packit Service 88ab54
        esac
Packit Service 88ab54
Packit Service 88ab54
        # With -d, create the new directory with the user-specified mode.
Packit Service 88ab54
        # Otherwise, rely on $mkdir_umask.
Packit Service 88ab54
        if test -n "$dir_arg"; then
Packit Service 88ab54
          mkdir_mode=-m$mode
Packit Service 88ab54
        else
Packit Service 88ab54
          mkdir_mode=
Packit Service 88ab54
        fi
Packit Service 88ab54
Packit Service 88ab54
        posix_mkdir=false
Packit Service 88ab54
        case $umask in
Packit Service 88ab54
          *[123567][0-7][0-7])
Packit Service 88ab54
            # POSIX mkdir -p sets u+wx bits regardless of umask, which
Packit Service 88ab54
            # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
Packit Service 88ab54
            ;;
Packit Service 88ab54
          *)
Packit Service 88ab54
            # $RANDOM is not portable (e.g. dash);  use it when possible to
Packit Service 88ab54
            # lower collision chance
Packit Service 88ab54
            tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
Packit Service 88ab54
            trap 'ret=$?; rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null; exit $ret' 0
Packit Service 88ab54
Packit Service 88ab54
            # As "mkdir -p" follows symlinks and we work in /tmp possibly;  so
Packit Service 88ab54
            # create the $tmpdir first (and fail if unsuccessful) to make sure
Packit Service 88ab54
            # that nobody tries to guess the $tmpdir name.
Packit Service 88ab54
            if (umask $mkdir_umask &&
Packit Service 88ab54
                $mkdirprog $mkdir_mode "$tmpdir" &&
Packit Service 88ab54
                exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1
Packit Service 88ab54
            then
Packit Service 88ab54
              if test -z "$dir_arg" || {
Packit Service 88ab54
                   # Check for POSIX incompatibilities with -m.
Packit Service 88ab54
                   # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
Packit Service 88ab54
                   # other-writable bit of parent directory when it shouldn't.
Packit Service 88ab54
                   # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
Packit Service 88ab54
                   test_tmpdir="$tmpdir/a"
Packit Service 88ab54
                   ls_ld_tmpdir=`ls -ld "$test_tmpdir"`
Packit Service 88ab54
                   case $ls_ld_tmpdir in
Packit Service 88ab54
                     d????-?r-*) different_mode=700;;
Packit Service 88ab54
                     d????-?--*) different_mode=755;;
Packit Service 88ab54
                     *) false;;
Packit Service 88ab54
                   esac &&
Packit Service 88ab54
                   $mkdirprog -m$different_mode -p -- "$test_tmpdir" && {
Packit Service 88ab54
                     ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"`
Packit Service 88ab54
                     test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
Packit Service 88ab54
                   }
Packit Service 88ab54
                 }
Packit Service 88ab54
              then posix_mkdir=:
Packit Service 88ab54
              fi
Packit Service 88ab54
              rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir"
Packit Service 88ab54
            else
Packit Service 88ab54
              # Remove any dirs left behind by ancient mkdir implementations.
Packit Service 88ab54
              rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null
Packit Service 88ab54
            fi
Packit Service 88ab54
            trap '' 0;;
Packit Service 88ab54
        esac;;
Packit Service 88ab54
    esac
Packit Service 88ab54
Packit Service 88ab54
    if
Packit Service 88ab54
      $posix_mkdir && (
Packit Service 88ab54
        umask $mkdir_umask &&
Packit Service 88ab54
        $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
Packit Service 88ab54
      )
Packit Service 88ab54
    then :
Packit Service 88ab54
    else
Packit Service 88ab54
Packit Service 88ab54
      # The umask is ridiculous, or mkdir does not conform to POSIX,
Packit Service 88ab54
      # or it failed possibly due to a race condition.  Create the
Packit Service 88ab54
      # directory the slow way, step by step, checking for races as we go.
Packit Service 88ab54
Packit Service 88ab54
      case $dstdir in
Packit Service 88ab54
        /*) prefix='/';;
Packit Service 88ab54
        [-=\(\)!]*) prefix='./';;
Packit Service 88ab54
        *)  prefix='';;
Packit Service 88ab54
      esac
Packit Service 88ab54
Packit Service 88ab54
      oIFS=$IFS
Packit Service 88ab54
      IFS=/
Packit Service 88ab54
      set -f
Packit Service 88ab54
      set fnord $dstdir
Packit Service 88ab54
      shift
Packit Service 88ab54
      set +f
Packit Service 88ab54
      IFS=$oIFS
Packit Service 88ab54
Packit Service 88ab54
      prefixes=
Packit Service 88ab54
Packit Service 88ab54
      for d
Packit Service 88ab54
      do
Packit Service 88ab54
        test X"$d" = X && continue
Packit Service 88ab54
Packit Service 88ab54
        prefix=$prefix$d
Packit Service 88ab54
        if test -d "$prefix"; then
Packit Service 88ab54
          prefixes=
Packit Service 88ab54
        else
Packit Service 88ab54
          if $posix_mkdir; then
Packit Service 88ab54
            (umask=$mkdir_umask &&
Packit Service 88ab54
             $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
Packit Service 88ab54
            # Don't fail if two instances are running concurrently.
Packit Service 88ab54
            test -d "$prefix" || exit 1
Packit Service 88ab54
          else
Packit Service 88ab54
            case $prefix in
Packit Service 88ab54
              *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
Packit Service 88ab54
              *) qprefix=$prefix;;
Packit Service 88ab54
            esac
Packit Service 88ab54
            prefixes="$prefixes '$qprefix'"
Packit Service 88ab54
          fi
Packit Service 88ab54
        fi
Packit Service 88ab54
        prefix=$prefix/
Packit Service 88ab54
      done
Packit Service 88ab54
Packit Service 88ab54
      if test -n "$prefixes"; then
Packit Service 88ab54
        # Don't fail if two instances are running concurrently.
Packit Service 88ab54
        (umask $mkdir_umask &&
Packit Service 88ab54
         eval "\$doit_exec \$mkdirprog $prefixes") ||
Packit Service 88ab54
          test -d "$dstdir" || exit 1
Packit Service 88ab54
        obsolete_mkdir_used=true
Packit Service 88ab54
      fi
Packit Service 88ab54
    fi
Packit Service 88ab54
  fi
Packit Service 88ab54
Packit Service 88ab54
  if test -n "$dir_arg"; then
Packit Service 88ab54
    { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
Packit Service 88ab54
    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
Packit Service 88ab54
    { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
Packit Service 88ab54
      test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
Packit Service 88ab54
  else
Packit Service 88ab54
Packit Service 88ab54
    # Make a couple of temp file names in the proper directory.
Packit Service 88ab54
    dsttmp=$dstdir/_inst.$$_
Packit Service 88ab54
    rmtmp=$dstdir/_rm.$$_
Packit Service 88ab54
Packit Service 88ab54
    # Trap to clean up those temp files at exit.
Packit Service 88ab54
    trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
Packit Service 88ab54
Packit Service 88ab54
    # Copy the file name to the temp name.
Packit Service 88ab54
    (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
Packit Service 88ab54
Packit Service 88ab54
    # and set any options; do chmod last to preserve setuid bits.
Packit Service 88ab54
    #
Packit Service 88ab54
    # If any of these fail, we abort the whole thing.  If we want to
Packit Service 88ab54
    # ignore errors from any of these, just make sure not to ignore
Packit Service 88ab54
    # errors from the above "$doit $cpprog $src $dsttmp" command.
Packit Service 88ab54
    #
Packit Service 88ab54
    { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
Packit Service 88ab54
    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
Packit Service 88ab54
    { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
Packit Service 88ab54
    { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
Packit Service 88ab54
Packit Service 88ab54
    # If -C, don't bother to copy if it wouldn't change the file.
Packit Service 88ab54
    if $copy_on_change &&
Packit Service 88ab54
       old=`LC_ALL=C ls -dlL "$dst"     2>/dev/null` &&
Packit Service 88ab54
       new=`LC_ALL=C ls -dlL "$dsttmp"  2>/dev/null` &&
Packit Service 88ab54
       set -f &&
Packit Service 88ab54
       set X $old && old=:$2:$4:$5:$6 &&
Packit Service 88ab54
       set X $new && new=:$2:$4:$5:$6 &&
Packit Service 88ab54
       set +f &&
Packit Service 88ab54
       test "$old" = "$new" &&
Packit Service 88ab54
       $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
Packit Service 88ab54
    then
Packit Service 88ab54
      rm -f "$dsttmp"
Packit Service 88ab54
    else
Packit Service 88ab54
      # Rename the file to the real destination.
Packit Service 88ab54
      $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
Packit Service 88ab54
Packit Service 88ab54
      # The rename failed, perhaps because mv can't rename something else
Packit Service 88ab54
      # to itself, or perhaps because mv is so ancient that it does not
Packit Service 88ab54
      # support -f.
Packit Service 88ab54
      {
Packit Service 88ab54
        # Now remove or move aside any old file at destination location.
Packit Service 88ab54
        # We try this two ways since rm can't unlink itself on some
Packit Service 88ab54
        # systems and the destination file might be busy for other
Packit Service 88ab54
        # reasons.  In this case, the final cleanup might fail but the new
Packit Service 88ab54
        # file should still install successfully.
Packit Service 88ab54
        {
Packit Service 88ab54
          test ! -f "$dst" ||
Packit Service 88ab54
          $doit $rmcmd -f "$dst" 2>/dev/null ||
Packit Service 88ab54
          { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
Packit Service 88ab54
            { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
Packit Service 88ab54
          } ||
Packit Service 88ab54
          { echo "$0: cannot unlink or rename $dst" >&2
Packit Service 88ab54
            (exit 1); exit 1
Packit Service 88ab54
          }
Packit Service 88ab54
        } &&
Packit Service 88ab54
Packit Service 88ab54
        # Now rename the file to the real destination.
Packit Service 88ab54
        $doit $mvcmd "$dsttmp" "$dst"
Packit Service 88ab54
      }
Packit Service 88ab54
    fi || exit 1
Packit Service 88ab54
Packit Service 88ab54
    trap '' 0
Packit Service 88ab54
  fi
Packit Service 88ab54
done
Packit Service 88ab54
Packit Service 88ab54
# Local variables:
Packit Service 88ab54
# eval: (add-hook 'write-file-hooks 'time-stamp)
Packit Service 88ab54
# time-stamp-start: "scriptversion="
Packit Service 88ab54
# time-stamp-format: "%:y-%02m-%02d.%02H"
Packit Service 88ab54
# time-stamp-time-zone: "UTC"
Packit Service 88ab54
# time-stamp-end: "; # UTC"
Packit Service 88ab54
# End: