lispintro/mkinstalldirs

   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.10 1996/05/03 07:37:52 friedman 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" 1>&2
  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