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/tcl8.h

@@ -0,0 +1,115 @@
+/*******************************************************************************
+ * 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.
+ *******************************************************************************/
+
+/**************************************************************************
+ * class TCL8
+ *
+ * A TCL implementation for Tcl 8.0.  Basically the same as the other
+ * Tcl module, but with different code generation.
+ **************************************************************************/
+
+class TCL8 : public Language {
+private:
+  char   interp_name[256];
+  char  *prefix;                   // Package prefix
+  char  *module;                   // Name of the module
+  char  *tcl_path;
+  char  *init_name;
+  int    nspace;
+  void   get_pointer(char *iname, char *srcname, char *src, char *dest, DataType *t,
+		     String &f, char *ret);
+  char  *char_result;
+  char  *usage_func(char *, DataType *, ParmList *);
+  char  *usage_string(char *, DataType *, ParmList *);
+  char  *usage_var(char *, DataType *);
+  char  *usage_const(char *, DataType *, char *);
+
+  // C++ handling
+
+  int    have_constructor;
+  int    have_destructor;
+  int    have_methods;
+  int    have_config;
+  int    have_cget;
+  String config;
+  String cget;
+  String methods;
+  String options;
+  String config_options;
+  String methodnames;
+  String postinit;
+  int    shadow;
+  char   *class_name;
+  char   *class_type;
+  char   *real_classname;
+  char   *base_class;
+  Hash   hash;
+  Hash   repeatcmd;
+
+  // Code generation options
+
+  String  delcmd;
+  String  methodcmd;
+  String  objcmd;
+
+public :
+    TCL8() {
+    prefix = 0;
+    module = 0;
+    init_name = 0;
+    nspace = 0;
+    shadow = 1;
+    char_result = "TCL_VOLATILE";
+    tcl_path = "tcl";
+    sprintf(interp_name,"interp");
+    class_name = 0;
+    class_type = 0;
+    real_classname = 0;
+    base_class = 0;
+  };
+  void parse_args(int, char *argv[]);
+  void parse();
+  void create_function(char *, char *, DataType *, ParmList *);
+  void link_variable(char *, char *, DataType *);
+  void declare_const(char *, char *, DataType *, char *);
+  void initialize(void);
+  void headers(void);
+  void close(void);
+  void set_module(char *,char **);
+  void set_init(char *);
+  void add_native(char *, char *);
+  void pragma(char *,char *, char *);
+  void create_command(char *, char *);
+
+  // Stubs for processing C++ classes in Tcl
+
+  void cpp_open_class(char *classname, char *rename, char *ctype, int strip);
+  void cpp_close_class();
+  void cpp_member_func(char *name, char *iname, DataType *t, ParmList *l);
+  void cpp_variable(char *name, char *iname, DataType *t);
+  void cpp_constructor(char *name, char *iname, ParmList *l);
+  void cpp_destructor(char *name, char *newname);
+  void cpp_inherit(char **baseclass, int mode = INHERIT_ALL);
+  void cpp_declare_const(char *name, char *iname, DataType *type, char *value);
+  void add_typedef(DataType *, char *);
+  void cpp_class_decl(char *, char *, char *);
+
+};
+
+
+
+
+
+