[project @ 2000-08-04 23:28:04 by lewie]
[ghc.git] / ghc / rts / gmp / mkinstalldirs
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 in ${1+"$@"} ; do
16      pathcomp="$pathcomp$d"
17      case "$pathcomp" in
18        -* ) pathcomp=./$pathcomp ;;
19      esac
20
21      if test ! -d "$pathcomp"; then
22         echo "mkdir $pathcomp" 1>&2
23         mkdir "$pathcomp" || errstatus=$?
24      fi
25
26      pathcomp="$pathcomp/"
27    done
28 done
29
30 exit $errstatus
31
32 # mkinstalldirs ends here