version 1.1, 2000/01/10 15:35:22 |
version 1.1.1.3, 2003/08/25 16:05:59 |
|
|
# Created: 1993-05-16 |
# Created: 1993-05-16 |
# Public domain |
# Public domain |
|
|
|
# $Id$ |
|
|
errstatus=0 |
errstatus=0 |
|
|
for file |
for file |
|
|
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 |
|
fi |
fi |
fi |
|
|
pathcomp="$pathcomp/" |
pathcomp="$pathcomp/" |