ad_print_stack_trace (public)

 ad_print_stack_trace

Defined in packages/acs-tcl/tcl/stack-trace-procs.tcl

Formerly known as PrintStackTrace. This is useful if you use catch but you'd still want to access the full Tcl stack trace e.g. to dump it into the log file This command truncatates the actual commands to improve readability while ad_get_tcl_call_stack dumps the full stack

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 ad_log_stack_trace ad_log_stack_trace (public) ad_print_stack_trace ad_print_stack_trace ad_log_stack_trace->ad_print_stack_trace callback callback (public) callback->ad_print_stack_trace search::dequeue search::dequeue (public) search::dequeue->ad_print_stack_trace search::indexer search::indexer (private) search::indexer->ad_print_stack_trace search::queue search::queue (public) search::queue->ad_print_stack_trace

Testcases:
No testcase defined.
Source code:
    uplevel {
        if {$::errorInfo ne ""} {
            set callStack [list $::errorInfo "invoked from within"]
        } else {
            set callStack {}
        }
        for {set i [info level]} {$i > 0} {incr i -1} {
            set call [info level $i]
            if {[string length $call] > 160} {
                set call "[string range $call 0 150]..."
            }
            regsub -all -- {\n} $call {\\n} call
            lappend callStack "   $call"
            if {$i > 1} {
                lappend callStack "invoked from within"
            }
        }
        return [join $callStack "\n"]
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: