home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / compcomp / awk / enarc.awk < prev    next >
Encoding:
AWK Script  |  1991-05-22  |  212 b   |  15 lines
  1. # generate text archive
  2.  
  3. BEGIN {
  4.     arcfile = ARGV[1]
  5.     delete ARGV[1]
  6. }
  7. FILENAME != filename {
  8.     print ("-ARCHIVE-", FILENAME) >arcfile
  9.     print filename = FILENAME
  10. }
  11. {
  12.     print >arcfile
  13. }
  14.  
  15.