test/mdim3.awk


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

BEGIN {
   inp[0] = "blah"
   inp[1] = "blah"
   inp[2] = ""
   inp[3] = "Summary Statistics"
   inp[4] = "temperature,0"
   inp[5] = "rain,1"

   for (i = 1; i <= 40; i++) {
      print "i =", i
      mode = 0
      nr = 0
      delete val
      for (j = 0; j < 6; j++) {
	 x = inp[j]
	 print "\tj =", j
#	 if (i == 27 && j == 3)
#	 	stopme()
	 nf = split(x,f,",")
	 print "\tnf =", nf
	 if (++nr > 1) {
	    if (!nf)
	       mode = 1
	    else if (mode == 1)
	       val[f[1]] = f[2]
	 }
      }
   }
}