Home | History | Annotate | Line # | Download | only in dist
mkinstalldirs revision 1.1.1.1
      1  1.1  christos #! /bin/sh
      2  1.1  christos # mkinstalldirs --- make directory hierarchy
      3  1.1  christos # Author: Noah Friedman <friedman (at] prep.ai.mit.edu>
      4  1.1  christos # Created: 1993-05-16
      5  1.1  christos # Public domain
      6  1.1  christos 
      7  1.1  christos # Id: mkinstalldirs,v 1.13 1999/01/05 03:18:55 bje Exp 
      8  1.1  christos 
      9  1.1  christos errstatus=0
     10  1.1  christos 
     11  1.1  christos for file
     12  1.1  christos do
     13  1.1  christos    set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
     14  1.1  christos    shift
     15  1.1  christos 
     16  1.1  christos    pathcomp=
     17  1.1  christos    for d
     18  1.1  christos    do
     19  1.1  christos      pathcomp="$pathcomp$d"
     20  1.1  christos      case "$pathcomp" in
     21  1.1  christos        -* ) pathcomp=./$pathcomp ;;
     22  1.1  christos      esac
     23  1.1  christos 
     24  1.1  christos      if test ! -d "$pathcomp"; then
     25  1.1  christos         echo "mkdir $pathcomp"
     26  1.1  christos 
     27  1.1  christos         mkdir "$pathcomp" || lasterr=$?
     28  1.1  christos 
     29  1.1  christos         if test ! -d "$pathcomp"; then
     30  1.1  christos   	  errstatus=$lasterr
     31  1.1  christos         fi
     32  1.1  christos      fi
     33  1.1  christos 
     34  1.1  christos      pathcomp="$pathcomp/"
     35  1.1  christos    done
     36  1.1  christos done
     37  1.1  christos 
     38  1.1  christos exit $errstatus
     39  1.1  christos 
     40  1.1  christos # mkinstalldirs ends here
     41