Mercurial > emacs
comparison mkinstalldirs @ 83629:4c726a40604c
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 771-780)
- Update from CVS
- Merge from emacs--rel--22
- Merge from emacs--rel--22, gnus--rel--5.10
- Fix tq.el edge case
* emacs--rel--22 (patch 26-32)
- Update from CVS
- lisp/vc-hooks.el (vc-find-root): Fix file attribute test
* gnus--rel--5.10 (patch 224-225)
- Merge from emacs--devo--0, emacs--rel--22
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-18
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 30 May 2007 14:44:47 +0000 |
parents | 730155197b96 |
children |
comparison
equal
deleted
inserted
replaced
83628:7a881fda2c3a | 83629:4c726a40604c |
---|---|
1 #! /bin/sh | 1 #! /bin/sh |
2 # mkinstalldirs --- make directory hierarchy | 2 # mkinstalldirs --- make directory hierarchy |
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu> | 3 |
4 scriptversion=2006-05-11.19 | |
5 | |
6 # Original author: Noah Friedman <friedman@prep.ai.mit.edu> | |
4 # Created: 1993-05-16 | 7 # Created: 1993-05-16 |
5 # Public domain | 8 # Public domain. |
9 # | |
10 # This file is maintained in Automake, please report | |
11 # bugs to <bug-automake@gnu.org> or send patches to | |
12 # <automake-patches@gnu.org>. | |
6 | 13 |
14 nl=' | |
15 ' | |
16 IFS=" "" $nl" | |
7 errstatus=0 | 17 errstatus=0 |
18 dirmode= | |
19 | |
20 usage="\ | |
21 Usage: mkinstalldirs [-h] [--help] [--version] [-m MODE] DIR ... | |
22 | |
23 Create each directory DIR (with mode MODE, if specified), including all | |
24 leading file name components. | |
25 | |
26 Report bugs to <bug-automake@gnu.org>." | |
27 | |
28 # process command line arguments | |
29 while test $# -gt 0 ; do | |
30 case $1 in | |
31 -h | --help | --h*) # -h for help | |
32 echo "$usage" | |
33 exit $? | |
34 ;; | |
35 -m) # -m PERM arg | |
36 shift | |
37 test $# -eq 0 && { echo "$usage" 1>&2; exit 1; } | |
38 dirmode=$1 | |
39 shift | |
40 ;; | |
41 --version) | |
42 echo "$0 $scriptversion" | |
43 exit $? | |
44 ;; | |
45 --) # stop option processing | |
46 shift | |
47 break | |
48 ;; | |
49 -*) # unknown option | |
50 echo "$usage" 1>&2 | |
51 exit 1 | |
52 ;; | |
53 *) # first non-opt arg | |
54 break | |
55 ;; | |
56 esac | |
57 done | |
8 | 58 |
9 for file | 59 for file |
10 do | 60 do |
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | 61 if test -d "$file"; then |
12 shift | 62 shift |
63 else | |
64 break | |
65 fi | |
66 done | |
13 | 67 |
14 pathcomp= | 68 case $# in |
15 for d | 69 0) exit 0 ;; |
16 do | 70 esac |
17 pathcomp="$pathcomp$d" | |
18 case "$pathcomp" in | |
19 -* ) pathcomp=./$pathcomp ;; | |
20 esac | |
21 | 71 |
22 if test ! -d "$pathcomp"; then | 72 # Solaris 8's mkdir -p isn't thread-safe. If you mkdir -p a/b and |
23 echo "mkdir $pathcomp" 1>&2 | 73 # mkdir -p a/c at the same time, both will detect that a is missing, |
74 # one will create a, then the other will try to create a and die with | |
75 # a "File exists" error. This is a problem when calling mkinstalldirs | |
76 # from a parallel make. We use --version in the probe to restrict | |
77 # ourselves to GNU mkdir, which is thread-safe. | |
78 case $dirmode in | |
79 '') | |
80 if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then | |
81 echo "mkdir -p -- $*" | |
82 exec mkdir -p -- "$@" | |
83 else | |
84 # On NextStep and OpenStep, the `mkdir' command does not | |
85 # recognize any option. It will interpret all options as | |
86 # directories to create, and then abort because `.' already | |
87 # exists. | |
88 test -d ./-p && rmdir ./-p | |
89 test -d ./--version && rmdir ./--version | |
90 fi | |
91 ;; | |
92 *) | |
93 if mkdir -m "$dirmode" -p --version . >/dev/null 2>&1 && | |
94 test ! -d ./--version; then | |
95 echo "mkdir -m $dirmode -p -- $*" | |
96 exec mkdir -m "$dirmode" -p -- "$@" | |
97 else | |
98 # Clean up after NextStep and OpenStep mkdir. | |
99 for d in ./-m ./-p ./--version "./$dirmode"; | |
100 do | |
101 test -d $d && rmdir $d | |
102 done | |
103 fi | |
104 ;; | |
105 esac | |
24 | 106 |
25 (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$? | 107 for file |
108 do | |
109 case $file in | |
110 /*) pathcomp=/ ;; | |
111 *) pathcomp= ;; | |
112 esac | |
113 oIFS=$IFS | |
114 IFS=/ | |
115 set fnord $file | |
116 shift | |
117 IFS=$oIFS | |
26 | 118 |
27 if test ! -d "$pathcomp"; then | 119 for d |
28 errstatus=$lasterr | 120 do |
29 fi | 121 test "x$d" = x && continue |
30 fi | |
31 | 122 |
32 pathcomp="$pathcomp/" | 123 pathcomp=$pathcomp$d |
33 done | 124 case $pathcomp in |
125 -*) pathcomp=./$pathcomp ;; | |
126 esac | |
127 | |
128 if test ! -d "$pathcomp"; then | |
129 echo "mkdir $pathcomp" | |
130 | |
131 mkdir "$pathcomp" || lasterr=$? | |
132 | |
133 if test ! -d "$pathcomp"; then | |
134 errstatus=$lasterr | |
135 else | |
136 if test ! -z "$dirmode"; then | |
137 echo "chmod $dirmode $pathcomp" | |
138 lasterr= | |
139 chmod "$dirmode" "$pathcomp" || lasterr=$? | |
140 | |
141 if test ! -z "$lasterr"; then | |
142 errstatus=$lasterr | |
143 fi | |
144 fi | |
145 fi | |
146 fi | |
147 | |
148 pathcomp=$pathcomp/ | |
149 done | |
34 done | 150 done |
35 | 151 |
36 exit $errstatus | 152 exit $errstatus |
37 | |
38 # mkinstalldirs ends here |