File:  [Local Repository] / gnujdoc / mkinstalldirs
Revision 1.1: download - view: text, annotated - select for diffs
Thu Apr 8 08:45:31 1999 UTC (21 years, 6 months ago) by okuji
Branches: MAIN
CVS tags: HEAD
Initial revision

    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: # $Id: mkinstalldirs,v 1.1 1999/04/08 08:45:31 okuji Exp $
    8: 
    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=
   17:    for d
   18:    do
   19:      pathcomp="$pathcomp$d"
   20:      case "$pathcomp" in
   21:        -* ) pathcomp=./$pathcomp ;;
   22:      esac
   23: 
   24:      if test ! -d "$pathcomp"; then
   25:         echo "mkdir $pathcomp"
   26: 
   27:         mkdir "$pathcomp" || lasterr=$?
   28: 
   29:         if test ! -d "$pathcomp"; then
   30:   	  errstatus=$lasterr
   31:         fi
   32:      fi
   33: 
   34:      pathcomp="$pathcomp/"
   35:    done
   36: done
   37: 
   38: exit $errstatus
   39: 
   40: # mkinstalldirs ends here

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>