Reorganisation of the source tree

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

diff --git a/utils/mkdirhier/mkdirhier.sh b/utils/mkdirhier/mkdirhier.sh
new file mode 100644 (file)
index 0000000..3ae24b3
--- /dev/null
+++ b/utils/mkdirhier/mkdirhier.sh
@@ -0,0 +1,34 @@
+#!/bin/sh
+
+#
+# create a hierarchy of directories
+#
+# Based on Noah Friedman's mkinstalldirs..
+#
+errs=0
+
+for f in $*; do
+    parts=`echo ":$f" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
+    path="";
+    for p in $parts; do
+        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