Itcl - the [incr Tcl] extension: Artifact [7a57435c95]

Artifact 7a57435c95b609629ed3f4233f9f17864373172b:

File generic/itclTclIntStubsFcn.h — part of check-in [60f53f805e] at 2008-01-06 19:24:29 on branch itcl-ng — changes for integrating new stubs interfaces from TclOO. (user: wiede size: 1637)

/* these functions are Tcl internal stubs so make an Itcl_* wrapper */
EXTERN int Itcl_PushCallFrame (Tcl_Interp * interp,
                Tcl_CallFrame * framePtr,
	        Tcl_Namespace * nsPtr, int isProcCallFrame);
EXTERN void Itcl_PopCallFrame (Tcl_Interp * interp);
EXTERN void Itcl_GetVariableFullName (Tcl_Interp * interp,
                Tcl_Var variable, Tcl_Obj * objPtr);
EXTERN Tcl_Var Itcl_FindNamespaceVar (Tcl_Interp * interp,
                CONST char * name, Tcl_Namespace * contextNsPtr, int flags);
EXTERN void Itcl_SetNamespaceResolvers (Tcl_Namespace * namespacePtr,
        Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc,
        Tcl_ResolveCompiledVarProc * compiledVarProc);

#ifndef _TCL_PROC_DEFINED
typedef struct Tcl_Proc_ *Tcl_Proc;
#define _TCL_PROC_DEFINED 1
#endif
#ifndef _TCL_RESOLVE_DEFINED
struct Tcl_Resolve;
#endif

#define Tcl_GetOriginalCommand _Tcl_GetOriginalCommand
#define Tcl_CreateProc _Tcl_CreateProc
#define Tcl_ProcDeleteProc _Tcl_ProcDeleteProc
#define Tcl_GetObjInterpProc _Tcl_GetObjInterpProc
#define Tcl_SetNamespaceResolver _Tcl_SetNamespaceResolver

EXTERN Tcl_Command _Tcl_GetOriginalCommand(Tcl_Command command);
EXTERN int _Tcl_CreateProc(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
	CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr,
        Tcl_Proc *procPtrPtr);
EXTERN void _Tcl_ProcDeleteProc(ClientData clientData);
EXTERN void *_Tcl_GetObjInterpProc(void);
EXTERN int _Tcl_SetNamespaceResolver(Tcl_Namespace *nsPtr,
        struct Tcl_Resolve *resolvePtr);
EXTERN int Tcl_RenameCommand(Tcl_Interp *interp, const char *oldName,
	const char *newName);