comp.lang.tcl archive
Re: retrieving line number in case of error - "simple debugger"
From: Wojciech Kocjan <hceicjow.backward@kocjan.org>
Date: Thu Sep 29 2005 - 19:53:01 CEST
Date: Thu Sep 29 2005 - 19:53:01 CEST
Ulrich Schöbel napisał(a):
> proc ?# {args} {
> if {[info exists ::tcl_platform(debug)] && $::tcl_platform(debug)} {
> uplevel 1 $args
> }
> }
if {[info exists ::tcl_platform(debug)] && $::tcl_platform(debug)} {
proc ?# {args} {uplevel 1 $args}
} else {
proc ?# {args} {}
}
This one is much faster in production - I hate removing all those debug
statements...
-- WKReceived on Sat Oct 15 03:53:43 2005