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

Fixed up

diff --git a/glafp-utils/mkdirhier/mkdirhier.sh b/glafp-utils/mkdirhier/mkdirhier.sh
index 739535e..3ae24b3 100644 (file)
--- a/glafp-utils/mkdirhier/mkdirhier.sh
+++ b/glafp-utils/mkdirhier/mkdirhier.sh
@@ -1,24 +1,34 @@
 #!/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