Lines Matching refs:line

52     set line [gets $fd]
53     if {$line == ""} continue
55     set fields [split $line ";"]
56     if {[llength $fields] != [llength $lField]} { error "parse error: $line" }
126     set line [gets $fd]
127     if {$line == ""} continue
129     set fields [split $line ";"]
130     if {[llength $fields] != [llength $lField]} { error "parse error: $line" }
151     set line [gets $fd]
152     if {[string range $line 0 0] == "#"} continue
153     if {$line == ""} continue
156     foreach {a b c d} [split $line ";"] {}
191     set line [gets $fd]
192     if {$line == ""} continue
194     set fields [split $line ";"]
195     if {[llength $fields] != [llength $lField]} { error "parse error: $line" }