projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b000a28
)
[project @ 1997-05-18 03:52:42 by sof]
author
sof
<unknown>
Sun, 18 May 1997 03:52:42 +0000
(
03:52
+0000)
committer
sof
<unknown>
Sun, 18 May 1997 03:52:42 +0000
(
03:52
+0000)
Fixed up
glafp-utils/mkdirhier/mkdirhier.sh
patch
|
blob
|
history
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
#
#!/bin/sh
#
-# create a heirarchy of directories
+# create a hierarchy of directories
#
#
+# Based on Noah Friedman's mkinstalldirs..
+#
+errs=0
for f in $*; do
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
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
done;
done
+exit $errs
+
+# end of story