Lines Matching refs:line

40   set line [gets $in]
47     set tk([lindex $line 1]) [lindex $line 2]
54   if {[regexp {^.. Opcode: } $line]} {
55     set currentOp OP_[lindex $line 2]
57     foreach term $line {
71   if {[regexp {^.. Synopsis: (.*)} $line all x] && $currentOp!=""} {
77   if {[regexp {^case OP_} $line]} {
78     set line [split $line]
79     set name [string trim [lindex $line 1] :]
89     for {set i 3} {$i<[llength $line]-1} {incr i} {
90        switch [string trim [lindex $line $i] ,] {
93            if {[lindex $line $i]=="as"} {
95              set sym [string trim [lindex $line $i] ,]