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