Socket::my_inet_aton() tweak
[p5sagit/p5-mst-13.2.git] / makedir.SH
1 case $PERL_CONFIG_SH 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 # makedir.SH
20
21
22 export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
23
24 case \$# in
25   0)
26     $echo "makedir pathname filenameflag"
27     exit 1
28     ;;
29 esac
30
31 : guarantee one slash before 1st component
32 case \$1 in
33   /*) ;;
34   *)  set ./\$1 \$2 ;;
35 esac
36
37 : strip last component if it is to be a filename
38 case X\$2 in
39   X1) set \`$echo \$1 | $sed 's:\(.*\)/[^/]*\$:\1:'\` ;;
40   *)  set \$1 ;;
41 esac
42
43 : return reasonable status if nothing to be created
44 if $test -d "\$1" ; then
45     exit 0
46 fi
47
48 list=''
49 while true ; do
50     case \$1 in
51     */*)
52         list="\$1 \$list"
53         set \`echo \$1 | $sed 's:\(.*\)/:\1 :'\`
54         ;;
55     *)
56         break
57         ;;
58     esac
59 done
60
61 set \$list
62
63 for dir do
64     $mkdir \$dir >/dev/null 2>&1
65 done
66 !GROK!THIS!
67 $eunicefix makedir
68 chmod +x makedir