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:

• ad_get_tcl_call_stack

Partial Call Graph (max 5 caller/called nodes):

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