43
44
45
46
47
48
49
50
51
52
53
|
set ch [open {|diff _instrument_lines _instrument_result}]
while {[gets $ch line] >= 0} {
if {[regexp {<|>} $line]} {
puts $line
}
}
catch {close $ch}
#file delete _instrument_lines _instrument_result
#file delete eskili.tcl
}
exit
|
|
|
|
43
44
45
46
47
48
49
50
51
52
53
|
set ch [open {|diff _instrument_lines _instrument_result}]
while {[gets $ch line] >= 0} {
if {[regexp {<|>} $line]} {
puts $line
}
}
catch {close $ch}
file delete -force _instrument_lines _instrument_result
file delete -force eskili.tcl
}
exit
|