Modifications to the module system

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

SWIG/Source/Modules/cparsemodule.c

@@ -0,0 +1,55 @@
+/* ----------------------------------------------------------------------------- 
+ * cparsemodule.c
+ *
+ *     This module is responsible for running the SWIG C Parsing module.
+ * 
+ * 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 "swig.h"
+#include "swigconfig.h"
+#include "lparse.h"
+
+static const char *usage = "C Parsing options:\n\
+";
+
+static 
+int cparse_init(int argc, char **argv) {
+  int   i;
+  /* Look for command line options */
+  for (i = 1; i < argc; i++) {
+    if (argv[i]) {
+      if (strcmp(argv[i],"-c++") == 0) {
+	LParse_cplusplus(1);
+	Swig_mark_arg(i);
+      } else if (strcmp(argv[i],"-help") == 0) {
+	Printf(stderr,"%s",usage);
+	Swig_mark_arg(i);
+      }
+    }
+  }
+  return 0;
+}
+
+static
+DOH *cparse_run(DOH *node) {
+  String  *data;
+  DOH     *result;
+
+  data = Getattr(node,"data");
+  if (!data) {
+    Printf(stderr,"SWIG: cparse error. no data.\n");
+    Swig_exit(1);
+  }
+  Seek(data,0, SEEK_SET);
+  result = LParse_parse(data);
+  Setattr(result,"last",node);
+  return result;
+}
+
+void cparsemodule() {
+  Swig_register_module("cparse","swig:preprocess", cparse_init, cparse_run);
+}