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