21 lines
357 B
Awk
21 lines
357 B
Awk
# Sun Apr 25 13:28:58 IDT 1999
|
|
# from Juegen Khars. This program should not core dump.
|
|
function ReadPGM(f, d) {
|
|
print "ReadPGM"
|
|
d[1] = 1
|
|
}
|
|
|
|
function WritePGM(f, d) {
|
|
print "WritePGM"
|
|
d[1] = 0
|
|
}
|
|
|
|
BEGIN {
|
|
print "before ReadPGM"
|
|
ReadPGM("", d)
|
|
print "after ReadPGM"
|
|
print "before WritePGM"
|
|
WritePGM("", d)
|
|
print "after WritePGM"
|
|
}
|