|
2334
|
1 #!/bin/sh |
|
|
2 # mkinstalldirs --- make directory hierarchy |
|
3285
|
3 # Author: Noah Friedman <friedman@gnu.org> |
|
2334
|
4 # Created: 1993-05-16 |
|
|
5 # Last modified: Wed Jan 25 09:35:21 1995 |
|
|
6 # Public domain |
|
|
7 |
|
|
8 errstatus=0 |
|
|
9 |
|
|
10 dirmode=0755 |
|
|
11 |
|
|
12 for file in ${1+"$@"} ; do |
|
|
13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` |
|
|
14 shift |
|
|
15 |
|
|
16 pathcomp= |
|
|
17 for d in ${1+"$@"} ; do |
|
|
18 pathcomp="$pathcomp$d" |
|
|
19 case "$pathcomp" in |
|
|
20 -* ) pathcomp=./$pathcomp ;; |
|
|
21 esac |
|
|
22 |
|
|
23 if test ! -d "$pathcomp"; then |
|
|
24 echo "mkdir $pathcomp" 1>&2 |
|
|
25 mkdir "$pathcomp" || errstatus=$? |
|
|
26 echo "chmod $dirmode $pathcomp" 1>&2 |
|
|
27 chmod $dirmode "$pathcomp" || errstatus=$? |
|
|
28 fi |
|
|
29 |
|
|
30 pathcomp="$pathcomp/" |
|
|
31 done |
|
|
32 done |
|
|
33 |
|
|
34 exit $errstatus |
|
|
35 |
|
|
36 # mkinstalldirs ends here |
