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 # Public domain 6 1.1 christos 7 1.1 christos # Id: mkinstalldirs,v 1.13 1999/01/05 03:18:55 bje Exp 8 1.1 christos 9 1.1 christos errstatus=0 10 1.1 christos 11 1.1 christos for file 12 1.1 christos do 13 1.1 christos set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 1.1 christos shift 15 1.1 christos 16 1.1 christos pathcomp= 17 1.1 christos for d 18 1.1 christos do 19 1.1 christos pathcomp="$pathcomp$d" 20 1.1 christos case "$pathcomp" in 21 1.1 christos -* ) pathcomp=./$pathcomp ;; 22 1.1 christos esac 23 1.1 christos 24 1.1 christos if test ! -d "$pathcomp"; then 25 1.1 christos echo "mkdir $pathcomp" 26 1.1 christos 27 1.1 christos mkdir "$pathcomp" || lasterr=$? 28 1.1 christos 29 1.1 christos if test ! -d "$pathcomp"; then 30 1.1 christos errstatus=$lasterr 31 1.1 christos fi 32 1.1 christos fi 33 1.1 christos 34 1.1 christos pathcomp="$pathcomp/" 35 1.1 christos done 36 1.1 christos done 37 1.1 christos 38 1.1 christos exit $errstatus 39 1.1 christos 40 1.1 christos # mkinstalldirs ends here 41