home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mpwshar_.hqx / UNIXunshar < prev    next >
Text File  |  1988-09-05  |  1KB  |  47 lines
  1. #################################################################
  2. #
  3. #    unshar - remove files from a UNIX shell archive (shar).
  4. #    
  5. #    This MPW tool was written by Steven A. Falco and was heavily
  6. #    modified by myself (Bryce Jasmer) without permission because
  7. #    Steve's version did not work for me and I couldn't locate him
  8. #    to ask if I could modify it.
  9. #    This tool is being sold under "PostcardWare". Please send a 
  10. #    postcard of your city or your latest vacation to me. I would
  11. #    really appreciate hearing from you!
  12. #
  13. #    Bryce Jasmer
  14. #    Eagle Software
  15. #    1974 Lomond Avenue
  16. #    Springfield, OR  97477
  17. #
  18. ################################################################
  19.  
  20. duplicate -y {1} 'tempfile'
  21. loop
  22.     target 'tempfile'
  23.     cut Ñ:╞/Ñcat/ || break
  24.     
  25.     # works for the seperating line: cat << \SHAR_EOF > 'FILENAME'
  26.     replace /Ñcat┼╢\(┼)¿1 >┼╢'(┼)¿2╢'┼░/ "¿2╢n¿1"
  27.  
  28.     # works for the seperating line: cat << "SHAR_EOF" > 'FILENAME'
  29.     # replace /Ñcat┼╢"(┼)¿1╢"┼╢'(┼)¿2╢'┼░/ "¿2╢n¿1"
  30.     
  31.     find Ñ:/░/
  32.     set filename "`catenate ñ`"
  33.     echo 'x - "'"{filename}"'"'
  34.     cut 1
  35.     find Ñ:/░/
  36.     set eofstring "`catenate ñ`"
  37.     cut 1
  38.     cut Ñ:╞/"{eofstring}"/
  39.     date > "{filename}"
  40.     target "{filename}"
  41.     paste Ñ:░ "{filename}"
  42.     close -y "{filename}"
  43. end
  44. close -y 'tempfile'
  45. delete 'tempfile'
  46.  
  47. exit 0