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/Modules/swigmain.cxx

@@ -0,0 +1,168 @@
+/*******************************************************************************
+ * Simplified Wrapper and Interface Generator  (SWIG)
+ * 
+ * Author : David Beazley
+ *
+ * Department of Computer Science        
+ * University of Chicago
+ * 1100 E 58th Street
+ * Chicago, IL  60637
+ * beazley@cs.uchicago.edu
+ *
+ * Please read the file LICENSE for the copyright and terms by which SWIG
+ * can be used and distributed.
+ *******************************************************************************/
+
+/***********************************************************************
+ * $Header$
+ *
+ * swigmain.cxx
+ *
+ * The main program.
+ *
+ ***********************************************************************/
+
+#include "wrap.h"
+#include "swigtcl.h"
+#include "tcl8.h"
+#include "perl5.h"
+#include "python.h"
+// #include "pythoncom.h"
+#include "guile.h"
+#include "debug.h"
+#include "ascii.h"
+#include "latex.h"
+#include "html.h"
+#include "nodoc.h"
+#include <ctype.h>
+
+static char  *usage = "\
+swig <options> filename\n\n\
+Target Language Options:\n\
+     -tcl            - Generate Tcl wrappers.\n\
+     -tcl8           - Generate Tcl 8.0 wrappers.\n\
+     -python         - Generate Python wrappers.\n\
+     -perl5          - Generate Perl5 wrappers.\n\
+     -guile          - Generate Guile wrappers.\n\
+     -debug          - Parser debugging module.\n";
+
+#ifdef MACSWIG     
+static char *macmessage = "\
+Copyright (c) 1995-1997\n\
+University of Utah and the Regents of the University of California\n\n\
+Enter SWIG processing options and filename below. For example :\n\
+\n\
+      -tcl -c++ interface.i\n\
+\n\
+-help displays a list of all available options.\n\
+\n\
+Note : Macintosh filenames should be enclosed in quotes if they contain whitespace.\n\
+\n";
+
+#endif
+
+//-----------------------------------------------------------------
+// main()
+//
+// Main program.    Initializes the files and starts the parser.
+//-----------------------------------------------------------------
+
+#ifndef MACSWIG
+int main(int argc, char **argv) {
+#else
+int Mac_main(int argc, char **argv) {
+#endif
+
+  int i;
+
+  Language *dl = new SWIG_LANG;
+  Documentation *dd = new SWIG_DOC;
+  extern int SWIG_main(int, char **, Language *, Documentation *);
+
+  init_args(argc,argv);
+  
+  // Get options
+  for (i = 1; i < argc; i++) {
+      if (argv[i]) {
+	  if(strcmp(argv[i],"-tcl") == 0) {
+	      dl = new TCL;
+	      mark_arg(i);
+          } else if (strcmp(argv[i],"-tcl8") == 0) {
+	      dl = new TCL8;
+	      mark_arg(i);
+	  } else if (strcmp(argv[i],"-perl5") == 0) {
+	      dl = new PERL5;
+	      mark_arg(i);
+	  } else if (strcmp(argv[i],"-python") == 0) {
+	      dl = new PYTHON;
+	      mark_arg(i);
+	  } else if (strcmp(argv[i],"-debug") == 0) {
+	      dl = new DEBUGLANG;
+	      mark_arg(i);
+	  } else if (strcmp(argv[i],"-guile") == 0) {
+	      dl = new GUILE;
+	      mark_arg(i);
+	  } else if (strcmp(argv[i],"-help") == 0) {
+	      fputs(usage,stderr);
+	      mark_arg(i);
+	  }
+      }
+  }
+  SWIG_main(argc,argv,dl,dd);
+  return 0;
+}
+
+#ifdef MACSWIG
+int MacMainEntry(char *options) {
+	static char *_argv[256];
+	int i,argc;
+	char *c,*s,*t;
+
+	swig_log = fopen("swig_log","w");
+	fprintf(swig_log,"SWIG 1.1\n");
+	fprintf(swig_log,"Options : %s\n", options);
+	fprintf(swig_log,"-----------------------------------------------------\n");
+
+	// Tokenize the user input
+	
+	_argv[0] = "swig";
+	i=1;
+	c = options;
+	while (*c) {
+	    while(isspace(*c)) c++;
+	    if (*c) {
+	      s = c;             // Starting character
+	      while(isgraph(*c)) {
+		if (*c == '\"') {
+		  c++;
+		  while ((*c) && (*c != '\"'))
+		    c++;
+		  c++;
+		} else {
+		  c++;
+		}
+	      }
+	      // Found some whitespace 
+	      if (*c) {
+		*c = 0;
+		c++;
+	      }
+	      _argv[i] = copy_string(s);
+	      // Go through and remove quotes (if necessary)
+	      
+	      t = _argv[i];
+	      while(*s) {
+		if (*s != '\"') 
+		  *(t++) = *s;
+		s++;
+	      }
+	      *t = 0;
+	      i++;
+	    }
+	}
+	argc = i;
+	_argv[i] = 0;
+	return Mac_main(argc,_argv);
+}
+	
+#endif