[project @ 1996-09-25 14:09:14 by simonm]

[ghc-hetmet.git] / glafp-utils / scripts / mkdirhier.sh

diff --git a/glafp-utils/scripts/mkdirhier.sh b/glafp-utils/scripts/mkdirhier.sh
new file mode 100644 (file)
index 0000000..739535e
--- /dev/null
+++ b/glafp-utils/scripts/mkdirhier.sh
@@ -0,0 +1,24 @@
+#!/bin/sh
+
+#
+# create a heirarchy of directories
+#
+
+for f in $*; do
+    parts=`echo $f | sed 's,\(.\)/\(.\),\1 \2,g' | sed 's,/$,,'`;
+    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;
+    done;
+done
+