home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / makedir < prev    next >
Text File  |  1995-12-06  |  728b  |  49 lines
  1. #!/bin/sh
  2. # makedir.SH
  3. # 
  4.  
  5. export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  6.  
  7. case $# in
  8.   0)
  9.     echo "makedir pathname filenameflag"
  10.     exit 1
  11.     ;;
  12. esac
  13.  
  14. : guarantee one slash before 1st component
  15. case $1 in
  16.   /*) ;;
  17.   *)  set ./$1 $2 ;;
  18. esac
  19.  
  20. : strip last component if it is to be a filename
  21. case X$2 in
  22.   X1) set `echo $1 | sed 's:\(.*\)/[^/]*$:\1:'` ;;
  23.   *)  set $1 ;;
  24. esac
  25.  
  26. : return reasonable status if nothing to be created
  27. if test -d "$1" ; then
  28.     exit 0
  29. fi
  30.  
  31. list=''
  32. while true ; do
  33.     case $1 in
  34.     */*)
  35.     list="$1 $list"
  36.     set `echo $1 | sed 's:\(.*\)/:\1 :'`
  37.     ;;
  38.     *)
  39.     break
  40.     ;;
  41.     esac
  42. done
  43.  
  44. set $list
  45.  
  46. for dir do
  47.     mkdir $dir >/dev/null 2>&1
  48. done
  49.