home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 March / PCWELT_3_2005.ISO / pcwsoft / framework-2.2.exe / zerofile.awk < prev    next >
Encoding:
AWK Script  |  2003-10-29  |  421 b   |  20 lines
  1. # zerofile.awk --- library file to process empty input files
  2. #
  3. # Arnold Robbins, arnold@gnu.org, Public Domain
  4. # June 2003
  5.  
  6. BEGIN { Argind = 0 }
  7.  
  8. ARGIND > Argind + 1 {
  9.     for (Argind++; Argind < ARGIND; Argind++)
  10.         zerofile(ARGV[Argind], Argind)
  11. }
  12.  
  13. ARGIND != Argind { Argind = ARGIND }
  14.  
  15. END {
  16.     if (ARGIND > Argind)
  17.         for (Argind++; Argind <= ARGIND; Argind++)
  18.             zerofile(ARGV[Argind], Argind)
  19. }
  20.