]>
Commit | Line | Data |
---|---|---|
1 | /* Version: $Id$ */ | |
2 | %{ | |
3 | #include "wx/setup.h" | |
4 | #include <string.h> | |
5 | #ifdef _MSC_VER | |
6 | #include <io.h> | |
7 | #endif | |
8 | #if defined(__GNUWIN32__) && !defined(__TWIN32__) | |
9 | #include <sys/unistd.h> | |
10 | #endif | |
11 | ||
12 | #include "wx/expr.h" | |
13 | ||
14 | #ifndef __EXTERN_C__ | |
15 | #define __EXTERN_C__ 1 | |
16 | #endif | |
17 | ||
18 | #if defined(__cplusplus) || defined(__STDC__) | |
19 | #if defined(__cplusplus) && defined(__EXTERN_C__) | |
20 | extern "C" { | |
21 | #endif | |
22 | #endif | |
23 | int yylex(void); | |
24 | int yylook(void); | |
25 | int yywrap(void); | |
26 | int yyback(int *, int); | |
27 | void yyerror(char *); | |
28 | ||
29 | /* You may need to put /DLEX_SCANNER in your makefile | |
30 | * if you're using LEX! | |
31 | */ | |
32 | void yyoutput(int); | |
33 | ||
34 | #if defined(__cplusplus) || defined(__STDC__) | |
35 | #if defined(__cplusplus) && defined(__EXTERN_C__) | |
36 | } | |
37 | #endif | |
38 | #endif | |
39 | %} | |
40 | ||
41 | %union { | |
42 | char *s; | |
43 | /* struct pexpr *expr; */ | |
44 | } | |
45 | ||
46 | ||
47 | %start commands | |
48 | ||
49 | %token <s> INTEGER 1 | |
50 | %token <s> WORD 2 | |
51 | %token <s> STRING 3 | |
52 | %token <s> PERIOD 13 | |
53 | %token OPEN 4 | |
54 | %token CLOSE 5 | |
55 | %token COMMA 6 | |
56 | %token NEWLINE 7 | |
57 | %token ERROR 8 | |
58 | %token OPEN_SQUARE 9 | |
59 | %token CLOSE_SQUARE 10 | |
60 | %token EQUALS 11 | |
61 | %token EXP 14 | |
62 | ||
63 | /* %type <expr> command expr arglist arg arg1 */ | |
64 | %type <s> command expr arglist arg arg1 | |
65 | ||
66 | %% | |
67 | ||
68 | commands : /* empty */ | |
69 | | commands command | |
70 | ; | |
71 | ||
72 | command : WORD PERIOD | |
73 | {process_command(proio_cons(wxmake_word($1), NULL)); free($1);} | |
74 | | expr PERIOD | |
75 | {process_command($1);} | |
76 | | error PERIOD | |
77 | {syntax_error("Unrecognized command.");} | |
78 | ; | |
79 | ||
80 | expr : WORD OPEN arglist CLOSE | |
81 | {$$ = proio_cons(wxmake_word($1), $3); free($1);} | |
82 | | OPEN_SQUARE arglist CLOSE_SQUARE | |
83 | {$$ = $2; } | |
84 | ; | |
85 | ||
86 | arglist : | |
87 | {$$ = proio_cons(NULL, NULL);} | |
88 | | arg | |
89 | {$$ = proio_cons($1, NULL);} | |
90 | | | |
91 | arg COMMA arglist | |
92 | {$$ = proio_cons($1, $3);} | |
93 | ; | |
94 | ||
95 | arg : WORD EQUALS arg1 | |
96 | {$$ = proio_cons(wxmake_word("="), proio_cons(wxmake_word($1), proio_cons($3, NULL))); | |
97 | free($1); } | |
98 | | arg1 | |
99 | {$$ = $1; } | |
100 | ; | |
101 | ||
102 | arg1 : WORD | |
103 | {$$ = wxmake_word($1); free($1);} | |
104 | | STRING | |
105 | {$$ = wxmake_string($1); free($1);} | |
106 | | INTEGER | |
107 | {$$ = wxmake_integer($1); free($1);} | |
108 | | INTEGER PERIOD INTEGER | |
109 | {$$ = wxmake_real($1, $3); free($1); free($3); } | |
110 | | INTEGER EXP INTEGER | |
111 | {$$ = wxmake_exp($1, $3); free($1); free($3); } | |
112 | | | |
113 | INTEGER PERIOD INTEGER EXP INTEGER | |
114 | {$$ = wxmake_exp2($1, $3, $5); free($1); free($3); | |
115 | free($5); } | |
116 | ||
117 | | expr | |
118 | {$$ = $1;} | |
119 | ; | |
120 | ||
121 | %% | |
122 | ||
123 | /* We include lexer.c if we are building for gtk, wine or motif | |
124 | * and also whenever we are using configure (marked by __WX_SETUP_H__) for, | |
125 | * for example, cross compilation. */ | |
126 | #if (defined(__WXGTK__) || defined(__WXWINE__) || defined(__WXMOTIF__)) || defined(__WX_SETUP_H__) && !defined(NO_CONFIGURE) | |
127 | #include "lexer.c" | |
128 | #elif defined(__WXMAC__) && defined(__APPLE__) | |
129 | #include "lexer.c" | |
130 | #elif defined(__MWERKS__) | |
131 | #include "../common/cwlex_yy.c" | |
132 | #else | |
133 | #include "../common/lex_yy.c" | |
134 | #endif | |
135 | ||
136 | /* | |
137 | void yyerror(s) | |
138 | char *s; | |
139 | { | |
140 | syntax_error(s); | |
141 | } | |
142 | */ | |
143 | ||
144 | /* Ansi prototype. If this doesn't work for you... uncomment | |
145 | the above instead. | |
146 | */ | |
147 | ||
148 | void yyerror(char *s) | |
149 | { | |
150 | syntax_error(s); | |
151 | } | |
152 | ||
153 | /* | |
154 | * Unfortunately, my DOS version of FLEX | |
155 | * requires yywrap to be #def'ed, whereas | |
156 | * the UNIX flex expects a proper function. | |
157 | */ | |
158 | ||
159 | /* At least on alphaev6-dec-osf4.0e yywrap() must be #define'd. | |
160 | * RL: ... but on Debian/Alpha(linux) it must not, so hopefully | |
161 | * testing for __OSF__ here is what we really want. | |
162 | */ | |
163 | #ifdef __OSF__ | |
164 | #ifndef yywrap | |
165 | #define yywrap() 1 | |
166 | #endif | |
167 | #else | |
168 | /* HH: Added test for __WX_SETUP_H__ for gnuwin builds | |
169 | * using configure */ | |
170 | #if !defined(__SC__) && !defined(__GNUWIN32__) | |
171 | #ifdef USE_DEFINE | |
172 | #ifndef yywrap | |
173 | #define yywrap() 1 | |
174 | #endif | |
175 | #elif !defined(__ultrix) | |
176 | int yywrap() { return 1; } | |
177 | #elif defined(__VMS__) | |
178 | int yywrap() { return 1; } | |
179 | #endif | |
180 | #elif defined(__WX_SETUP_H__) | |
181 | int yywrap() { return 1; } | |
182 | #endif | |
183 | #endif | |
184 |