File: arrayparm.awk

package info (click to toggle)
gawk 1%3A3.1.5.dfsg-4.1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 9,152 kB
  • ctags: 3,545
  • sloc: ansic: 31,602; awk: 4,970; sh: 4,573; yacc: 2,634; makefile: 1,358; sed: 16
file content (21 lines) | stat: -rw-r--r-- 301 bytes parent folder | download | duplicates (15) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#
# Test program from:
#
# Date: Tue, 21 Feb 95 16:09:29 EST
# From: emory!blackhawk.com!aaron (Aaron Sosnick)
# 
BEGIN {
    foo[1]=1;
    foo[2]=2;
    bug1(foo);
}
function bug1(i) {
    for (i in foo) {
	bug2(i);
	delete foo[i];
	print i,1,bot[1];
    }
}
function bug2(arg) {
    bot[arg]=arg;
}