*** empty log message ***

mkinstalldirs

@@ -1,35 +1,32 @@
 #!/bin/sh
-# Make directory hierarchy. 
-# Written by Noah Friedman <friedman@prep.ai.mit.edu>
-# Public domain.
-
-defaultIFS=' 	
-'
-IFS="${IFS-${defaultIFS}}"
+# mkinstalldirs --- make directory hierarchy
+# Author: Noah Friedman <friedman@prep.ai.mit.edu>
+# Created: 1993-05-16
+# Last modified: 1994-03-17
+# Public domain
 
 errstatus=0
 
 for file in ${1+"$@"} ; do 
-   oIFS="${IFS}"
-   # Some sh's can't handle IFS=/ for some reason.
-   IFS='%'
-   set - `echo ${file} | sed -e 's@/@%@g' -e 's@^%@/@'`
-   IFS="${oIFS}"
-
-   pathcomp=''
+   set fnord `echo ":$file" | sed -ne 's/^://;s/\// /g;p'`
+   shift
 
+   pathcomp=
    for d in ${1+"$@"} ; do
-     pathcomp="${pathcomp}${d}"
+     pathcomp="$pathcomp$d"
+     case "$pathcomp" in
+       -* ) pathcomp=./$pathcomp ;;
+     esac
 
-     if test ! -d "${pathcomp}"; then
+     if test ! -d "$pathcomp"; then
         echo "mkdir $pathcomp" 1>&2
-        mkdir "${pathcomp}" || errstatus=$?
+        mkdir "$pathcomp" || errstatus=$?
      fi
 
-     pathcomp="${pathcomp}/"
+     pathcomp="$pathcomp/"
    done
 done
 
 exit $errstatus
 
-# eof
+# mkinstalldirs ends here