perl 5.0 alpha 2
[perl.git] / makedir.SH
1 case $CONFIG in
2 '')
3     if test ! -f config.sh; then
4         ln ../config.sh . || \
5         ln ../../config.sh . || \
6         ln ../../../config.sh . || \
7         (echo "Can't find config.sh."; exit 1)
8     fi 2>/dev/null
9     . ./config.sh
10     ;;
11 esac
12 case "$0" in
13 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
14 esac
15 echo "Extracting makedir (with variable substitutions)"
16 rm -f makedir
17 $spitshell >makedir <<!GROK!THIS!
18 $startsh
19 # $RCSfile: makedir.SH,v $$Revision: 4.1 $$Date: 92/08/07 18:24:23 $
20
21 # $Log: makedir.SH,v $
22 # Revision 4.1  92/08/07  18:24:23  lwall
23
24 # Revision 4.0.1.1  92/06/08  14:24:55  lwall
25 # patch20: SH files didn't work well with symbolic links
26
27 # Revision 4.0  91/03/20  01:27:13  lwall
28 # 4.0 baseline.
29
30
31
32 export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
33
34 case \$# in
35   0)
36     $echo "makedir pathname filenameflag"
37     exit 1
38     ;;
39 esac
40
41 : guarantee one slash before 1st component
42 case \$1 in
43   /*) ;;
44   *)  set ./\$1 \$2 ;;
45 esac
46
47 : strip last component if it is to be a filename
48 case X\$2 in
49   X1) set \`$echo \$1 | $sed 's:\(.*\)/[^/]*\$:\1:'\` ;;
50   *)  set \$1 ;;
51 esac
52
53 : return reasonable status if nothing to be created
54 if $test -d "\$1" ; then
55     exit 0
56 fi
57
58 list=''
59 while true ; do
60     case \$1 in
61     */*)
62         list="\$1 \$list"
63         set \`echo \$1 | $sed 's:\(.*\)/:\1 :'\`
64         ;;
65     *)
66         break
67         ;;
68     esac
69 done
70
71 set \$list
72
73 for dir do
74     $mkdir \$dir >/dev/null 2>&1
75 done
76 !GROK!THIS!
77 $eunicefix makedir
78 chmod +x makedir