diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-15 13:17:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-15 13:17:17 (GMT) |
| commit | b5f035d9c80dbec4986ba4e7e2ba4a1881d90d38 (patch) | |
| tree | 30dfc00e40cfadd30723fb7fcb13abc429ddb8b1 /generic/tclIntDecls.h | |
| parent | 0a901b4dd0d5f48c4258a435a7015b391a292f65 (diff) | |
| download | tcl-b5f035d9c80dbec4986ba4e7e2ba4a1881d90d38.zip tcl-b5f035d9c80dbec4986ba4e7e2ba4a1881d90d38.tar.gz tcl-b5f035d9c80dbec4986ba4e7e2ba4a1881d90d38.tar.bz2 | |
Added code to save space in namespaces. Currently #ifdef'ed out for compat.
Also added code from itcl-ng for better separation of concerns.
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 45 |
1 files changed, 44 insertions, 1 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index bdcdf29..5672e25 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.133 2009/06/18 09:42:40 dkf Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.134 2009/07/15 13:17:18 dkf Exp $ */ #ifndef _TCLINTDECLS @@ -1030,6 +1030,29 @@ EXTERN int TclNREvalObjv (Tcl_Interp * interp, int objc, /* 243 */ EXTERN void TclDbDumpActiveObjects (FILE * outFile); #endif +#ifndef TclGetNamespaceChildTable_TCL_DECLARED +#define TclGetNamespaceChildTable_TCL_DECLARED +/* 244 */ +EXTERN Tcl_HashTable * TclGetNamespaceChildTable (Tcl_Namespace * nsPtr); +#endif +#ifndef TclGetNamespaceCommandTable_TCL_DECLARED +#define TclGetNamespaceCommandTable_TCL_DECLARED +/* 245 */ +EXTERN Tcl_HashTable * TclGetNamespaceCommandTable (Tcl_Namespace * nsPtr); +#endif +#ifndef TclInitRewriteEnsemble_TCL_DECLARED +#define TclInitRewriteEnsemble_TCL_DECLARED +/* 246 */ +EXTERN int TclInitRewriteEnsemble (Tcl_Interp * interp, + int numRemoved, int numInserted, + Tcl_Obj *const * objv); +#endif +#ifndef TclResetRewriteEnsemble_TCL_DECLARED +#define TclResetRewriteEnsemble_TCL_DECLARED +/* 247 */ +EXTERN void TclResetRewriteEnsemble (Tcl_Interp * interp, + int isRootEnsemble); +#endif typedef struct TclIntStubs { int magic; @@ -1279,6 +1302,10 @@ typedef struct TclIntStubs { int (*tclNREvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); /* 241 */ int (*tclNREvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags, Command * cmdPtr); /* 242 */ void (*tclDbDumpActiveObjects) (FILE * outFile); /* 243 */ + Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace * nsPtr); /* 244 */ + Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace * nsPtr); /* 245 */ + int (*tclInitRewriteEnsemble) (Tcl_Interp * interp, int numRemoved, int numInserted, Tcl_Obj *const * objv); /* 246 */ + void (*tclResetRewriteEnsemble) (Tcl_Interp * interp, int isRootEnsemble); /* 247 */ } TclIntStubs; #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) @@ -1985,6 +2012,22 @@ extern const TclIntStubs *tclIntStubsPtr; #define TclDbDumpActiveObjects \ (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ #endif +#ifndef TclGetNamespaceChildTable +#define TclGetNamespaceChildTable \ + (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */ +#endif +#ifndef TclGetNamespaceCommandTable +#define TclGetNamespaceCommandTable \ + (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */ +#endif +#ifndef TclInitRewriteEnsemble +#define TclInitRewriteEnsemble \ + (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */ +#endif +#ifndef TclResetRewriteEnsemble +#define TclResetRewriteEnsemble \ + (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |