jpayne@69: jpayne@69: #ifndef _TCLINT jpayne@69: typedef void (ProcErrorProc)(Tcl_Interp *interp, Tcl_Obj *procNameObj); jpayne@69: #endif jpayne@69: jpayne@69: #ifndef TCL_OO_INTERNAL_H jpayne@69: typedef int (TclOO_PreCallProc)(void *clientData, Tcl_Interp *interp, jpayne@69: Tcl_ObjectContext context, Tcl_CallFrame *framePtr, int *isFinished); jpayne@69: typedef int (TclOO_PostCallProc)(void *clientData, Tcl_Interp *interp, jpayne@69: Tcl_ObjectContext context, Tcl_Namespace *namespacePtr, int result); jpayne@69: #endif jpayne@69: jpayne@69: MODULE_SCOPE int Itcl_NRRunCallbacks(Tcl_Interp *interp, void *rootPtr); jpayne@69: MODULE_SCOPE void * Itcl_GetCurrentCallbackPtr(Tcl_Interp *interp); jpayne@69: MODULE_SCOPE Tcl_Method Itcl_NewProcClassMethod(Tcl_Interp *interp, Tcl_Class clsPtr, jpayne@69: TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, jpayne@69: ProcErrorProc *errProc, void *clientData, Tcl_Obj *nameObj, jpayne@69: Tcl_Obj *argsObj, Tcl_Obj *bodyObj, void **clientData2); jpayne@69: MODULE_SCOPE Tcl_Method Itcl_NewProcMethod(Tcl_Interp *interp, Tcl_Object oPtr, jpayne@69: TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, jpayne@69: ProcErrorProc *errProc, void *clientData, Tcl_Obj *nameObj, jpayne@69: Tcl_Obj *argsObj, Tcl_Obj *bodyObj, void **clientData2); jpayne@69: MODULE_SCOPE int Itcl_PublicObjectCmd(void *clientData, Tcl_Interp *interp, jpayne@69: Tcl_Class clsPtr, size_t objc, Tcl_Obj *const *objv); jpayne@69: MODULE_SCOPE Tcl_Method Itcl_NewForwardClassMethod(Tcl_Interp *interp, jpayne@69: Tcl_Class clsPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *prefixObj); jpayne@69: MODULE_SCOPE int Itcl_SelfCmd(void *clientData, Tcl_Interp *interp, jpayne@69: int objc, Tcl_Obj *const *objv); jpayne@69: MODULE_SCOPE int Itcl_IsMethodCallFrame(Tcl_Interp *interp); jpayne@69: MODULE_SCOPE int Itcl_InvokeEnsembleMethod(Tcl_Interp *interp, Tcl_Namespace *nsPtr, jpayne@69: Tcl_Obj *namePtr, Tcl_Proc *procPtr, size_t objc, Tcl_Obj *const *objv); jpayne@69: MODULE_SCOPE int Itcl_InvokeProcedureMethod(void *clientData, Tcl_Interp *interp, jpayne@69: int objc, Tcl_Obj *const *objv);