Return to mkinstalldirs CVS log

Up to [gforth] / gforth

Annotation of gforth/mkinstalldirs, revision 1.1

1.1     ! anton       1: #! /bin/sh
        !             2: # mkinstalldirs --- make directory hierarchy
        !             3: # Author: Noah Friedman <friedman@prep.ai.mit.edu>
        !             4: # Created: 1993-05-16
        !             5: # Public domain
        !             6: 
        !             7: errstatus=0
        !             8: 
        !             9: for file
        !            10: do
        !            11:    set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
        !            12:    shift
        !            13: 
        !            14:    pathcomp=
        !            15:    for d in ${1+"$@"} ; do
        !            16:      pathcomp="$pathcomp$d"
        !            17:      case "$pathcomp" in
        !            18:        -* ) pathcomp=./$pathcomp ;;
        !            19:      esac
        !            20: 
        !            21:      if test ! -d "$pathcomp"; then
        !            22:         echo "mkdir $pathcomp" 1>&2
        !            23:         mkdir "$pathcomp" || errstatus=$?
        !            24:      fi
        !            25: 
        !            26:      pathcomp="$pathcomp/"
        !            27:    done
        !            28: done
        !            29: 
        !            30: exit $errstatus
        !            31: 
        !            32: # mkinstalldirs ends here