133965Sjdp#! /bin/sh
278828Sobrien# mkinstalldirs --- make directory hierarchy
378828Sobrien# Author: Noah Friedman <friedman@prep.ai.mit.edu>
433965Sjdp# Created: 1993-05-16
533965Sjdp# Public domain
633965Sjdp
733965Sjdperrstatus=0
833965Sjdpdirmode=""
933965Sjdp
1033965Sjdpusage="\
1133965SjdpUsage: mkinstalldirs [-h] [--help] [-m mode] dir ..."
1233965Sjdp
1333965Sjdp# process command line arguments
1433965Sjdpwhile test $# -gt 0 ; do
1533965Sjdp  case $1 in
1633965Sjdp    -h | --help | --h*)         # -h for help
1733965Sjdp      echo "$usage" 1>&2
1833965Sjdp      exit 0
1933965Sjdp      ;;
2033965Sjdp    -m)                         # -m PERM arg
2133965Sjdp      shift
2233965Sjdp      test $# -eq 0 && { echo "$usage" 1>&2; exit 1; }
2333965Sjdp      dirmode=$1
2433965Sjdp      shift
2533965Sjdp      ;;
2633965Sjdp    --)                         # stop option processing
2733965Sjdp      shift
2833965Sjdp      break
2933965Sjdp      ;;
3033965Sjdp    -*)                         # unknown option
3133965Sjdp      echo "$usage" 1>&2
3233965Sjdp      exit 1
3333965Sjdp      ;;
3433965Sjdp    *)                          # first non-opt arg
3533965Sjdp      break
3633965Sjdp      ;;
3733965Sjdp  esac
3833965Sjdpdone
3933965Sjdp
4060484Sobrienfor file
4160484Sobriendo
4260484Sobrien  if test -d "$file"; then
4360484Sobrien    shift
4433965Sjdp  else
4560484Sobrien    break
4633965Sjdp  fi
4760484Sobriendone
4860484Sobrien
4933965Sjdpcase $# in
5033965Sjdp  0) exit 0 ;;
5133965Sjdpesac
5233965Sjdp
5333965Sjdpcase $dirmode in
5433965Sjdp  '')
5533965Sjdp    if mkdir -p -- . 2>/dev/null; then
5633965Sjdp      echo "mkdir -p -- $*"
5733965Sjdp      exec mkdir -p -- "$@"
5833965Sjdp    fi
5933965Sjdp    ;;
6033965Sjdp  *)
6133965Sjdp    if mkdir -m "$dirmode" -p -- . 2>/dev/null; then
6233965Sjdp      echo "mkdir -m $dirmode -p -- $*"
6333965Sjdp      exec mkdir -m "$dirmode" -p -- "$@"
6433965Sjdp    fi
6533965Sjdp    ;;
6633965Sjdpesac
6733965Sjdp
6833965Sjdpfor file
6933965Sjdpdo
7033965Sjdp  set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
7133965Sjdp  shift
7260484Sobrien
73  pathcomp=
74  for d
75  do
76    pathcomp="$pathcomp$d"
77    case $pathcomp in
78      -*) pathcomp=./$pathcomp ;;
79    esac
80
81    if test ! -d "$pathcomp"; then
82      echo "mkdir $pathcomp"
83
84      mkdir "$pathcomp" || lasterr=$?
85
86      if test ! -d "$pathcomp"; then
87  	errstatus=$lasterr
88      else
89  	if test ! -z "$dirmode"; then
90	  echo "chmod $dirmode $pathcomp"
91    	  lasterr=""
92  	  chmod "$dirmode" "$pathcomp" || lasterr=$?
93
94  	  if test ! -z "$lasterr"; then
95  	    errstatus=$lasterr
96  	  fi
97  	fi
98      fi
99    fi
100
101    pathcomp="$pathcomp/"
102  done
103done
104
105exit $errstatus
106
107# Local Variables:
108# mode: shell-script
109# sh-indentation: 2
110# End:
111# mkinstalldirs ends here
112