Return to mkinstalldirs CVS log

Up to [local] / OpenXM_contrib / gmp

Annotation of OpenXM_contrib/gmp/mkinstalldirs, Revision 1.1.1.2

1.1       maekawa     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:
1.1.1.2 ! maekawa     7: # $Id: mkinstalldirs,v 1.2 2000/03/20 12:43:37 linus Exp $
        !             8:
1.1       maekawa     9: errstatus=0
                     10:
                     11: for file
                     12: do
                     13:    set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
                     14:    shift
                     15:
                     16:    pathcomp=
1.1.1.2 ! maekawa    17:    for d
        !            18:    do
1.1       maekawa    19:      pathcomp="$pathcomp$d"
                     20:      case "$pathcomp" in
                     21:        -* ) pathcomp=./$pathcomp ;;
                     22:      esac
                     23:
                     24:      if test ! -d "$pathcomp"; then
1.1.1.2 ! maekawa    25:         echo "mkdir $pathcomp"
        !            26:
        !            27:         mkdir "$pathcomp" || lasterr=$?
        !            28:
        !            29:         if test ! -d "$pathcomp"; then
        !            30:          errstatus=$lasterr
        !            31:         fi
1.1       maekawa    32:      fi
                     33:
                     34:      pathcomp="$pathcomp/"
                     35:    done
                     36: done
                     37:
                     38: exit $errstatus
                     39:
                     40: # mkinstalldirs ends here