*** empty log message ***

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4142 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Source/Modules1.1/swigmain.cxx

@@ -0,0 +1,153 @@
+/*******************************************************************************
+ * Simplified Wrapper and Interface Generator  (SWIG)
+ *
+ * swigmain.cxx
+ *
+ *     This file is the main entry point to SWIG.  It collects the command
+ *     line options, registers built-in language modules, and instantiates 
+ *     a module for code generation.   If adding new language modules
+ *     to SWIG, you would modify this file.
+ *
+ * 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.
+ *******************************************************************************/
+
+char cvsroot_swigmain_cxx[] = "$Header$";
+
+#ifndef MACSWIG
+#include "swigconfig.h"
+#endif
+
+#include "swigmod.h"
+
+/* Module factories.  These functions are used to instantiate 
+   the built-in language modules.    If adding a new language
+   module to SWIG, place a similar function here. Make sure
+   the function has "C" linkage.  This is required so that modules
+   can be dynamically loaded in future versions. */
+
+extern "C" {
+  Language *swig_tcl(void);
+  Language *swig_python(void);
+  Language *swig_perl5(void);
+  Language *swig_ruby(void);
+  Language *swig_guile(void);
+  Language *swig_mzscheme(void);
+  Language *swig_java(void);
+  Language *swig_php(void);
+  Language *swig_ocaml(void);
+  Language *swig_pike(void);
+  Language *swig_sexp(void);
+  Language *swig_xml(void);
+}
+
+struct swig_module {
+  const char     *name;
+  ModuleFactory   fac;
+  const char      *help;
+};
+
+/* Association of command line options to language modules.
+   Place an entry for new language modules here, keeping the
+   list sorted alphabetically. */
+
+swig_module  modules[] = {
+  {"-guile",     swig_guile,     "Guile"},
+  {"-java",      swig_java,      "Java"},
+  {"-mzscheme",  swig_mzscheme,  "Mzscheme"},
+  {"-ocaml",     swig_ocaml,     "Ocaml"},
+  {"-perl",      swig_perl5,     "Perl"},
+  {"-perl5",     swig_perl5, 0},
+  {"-php",       swig_php,       "PHP"},
+  {"-php4",      swig_php, 0},
+  {"-pike",      swig_pike,      "Pike"},
+  {"-python",    swig_python,    "Python"},
+  {"-ruby",      swig_ruby,      "Ruby"},
+  {"-sexp",      swig_sexp,      "Lisp S-Expressions"},
+  {"-tcl",       swig_tcl,       "Tcl"},
+  {"-tcl8",      swig_tcl, 0},
+  {"-xml",       swig_xml,       "XML"},
+  {NULL, NULL, NULL}
+};
+
+#ifdef MACSWIG
+#include <console.h>
+#include <SIOUX.h>
+#endif
+
+#ifndef SWIG_LANG
+#define SWIG_LANG "-python"
+#endif
+
+//-----------------------------------------------------------------
+// main()
+//
+// Main program.    Initializes the files and starts the parser.
+//-----------------------------------------------------------------
+
+
+int main(int argc, char **argv) {
+  int i;
+  Language *dl = 0;
+  ModuleFactory fac = 0;
+
+  extern int SWIG_main(int, char **, Language *);
+
+#ifdef MACSWIG
+  SIOUXSettings.asktosaveonclose = false;
+  argc = ccommand(&argv);
+#endif
+
+  /* Register built-in modules */
+  for (i = 0; modules[i].name; i++) {
+    Swig_register_module(modules[i].name, modules[i].fac);
+  }
+
+  Swig_init_args(argc,argv);
+
+  /* Get options */
+  for (i = 1; i < argc; i++) {
+      if (argv[i]) {
+	fac = Swig_find_module(argv[i]);
+	if (fac) {
+	  dl = (fac)();
+	  Swig_mark_arg(i);
+	} else if (strcmp(argv[i],"-nolang") == 0) {
+	  dl = new Language;
+	  Swig_mark_arg(i);
+	} else if ((strcmp(argv[i],"-dnone") == 0) ||
+		   (strcmp(argv[i],"-dhtml") == 0) ||
+		   (strcmp(argv[i],"-dlatex") == 0) ||
+		   (strcmp(argv[i],"-dascii") == 0) ||
+		   (strcmp(argv[i],"-stat") == 0))
+	  {
+	    Printf(stderr,"swig: Warning. %s option deprecated.\n",argv[i]);
+	    Swig_mark_arg(i);
+	  } else if (strcmp(argv[i],"-help") == 0) {
+	    Printf(stderr,"Target Language Options:\n");
+	    for (int j = 0; modules[j].name; j++) {
+	      if (modules[j].help) {
+		Printf(stderr,"     %-15s - Generate %s wrappers.\n", modules[j].name, modules[j].help);
+	      }
+	    }
+	    Swig_mark_arg(i);
+	  }
+      }
+  }
+  if (!dl) {
+    fac = Swig_find_module(SWIG_LANG);
+    if (fac) {
+      dl = (fac)();
+    }
+  }
+  return SWIG_main(argc,argv,dl);
+}
+