1# xotcl.decls -- 2# 3# This file contains the declarations for all supported public 4# functions that are exported by the XOTcl library via the stubs table. 5# This file is used to generate the xotclDecls.h, xotclPlatDecls.h, 6# xotclStub.c, and xotclPlatStub.c files. 7# 8# 9# Copyright (c) 1998-1999 by Scriptics Corporation. 10# See the file "tcl-license.terms" for information on usage and redistribution 11# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12# 13# RCS: $Id: xotcl.decls,v 1.4 2006/09/27 08:12:40 neumann Exp $ 14 15library xotcl 16 17interface xotcl 18hooks {xotclInt} 19 20# Declare each of the functions in the public Tcl interface. Note that 21# the an index should never be reused for a different function in order 22# to preserve backwards compatibility. 23 24declare 0 generic { 25 int Xotcl_Init(Tcl_Interp *interp) 26} 27# 1 is reserved for safe init 28#declare 1 generic { 29# int Xotcl_SafeInit(Tcl_Interp *interp) 30#} 31declare 2 generic { 32 struct XOTcl_Class* XOTclIsClass(Tcl_Interp* in, ClientData cd) 33} 34#declare 3 generic { 35# 36#} 37declare 4 generic { 38 struct XOTcl_Object* XOTclGetObject(Tcl_Interp* in, char* name) 39} 40declare 5 generic { 41 struct XOTcl_Class* XOTclGetClass(Tcl_Interp* in, char* name) 42} 43declare 6 generic { 44 int XOTclCreateObject(Tcl_Interp* in, Tcl_Obj* name, struct XOTcl_Class* cl) 45} 46#declare 7 generic { 47# 48#} 49declare 8 generic { 50 int XOTclCreateClass(Tcl_Interp* in, Tcl_Obj* name, struct XOTcl_Class* cl) 51} 52declare 9 generic { 53 int XOTclDeleteObject(Tcl_Interp* in, struct XOTcl_Object* obj) 54} 55declare 10 generic { 56 int XOTclDeleteClass(Tcl_Interp* in, struct XOTcl_Class* cl) 57} 58declare 11 generic { 59 void XOTclAddPMethod(Tcl_Interp* in, struct XOTcl_Object* obj, 60 CONST char* nm, Tcl_ObjCmdProc* proc, 61 ClientData cd, Tcl_CmdDeleteProc* dp) 62} 63declare 12 generic { 64 void XOTclAddIMethod(Tcl_Interp* in, struct XOTcl_Class* cl, 65 CONST char* nm, Tcl_ObjCmdProc* proc, 66 ClientData cd, Tcl_CmdDeleteProc* dp) 67} 68declare 13 generic { 69 void XOTclRemovePMethod(Tcl_Interp* in,struct XOTcl_Object* obj, char* nm) 70} 71declare 14 generic { 72 void XOTclRemoveIMethod(Tcl_Interp* in, struct XOTcl_Class* cl, char* nm) 73} 74declare 15 generic { 75 Tcl_Obj* XOTclOSetInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, 76 Tcl_Obj* name, Tcl_Obj* value, int flgs) 77} 78declare 16 generic { 79 Tcl_Obj* XOTclOGetInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, 80 Tcl_Obj* name, int flgs) 81} 82declare 17 generic { 83 int XOTclInstVar(struct XOTcl_Object* obj, Tcl_Interp* in, 84 char* name, char* destName) 85} 86#declare 18 generic { 87# 88#} 89declare 19 generic { 90 Tcl_Obj* XOTclOSetInstVar2(struct XOTcl_Object* obj, 91 Tcl_Interp* in,Tcl_Obj* name1,Tcl_Obj* name2, 92 Tcl_Obj* value,int flgs) 93} 94declare 20 generic { 95 Tcl_Obj* XOTclOGetInstVar2(struct XOTcl_Object* obj, 96 Tcl_Interp* in,Tcl_Obj* name1,Tcl_Obj* name2, 97 int flgs) 98} 99declare 21 generic { 100 int XOTclUnsetInstVar2(struct XOTcl_Object* obj, Tcl_Interp* in, 101 char* name1, char* name2, 102 int flgs) 103} 104declare 22 generic { 105 int XOTcl_TraceObjCmd(ClientData cd, Tcl_Interp *in, 106 int objc, Tcl_Obj *CONST objv[]) 107} 108declare 23 generic { 109 int XOTclErrMsg(Tcl_Interp* in, char* msg, Tcl_FreeProc* type) 110} 111declare 24 generic { 112 int XOTclVarErrMsg(Tcl_Interp * in, ...) 113} 114declare 25 generic { 115 int XOTclErrInProc (Tcl_Interp *in, Tcl_Obj* objName, 116 Tcl_Obj* clName, char* procName) 117} 118declare 26 generic { 119 int XOTclObjErrArgCnt(Tcl_Interp *in, Tcl_Obj *cmdname, char *arglist) 120} 121declare 27 generic { 122 int XOTclErrBadVal_(Tcl_Interp *in, char *expected, char *value) 123} 124declare 28 generic { 125 int XOTclObjErrType(Tcl_Interp *in, Tcl_Obj *nm, char* wt) 126} 127declare 29 generic { 128 void XOTclStackDump (Tcl_Interp* in) 129} 130declare 30 generic { 131 void XOTclCallStackDump (Tcl_Interp* in) 132} 133declare 31 generic { 134 void XOTclDeprecatedMsg(char* oldCmd, char* newCmd) 135} 136declare 32 generic { 137 void XOTclSetObjClientData(XOTcl_Object* obj, ClientData data) 138} 139declare 33 generic { 140 ClientData XOTclGetObjClientData(XOTcl_Object* obj) 141} 142declare 34 generic { 143 void XOTclSetClassClientData(XOTcl_Class* cl, ClientData data) 144} 145declare 35 generic { 146 ClientData XOTclGetClassClientData(XOTcl_Class* cl) 147} 148declare 36 generic { 149 void XOTclRequireObjNamespace(Tcl_Interp* in, XOTcl_Object* obj) 150} 151declare 37 generic { 152 int XOTclErrBadVal(Tcl_Interp *in, char *context, char *expected, char *value) 153} 154declare 38 generic { 155 int XOTclNextObjCmd(ClientData cd, Tcl_Interp *in, int objc, Tcl_Obj *CONST objv[]) 156} 157declare 39 generic { 158 int XOTclCallMethodWithArgs(ClientData cd, Tcl_Interp *in, 159 Tcl_Obj *method, Tcl_Obj *arg, 160 int objc, Tcl_Obj *CONST objv[], int flags) 161} 162 163