diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-10-28 23:26:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-10-28 23:26:01 (GMT) |
| commit | 513765d748c2298249d886bd9a8acb60b5a332b1 (patch) | |
| tree | cd3bdcb63fd004c431251afbf882474af3a614bd /generic/tclInt.h | |
| parent | 47e4c392e9decf35fcd06c3fad00af8796dd1d9d (diff) | |
| download | tcl-513765d748c2298249d886bd9a8acb60b5a332b1.zip tcl-513765d748c2298249d886bd9a8acb60b5a332b1.tar.gz tcl-513765d748c2298249d886bd9a8acb60b5a332b1.tar.bz2 | |
Added some explanatory comments.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 8c62cc1..a33053e 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.286 2006/10/28 22:48:43 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.287 2006/10/28 23:26:01 dkf Exp $ */ #ifndef _TCLINT @@ -1518,7 +1518,7 @@ typedef struct Interp { */ struct { - Tcl_Obj * CONST *sourceObjs; + Tcl_Obj *CONST *sourceObjs; /* What arguments were actually input into the * *root* ensemble command? (Nested ensembles * don't rewrite this.) NULL if we're not @@ -1533,26 +1533,30 @@ typedef struct Interp { * TIP #219 ... Global info for the I/O system ... */ - Tcl_Obj* chanMsg; /* Error message set by channel drivers, for + Tcl_Obj *chanMsg; /* Error message set by channel drivers, for * the propagation of arbitrary Tcl errors. * This information, if present (chanMsg not - * NULL), takes precedence over a posix error + * NULL), takes precedence over a POSIX error * code returned by a channel operation. */ /* - * TIP #268. - * The currently active selection mode, - * i.e the package require preferences. + * TIP #268. The currently active selection mode, i.e. the package require + * preferences. */ int packagePrefer; /* Current package selection mode. */ /* - * Let [info level] know about ensemble rewriting + * Let [info level] know about ensemble rewriting. Note that this is just + * a temporary storage location until such time as it can be written into + * the call frame; it has to go there because that makes reentrant calls + * through the command dispatcher work. */ - int callObjc; - Tcl_Obj *CONST *callObjv; + int callObjc; /* Number of arguments to report through [info + * level]. */ + Tcl_Obj *CONST *callObjv; /* Array of arguments to report through [info + * level]. */ /* |