share/awk/zerofile.awk

# 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)
}
Revision:	1046
Committed:	Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
File size:	424 byte(s)
Log Message:	Daodan: Added Windows MinGW and build batch file
#	Content
1	# zerofile.awk --- library file to process empty input files
2	#
3	# Arnold Robbins, arnold@skeeve.com, 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	}