NetBSD/gnu/dist/texinfo/mkinstalldirs

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Original author: Noah Friedman <friedman@prep.ai.mit.edu>
# Created: 1993-05-16
# Public domain.

version="mkinstalldirs 2003-06-02"

errstatus=0
dirmode=""

usage="\
Usage: mkinstalldirs [-h] [--help] [--version] [-m MODE] DIR ...

Create each directory DIR (with mode MODE, if specified), including all
leading file name components.
"

# process command line arguments
while test $# -gt 0 ; do
  case "${1}" in
    -h | --help | --h*)			# -h for help
      echo "${usage}" 1>&2; exit 0 ;;
    -m)					# -m PERM arg
      shift
      test $# -eq 0 && { echo "${usage}" 1>&2; exit 1; }
      dirmode="${1}"
      shift ;;
    --version) echo "$version"; exit 0;;
    --) shift; break ;;			# stop option processing
    -*) echo "${usage}" 1>&2; exit 1 ;;	# unknown option
     *) break ;;			# first non-opt arg
  esac
done

# no `for var; do', it breaks on Solaris 2.7 (at least).
for file
do
  if test -d "$file"; then
    shift
  else
    break
  fi
done

case $# in
  0) exit 0 ;;
esac

case $dirmode in
  '')
    if mkdir -p -- . 2>/dev/null; then
      echo "mkdir -p -- $*"
      exec mkdir -p -- "$@"
    fi ;;
  *)
    if mkdir -m "$dirmode" -p -- . 2>/dev/null; then
      echo "mkdir -m $dirmode -p -- $*"
      exec mkdir -m "$dirmode" -p -- "$@"
    fi ;;
esac

for file
do
  set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
  shift

  pathcomp=
  for d
  do
    pathcomp="$pathcomp$d"
    case "$pathcomp" in
      -*) pathcomp=./$pathcomp ;;
    esac

    if test ! -d "$pathcomp"; then
      echo "mkdir $pathcomp"

      mkdir "$pathcomp" || lasterr=$?

      if test ! -d "$pathcomp"; then
        errstatus=$lasterr
      else
        if test ! -z "$dirmode"; then
          echo "chmod $dirmode $pathcomp"

          lasterr=""
          chmod "$dirmode" "$pathcomp" || lasterr=$?

          if test ! -z "$lasterr"; then
            errstatus=$lasterr
          fi
        fi
      fi
    fi

    pathcomp="$pathcomp/"
  done
done

exit $errstatus