home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume2 / unpack-egafast < prev    next >
Encoding:
Internet Message Format  |  1991-08-07  |  811 b 
  1. From: meyer@unizh.UUCP (Urs Meyer)
  2. Newsgroups: comp.sources.misc
  3. Subject: v02i025: awk script to unpack EGAFAST
  4. Message-ID: <7150@ncoast.UUCP>
  5. Date: 30 Jan 88 21:22:10 GMT
  6. Approved: allbery@ncoast.UUCP
  7.  
  8. Comp.sources.misc: Volume 2, Issue 25
  9. Submitted-By: Urz Meyer <meyer@unizh.UUCP>
  10. Archive-Name: unpack-egafast
  11.  
  12. Here is a small awk script to unpack the EGAFAST Package.
  13. Hope it helps.
  14.  
  15. Urs Meyer, University of Zuerich,        UUCP:   mcvax!cernvax!unizh!meyer
  16. Computer Science Dept., 8057 Zuerich     CHUNET: meyer@ifi.unizh.ch
  17. Switzerland
  18.  
  19. ---- cut here ----
  20. #! /bin/sh
  21. # usage: unpack filename
  22.  
  23. awk '
  24. /\*\*\*end file/    {
  25.     print "EOF"
  26.     inside = 0
  27.     }
  28. inside == 1 { print }
  29. /\*\*\*begin file/ {
  30.     fn = substr($3,1,index($3,"*")-1);
  31.     print "echo unpacking", fn
  32.     print "cat << EOF >", fn
  33.     inside = 1
  34.     }
  35. ' $1 | sh
  36.