Re: retrieving line number in case of error

From: Don Porter <dgp@email.nist.gov>
Date: Thu Sep 29 2005 - 19:58:21 CEST

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@nist.gov             Information Technology Laboratory |
| http://math.nist.gov/~DPorter/                                  NIST |
|______________________________________________________________________|

Received on Sat Oct 15 03:53:43 2005

comp.lang.tcl archive

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