root/branches/2.1/mkinstalldirs

Revision 99, 0.7 kB (checked in by cvs2svn, 5 years ago)

4204 copies to tags/branches

Line 
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.2 2001/02/02 13:09:26 gerd 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" && chmod a+rx "$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
Note: See TracBrowser for help on using the browser.