12345678910111213141516171819 |
- # zerofile.awk --- library file to process empty input files
- #
- # Arnold Robbins, arnold@skeeve.com, Public Domain
- # June 2003
- BEGIN { Argind = 0 }
- ARGIND > Argind + 1 {
- for (Argind++; Argind < ARGIND; Argind++)
- zerofile(ARGV[Argind], Argind)
- }
- ARGIND != Argind { Argind = ARGIND }
- END {
- if (ARGIND > Argind)
- for (Argind++; Argind <= ARGIND; Argind++)
- zerofile(ARGV[Argind], Argind)
- }
|