[gforth] / gforth / mkinstalldirs

gforth: gforth/mkinstalldirs

1 :	anton	1.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 :			errstatus=0
8 :
9 :			for file
10 :			do
11 :			set fnord `echo ":$file" \| sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
12 :			shift
13 :
14 :			pathcomp=
15 :			for d in ${1+"$@"} ; do
16 :			pathcomp="$pathcomp$d"
17 :			case "$pathcomp" in
18 :			-* ) pathcomp=./$pathcomp ;;
19 :			esac
20 :
21 :			if test ! -d "$pathcomp"; then
22 :			echo "mkdir $pathcomp" 1>&2
23 :			mkdir "$pathcomp" \|\| errstatus=$?
24 :			fi
25 :
26 :			pathcomp="$pathcomp/"
27 :			done
28 :			done
29 :
30 :			exit $errstatus
31 :
32 :			# mkinstalldirs ends here