home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / perl-4.036-src.lha / src / build / perl-4.036 / makedir < prev    next >
Encoding:
Text File  |  1993-09-28  |  1012 b   |  57 lines
  1. #!/bin/sh
  2. # : makedir.SH,v 120183736Revision: 4.0.1.1 120183736Date: 92/06/08 14:24:55 $
  3. # 
  4. # $Log:    makedir.SH,v $
  5. # Revision 4.0.1.1  92/06/08  14:24:55  lwall
  6. # patch20: SH files didn't work well with symbolic links
  7. # 
  8. # Revision 4.0  91/03/20  01:27:13  lwall
  9. # 4.0 baseline.
  10. # 
  11. # 
  12.  
  13. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  14.  
  15. case $# in
  16.   0)
  17.     /bin/echo "makedir pathname filenameflag"
  18.     exit 1
  19.     ;;
  20. esac
  21.  
  22. : guarantee one slash before 1st component
  23. case $1 in
  24.   /*) ;;
  25.   *)  set ./$1 $2 ;;
  26. esac
  27.  
  28. : strip last component if it is to be a filename
  29. case X$2 in
  30.   X1) set `/bin/echo $1 | /bin/sed 's:\(.*\)/[^/]*$:\1:'` ;;
  31.   *)  set $1 ;;
  32. esac
  33.  
  34. : return reasonable status if nothing to be created
  35. if test -d "$1" ; then
  36.     exit 0
  37. fi
  38.  
  39. list=''
  40. while true ; do
  41.     case $1 in
  42.     */*)
  43.     list="$1 $list"
  44.     set `echo $1 | /bin/sed 's:\(.*\)/:\1 :'`
  45.     ;;
  46.     *)
  47.     break
  48.     ;;
  49.     esac
  50. done
  51.  
  52. set $list
  53.  
  54. for dir do
  55.     /bin/mkdir $dir >/dev/null 2>&1
  56. done
  57.