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