summaryrefslogtreecommitdiff
path: root/test/nastyparm.awk
blob: a1f1c8298d88e9d5fcd652fe65baea9d9c1a1334 (plain)
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
31
32
33
34
35
36
37
38
39
40
41
function biz(baz, bar)
{
	print baz, bar
}

function buz(baz, bar)
{
	print length(baz), bar
}

function buz2(baz, baz1, bar, baz2)
{
	print length(baz), length(baz1), bar, length(baz2)
	baz2[0] = "baz2"
#	baz[0] = "baz"	# fatal
}

function buz3(baz)
{
	buz2(baz, baz, split("abc", baz, ""), baz)
} 


BEGIN {
	biz(foo, foo != "")

	biz(fy, fy = "fy")

	biz(fi = 10, fi = 20)
	print fi

	buz(a, split("abc", a, ""))

	buz2(c, c, split("abc", c, ""), c)
	print c[0], length(c)

	buz3(d)
	print d[0], length(d)

	biz(b, split("abc", b, ""))
}