]> git.saurik.com Git - wxWidgets.git/blob - wxPython/wxSWIG/swig_lib/tcl/methodcmd8.swg
Updates for building wxSWIG on Linux
[wxWidgets.git] / wxPython / wxSWIG / swig_lib / tcl / methodcmd8.swg
1 /* methodcmd8.swg : Tcl8.x method invocation */
2
3 static int Tcl@CLASS@MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {
4 int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
5 char *_str;
6 int rcode;
7 Tcl_Obj **objv;
8 Tcl_Obj *oldarg,*tcl_result,*obj;
9 int length;
10 char c;
11
12 tcl_result = Tcl_GetObjResult(interp);
13 objv = (Tcl_Obj **) _objv;
14 if (objc < 2) {
15 Tcl_SetStringObj(tcl_result,"@CLASS@ methods : { @METHODLIST@ }",-1);
16 return TCL_ERROR;
17 }
18 obj = Tcl_NewObj();
19 SWIG_SetPointerObj(obj,(void *) clientData,"@CLASSMANGLE@");
20 _str = Tcl_GetStringFromObj(objv[1],&length);
21 c = *_str;
22 if (0);
23 @METHODS@
24 else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {
25 int i = 2;
26 cmd = 0;
27 while (i+1 < objc) {
28 _str = Tcl_GetStringFromObj(objv[i],&length);
29 @CONFIGMETHODS@
30 if (cmd) {
31 oldarg = objv[i];
32 objv[i] = obj;
33 rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
34 objv[i] = oldarg;
35 if (rcode == TCL_ERROR) {
36 Tcl_DecrRefCount(obj);
37 return rcode;
38 }
39 cmd = 0;
40 } else {
41 Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { @CONFIGLIST@ }",-1);
42 Tcl_DecrRefCount(obj);
43 return TCL_ERROR;
44 }
45 i+=2;
46 }
47 if ((i < objc) || (i == 2)) {
48 Tcl_SetStringObj(tcl_result,"{ @CONFIGLIST@ }",-1);
49 Tcl_DecrRefCount(obj);
50 return TCL_ERROR;
51 }
52 Tcl_DecrRefCount(obj);
53 return TCL_OK;
54 } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {
55 if (objc == 3) {
56 _str = Tcl_GetStringFromObj(objv[2],&length);
57 if (0) {}
58 @CGETMETHODS@
59 else if (strcmp(_str,"-this") == 0) {
60 SWIG_SetPointerObj(tcl_result,(void *) clientData, "@CLASSMANGLE@");
61 Tcl_DecrRefCount(obj);
62 return TCL_OK;
63 }
64 if (cmd) {
65 oldarg = objv[2];
66 objv[2] = obj;
67 rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
68 objv[2] = oldarg;
69 Tcl_DecrRefCount(obj);
70 return rcode;
71 } else {
72 Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this @CGETLIST@ }",-1);
73 Tcl_DecrRefCount(obj);
74 return TCL_ERROR;
75 }
76 } else {
77 Tcl_SetStringObj(tcl_result,"{ -this @CGETLIST@ }", -1);
78 Tcl_DecrRefCount(obj);
79 return TCL_ERROR;
80 }
81 }
82 if (!cmd) {
83 Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { @METHODLIST@}",-1);
84 Tcl_DecrRefCount(obj);
85 return TCL_ERROR;
86 }
87 oldarg = objv[1];
88 objv[1] = obj;
89 rcode = (*cmd)(clientData,interp,objc,objv);
90 objv[1] = oldarg;
91 Tcl_DecrRefCount(obj);
92 return rcode;
93 }
94
95
96