tcltrace::before (private)

 tcltrace::before [ -details ] cmd op

Defined in packages/acs-tcl/tcl/tcltrace-procs.tcl

Generic trace proc for arbitrary commands. Simply reports calls to function (optionally with full context) to the error.log.

Switches:

-details

(boolean) (defaults to "false") (optional)

when set, use ad_log for reporting with full context

Parameters:

cmd - the full command as executed by Tcl
op - the trace operation

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

Testcases:

No testcase defined.

Source code:

        set log_cmd [expr {$details_p ? "ad_log" : "ns_log"}]
        set abbrev_cmd [lmap w $cmd {
            regsub -all \n $w {\n} w
            regsub -all \r $w {\r} w            
            if {[string length $w] > 100} {
                set w [string range $w 0 100]...
            }
            set w
        }]
        $log_cmd notice "trace: [join $abbrev_cmd { }]"

XQL Not present:

Generic, PostgreSQL, Oracle