X-Git-Url: http://developer.intra2net.com/git/?p=libt2n;a=blobdiff_plain;f=examples-codegen%2Fexample1%2Fmkinstalldirs;fp=examples-codegen%2Fexample1%2Fmkinstalldirs;h=4f58503ea4e09c65165aa1ecaeac7c2c688648f3;hp=0000000000000000000000000000000000000000;hb=208db683069afb57aeb0ef0e6897c014b870bb6f;hpb=e8b2809dd8681076434fc2b7cb54b148c3b1cbcb

diff --git a/examples-codegen/example1/mkinstalldirs b/examples-codegen/example1/mkinstalldirs
new file mode 100755
index 0000000..4f58503
--- /dev/null
+++ b/examples-codegen/example1/mkinstalldirs
@@ -0,0 +1,40 @@
+#! /bin/sh
+# mkinstalldirs --- make directory hierarchy
+# Author: Noah Friedman <friedman@prep.ai.mit.edu>
+# Created: 1993-05-16
+# Public domain
+
+# $Id: mkinstalldirs,v 1.13 1999/01/05 03:18:55 bje Exp $
+
+errstatus=0
+
+for file
+do
+   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
+   shift
+
+   pathcomp=
+   for d
+   do
+     pathcomp="$pathcomp$d"
+     case "$pathcomp" in
+       -* ) pathcomp=./$pathcomp ;;
+     esac
+
+     if test ! -d "$pathcomp"; then
+        echo "mkdir $pathcomp"
+
+        mkdir "$pathcomp" || lasterr=$?
+
+        if test ! -d "$pathcomp"; then
+  	  errstatus=$lasterr
+        fi
+     fi
+
+     pathcomp="$pathcomp/"
+   done
+done
+
+exit $errstatus
+
+# mkinstalldirs ends here