c90f71dd8c
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
116 lines
3.2 KiB
C++
116 lines
3.2 KiB
C++
/*******************************************************************************
|
|
* 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 *);
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|