1 1.1 christos #! /bin/sh 2 1.1 christos # mkinstalldirs --- make directory hierarchy 3 1.1 christos # Author: Noah Friedman <friedman (at] prep.ai.mit.edu> 4 1.1 christos # Created: 1993-05-16 5 1.1 christos # Last modified: 1994-03-25 6 1.1 christos # Public domain 7 1.1 christos 8 1.1 christos errstatus=0 9 1.1 christos 10 1.1 christos for file in ${1+"$@"} ; do 11 1.1 christos set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 12 1.1 christos shift 13 1.1 christos 14 1.1 christos pathcomp= 15 1.1 christos for d in ${1+"$@"} ; do 16 1.1 christos pathcomp="$pathcomp$d" 17 1.1 christos case "$pathcomp" in 18 1.1 christos -* ) pathcomp=./$pathcomp ;; 19 1.1 christos esac 20 1.1 christos 21 1.1 christos if test ! -d "$pathcomp"; then 22 1.1 christos echo "mkdir $pathcomp" 1>&2 23 1.1 christos mkdir "$pathcomp" || errstatus=$? 24 1.1 christos fi 25 1.1 christos 26 1.1 christos pathcomp="$pathcomp/" 27 1.1 christos done 28 1.1 christos done 29 1.1 christos 30 1.1 christos exit $errstatus 31 1.1 christos 32 1.1 christos # mkinstalldirs ends here 33