Blame test/readfile2.awk

Packit 575503
@load "readfile"
Packit 575503
BEGIN { PROCINFO["readfile"] = 1 }
Packit 575503
BEGINFILE { print "Start of", basename(FILENAME) }
Packit 575503
{ printf ("%d: <%s>\n", FNR, $0 ) }
Packit 575503
ENDFILE { print "End of", basename(FILENAME) }
Packit 575503
Packit 575503
function basename(file,		result)
Packit 575503
{
Packit 575503
	result = file
Packit 575503
	gsub(".*/", "", result)
Packit 575503
	return result
Packit 575503
}