| 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/" |