Index: generic/xotcl.decls =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -r46f02e4868e118466d888b35d6b281b3f2ba31ac --- generic/xotcl.decls (.../xotcl.decls) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ generic/xotcl.decls (.../xotcl.decls) (revision 46f02e4868e118466d888b35d6b281b3f2ba31ac) @@ -29,134 +29,151 @@ # int Xotcl_SafeInit(Tcl_Interp *interp) #} declare 2 generic { - struct XOTcl_Class* XOTclIsClass(Tcl_Interp* in, ClientData cd) + struct XOTcl_Class *XOTclIsClass(Tcl_Interp *interp, ClientData cd) } #declare 3 generic { # #} declare 4 generic { - struct XOTcl_Object* XOTclGetObject(Tcl_Interp* in, char* name) + struct XOTcl_Object *XOTclGetObject(Tcl_Interp *interp, char *name) } declare 5 generic { - struct XOTcl_Class* XOTclGetClass(Tcl_Interp* in, char* name) + struct XOTcl_Class *XOTclGetClass(Tcl_Interp *interp, char *name) } declare 6 generic { - int XOTclCreateObject(Tcl_Interp* in, Tcl_Obj* name, struct XOTcl_Class* cl) + int XOTclCreateObject(Tcl_Interp *interp, Tcl_Obj *name, struct XOTcl_Class *cl) } #declare 7 generic { # #} declare 8 generic { - int XOTclCreateClass(Tcl_Interp* in, Tcl_Obj* name, struct XOTcl_Class* cl) + int XOTclCreateClass(Tcl_Interp *interp, Tcl_Obj *name, struct XOTcl_Class *cl) } declare 9 generic { - int XOTclDeleteObject(Tcl_Interp* in, struct XOTcl_Object* obj) + int XOTclDeleteObject(Tcl_Interp *interp, struct XOTcl_Object *obj) } declare 10 generic { - int XOTclDeleteClass(Tcl_Interp* in, struct XOTcl_Class* cl) + int XOTclDeleteClass(Tcl_Interp *interp, struct XOTcl_Class *cl) } declare 11 generic { - void XOTclAddPMethod(Tcl_Interp* in, struct XOTcl_Object* obj, - char* nm, Tcl_ObjCmdProc* proc, - ClientData cd, Tcl_CmdDeleteProc* dp) + Tcl_Command XOTclAddPMethod(Tcl_Interp *interp, struct XOTcl_Object *obj, + char *nm, Tcl_ObjCmdProc *proc, + ClientData cd, Tcl_CmdDeleteProc *dp) } declare 12 generic { - void XOTclAddIMethod(Tcl_Interp* in, struct XOTcl_Class* cl, - char* nm, Tcl_ObjCmdProc* proc, - ClientData cd, Tcl_CmdDeleteProc* dp) + Tcl_Command XOTclAddIMethod(Tcl_Interp *interp, struct XOTcl_Class *cl, + char *nm, Tcl_ObjCmdProc *proc, + ClientData cd, Tcl_CmdDeleteProc *dp) } declare 13 generic { - void XOTclRemovePMethod(Tcl_Interp* in,struct XOTcl_Object* obj, char* nm) + void XOTclRemovePMethod(Tcl_Interp *interp,struct XOTcl_Object *obj, char *nm) } declare 14 generic { - void XOTclRemoveIMethod(Tcl_Interp* in, struct XOTcl_Class* cl, char* nm) + void XOTclRemoveIMethod(Tcl_Interp *interp, struct XOTcl_Class *cl, char *nm) } declare 15 generic { - Tcl_Obj* XOTclOSetInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, - Tcl_Obj* name, Tcl_Obj* value, int flgs) + Tcl_Obj *XOTclOSetInstVar(struct XOTcl_Object *obj, Tcl_Interp *interp, + Tcl_Obj *name, Tcl_Obj *value, int flgs) } declare 16 generic { - Tcl_Obj* XOTclOGetInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, - Tcl_Obj* name, int flgs) + Tcl_Obj *XOTclOGetInstVar(struct XOTcl_Object *obj, Tcl_Interp *interp, + Tcl_Obj *name, int flgs) } declare 17 generic { - int XOTclInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, - char* name, char* destName) + int XOTclInstVar(struct XOTcl_Object *obj, Tcl_Interp *interp, + char *name, char *destName) } #declare 18 generic { # #} declare 19 generic { - Tcl_Obj* XOTclOSetInstVar2(struct XOTcl_Object* obj, - Tcl_Interp* in,Tcl_Obj* name1,Tcl_Obj* name2, - Tcl_Obj* value,int flgs) + Tcl_Obj *XOTcl_ObjSetVar2(struct XOTcl_Object *obj, + Tcl_Interp *interp,Tcl_Obj *name1,Tcl_Obj *name2, + Tcl_Obj *value,int flgs) } declare 20 generic { - Tcl_Obj* XOTclOGetInstVar2(struct XOTcl_Object* obj, - Tcl_Interp* in,Tcl_Obj* name1,Tcl_Obj* name2, + Tcl_Obj *XOTcl_ObjGetVar2(struct XOTcl_Object *obj, + Tcl_Interp *interp,Tcl_Obj *name1,Tcl_Obj *name2, int flgs) } declare 21 generic { - int XOTclUnsetInstVar2(struct XOTcl_Object* obj, Tcl_Interp* in, - char* name1, char* name2, + int XOTclUnsetInstVar2(struct XOTcl_Object *obj, Tcl_Interp *interp, + char *name1, char *name2, int flgs) } declare 22 generic { - int XOTcl_TraceObjCmd(ClientData cd, Tcl_Interp *in, + int XOTcl_TraceObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) } declare 23 generic { - int XOTclErrMsg(Tcl_Interp* in, char* msg, Tcl_FreeProc* type) + int XOTclErrMsg(Tcl_Interp *interp, char *msg, Tcl_FreeProc *type) } declare 24 generic { - int XOTclVarErrMsg(Tcl_Interp * in, ...) + int XOTclVarErrMsg(Tcl_Interp *interp, ...) } declare 25 generic { - int XOTclErrInProc (Tcl_Interp *in, Tcl_Obj* objName, - Tcl_Obj* clName, char* procName) + int XOTclErrInProc (Tcl_Interp *interp, Tcl_Obj *objName, + Tcl_Obj *clName, char *procName) } declare 26 generic { - int XOTclObjErrArgCnt(Tcl_Interp *in, Tcl_Obj *cmdname, char *arglist) +# } declare 27 generic { - int XOTclErrBadVal_(Tcl_Interp *in, char *expected, char *value) + int XOTclErrBadVal_(Tcl_Interp *interp, char *expected, char *value) } declare 28 generic { - int XOTclObjErrType(Tcl_Interp *in, Tcl_Obj *nm, char* wt) + int XOTclObjErrType(Tcl_Interp *interp, Tcl_Obj *nm, char *wt) } declare 29 generic { - void XOTclStackDump (Tcl_Interp* in) + void XOTclStackDump (Tcl_Interp *interp) } declare 30 generic { - void XOTclCallStackDump (Tcl_Interp* in) + void XOTclCallStackDump (Tcl_Interp *interp) } declare 31 generic { - void XOTclDeprecatedMsg(char* oldCmd, char* newCmd) + void XOTclDeprecatedMsg(char *oldCmd, char *newCmd) } declare 32 generic { - void XOTclSetObjClientData(XOTcl_Object* obj, ClientData data) + void XOTclSetObjClientData(XOTcl_Object *obj, ClientData data) } declare 33 generic { - ClientData XOTclGetObjClientData(XOTcl_Object* obj) + ClientData XOTclGetObjClientData(XOTcl_Object *obj) } declare 34 generic { - void XOTclSetClassClientData(XOTcl_Class* cl, ClientData data) + void XOTclSetClassClientData(XOTcl_Class *cl, ClientData data) } declare 35 generic { - ClientData XOTclGetClassClientData(XOTcl_Class* cl) + ClientData XOTclGetClassClientData(XOTcl_Class *cl) } declare 36 generic { - void XOTclRequireObjNamespace(Tcl_Interp* in, XOTcl_Object* obj) + void XOTclRequireObjNamespace(Tcl_Interp *interp, XOTcl_Object *obj) } declare 37 generic { - int XOTclErrBadVal(Tcl_Interp *in, char *context, char *expected, char *value) + int XOTclErrBadVal(Tcl_Interp *interp, char *context, char *expected, char *value) } declare 38 generic { - int XOTclNextObjCmd(ClientData cd, Tcl_Interp *in, int objc, Tcl_Obj *CONST objv[]) + int XOTclNextObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) } declare 39 generic { - int XOTclCallMethodWithArgs(ClientData cd, Tcl_Interp *in, + int XOTclCallMethodWithArgs(ClientData cd, Tcl_Interp *interp, Tcl_Obj *method, Tcl_Obj *arg, int objc, Tcl_Obj *CONST objv[], int flags) } - +declare 40 generic { + int XOTclObjErrArgCnt(Tcl_Interp *interp, Tcl_Obj *cmdName, Tcl_Obj *methodName, + char *arglist) +} +declare 41 generic { + Tcl_Command XOTclAddObjectMethod(Tcl_Interp *interp, struct XOTcl_Object *obj, + char *nm, Tcl_ObjCmdProc *proc, + ClientData cd, Tcl_CmdDeleteProc *dp, int flags) +} +declare 42 generic { + Tcl_Command XOTclAddInstanceMethod(Tcl_Interp *interp, struct XOTcl_Class *cl, + char *nm, Tcl_ObjCmdProc *proc, + ClientData cd, Tcl_CmdDeleteProc *dp, int flags) +} +declare 43 generic { + int XOTclCreate(Tcl_Interp *in, XOTcl_Class *class, Tcl_Obj *name, ClientData data, + int objc, Tcl_Obj *CONST objv[]) +}