Added

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

SWIG/Source/Swig/main.c

@@ -0,0 +1,103 @@
+/* ----------------------------------------------------------------------------- 
+ * main.c
+ *
+ *     SWIG main program.   
+ * 
+ * Author(s) : David Beazley (beazley@cs.uchicago.edu)
+ *
+ * Copyright (C) 1999-2000.  The University of Chicago
+ * See the file LICENSE for information on usage and redistribution.	
+ * ----------------------------------------------------------------------------- */
+
+#include "swigconfig.h"
+#include "swigver.h"
+#include "swig.h"
+
+static char *usage = (char*)"\
+\nGeneral Options\n\
+     -version        - Print SWIG version number\n\
+     -help           - This output.\n\n";
+
+/* -----------------------------------------------------------------------------
+ * Swig_main()
+ *
+ * Entry point to SWIG.  This should only be called after all of the available
+ * modules have been registered (presumably by the real main function).
+ * ----------------------------------------------------------------------------- */
+
+int Swig_main(int argc, char **argv, char **modules) {
+  int   i;
+  int   help = 0;
+  int   freeze = 0;
+  Hash   *top = 0;
+
+  /* Initialize the SWIG core */
+  Swig_init();
+  Swig_init_args(argc,argv);
+
+  /* Look for command line options */
+  for (i = 1; i < argc; i++) {
+    if (argv[i]) {
+      if (strcmp(argv[i],"-freeze") == 0) {
+	freeze= 1;
+	Swig_mark_arg(i);
+      } else if (strcmp(argv[i],"-version") == 0) {
+	fprintf(stderr,"\nSWIG Version %s %s\n",
+		SWIG_VERSION, SWIG_SPIN);
+	fprintf(stderr,"Copyright (c) 1995-1998, University of Utah and the Regents of the University of California\n");
+	fprintf(stderr,"Copyright (c) 1998-2000, University of Chicago\n");
+	Swig_exit (EXIT_SUCCESS);
+      } else if (strcmp(argv[i],"-help") == 0) {
+	Printf(stderr,"%s",usage);
+	Swig_mark_arg(i);
+	help = 1;
+      } else {
+	if (!Swig_check_marked(i)) {
+	  Module *m;
+	  m = Swig_load_module(argv[i]+1);
+	  if (m) {
+	    Swig_mark_arg(i);
+	    Swig_init_module(m, argc, argv);
+	  }
+	}
+      }
+    }
+  }
+
+  /* Load the default modules (always enabled) */
+  if (modules) {
+    int i = 0;
+    while (modules[i]) {
+      Module *m;
+      m = Swig_load_module(modules[i]);
+      if (m) {
+	Swig_init_module(m,argc,argv);
+      } else {
+	Printf(stderr,"Swig: default module '%s' not found!\n", modules[i]);
+      }
+      i++;
+    }
+  }
+
+  if (help) Swig_exit(EXIT_SUCCESS);
+  /* Check the arguments */
+  Swig_check_options();
+
+  /* Get the input file name and create a starting node */
+  top = NewHash();
+  Settag(top,"swig:initial");
+  Setname(top,argv[argc-1]);
+
+  /* Run the modules */
+  Swig_run_modules(top);
+
+  while(freeze);
+  return 0;
+}
+
+void Swig_exit(int n) {
+  exit(n);
+}
+
+
+