|
|
|
|
@ -1,7 +1,7 @@ |
|
|
|
|
#!/bin/sh |
|
|
|
|
# install - install a program, script, or datafile |
|
|
|
|
|
|
|
|
|
scriptversion=2005-02-02.21 |
|
|
|
|
scriptversion=2006-01-12.21 |
|
|
|
|
|
|
|
|
|
# This originates from X11R5 (mit/util/scripts/install.sh), which was |
|
|
|
|
# later released in X11R6 (xc/config/util/install.sh) with the |
|
|
|
|
@ -58,7 +58,21 @@ stripprog="${STRIPPROG-strip}" |
|
|
|
|
rmprog="${RMPROG-rm}" |
|
|
|
|
mkdirprog="${MKDIRPROG-mkdir}" |
|
|
|
|
|
|
|
|
|
chmodcmd="$chmodprog 0755" |
|
|
|
|
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= |
|
|
|
|
@ -111,7 +125,7 @@ while test -n "$1"; do |
|
|
|
|
|
|
|
|
|
--help) echo "$usage"; exit $?;; |
|
|
|
|
|
|
|
|
|
-m) chmodcmd="$chmodprog $2" |
|
|
|
|
-m) mode=$2 |
|
|
|
|
shift |
|
|
|
|
shift |
|
|
|
|
continue;; |
|
|
|
|
@ -164,6 +178,8 @@ if test -z "$1"; then |
|
|
|
|
exit 0 |
|
|
|
|
fi |
|
|
|
|
|
|
|
|
|
test -n "$dir_arg" || trap '(exit $?); exit' 1 2 13 15 |
|
|
|
|
|
|
|
|
|
for src |
|
|
|
|
do |
|
|
|
|
# Protect names starting with `-'. |
|
|
|
|
@ -173,15 +189,11 @@ do |
|
|
|
|
|
|
|
|
|
if test -n "$dir_arg"; then |
|
|
|
|
dst=$src |
|
|
|
|
src= |
|
|
|
|
|
|
|
|
|
if test -d "$dst"; then |
|
|
|
|
mkdircmd=: |
|
|
|
|
chmodcmd= |
|
|
|
|
else |
|
|
|
|
mkdircmd=$mkdirprog |
|
|
|
|
fi |
|
|
|
|
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 '*'. |
|
|
|
|
@ -208,53 +220,134 @@ do |
|
|
|
|
echo "$0: $dstarg: Is a directory" >&2 |
|
|
|
|
exit 1 |
|
|
|
|
fi |
|
|
|
|
dst=$dst/`basename "$src"` |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
# This sed command emulates the dirname command. |
|
|
|
|
dstdir=`echo "$dst" | sed -e 's,/*$,,;s,[^/]*$,,;s,/*$,,;s,^$,.,'` |
|
|
|
|
|
|
|
|
|
# Make sure that the destination directory exists. |
|
|
|
|
|
|
|
|
|
# Skip lots of stat calls in the usual case. |
|
|
|
|
if test ! -d "$dstdir"; then |
|
|
|
|
defaultIFS=' |
|
|
|
|
' |
|
|
|
|
IFS="${IFS-$defaultIFS}" |
|
|
|
|
|
|
|
|
|
oIFS=$IFS |
|
|
|
|
# Some sh's can't handle IFS=/ for some reason. |
|
|
|
|
IFS='%' |
|
|
|
|
set x `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'` |
|
|
|
|
shift |
|
|
|
|
IFS=$oIFS |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
pathcomp= |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
while test $# -ne 0 ; do |
|
|
|
|
pathcomp=$pathcomp$1 |
|
|
|
|
# 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 |
|
|
|
|
/*) pathcomp=/ ;; |
|
|
|
|
-*) pathcomp=./ ;; |
|
|
|
|
*) pathcomp= ;; |
|
|
|
|
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 |
|
|
|
|
if test ! -d "$pathcomp"; then |
|
|
|
|
$mkdirprog "$pathcomp" |
|
|
|
|
# mkdir can fail with a `File exist' error in case several |
|
|
|
|
# install-sh are creating the directory concurrently. This |
|
|
|
|
# is OK. |
|
|
|
|
test -d "$pathcomp" || exit |
|
|
|
|
fi |
|
|
|
|
pathcomp=$pathcomp/ |
|
|
|
|
done |
|
|
|
|
$posix_glob && set +f |
|
|
|
|
IFS=$oIFS |
|
|
|
|
|
|
|
|
|
for d |
|
|
|
|
do |
|
|
|
|
test "x$d" = x && continue |
|
|
|
|
|
|
|
|
|
pathcomp=$pathcomp$d |
|
|
|
|
if test ! -d "$pathcomp"; then |
|
|
|
|
$mkdirprog "$pathcomp" |
|
|
|
|
# Don't fail if two instances are running concurrently. |
|
|
|
|
test -d "$pathcomp" || exit 1 |
|
|
|
|
fi |
|
|
|
|
pathcomp=$pathcomp/ |
|
|
|
|
done |
|
|
|
|
obsolete_mkdir_used=true |
|
|
|
|
fi |
|
|
|
|
fi |
|
|
|
|
|
|
|
|
|
if test -n "$dir_arg"; then |
|
|
|
|
$doit $mkdircmd "$dst" \ |
|
|
|
|
&& { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \ |
|
|
|
|
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \ |
|
|
|
|
&& { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \ |
|
|
|
|
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; } |
|
|
|
|
|
|
|
|
|
{ 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 |
|
|
|
|
dstfile=`basename "$dst"` |
|
|
|
|
|
|
|
|
|
# Make a couple of temp file names in the proper directory. |
|
|
|
|
dsttmp=$dstdir/_inst.$$_ |
|
|
|
|
@ -262,7 +355,6 @@ do |
|
|
|
|
|
|
|
|
|
# Trap to clean up those temp files at exit. |
|
|
|
|
trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 |
|
|
|
|
trap '(exit $?); exit' 1 2 13 15 |
|
|
|
|
|
|
|
|
|
# Copy the file name to the temp name. |
|
|
|
|
$doit $cpprog "$src" "$dsttmp" && |
|
|
|
|
@ -276,10 +368,10 @@ do |
|
|
|
|
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \ |
|
|
|
|
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \ |
|
|
|
|
&& { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \ |
|
|
|
|
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } && |
|
|
|
|
&& { test -z "$chmodcmd" || $doit $chmodcmd "$mode" "$dsttmp"; } && |
|
|
|
|
|
|
|
|
|
# Now rename the file to the real destination. |
|
|
|
|
{ $doit $mvcmd -f "$dsttmp" "$dstdir/$dstfile" 2>/dev/null \ |
|
|
|
|
{ $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 |
|
|
|
|
@ -291,11 +383,12 @@ do |
|
|
|
|
# reasons. In this case, the final cleanup might fail but the new |
|
|
|
|
# file should still install successfully. |
|
|
|
|
{ |
|
|
|
|
if test -f "$dstdir/$dstfile"; then |
|
|
|
|
$doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \ |
|
|
|
|
|| $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \ |
|
|
|
|
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 $dstdir/$dstfile" >&2 |
|
|
|
|
echo "$0: cannot unlink or rename $dst" >&2 |
|
|
|
|
(exit 1); exit 1 |
|
|
|
|
} |
|
|
|
|
else |
|
|
|
|
@ -304,16 +397,13 @@ do |
|
|
|
|
} && |
|
|
|
|
|
|
|
|
|
# Now rename the file to the real destination. |
|
|
|
|
$doit $mvcmd "$dsttmp" "$dstdir/$dstfile" |
|
|
|
|
$doit $mvcmd "$dsttmp" "$dst" |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
fi || { (exit 1); exit 1; } |
|
|
|
|
done |
|
|
|
|
} || exit 1 |
|
|
|
|
|
|
|
|
|
# The final little trick to "correctly" pass the exit status to the exit trap. |
|
|
|
|
{ |
|
|
|
|
(exit 0); exit 0 |
|
|
|
|
} |
|
|
|
|
trap '' 0 |
|
|
|
|
fi |
|
|
|
|
done |
|
|
|
|
|
|
|
|
|
# Local variables: |
|
|
|
|
# eval: (add-hook 'write-file-hooks 'time-stamp) |
|
|
|
|
|
Werner Lemberg
19 years ago