comparison lispintro/mkinstalldirs @ 41418:a8ee89e61d20

*** empty log message ***
author Eli Zaretskii <eliz@gnu.org>
date Sat, 24 Nov 2001 08:45:51 +0000
parents
children f0eb34e60705 746c40973d25
comparison
equal deleted inserted replaced
41417:b64f74d6f056 41418:a8ee89e61d20
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.10 1996/05/03 07:37:52 friedman 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" 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
36 done
37
38 exit $errstatus
39
40 # mkinstalldirs ends here