xo::show_stack

 xo::show_stack

Defined in

Partial Call Graph (max 5 caller/called nodes):
%3 Class ::xo::db::CrClass Class ::xo::db::CrClass (public) xo::show_stack xo::show_stack Class ::xo::db::CrClass->xo::show_stack Class ::xowf::test_item::grading::Grading Class ::xowf::test_item::grading::Grading (public) Class ::xowf::test_item::grading::Grading->xo::show_stack grading_dict grading_dict grading_dict->xo::show_stack instproc instproc instproc->xo::show_stack xowf::test_item::grading::Grading xowf::test_item::grading::Grading xowf::test_item::grading::Grading->xo::show_stack ad_conn ad_conn (public) xo::show_stack->ad_conn

Testcases:
No testcase defined.
Source code:
    if {[::info exists ::template::parse_level]} {
      set parse_level $::template::parse_level
    } else {
      set parse_level ""
    }
    set msg "### template::parse_level <$parse_level> connected=[ns_conn isconnected] "
    if {[ns_conn isconnected]} {
      append msg "flags=[ad_conn flags] status=[ad_conn status] req=[ad_conn request]"
    }
    ns_log notice $msg
    set max [info level]
    if {$m<$max} {set max $m}
    ns_log notice "### Call Stack (level: command)"
    for {set i 0} {$i < $max} {incr i} {
      try {
        set s [uplevel $i self]
      } on error {errorMsg} {
        set s ""
      }
      ns_log notice "### [format %5d -$i]:   $s [info level [expr {-$i}]]"
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: