cannam@85: #! /bin/sh
cannam@85: # mkinstalldirs --- make directory hierarchy
cannam@85: # Author: Noah Friedman <friedman@prep.ai.mit.edu>
cannam@85: # Created: 1993-05-16
cannam@85: # Public domain
cannam@85: 
cannam@85: errstatus=0
cannam@85: dirmode=""
cannam@85: 
cannam@85: usage="\
cannam@85: Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..."
cannam@85: 
cannam@85: # process command line arguments
cannam@85: while test $# -gt 0 ; do
cannam@85:   case $1 in
cannam@85:     -h | --help | --h*)         # -h for help
cannam@85:       echo "$usage" 1>&2
cannam@85:       exit 0
cannam@85:       ;;
cannam@85:     -m)                         # -m PERM arg
cannam@85:       shift
cannam@85:       test $# -eq 0 && { echo "$usage" 1>&2; exit 1; }
cannam@85:       dirmode=$1
cannam@85:       shift
cannam@85:       ;;
cannam@85:     --)                         # stop option processing
cannam@85:       shift
cannam@85:       break
cannam@85:       ;;
cannam@85:     -*)                         # unknown option
cannam@85:       echo "$usage" 1>&2
cannam@85:       exit 1
cannam@85:       ;;
cannam@85:     *)                          # first non-opt arg
cannam@85:       break
cannam@85:       ;;
cannam@85:   esac
cannam@85: done
cannam@85: 
cannam@85: for file
cannam@85: do
cannam@85:   if test -d "$file"; then
cannam@85:     shift
cannam@85:   else
cannam@85:     break
cannam@85:   fi
cannam@85: done
cannam@85: 
cannam@85: case $# in
cannam@85:   0) exit 0 ;;
cannam@85: esac
cannam@85: 
cannam@85: case $dirmode in
cannam@85:   '')
cannam@85:     if mkdir -p -- . 2>/dev/null; then
cannam@85:       echo "mkdir -p -- $*"
cannam@85:       exec mkdir -p -- "$@"
cannam@85:     fi
cannam@85:     ;;
cannam@85:   *)
cannam@85:     if mkdir -m "$dirmode" -p -- . 2>/dev/null; then
cannam@85:       echo "mkdir -m $dirmode -p -- $*"
cannam@85:       exec mkdir -m "$dirmode" -p -- "$@"
cannam@85:     fi
cannam@85:     ;;
cannam@85: esac
cannam@85: 
cannam@85: for file
cannam@85: do
cannam@85:   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
cannam@85:   shift
cannam@85: 
cannam@85:   pathcomp=
cannam@85:   for d
cannam@85:   do
cannam@85:     pathcomp="$pathcomp$d"
cannam@85:     case $pathcomp in
cannam@85:       -*) pathcomp=./$pathcomp ;;
cannam@85:     esac
cannam@85: 
cannam@85:     if test ! -d "$pathcomp"; then
cannam@85:       echo "mkdir $pathcomp"
cannam@85: 
cannam@85:       mkdir "$pathcomp" || lasterr=$?
cannam@85: 
cannam@85:       if test ! -d "$pathcomp"; then
cannam@85:   	errstatus=$lasterr
cannam@85:       else
cannam@85:   	if test ! -z "$dirmode"; then
cannam@85: 	  echo "chmod $dirmode $pathcomp"
cannam@85:     	  lasterr=""
cannam@85:   	  chmod "$dirmode" "$pathcomp" || lasterr=$?
cannam@85: 
cannam@85:   	  if test ! -z "$lasterr"; then
cannam@85:   	    errstatus=$lasterr
cannam@85:   	  fi
cannam@85:   	fi
cannam@85:       fi
cannam@85:     fi
cannam@85: 
cannam@85:     pathcomp="$pathcomp/"
cannam@85:   done
cannam@85: done
cannam@85: 
cannam@85: exit $errstatus
cannam@85: 
cannam@85: # Local Variables:
cannam@85: # mode: shell-script
cannam@85: # sh-indentation: 2
cannam@85: # End:
cannam@85: # mkinstalldirs ends here