mkinstalldirs (727B)
1#! /bin/sh 2# mkinstalldirs --- make directory hierarchy 3# Author: Noah Friedman <friedman@prep.ai.mit.edu> 4# Created: 1993-05-16 5# Public domain 6 7# $Id: mkinstalldirs,v 1.1 2000/09/20 19:05:51 gson Exp $ 8 9errstatus=0 10 11for file 12do 13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 shift 15 16 pathcomp= 17 for d 18 do 19 pathcomp="$pathcomp$d" 20 case "$pathcomp" in 21 -* ) pathcomp=./$pathcomp ;; 22 esac 23 24 if test ! -d "$pathcomp"; then 25 echo "mkdir $pathcomp" 1>&2 26 27 mkdir "$pathcomp" || lasterr=$? 28 29 if test ! -d "$pathcomp"; then 30 errstatus=$lasterr 31 fi 32 fi 33 34 pathcomp="$pathcomp/" 35 done 36done 37 38exit $errstatus 39 40# mkinstalldirs ends here