File: functab4.awk

package info (click to toggle)
gawk 1%3A4.2.1%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 20,880 kB
  • sloc: ansic: 50,919; awk: 12,043; yacc: 6,393; sh: 5,675; makefile: 2,856; sed: 128; csh: 6
file content (30 lines) | stat: -rw-r--r-- 473 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
@load "filefuncs"

function foo()
{
	print "foo!"
}

BEGIN {
	f = FUNCTAB["foo"]
	@f()

	ret1 = stat(".", data1)
	print "ret1 =", ret1

	f = "stat"
	ret2 = @f(".", data2)
	print "ret2 =", ret2

	problem = 0
	for (i in data1) {
		if (! isarray(data1[i])) {
#			print i, data1[i]
			if (! (i in data2) || data1[i] != data2[i]) {
				printf("mismatch element \"%s\"\n", i)
				problems++
			}
		}
	}
	print(problems ? (problems+0) "encountered" : "no problems encountered")
}