code.delx.au - gnu-emacs/blob - 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 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
  16    do
  17      pathcomp="$pathcomp$d"
  18      case "$pathcomp" in
  19        -* ) pathcomp=./$pathcomp ;;
  20      esac
  21
  22      if test ! -d "$pathcomp"; then
  23         echo "mkdir $pathcomp" 1>&2
  24
  25         (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$?
  26
  27         if test ! -d "$pathcomp"; then
  28           errstatus=$lasterr
  29         fi
  30      fi
  31
  32      pathcomp="$pathcomp/"
  33    done
  34 done
  35
  36 exit $errstatus
  37
  38 # mkinstalldirs ends here