Improved speed of digest computation (lib/digest.scm) by a factor of 100.
[gambit-c.git] / mkidirs
blob91f6d04e17c2b7b003c8e54e4c24646818d81456
1 #!/bin/sh
2 # mkinstalldirs --- make directory hierarchy
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
4 # Created: 1993-05-16
5 # Last modified: 1994-03-25
6 # Public domain
8 errstatus=0
10 for file in ${1+"$@"} ; do
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
12 shift
14 pathcomp=
15 for d in ${1+"$@"} ; do
16 pathcomp="$pathcomp$d"
17 case "$pathcomp" in
18 -* ) pathcomp=./$pathcomp ;;
19 esac
21 if test ! -d "$pathcomp"; then
22 echo "mkdir $pathcomp" 1>&2
23 mkdir "$pathcomp" || errstatus=$?
26 pathcomp="$pathcomp/"
27 done
28 done
30 exit $errstatus
32 # mkinstalldirs ends here