]>
Commit | Line | Data |
---|---|---|
1 | /******************************************************************************* | |
2 | * Simplified Wrapper and Interface Generator (SWIG) | |
3 | * | |
4 | * Author : David Beazley | |
5 | * | |
6 | * Department of Computer Science | |
7 | * University of Chicago | |
8 | * 1100 E 58th Street | |
9 | * Chicago, IL 60637 | |
10 | * beazley@cs.uchicago.edu | |
11 | * | |
12 | * Please read the file LICENSE for the copyright and terms by which SWIG | |
13 | * can be used and distributed. | |
14 | *******************************************************************************/ | |
15 | ||
16 | /************************************************************************** | |
17 | * $Header$ | |
18 | * | |
19 | * class GUILE | |
20 | * | |
21 | * Guile implementation | |
22 | * (Caution : This is *somewhat* experimental) | |
23 | * | |
24 | * Seeking : highly motivated individual with plenty of spare time and | |
25 | * a love of Guile. Must be willing to modify this code and | |
26 | * make it better. | |
27 | **************************************************************************/ | |
28 | ||
29 | class GUILE : public Language { | |
30 | private: | |
31 | char *guile_path; | |
32 | char *module; | |
33 | void get_pointer(char *iname, int parm, DataType *t); | |
34 | void usage_var(char *, DataType *, char **); | |
35 | void usage_func(char *, DataType *, ParmList *, char **); | |
36 | void usage_const(char *, DataType *, char *, char **); | |
37 | public : | |
38 | GUILE() { | |
39 | module = 0; | |
40 | guile_path = "guile"; | |
41 | } | |
42 | void parse_args(int, char *argv[]); | |
43 | void parse(); | |
44 | void create_function(char *, char *, DataType *, ParmList *); | |
45 | void link_variable(char *, char *, DataType *); | |
46 | void declare_const(char *, char *, DataType *, char *); | |
47 | void initialize(); | |
48 | void headers(void); | |
49 | void close(void); | |
50 | void set_module(char *, char **); | |
51 | void set_init(char *); | |
52 | void create_command(char *, char *) { }; | |
53 | }; | |
54 | ||
55 | ||
56 | ||
57 |