TCLPARSE V3.00beta >> loading information from '/usr/home/clif/.tclparse.vars' (1 bytes) >> processing file 'Err.11.tcl' (984 bytes) ERROR ( line 24 ) - unknown command 'for{set' ---------------------------------------- 21 global $arrayVar 22 23 puts "HIT PROC1" 24 for{set i 0} {$i <2} {incr i} { 25 set id [array nextelement $arrayVar $id]; 26 whoopee 27 if {[array anymore $arrayVar $id] == 0} { return -1} ---------------------------------------- ERROR ( line 35 ) - 'id' is a local variable ---------------------------------------- 32 33 proc proc2 {id arrayVar searchid} { 34 global $arrayVar 35 upvar $searchid id 36 while {$id < 400} { 37 puts "ID: $id is between 200 and 400: $arrayVar($id) 38 set id [array nextelement $arrayVar $id]; ---------------------------------------- ERROR ( line 38 ) - '$arrayVar' isn't array ---------------------------------------- 35 upvar $searchid id 36 while {$id < 400} { 37 puts "ID: $id is between 200 and 400: $arrayVar($id) 38 set id [array nextelement $arrayVar $id]; 39 } 40 } 41 ---------------------------------------- ERROR ( line 39 ) - missing quote ---------------------------------------- 36 while {$id < 400} { 37 puts "ID: $id is between 200 and 400: $arrayVar($id) 38 set id [array nextelement $arrayVar $id]; 39 } 40 } 41 42 set searchId [array startsearch array1]; ---------------------------------------- ERROR ( line 42 ) - 'array1' isn't array ---------------------------------------- 39 } 40 } 41 42 set searchId [array startsearch array1]; 43 set id1 [proc1 array1 searchId]; 44 proc1 array1 searchId 45 proc2 $id1 array1 searchId; ---------------------------------------- WARNING ( line 43 ) - 'searchId' is a variable - eventually '$' is missing ---------------------------------------- 40 } 41 42 set searchId [array startsearch array1]; 43 set id1 [proc1 array1 searchId]; 44 proc1 array1 searchId 45 proc2 $id1 array1 searchId; 46 ---------------------------------------- WARNING ( line 44 ) - 'searchId' is a variable - eventually '$' is missing ---------------------------------------- 41 42 set searchId [array startsearch array1]; 43 set id1 [proc1 array1 searchId]; 44 proc1 array1 searchId 45 proc2 $id1 array1 searchId; 46 47 ---------------------------------------- WARNING ( line 45 ) - 'searchId' is a variable - eventually '$' is missing ---------------------------------------- 42 set searchId [array startsearch array1]; 43 set id1 [proc1 array1 searchId]; 44 proc1 array1 searchId 45 proc2 $id1 array1 searchId; 46 47 48 ---------------------------------------- >> processing of file 'Err.11.tcl' complete >> done!