Mercurial > emacs
annotate mkinstalldirs @ 59061:a7985894de81
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Dec 2004 11:50:52 +0000 |
| parents | 746c40973d25 |
| children | 730155197b96 eb7e8d483840 |
| rev | line source |
|---|---|
| 25880 | 1 #! /bin/sh |
| 2 # mkinstalldirs --- make directory hierarchy | |
| 3 # Author: Noah Friedman <friedman@prep.ai.mit.edu> | |
| 4 # Created: 1993-05-16 | |
| 5 # Public domain | |
| 6 | |
| 7 errstatus=0 | |
| 8 | |
| 9 for file | |
| 10 do | |
| 11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | |
| 12 shift | |
| 13 | |
| 14 pathcomp= | |
| 15 for d | |
| 16 do | |
| 17 pathcomp="$pathcomp$d" | |
| 18 case "$pathcomp" in | |
| 19 -* ) pathcomp=./$pathcomp ;; | |
| 20 esac | |
| 21 | |
| 22 if test ! -d "$pathcomp"; then | |
| 23 echo "mkdir $pathcomp" 1>&2 | |
| 24 | |
|
35853
774df19dd335
(errstatus): Chmod a+rx directories we create.
Gerd Moellmann <gerd@gnu.org>
parents:
25880
diff
changeset
|
25 (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$? |
| 25880 | 26 |
| 27 if test ! -d "$pathcomp"; then | |
| 28 errstatus=$lasterr | |
| 29 fi | |
| 30 fi | |
| 31 | |
| 32 pathcomp="$pathcomp/" | |
| 33 done | |
| 34 done | |
| 35 | |
| 36 exit $errstatus | |
| 37 | |
| 38 # mkinstalldirs ends here |
