version 1.1.1.1, 1999/11/18 16:29:01 |
version 1.1.1.1.6.1, 2002/01/18 17:20:23 |
|
|
#!/bin/sh |
#! /bin/sh |
# mkinstalldirs --- make directory hierarchy |
# mkinstalldirs --- make directory hierarchy |
# Author: Noah Friedman <friedman@prep.ai.mit.edu> |
# Author: Noah Friedman <friedman@prep.ai.mit.edu> |
# Created: 1993-05-16 |
# Created: 1993-05-16 |
# Last modified: 1994-03-25 |
|
# Public domain |
# Public domain |
|
|
|
# $Id$ |
|
|
|
umask 022 |
errstatus=0 |
errstatus=0 |
|
dirmode="" |
|
|
for file in ${1+"$@"} ; do |
usage="\ |
|
Usage: mkinstalldirs [-h] [--help] [-m mode] dir ..." |
|
|
|
# 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 ;; |
|
-- ) shift; break ;; # stop option processing |
|
-* ) echo "${usage}" 1>&2; exit 1 ;; # unknown option |
|
* ) break ;; # first non-opt arg |
|
esac |
|
done |
|
|
|
for file |
|
do |
set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` |
set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` |
shift |
shift |
|
|
pathcomp= |
pathcomp= |
for d in ${1+"$@"} ; do |
for d |
|
do |
pathcomp="$pathcomp$d" |
pathcomp="$pathcomp$d" |
case "$pathcomp" in |
case "$pathcomp" in |
-* ) pathcomp=./$pathcomp ;; |
-* ) pathcomp=./$pathcomp ;; |
esac |
esac |
|
|
if test ! -d "$pathcomp"; then |
if test ! -d "$pathcomp"; then |
echo "mkdir $pathcomp" 1>&2 |
echo "mkdir $pathcomp" |
mkdir "$pathcomp" || errstatus=$? |
|
|
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 |
fi |
|
|
pathcomp="$pathcomp/" |
pathcomp="$pathcomp/" |
|
|
|
|
exit $errstatus |
exit $errstatus |
|
|
# mkinstalldirs ends here |
# Local Variables: |
|
# mode:shell-script |
|
# sh-indentation:3 |
|
# End: |