Since I have made several changes to SWIG over the years to accomodate

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

wxPython/wxSWIG/swig_lib/tcl/configcode.swg

@@ -0,0 +1,27 @@
+/* configcode.swg */
+
+    else if ((*(argv[1]) == 'c') && (strncmp(argv[1],"configure") == 0) && (argv[1][1])) {
+      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;
+    }
+