0d5ed7dff5
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@651 626c5289-ae23-0410-ae9c-e8d60b6d4f22
67 lines
2.4 KiB
C++
67 lines
2.4 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:
|
|
void get_pointer(char *iname, char *srcname, char *src, char *dest, SwigType *t,
|
|
DOHString *f, char *ret);
|
|
char *char_result;
|
|
char *usage_func(char *, SwigType *, ParmList *);
|
|
char *usage_string(char *, SwigType *, ParmList *);
|
|
char *usage_var(char *, SwigType *);
|
|
char *usage_const(char *, SwigType *, char *);
|
|
|
|
public :
|
|
virtual void parse_args(int, char *argv[]);
|
|
virtual void parse();
|
|
virtual void create_function(char *, char *, SwigType *, ParmList *);
|
|
virtual void link_variable(char *, char *, SwigType *);
|
|
virtual void declare_const(char *, char *, SwigType *, char *);
|
|
virtual void initialize(void);
|
|
virtual void headers(void);
|
|
virtual void close(void);
|
|
virtual void set_module(char *,char **);
|
|
virtual void set_init(char *);
|
|
virtual void add_native(char *, char *, SwigType *, ParmList *);
|
|
virtual void pragma(char *,char *, char *);
|
|
virtual void create_command(char *, char *);
|
|
|
|
// Stubs for processing C++ classes in Tcl
|
|
|
|
virtual void cpp_open_class(char *classname, char *rename, char *ctype, int strip);
|
|
virtual void cpp_close_class();
|
|
virtual void cpp_member_func(char *name, char *iname, SwigType *t, ParmList *l);
|
|
virtual void cpp_variable(char *name, char *iname, SwigType *t);
|
|
virtual void cpp_constructor(char *name, char *iname, ParmList *l);
|
|
virtual void cpp_destructor(char *name, char *newname);
|
|
virtual void cpp_inherit(char **baseclass, int mode = INHERIT_ALL);
|
|
virtual void cpp_declare_const(char *name, char *iname, SwigType *type, char *value);
|
|
virtual void add_typedef(SwigType *, char *);
|
|
virtual void cpp_class_decl(char *, char *, char *);
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|