diff options
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2d12657..619c83c 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.267.2.11 2006/09/25 22:30:06 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.267.2.12 2006/10/21 01:11:51 dkf Exp $ */ #ifndef _TCLINT @@ -112,7 +112,7 @@ typedef int ptrdiff_t; #define NO_WIDE_TYPE #endif -struct Foundation; // Forward decl for OO support +struct Foundation; /* Forward decl for OO support. */ /* * The following procedures allow namespaces to be customized to support @@ -1524,7 +1524,16 @@ typedef struct Interp { * NULL), takes precedence over a posix error * code returned by a channel operation. */ - struct Foundation *ooFoundation; // OO support + /* + * TIP #257 - Object Orientation Programming Infrastructure. + */ + + struct Foundation *ooFoundation; + /* Pointer to the structure that manages the + * core of the object-orientation support. + * The actual definition of this structure is + * in tclOO.h, so this is just an opaque + * pointer if that file isn't #included. */ /* * Statistical information about the bytecode compiler and interpreter's @@ -2529,9 +2538,6 @@ MODULE_SCOPE int TclOODefineObjCmd(ClientData clientData, MODULE_SCOPE int TclOODefineConstructorObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv); -MODULE_SCOPE int TclOODefineCopyObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const *objv); MODULE_SCOPE int TclOODefineDestructorObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv); @@ -3096,9 +3102,11 @@ MODULE_SCOPE void TclBNInitBignumFromWideUInt(mp_int* bignum, #define TclIsNaN(d) ((d) != (d)) #endif -// MOVE ME TO tclInt.decls +// vvvvvvvvvvvvvvvvvvvvvv MOVE TO TCLINT.DECLS vvvvvvvvvvvvvvvvvvvvvv void TclSetNsPath(Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); +Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp); +// ^^^^^^^^^^^^^^^^^^^^^^ MOVE TO TCLINT.DECLS ^^^^^^^^^^^^^^^^^^^^^^ #include "tclPort.h" #include "tclIntDecls.h" |