mkinstalldirs
上传用户:shtangtang
上传日期:2007-01-04
资源大小:167k
文件大小:1k
- #! /bin/sh
- # mkinstalldirs --- make directory hierarchy
- # Author: Noah Friedman <friedman@prep.ai.mit.edu>
- # Created: 1993-05-16
- # Last modified: 1994-03-25
- # Public domain
- errstatus=0
- for file in ${1+"$@"} ; do
- set fnord `echo ":$file" | sed -ne 's/^://#/;s/^://;s/// /g;s/^#///;p'`
- shift
- pathcomp=
- for d in ${1+"$@"} ; do
- pathcomp="$pathcomp$d"
- case "$pathcomp" in
- -* ) pathcomp=./$pathcomp ;;
- esac
- if test ! -d "$pathcomp"; then
- echo "mkdir $pathcomp" 1>&2
- mkdir "$pathcomp" > /dev/null 2>&1 || lasterr=$?
- fi
- if test ! -d "$pathcomp"; then
- errstatus=$lasterr
- fi
- pathcomp="$pathcomp/"
- done
- done
- exit $errstatus
- # mkinstalldirs ends here