diff options
| author | dkf <dkf@noemail.net> | 2007-12-13 11:21:46 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2007-12-13 11:21:46 (GMT) |
| commit | 085b3b722dda0ad58855e2c432bf5ee3250fc392 (patch) | |
| tree | 8b30ac2370ee2735e155b13d19588332a83a02ce /doc/trace.n | |
| parent | 0e508a57f41c640293ff262abf0ea25c56a876fa (diff) | |
| download | tcl-085b3b722dda0ad58855e2c432bf5ee3250fc392.zip tcl-085b3b722dda0ad58855e2c432bf5ee3250fc392.tar.gz tcl-085b3b722dda0ad58855e2c432bf5ee3250fc392.tar.bz2 | |
More clarification. [Bug 614282]
FossilOrigin-Name: f760bdf67cae0a3c988e59f235cd87e9f8746f5a
Diffstat (limited to 'doc/trace.n')
| -rw-r--r-- | doc/trace.n | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/doc/trace.n b/doc/trace.n index 781921a..ef6a3f6 100644 --- a/doc/trace.n +++ b/doc/trace.n @@ -6,7 +6,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: trace.n,v 1.23 2007/12/13 11:10:20 dkf Exp $ +'\" RCS: @(#) $Id: trace.n,v 1.24 2007/12/13 11:21:46 dkf Exp $ '\" .so man.macros .TH trace n "8.4" Tcl "Tcl Built-In Commands" @@ -387,6 +387,21 @@ proc doMult args { \fBtrace add\fR variable foo write doMult \fBtrace add\fR variable bar write doMult .CE +.PP +Print a trace of what commands are executed during the processing of a Tcl +procedure: +.CS +proc x {} { y } +proc y {} { z } +proc z {} { puts hello } +proc report args {puts [info level 0]} +\fBtrace add\fR execution x enterstep report +x + \(-> \fIreport y enterstep\fR + \fIreport z enterstep\fR + \fIreport {puts hello} enterstep\fR + \fIhello\fR +.CE .SH "SEE ALSO" set(n), unset(n) .SH KEYWORDS |