|
a |
|
b/unac/mkinstalldirs |
|
|
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.4 2002/09/02 10:51:42 loic Exp $
|
|
|
8 |
|
|
|
9 |
errstatus=0
|
|
|
10 |
|
|
|
11 |
for file
|
|
|
12 |
do
|
|
|
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"
|
|
|
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
|
|
|
36 |
done
|
|
|
37 |
|
|
|
38 |
exit $errstatus
|
|
|
39 |
|
|
|
40 |
# mkinstalldirs ends here
|