Eskil

Differences From Artifact [642594bca9]:

• Executable file tests/all.tcl — part of check-in [3eb6a91852] at 2004-05-03 17:34:44 on branch trunk — Moved testsuite into tests directory. (user: peter size: 1301)

To Artifact [017d16e8be]:

• Executable file tests/all.tcl — part of check-in [1c9b32bade] at 2004-05-18 19:17:50 on branch trunk — Clean up after instrument. (user: peter size: 1313)

43
44
45
46
47
48
49
50
51


52
53

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
    file delete -force _instrument_lines _instrument_result
    file delete -force eskili.tcl
}
exit