30 lines
522 B
Awk
30 lines
522 B
Awk
|
@load "ordchr"
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
o = "ord" # check stack for indirect call of ext function
|
||
|
|
l = "length" # check bad args for function of 1 argument
|
||
|
|
m = "match" # check bad args for function of 3-4 argument
|
||
|
|
s = "systime" # check bad args for function of 0 arguments
|
||
|
|
|
||
|
|
switch (test) {
|
||
|
|
case 0:
|
||
|
|
print "indirect, " @o("A")
|
||
|
|
break
|
||
|
|
case 1:
|
||
|
|
print @l()
|
||
|
|
break
|
||
|
|
case 2:
|
||
|
|
print @l("a", "b")
|
||
|
|
break
|
||
|
|
case 3:
|
||
|
|
print @m(@/foo/)
|
||
|
|
break
|
||
|
|
case 4:
|
||
|
|
print @m(@/foo/, "bar", a, b)
|
||
|
|
break
|
||
|
|
case 5:
|
||
|
|
print @s("xxx")
|
||
|
|
break
|
||
|
|
}
|
||
|
|
}
|