diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-08-02 20:55:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-08-02 20:55:25 (GMT) |
| commit | 7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d (patch) | |
| tree | f85c32954ee501d185c1c8a08b0c40030be082b6 /generic/tclInt.h | |
| parent | 3fa3ba646929ac210ff9b90aae5b4483dcf4878f (diff) | |
| download | tcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.zip tcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.tar.gz tcl-7659a2e96a1878dd2f0bb5111c39a0d4e0b2923d.tar.bz2 | |
TIP#207 IMPLEMENTATION
* doc/interp.n: Added support for a -namespace option to the
* generic/tclBasic.c: [interp invokehidden] command. Also added an
* generic/tclInt.h: internal routine TclObjInvokeNamespace() and
* generic/tclInterp.c: corrected the flag names TCL_FIND_ONLY_NS and
* generic/tclNamesp.c: TCL_CREATE_NS_IF_UNKNOWN that are passed to the
* generic/tclTrace.c: internal routine TclGetNamespaceForQualName().
* tests/interp.test: [Patch 981841]
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 0c5d431..620af26 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.170 2004/07/21 01:45:44 hobbs Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.171 2004/08/02 20:55:37 dgp Exp $ */ #ifndef _TCLINT @@ -247,15 +247,16 @@ typedef struct Namespace { #define NS_DEAD 0x02 /* - * Flag passed to TclGetNamespaceForQualName to have it create all namespace - * components of a namespace-qualified name that cannot be found. The new - * namespaces are created within their specified parent. Note that this - * flag's value must not conflict with the values of the flags - * TCL_GLOBAL_ONLY, TCL_NAMESPACE_ONLY, and FIND_ONLY_NS (defined in - * tclNamesp.c). + * Flags passed to TclGetNamespaceForQualName: + * + * TCL_GLOBAL_ONLY - (see tcl.h) Look only in the global ns. + * TCL_NAMESPACE_ONLY - (see tcl.h) Look only in the context ns. + * TCL_CREATE_NS_IF_UNKNOWN - Create unknown namespaces. + * TCL_FIND_ONLY_NS - The name sought is a namespace name. */ -#define CREATE_NS_IF_UNKNOWN 0x800 +#define TCL_CREATE_NS_IF_UNKNOWN 0x800 +#define TCL_FIND_ONLY_NS 0x1000 /* *---------------------------------------------------------------- @@ -1797,6 +1798,9 @@ EXTERN int TclMergeReturnOptions _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tcl_Obj **optionsPtrPtr, int *codePtr, int *levelPtr)); +EXTERN int TclObjInvokeNamespace _ANSI_ARGS_((Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[], + Tcl_Namespace *nsPtr, int flags)); EXTERN int TclParseBackslash _ANSI_ARGS_((CONST char *src, int numBytes, int *readPtr, char *dst)); EXTERN int TclParseHex _ANSI_ARGS_((CONST char *src, int numBytes, |