|
jpayne@69
|
1 /* these functions are Tcl internal stubs so make an Itcl_* wrapper */
|
|
jpayne@69
|
2 MODULE_SCOPE void Itcl_GetVariableFullName (Tcl_Interp * interp,
|
|
jpayne@69
|
3 Tcl_Var variable, Tcl_Obj * objPtr);
|
|
jpayne@69
|
4 MODULE_SCOPE Tcl_Var Itcl_FindNamespaceVar (Tcl_Interp * interp,
|
|
jpayne@69
|
5 const char * name, Tcl_Namespace * contextNsPtr, int flags);
|
|
jpayne@69
|
6 MODULE_SCOPE void Itcl_SetNamespaceResolvers (Tcl_Namespace * namespacePtr,
|
|
jpayne@69
|
7 Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc,
|
|
jpayne@69
|
8 Tcl_ResolveCompiledVarProc * compiledVarProc);
|
|
jpayne@69
|
9
|
|
jpayne@69
|
10 #ifndef _TCL_PROC_DEFINED
|
|
jpayne@69
|
11 typedef struct Tcl_Proc_ *Tcl_Proc;
|
|
jpayne@69
|
12 #define _TCL_PROC_DEFINED 1
|
|
jpayne@69
|
13 #endif
|
|
jpayne@69
|
14 #ifndef _TCL_RESOLVE_DEFINED
|
|
jpayne@69
|
15 struct Tcl_Resolve;
|
|
jpayne@69
|
16 #endif
|
|
jpayne@69
|
17
|
|
jpayne@69
|
18 #define Tcl_GetOriginalCommand _Tcl_GetOriginalCommand
|
|
jpayne@69
|
19 #define Tcl_CreateProc _Tcl_CreateProc
|
|
jpayne@69
|
20 #define Tcl_ProcDeleteProc _Tcl_ProcDeleteProc
|
|
jpayne@69
|
21 #define Tcl_GetObjInterpProc _Tcl_GetObjInterpProc
|
|
jpayne@69
|
22
|
|
jpayne@69
|
23 MODULE_SCOPE Tcl_Command _Tcl_GetOriginalCommand(Tcl_Command command);
|
|
jpayne@69
|
24 MODULE_SCOPE int _Tcl_CreateProc(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
|
|
jpayne@69
|
25 const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr,
|
|
jpayne@69
|
26 Tcl_Proc *procPtrPtr);
|
|
jpayne@69
|
27 MODULE_SCOPE void _Tcl_ProcDeleteProc(void *clientData);
|
|
jpayne@69
|
28 MODULE_SCOPE Tcl_ObjCmdProc *_Tcl_GetObjInterpProc(void);
|
|
jpayne@69
|
29 MODULE_SCOPE int Tcl_RenameCommand(Tcl_Interp *interp, const char *oldName,
|
|
jpayne@69
|
30 const char *newName);
|
|
jpayne@69
|
31 MODULE_SCOPE Tcl_HashTable *Itcl_GetNamespaceChildTable(Tcl_Namespace *nsPtr);
|
|
jpayne@69
|
32 MODULE_SCOPE Tcl_HashTable *Itcl_GetNamespaceCommandTable(Tcl_Namespace *nsPtr);
|
|
jpayne@69
|
33 MODULE_SCOPE int Itcl_InitRewriteEnsemble(Tcl_Interp *interp, size_t numRemoved,
|
|
jpayne@69
|
34 size_t numInserted, size_t objc, Tcl_Obj *const *objv);
|
|
jpayne@69
|
35 MODULE_SCOPE void Itcl_ResetRewriteEnsemble(Tcl_Interp *interp,
|
|
jpayne@69
|
36 int isRootEnsemble);
|
|
jpayne@69
|
37
|
|
jpayne@69
|
38
|
