Commit 51ec70d9 authored by Christopher Alfeld's avatar Christopher Alfeld

No longer used by anything.

parent b6cee66e
#!/usr/local/bin/tclsh
# This program takes a ns file as input and produces the TB commands as output.
# The TB commands are printed without the common prefix #TB
while {[gets stdin line] >= 0} {
if {[lindex $line 0] == "\#TB"} {
puts [string range $line 4 end]
}
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment