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 (optional, boolean, defaults to "false")
when set, use ad_log for reporting with full context
Parameters:
cmd (required)
the full command as executed by Tcl
op (required)
the trace operation

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

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
[ hide source ] | [ make this the default ]
Show another procedure: