Mercurial > emacs
annotate mkinstalldirs @ 42811:cf0c0ef57504
*** empty log message ***
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 17 Jan 2002 19:29:24 +0000 |
| parents | 774df19dd335 |
| children | f0eb34e60705 746c40973d25 |
| 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 | |
|
35853
774df19dd335
(errstatus): Chmod a+rx directories we create.
Gerd Moellmann <gerd@gnu.org>
parents:
25880
diff
changeset
|
7 # $Id: mkinstalldirs,v 1.1 2001/02/02 13:04:53 gerd Exp $ |
| 25880 | 8 |
| 9 errstatus=0 | |
| 10 | |
| 11 for file | |
| 12 do | |
| 13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | |
| 14 shift | |
| 15 | |
| 16 pathcomp= | |
| 17 for d | |
| 18 do | |
| 19 pathcomp="$pathcomp$d" | |
| 20 case "$pathcomp" in | |
| 21 -* ) pathcomp=./$pathcomp ;; | |
| 22 esac | |
| 23 | |
| 24 if test ! -d "$pathcomp"; then | |
| 25 echo "mkdir $pathcomp" 1>&2 | |
| 26 | |
|
35853
774df19dd335
(errstatus): Chmod a+rx directories we create.
Gerd Moellmann <gerd@gnu.org>
parents:
25880
diff
changeset
|
27 (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$? |
| 25880 | 28 |
| 29 if test ! -d "$pathcomp"; then | |
| 30 errstatus=$lasterr | |
| 31 fi | |
| 32 fi | |
| 33 | |
| 34 pathcomp="$pathcomp/" | |
| 35 done | |
| 36 done | |
| 37 | |
| 38 exit $errstatus | |
| 39 | |
| 40 # mkinstalldirs ends here |
