[project @ 1997-05-18 03:52:42 by sof]

Fixed up

glafp-utils/mkdirhier/mkdirhier.sh

 #!/bin/sh
 
 #
-# create a heirarchy of directories
+# create a hierarchy of directories
 #
+# Based on Noah Friedman's mkinstalldirs..
+#
+errs=0
 
 for f in $*; do
-    parts=`echo $f | sed 's,\(.\)/\(.\),\1 \2,g' | sed 's,/$,,'`;
+    parts=`echo ":$f" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
     path="";
     for p in $parts; do
-	if [ x"$path" = x ]; then
-	    dir=$p;
-	else
-	    dir=$path/$p;
-	fi;
-	if [ ! -d $dir ]; then
-	    echo mkdir $dir; 
-	    mkdir $dir;
-	    chmod a+rx $dir; 
-	fi;
-	path=$dir;
+        path="$path$p"
+        case "$path" in
+          -* ) path=./$path ;;
+        esac
+
+        if test ! -d "$path"; then
+           echo "mkdir $path" 1>&2
+
+           mkdir "$path" || lasterr=$?
+	   
+	   if test ! -d "$path"; then
+	      errs=$lasterr
+           fi 
+        fi
+	path="$path/";
     done;
 done
 
+exit $errs
+
+# end of story