aboutsummaryrefslogtreecommitdiffstats
path: root/extension/testsparr.awk
blob: b31409f23008e1609a10d9b52ae53c4d332839ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# ../gawk -lsparr -f testsparr.awk
BEGIN {
	print SYS["time"]
	SYS["readline"] = "sparr.c";
	printf("File %s has %d lines\n", SYS["readline"], length(READLINE)) 
	SYS["readline"] = "testsparr.awk";
	printf("File %s has %d lines\n", SYS["readline"], length(READLINE)) 
	for (i = 1; i in READLINE; i++)
		print READLINE[i]

	system("sleep 1")

#	PROCINFO["/dev/stdin", "READ_TIMEOUT"] = 1000
#	getline < "/dev/stdin"

	print SYS["time"]
}