c90f71dd8c
special cases and other things in wxPython, and since I plan on making several more, I've decided to put the SWIG sources in wxPython's CVS instead of relying on maintaining patches. This effectivly becomes a fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still doesn't have some things I rely on in 1.1, not to mention that my custom patches would all have to be redone, I felt that this is the easier road to take. git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@15307 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
75 lines
2.1 KiB
Plaintext
75 lines
2.1 KiB
Plaintext
/* methodcmd.swg : Tcl method invocation */
|
|
|
|
static int Tcl@CLASS@MethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
|
|
int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
|
|
char temp[256], *oldarg;
|
|
int rcode;
|
|
int length;
|
|
char c;
|
|
|
|
if (argc < 2) {
|
|
Tcl_SetResult(interp,"@CLASS@ methods : { @METHODLIST@ }",TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
c = argv[1][0];
|
|
length = strlen(argv[1]);
|
|
SWIG_MakePtr(temp,(void *) clientData, "@CLASSMANGLE@");
|
|
if (0);
|
|
@METHODS@
|
|
else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
|
|
int i = 2;
|
|
cmd = 0;
|
|
while (i+1 < argc) {
|
|
@CONFIGMETHODS@
|
|
if (cmd) {
|
|
oldarg = argv[i];
|
|
argv[i] = &temp[0];
|
|
rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
|
|
argv[i] = oldarg;
|
|
if (rcode == TCL_ERROR) return rcode;
|
|
cmd = 0;
|
|
} else {
|
|
Tcl_SetResult(interp,"Invalid configure option. Must be { @CONFIGLIST@ }",TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
i+=2;
|
|
}
|
|
if ((i < argc) || (i == 2)) {
|
|
Tcl_SetResult(interp,"{ @CONFIGLIST@ }",TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
return TCL_OK;
|
|
} else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
|
|
if (argc == 3) {
|
|
if (0) {}
|
|
@CGETMETHODS@
|
|
else if (strcmp(argv[2],"-this") == 0) {
|
|
SWIG_MakePtr(interp->result,(void *) clientData, "@CLASSMANGLE@");
|
|
return TCL_OK;
|
|
}
|
|
if (cmd) {
|
|
oldarg = argv[2];
|
|
argv[2] = &temp[0];
|
|
rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
|
|
argv[2] = oldarg;
|
|
return rcode;
|
|
} else {
|
|
Tcl_SetResult(interp,"Invalid cget option. Must be { -this @CGETLIST@ }",TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
} else {
|
|
Tcl_SetResult(interp,"{ -this @CGETLIST@ }", TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
}
|
|
if (!cmd) {
|
|
Tcl_SetResult(interp,"Invalid Method. Must be { @METHODLIST@}",TCL_STATIC);
|
|
return TCL_ERROR;
|
|
}
|
|
oldarg = argv[1];
|
|
argv[1] = &temp[0];
|
|
rcode = (*cmd)(clientData,interp,argc,argv);
|
|
argv[1] = oldarg;
|
|
return rcode;
|
|
}
|