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