home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / cmplangm / 1989_6 / awk / enarc.awk < prev    next >
Text File  |  1988-08-16  |  167b  |  8 lines
  1. BEGIN { arcfile = ARGV[1]; delete ARGV[1] }
  2. FILENAME != filename {
  3.     print ("-ARCHIVE-", FILENAME) >arcfile
  4.     print filename = FILENAME
  5. }
  6. {print >arcfile}
  7.  
  8.