w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

mkinstalldirs (1988B)


      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 dirmode=""
      9 
     10 usage="\
     11 Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..."
     12 
     13 # process command line arguments
     14 while test $# -gt 0 ; do
     15   case $1 in
     16     -h | --help | --h*)         # -h for help
     17       echo "$usage" 1>&2
     18       exit 0
     19       ;;
     20     -m)                         # -m PERM arg
     21       shift
     22       test $# -eq 0 && { echo "$usage" 1>&2; exit 1; }
     23       dirmode=$1
     24       shift
     25       ;;
     26     --)                         # stop option processing
     27       shift
     28       break
     29       ;;
     30     -*)                         # unknown option
     31       echo "$usage" 1>&2
     32       exit 1
     33       ;;
     34     *)                          # first non-opt arg
     35       break
     36       ;;
     37   esac
     38 done
     39 
     40 for file
     41 do
     42   if test -d "$file"; then
     43     shift
     44   else
     45     break
     46   fi
     47 done
     48 
     49 case $# in
     50   0) exit 0 ;;
     51 esac
     52 
     53 case $dirmode in
     54   '')
     55     if mkdir -p -- . 2>/dev/null; then
     56       echo "mkdir -p -- $*"
     57       exec mkdir -p -- "$@"
     58     fi
     59     ;;
     60   *)
     61     if mkdir -m "$dirmode" -p -- . 2>/dev/null; then
     62       echo "mkdir -m $dirmode -p -- $*"
     63       exec mkdir -m "$dirmode" -p -- "$@"
     64     fi
     65     ;;
     66 esac
     67 
     68 for file
     69 do
     70   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
     71   shift
     72 
     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
    103 done
    104 
    105 exit $errstatus
    106 
    107 # Local Variables:
    108 # mode: shell-script
    109 # sh-indentation: 2
    110 # End:
    111 # mkinstalldirs ends here