home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / awklib / eg / lib / ftrans.awk < prev    next >
Encoding:
Text File  |  1996-01-11  |  321 b   |  16 lines
  1. # ftrans.awk --- handle data file transitions
  2. #
  3. # user supplies beginfile() and endfile() functions
  4. #
  5. # Arnold Robbins, arnold@gnu.ai.mit.edu. November 1992
  6. # Public Domain
  7.  
  8. FNR == 1 {
  9.     if (_filename_ != "")
  10.         endfile(_filename_)
  11.     _filename_ = FILENAME
  12.     beginfile(FILENAME)
  13. }
  14.  
  15. END  { endfile(_filename_) }
  16.