home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-base.tgz / perl-5.003-base.tar / fsf / perl / makedir.SH < prev    next >
Text File  |  1994-10-18  |  1KB  |  69 lines
  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. # 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
  69.