Re: retrieving line number in case of error - "simple debugger"

Ulrich Schöbel napisa?(a):
>> proc ?# {args} {
>> if {[info exists ::tcl_platform(debug)] && $::tcl_platform(debug)} {
>> uplevel 1 $args
>> }
>> }

Wojciech Kocjan wrote:
> if {[info exists ::tcl_platform(debug)] && $::tcl_platform(debug)} {
> proc ?# {args} {uplevel 1 $args}
> } else {
> proc ?# {args} {}
> }

I think you folks are looking for [::control::assert]. See tcllib.

--
| Don Porter Mathematical and Computational Sciences Division |
| donald.porter@xxxxxxxx Information Technology Laboratory |
| http://math.nist.gov/~DPorter/ NIST |
|______________________________________________________________________|
.

Relevant Pages