|
30517
|
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 # $Id: mkinstalldirs,v 1.10 1996/05/03 07:37:52 friedman Exp $
|
|
|
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
|
|
|
27 mkdir "$pathcomp" || lasterr=$?
|
|
|
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
|
