blob: 648a21a2e3b5be21fab9706e584a9b67e55231b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# ../gawk -lsparr -f testsparr.awk
BEGIN {
extension("sparr")
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"]
}
|
