summaryrefslogtreecommitdiffabout
path: root/lib/sitecing_parser.ll
Unidiff
Diffstat (limited to 'lib/sitecing_parser.ll') (more/less context) (ignore whitespace changes)
-rw-r--r--lib/sitecing_parser.ll49
1 files changed, 47 insertions, 2 deletions
diff --git a/lib/sitecing_parser.ll b/lib/sitecing_parser.ll
index 6cb78f3..8ba8673 100644
--- a/lib/sitecing_parser.ll
+++ b/lib/sitecing_parser.ll
@@ -1,208 +1,243 @@
1%{ 1%{
2 /* 2 /*
3 * XXX: I have a strong feeling that this parser should be completely rewritten. 3 * XXX: I have a strong feeling that this parser should be completely rewritten.
4 */ 4 */
5#include <iostream> 5#include <iostream>
6#include <fstream> 6#include <fstream>
7#include <cassert> 7#include <cassert>
8#include <stdexcept> 8#include <stdexcept>
9using namespace std; 9using namespace std;
10#include "sitecing/sitecing_util.h" 10#include "sitecing/sitecing_util.h"
11#include "sitecing/sitecing_exception.h" 11#include "sitecing/sitecing_exception.h"
12using namespace sitecing; 12using namespace sitecing;
13#define sitecing_parser_flexlexer_once 13#define sitecing_parser_flexlexer_once
14#include "sitecing/sitecing_parser.h" 14#include "sitecing/sitecing_parser.h"
15#include "sitecing/sitecing_enflesher.h" 15#include "sitecing/sitecing_enflesher.h"
16#undef yyFlexLexer 16#undef yyFlexLexer
17#define yyFlexLexer sitecing_parserFlexLexer 17#define yyFlexLexer sitecing_parserFlexLexer
18%} 18%}
19%x SLASHSTAR_COMMENT SLASHSLASH_COMMENT STRING 19%x SLASHSTAR_COMMENT SLASHSLASH_COMMENT STRING
20%x CODELINE CLASSLINE DECLLINE IMPLLINE DECLBLOCK IMPLBLOCK VARLINE VARINIT 20%x CODELINE CLASSLINE DECLLINE IMPLLINE DECLBLOCK IMPLBLOCK VARLINE VARINIT
21%x IMPORTLINE IMPORTCOMPONENT 21%x IMPORTLINE IMPORTCOMPONENT
22%x IMPORTTYPELINE IMPORTTYPECOMPONENT 22%x IMPORTTYPELINE IMPORTTYPECOMPONENT
23%x DERIVELINE DERIVECOMPONENT 23%x DERIVELINE DERIVECOMPONENT
24%x CONSTRUCTOR DESTRUCTOR CODEMETHODLINE CODEMETHODARGS 24%x CONSTRUCTOR DESTRUCTOR CODEMETHODLINE CODEMETHODARGS
25%x CODEMETHODBLOCK INLINE METHODLINE METHODARGS METHODBLOCK CODEBLOCK OUTPUTBLOCK 25%x CODEMETHODBLOCK INLINE METHODLINE METHODARGS METHODBLOCK CODEBLOCK OUTPUTBLOCK
26%x PRAGMALINE
26%option 8bit c++ verbose noyywrap yyclass="sitecing_parser" prefix="sitecing_parser" stack yylineno 27%option 8bit c++ verbose noyywrap yyclass="sitecing_parser" prefix="sitecing_parser" stack yylineno
27 28
28 WHITESPACE[ \t] 29 WHITESPACE[ \t]
29 ID [A-Za-z_][A-Za-z0-9_]* 30 ID [A-Za-z_][A-Za-z0-9_]*
30 NOIDCHAR[^A-Za-z0-9_] 31 NOIDCHAR[^A-Za-z0-9_]
31 32
32%% 33%%
33 34
34<INITIAL>{ 35<INITIAL>{
35 ^\%\%class{WHITESPACE}+{ 36 ^\%\%class{WHITESPACE}+{
36 // TODO: signal error if we already have class name acquired from source. 37 // TODO: signal error if we already have class name acquired from source.
37 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments|modus_operandi::flag_devour_whitespace)); 38 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments|modus_operandi::flag_devour_whitespace));
38 BEGIN(CLASSLINE); 39 BEGIN(CLASSLINE);
39 } 40 }
40 ^\%\%decl{WHITESPACE}+{ 41 ^\%\%decl{WHITESPACE}+{
41 modi.push_front(modus_operandi(0)); 42 modi.push_front(modus_operandi(0));
42 anchor(); 43 anchor();
43 BEGIN(DECLLINE); 44 BEGIN(DECLLINE);
44 } 45 }
45 ^\%\%impl{WHITESPACE}+{ 46 ^\%\%impl{WHITESPACE}+{
46 modi.push_front(modus_operandi(0)); 47 modi.push_front(modus_operandi(0));
47 anchor(); 48 anchor();
48 BEGIN(IMPLLINE); 49 BEGIN(IMPLLINE);
49 } 50 }
50 \<\%decl\> { 51 \<\%decl\> {
51 modi.push_front(modus_operandi(0)); 52 modi.push_front(modus_operandi(0));
52 anchor(); 53 anchor();
53 BEGIN(DECLBLOCK); 54 BEGIN(DECLBLOCK);
54 } 55 }
55 \<\%impl\> { 56 \<\%impl\> {
56 modi.push_front(modus_operandi(0)); 57 modi.push_front(modus_operandi(0));
57 anchor(); 58 anchor();
58 BEGIN(IMPLBLOCK); 59 BEGIN(IMPLBLOCK);
59 } 60 }
60 ^\%\%var{WHITESPACE}+{ 61 ^\%\%var{WHITESPACE}+{
61 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 62 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
62 anchor(); 63 anchor();
63 BEGIN(VARLINE); 64 BEGIN(VARLINE);
64 } 65 }
65 ^\%\%import{WHITESPACE}+{ 66 ^\%\%import{WHITESPACE}+{
66 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 67 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
67 BEGIN(IMPORTLINE); 68 BEGIN(IMPORTLINE);
68 } 69 }
69 ^\%\%import_type{WHITESPACE}+ { 70 ^\%\%import_type{WHITESPACE}+ {
70 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 71 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
71 BEGIN(IMPORTTYPELINE); 72 BEGIN(IMPORTTYPELINE);
72 } 73 }
73 ^\%\%derive{WHITESPACE}+{ 74 ^\%\%derive{WHITESPACE}+{
74 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 75 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
75 BEGIN(DERIVELINE); 76 BEGIN(DERIVELINE);
76 } 77 }
77 \<\%constructor\>{ 78 \<\%constructor\>{
78 modi.push_front(modus_operandi()); 79 modi.push_front(modus_operandi());
79 anchor(); 80 anchor();
80 BEGIN(CONSTRUCTOR); 81 BEGIN(CONSTRUCTOR);
81 } 82 }
82 \<\%destructor\>{ 83 \<\%destructor\>{
83 modi.push_front(modus_operandi()); 84 modi.push_front(modus_operandi());
84 anchor(); 85 anchor();
85 BEGIN(DESTRUCTOR); 86 BEGIN(DESTRUCTOR);
86 } 87 }
87 \<\%codemethod{WHITESPACE}+{ 88 \<\%codemethod{WHITESPACE}+{
88 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 89 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
89 anchor(); 90 anchor();
90 BEGIN(CODEMETHODLINE); 91 BEGIN(CODEMETHODLINE);
91 } 92 }
92 \<\%method{WHITESPACE}+ { 93 \<\%method{WHITESPACE}+ {
93 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments)); 94 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
94 anchor(); 95 anchor();
95 BEGIN(METHODLINE); 96 BEGIN(METHODLINE);
96 } 97 }
98 ^\%\%pragma{WHITESPACE}+{
99 modi.push_front(modus_operandi(modus_operandi::flag_devour_comments));
100 BEGIN(PRAGMALINE);
101 }
97 <<EOF>>{ 102 <<EOF>>{
98 assert(modi.size()==1); 103 assert(modi.size()==1);
99 M().modify(modus_operandi::modus_preop); 104 M().modify(modus_operandi::modus_preop);
100 LexerOutput(";",1); 105 LexerOutput(";",1);
101 return 0; 106 return 0;
102 } 107 }
103} 108}
104 <<EOF>>throw preprocessor_error(CODEPOINT,"unexpected end of file",lineno()); 109 <<EOF>>throw preprocessor_error(CODEPOINT,"unexpected end of file",lineno());
105 110
106<CODEBLOCK,CODEMETHODBLOCK>{ 111<CODEBLOCK,CODEMETHODBLOCK>{
107 "<%output>"{ 112 "<%output>"{
108 anchor(); 113 anchor();
109 yy_push_state(OUTPUTBLOCK); 114 yy_push_state(OUTPUTBLOCK);
110 } 115 }
111} 116}
112 117
118<PRAGMALINE>{
119 {WHITESPACE}+{
120 modus_operandi& m = M();
121 if(!m.output.empty()) {
122 string::size_type eq = m.output.find('=');
123 if(eq==string::npos) {
124 pragmas[m.output]=m.output;
125 }else{
126 pragmas[m.output.substr(0,eq)] = m.output.substr(eq+1);
127 }
128 m.output.erase();
129 }
130 }
131 \n {
132 modus_operandi& m = M();
133 if(!m.output.empty()) {
134 string::size_type eq = m.output.find('=');
135 if(eq==string::npos) {
136 pragmas[m.output]=m.output;
137 }else{
138 pragmas[m.output.substr(0,eq)] = m.output.substr(eq+1);
139 }
140 m.output.erase();
141 }
142 modi.pop_front();
143 BEGIN(INITIAL);
144 anchor();
145 }
146}
147
113<METHODLINE>{ 148<METHODLINE>{
114 {WHITESPACE}+{ 149 {WHITESPACE}+{
115 modus_operandi& m = modi.front(); 150 modus_operandi& m = modi.front();
116 if(!m.output.empty()) { 151 if(!m.output.empty()) {
117 if(!m._lastid.empty()) { 152 if(!m._lastid.empty()) {
118 if(!m._type.empty()) m._type += ' '; 153 if(!m._type.empty()) m._type += ' ';
119 m._type += m._lastid; 154 m._type += m._lastid;
120 } 155 }
121 m._lastid = m.output; 156 m._lastid = m.output;
122 m.output.clear(); 157 m.output.clear();
123 } 158 }
124 } 159 }
125 \*{ 160 \*{
126 modus_operandi& m = modi.front(); 161 modus_operandi& m = modi.front();
127 ECHO; 162 ECHO;
128 if(!m._lastid.empty()) { 163 if(!m._lastid.empty()) {
129 if(!m._type.empty()) m._type += ' '; 164 if(!m._type.empty()) m._type += ' ';
130 m._type += m._lastid; 165 m._type += m._lastid;
131 } 166 }
132 m._lastid = m.output; 167 m._lastid = m.output;
133 m.output.clear(); 168 m.output.clear();
134 } 169 }
135 \({ 170 \({
136 modus_operandi& m = modi.front(); 171 modus_operandi& m = modi.front();
137 if(m.output.empty()) { 172 if(m.output.empty()) {
138 m._name=m._lastid; 173 m._name=m._lastid;
139 }else{ 174 }else{
140 if(!m._lastid.empty()) { // XXX: lastid, I believe should never be emtpy... 175 if(!m._lastid.empty()) { // XXX: lastid, I believe should never be emtpy...
141 if(!m._type.empty()) m._type += ' '; 176 if(!m._type.empty()) m._type += ' ';
142 m._type += m._lastid; 177 m._type += m._lastid;
143 } 178 }
144 m._name = m.output; 179 m._name = m.output;
145 m.output.clear(); 180 m.output.clear();
146 } 181 }
147 ECHO; 182 ECHO;
148 BEGIN(METHODARGS); 183 BEGIN(METHODARGS);
149 } 184 }
150} 185}
151<METHODARGS>{ 186<METHODARGS>{
152 \%\>{ 187 \%\>{
153 modus_operandi& m = modi.front(); 188 modus_operandi& m = modi.front();
154 m._args = m.output; 189 m._args = m.output;
155 m.output.clear(); 190 m.output.clear();
156 anchor(); 191 anchor();
157 BEGIN(METHODBLOCK); 192 BEGIN(METHODBLOCK);
158 } 193 }
159} 194}
160 195
161<INITIAL,METHODBLOCK,OUTPUTBLOCK>{ 196<INITIAL,METHODBLOCK,OUTPUTBLOCK>{
162 \<\%{WHITESPACE}+{ 197 \<\%{WHITESPACE}+{
163 M().modify(modus_operandi::modus_postop); 198 M().modify(modus_operandi::modus_postop);
164 anchor(); 199 anchor();
165 LexerOutput("(",1); 200 LexerOutput("(",1);
166 yy_push_state(INLINE); 201 yy_push_state(INLINE);
167 } 202 }
168 ^\%{WHITESPACE}{ 203 ^\%{WHITESPACE}{
169 M().modify(modus_operandi::modus_code); 204 M().modify(modus_operandi::modus_code);
170 anchor(); 205 anchor();
171 yy_push_state(CODELINE); 206 yy_push_state(CODELINE);
172 } 207 }
173 \<\%code\>{ 208 \<\%code\>{
174 M().modify(modus_operandi::modus_code); 209 M().modify(modus_operandi::modus_code);
175 anchor(); 210 anchor();
176 yy_push_state(CODEBLOCK); 211 yy_push_state(CODEBLOCK);
177 } 212 }
178 "</%output>" { 213 "</%output>" {
179 if(YY_START!=OUTPUTBLOCK) throw preprocessor_error(CODEPOINT,"unexpected tag",lineno()); 214 if(YY_START!=OUTPUTBLOCK) throw preprocessor_error(CODEPOINT,"unexpected tag",lineno());
180 M().modify(modus_operandi::modus_code); 215 M().modify(modus_operandi::modus_code);
181 anchor(); 216 anchor();
182 yy_pop_state(); 217 yy_pop_state();
183 } 218 }
184} 219}
185 220
186 <INLINE>\%\>LexerOutput(")",1); M().modus=modus_operandi::modus_preop; yy_pop_state(); 221 <INLINE>\%\>LexerOutput(")",1); M().modus=modus_operandi::modus_preop; yy_pop_state();
187 <CODELINE>\nyy_pop_state(); 222 <CODELINE>\nyy_pop_state();
188 223
189<CODEMETHODLINE>{ 224<CODEMETHODLINE>{
190 {WHITESPACE}+{ 225 {WHITESPACE}+{
191 modus_operandi& m = modi.front(); 226 modus_operandi& m = modi.front();
192 if(!m.output.empty()) { 227 if(!m.output.empty()) {
193 if(!m._lastid.empty()) { 228 if(!m._lastid.empty()) {
194 if(!m._type.empty()) m._type += ' '; 229 if(!m._type.empty()) m._type += ' ';
195 m._type += m._lastid; 230 m._type += m._lastid;
196 } 231 }
197 m._lastid = m.output; 232 m._lastid = m.output;
198 m.output.clear(); 233 m.output.clear();
199 } 234 }
200 } 235 }
201 \*{ 236 \*{
202 modus_operandi& m = modi.front(); 237 modus_operandi& m = modi.front();
203 ECHO; 238 ECHO;
204 if(!m._lastid.empty()) { 239 if(!m._lastid.empty()) {
205 if(!m._type.empty()) m._type += ' '; 240 if(!m._type.empty()) m._type += ' ';
206 m._type += m._lastid; 241 m._type += m._lastid;
207 } 242 }
208 m._lastid = m.output; 243 m._lastid = m.output;
@@ -313,282 +348,292 @@ NOIDCHAR [^A-Za-z0-9_]
313 BEGIN(DERIVECOMPONENT); 348 BEGIN(DERIVECOMPONENT);
314 } 349 }
315} 350}
316<DERIVECOMPONENT>{ 351<DERIVECOMPONENT>{
317 {WHITESPACE}+{ } 352 {WHITESPACE}+{ }
318 \n { 353 \n {
319 modus_operandi& m = M(); 354 modus_operandi& m = M();
320 string::size_type t = m.output.find_first_not_of(" \t"); 355 string::size_type t = m.output.find_first_not_of(" \t");
321 if(t!=string::npos) 356 if(t!=string::npos)
322 m.output.erase(0,t); 357 m.output.erase(0,t);
323 t = m.output.find_last_not_of(" \t;"); 358 t = m.output.find_last_not_of(" \t;");
324 if(t!=string::npos) 359 if(t!=string::npos)
325 m.output.erase(t+1); 360 m.output.erase(t+1);
326 if(m.output[0]=='"' && m.output[m.output.length()-1]=='"') { 361 if(m.output[0]=='"' && m.output[m.output.length()-1]=='"') {
327 m.output.erase(0,1); 362 m.output.erase(0,1);
328 m.output.erase(m.output.length()-1); 363 m.output.erase(m.output.length()-1);
329 } 364 }
330 string c = combine_path(component_basename,m.output); 365 string c = combine_path(component_basename,m.output);
331 ancestor_classes.push_back(ancestor_class(m._name,normalize_path(c,strip_leading_slash))); 366 ancestor_classes.push_back(ancestor_class(m._name,normalize_path(c,strip_leading_slash)));
332 modi.pop_front(); 367 modi.pop_front();
333 BEGIN(INITIAL); 368 BEGIN(INITIAL);
334 } 369 }
335} 370}
336 371
337<VARLINE>{ 372<VARLINE>{
338 {WHITESPACE}+{ 373 {WHITESPACE}+{
339 modus_operandi& m = modi.front(); 374 modus_operandi& m = modi.front();
340 if(!m.output.empty()) { 375 if(!m.output.empty()) {
341 if(!m._lastid.empty()) { 376 if(!m._lastid.empty()) {
342 if(!m._type.empty()) m._type += ' '; 377 if(!m._type.empty()) m._type += ' ';
343 m._type += m._lastid; 378 m._type += m._lastid;
344 } 379 }
345 m._lastid = m.output; 380 m._lastid = m.output;
346 m.output.clear(); 381 m.output.clear();
347 } 382 }
348 } 383 }
349 \*{ 384 \*{
350 modus_operandi& m = modi.front(); 385 modus_operandi& m = modi.front();
351 ECHO; 386 ECHO;
352 if(!m._lastid.empty()) { 387 if(!m._lastid.empty()) {
353 if(!m._type.empty()) m._type += ' '; 388 if(!m._type.empty()) m._type += ' ';
354 m._type += m._lastid; 389 m._type += m._lastid;
355 } 390 }
356 m._lastid = m.output; 391 m._lastid = m.output;
357 m.output.clear(); 392 m.output.clear();
358 } 393 }
359 \;|\n|\={ 394 \;|\n|\={
360 modus_operandi& m = modi.front(); 395 modus_operandi& m = modi.front();
361 if(m.output.empty()) { 396 if(m.output.empty()) {
362 m._name=m._lastid; 397 m._name=m._lastid;
363 }else{ 398 }else{
364 if(!m._lastid.empty()) { // XXX: lastid should never be emtpy, I believe? 399 if(!m._lastid.empty()) { // XXX: lastid should never be emtpy, I believe?
365 if(!m._type.empty()) m._type += ' '; 400 if(!m._type.empty()) m._type += ' ';
366 m._type += m._lastid; 401 m._type += m._lastid;
367 } 402 }
368 m._name=m.output; 403 m._name=m.output;
369 m.output.clear(); 404 m.output.clear();
370 } 405 }
371 BEGIN(VARINIT); 406 BEGIN(VARINIT);
372 if(*yytext!='=') 407 if(*yytext!='=')
373 unput('\n'); 408 unput('\n');
374 } 409 }
375} 410}
376<VARINIT>{ 411<VARINIT>{
377 \n{ 412 \n{
378 modus_operandi& m = modi.front(); 413 modus_operandi& m = modi.front();
379 string::size_type t = m.output.find_first_not_of(" \t"); 414 string::size_type t = m.output.find_first_not_of(" \t");
380 if(t!=string::npos) 415 if(t!=string::npos)
381 m.output.erase(0,t); 416 m.output.erase(0,t);
382 t = m.output.find_last_not_of(" \t;"); 417 t = m.output.find_last_not_of(" \t;");
383 if(t!=string::npos) 418 if(t!=string::npos)
384 m.output.erase(t+1); 419 m.output.erase(t+1);
385 member_variables.push_back(member_variable(m._type,m._name,m.output)); 420 member_variables.push_back(member_variable(m._type,m._name,m.output));
386 if(!m.output.empty()) 421 if(!m.output.empty())
387 have_initializers=true; 422 have_initializers=true;
388 modi.pop_front(); 423 modi.pop_front();
389 BEGIN(INITIAL); 424 BEGIN(INITIAL);
390 } 425 }
391} 426}
392 <DECLLINE>\n{ 427 <DECLLINE>\n{
393 ECHO; 428 ECHO;
394 decl += modi.front().output; 429 decl += modi.front().output;
395 modi.pop_front(); 430 modi.pop_front();
396 BEGIN(INITIAL); 431 BEGIN(INITIAL);
397} 432}
398 <IMPLLINE>\n{ 433 <IMPLLINE>\n{
399 ECHO; 434 ECHO;
400 impl += modi.front().output; 435 impl += modi.front().output;
401 modi.pop_front(); 436 modi.pop_front();
402 BEGIN(INITIAL); 437 BEGIN(INITIAL);
403} 438}
404 <CLASSLINE>\n{ 439 <CLASSLINE>\n{
405 class_name = modi.front().output; 440 class_name = modi.front().output;
406 modi.pop_front(); 441 modi.pop_front();
407 BEGIN(INITIAL); 442 BEGIN(INITIAL);
408} 443}
409<CLASSLINE,DECLLINE,IMPLLINE,VARLINE,VARINIT,IMPORTLINE,IMPORTCOMPONENT,CODEMETHODLINE,CODEMETHODARGS,INLINE,METHODLINE,METHODARGS,DECLBLOCK,IMPLBLOCK,CONSTRUCTOR,DESTRUCTOR,CODEMETHODBLOCK,CODELINE,CODEBLOCK>{ 444<CLASSLINE,DECLLINE,IMPLLINE,VARLINE,VARINIT,IMPORTLINE,IMPORTCOMPONENT,CODEMETHODLINE,CODEMETHODARGS,INLINE,METHODLINE,METHODARGS,DECLBLOCK,IMPLBLOCK,CONSTRUCTOR,DESTRUCTOR,CODEMETHODBLOCK,CODELINE,CODEBLOCK,PRAGMALINE>{
410 "/*"{ 445 "/*"{
411 yy_push_state(SLASHSTAR_COMMENT); 446 yy_push_state(SLASHSTAR_COMMENT);
412 if(!M().devour_comments()) { 447 if(!M().devour_comments()) {
413 ECHO; 448 ECHO;
414 } 449 }
415 } 450 }
416 "//"{ 451 "//"{
417 yy_push_state(SLASHSLASH_COMMENT); 452 yy_push_state(SLASHSLASH_COMMENT);
418 if(!M().devour_comments()) { 453 if(!M().devour_comments()) {
419 ECHO; 454 ECHO;
420 } 455 }
421 } 456 }
422 \" { 457 \" {
423 yy_push_state(STRING); 458 yy_push_state(STRING);
424 ECHO; 459 ECHO;
425 } 460 }
426 \'\\.\'{ 461 \'\\.\'{
427 ECHO; 462 ECHO;
428 } 463 }
429} 464}
430 465
431<INITIAL,METHODBLOCK,OUTPUTBLOCK>{ 466<INITIAL,METHODBLOCK,OUTPUTBLOCK>{
432 \"soft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\\"",2); 467 \"soft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\\"",2);
433 \nsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\n",2); 468 \nsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\n",2);
434 \rsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\r",2); 469 \rsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\r",2);
435 \tsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\t",2); 470 \tsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\t",2);
436 \bsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\b",2); 471 \bsoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\b",2);
437 \asoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\a",2); 472 \asoft_anchor(); M().modify(modus_operandi::modus_text); LexerOutput("\\a",2);
438 .soft_anchor(); M().modify(modus_operandi::modus_text); ECHO; 473 .soft_anchor(); M().modify(modus_operandi::modus_text); ECHO;
439 {WHITESPACE}+soft_anchor(); M().modify(modus_operandi::modus_text); ECHO; 474 {WHITESPACE}+soft_anchor(); M().modify(modus_operandi::modus_text); ECHO;
440} 475}
441 476
442<DECLBLOCK,IMPLBLOCK,CONSTRUCTOR,DESTRUCTOR,CODEMETHODBLOCK,METHODBLOCK,CODEBLOCK>{ 477<DECLBLOCK,IMPLBLOCK,CONSTRUCTOR,DESTRUCTOR,CODEMETHODBLOCK,METHODBLOCK,CODEBLOCK>{
443 \<\/\%decl\>{ 478 \<\/\%decl\>{
444 if(YY_START!=DECLBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 479 if(YY_START!=DECLBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
445 decl += modi.front().output; 480 decl += modi.front().output;
446 modi.pop_front(); 481 modi.pop_front();
447 BEGIN(INITIAL); 482 BEGIN(INITIAL);
448 } 483 }
449 \<\/\%impl\>{ 484 \<\/\%impl\>{
450 if(YY_START!=IMPLBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 485 if(YY_START!=IMPLBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
451 impl += modi.front().output; 486 impl += modi.front().output;
452 modi.pop_front(); 487 modi.pop_front();
453 BEGIN(INITIAL); 488 BEGIN(INITIAL);
454 } 489 }
455 \<\/\%constructor\>{ 490 \<\/\%constructor\>{
456 if(YY_START!=CONSTRUCTOR) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 491 if(YY_START!=CONSTRUCTOR) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
457 member_functions.push_back(member_function("","","",modi.front().output)); 492 member_functions.push_back(member_function("","","",modi.front().output));
458 have_constructor = true; 493 have_constructor = true;
459 modi.pop_front(); 494 modi.pop_front();
460 BEGIN(INITIAL); 495 BEGIN(INITIAL);
461 } 496 }
462 \<\/\%destructor\>{ 497 \<\/\%destructor\>{
463 if(YY_START!=DESTRUCTOR) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 498 if(YY_START!=DESTRUCTOR) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
464 member_functions.push_back(member_function("","~","",modi.front().output)); 499 member_functions.push_back(member_function("","~","",modi.front().output));
465 modi.pop_front(); 500 modi.pop_front();
466 BEGIN(INITIAL); 501 BEGIN(INITIAL);
467 } 502 }
468 \<\/\%codemethod\>{ 503 \<\/\%codemethod\>{
469 if(YY_START!=CODEMETHODBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 504 if(YY_START!=CODEMETHODBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
470 modus_operandi& m = modi.front(); 505 modus_operandi& m = modi.front();
471 member_functions.push_back(member_function(m._type,m._name,m._args,m.output)); 506 member_functions.push_back(member_function(m._type,m._name,m._args,m.output));
472 modi.pop_front(); 507 modi.pop_front();
473 BEGIN(INITIAL); 508 BEGIN(INITIAL);
474 } 509 }
475 \<\/%method\> { 510 \<\/%method\> {
476 if(YY_START!=METHODBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 511 if(YY_START!=METHODBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
477 modus_operandi& m = modi.front(); 512 modus_operandi& m = modi.front();
478 m.modify(modus_operandi::modus_code); 513 m.modify(modus_operandi::modus_code);
479 member_functions.push_back(member_function(m._type,m._name,m._args,m.output)); 514 member_functions.push_back(member_function(m._type,m._name,m._args,m.output));
480 modi.pop_front(); 515 modi.pop_front();
481 BEGIN(INITIAL); 516 BEGIN(INITIAL);
482 } 517 }
483 \<\/%code\> { 518 \<\/%code\> {
484 if(YY_START!=CODEBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno()); 519 if(YY_START!=CODEBLOCK) throw preprocessor_error(CODEPOINT,"tags mismatch",lineno());
485 yy_pop_state(); 520 yy_pop_state();
486 } 521 }
487 \n ECHO; 522 \n ECHO;
488} 523}
489 524
490<SLASHSTAR_COMMENT>{ 525<SLASHSTAR_COMMENT>{
491 "*/"{ 526 "*/"{
492 if(!M().devour_comments()) { 527 if(!M().devour_comments()) {
493 ECHO; 528 ECHO;
494 } 529 }
495 yy_pop_state(); 530 yy_pop_state();
496 unput(' '); 531 unput(' ');
497 } 532 }
498 \n{ 533 \n{
499 if(!M().devour_comments()) { 534 if(!M().devour_comments()) {
500 ECHO; 535 ECHO;
501 } 536 }
502 } 537 }
503} 538}
504<SLASHSLASH_COMMENT>{ 539<SLASHSLASH_COMMENT>{
505 \n{ 540 \n{
506 if(!M().devour_comments()) { 541 if(!M().devour_comments()) {
507 ECHO; 542 ECHO;
508 } 543 }
509 yy_pop_state(); 544 yy_pop_state();
510 if(YY_START!=CODEBLOCK && YY_START!=CODEMETHODBLOCK && YY_START!=IMPLBLOCK && YY_START!=DECLBLOCK) 545 if(YY_START!=CODEBLOCK && YY_START!=CODEMETHODBLOCK && YY_START!=IMPLBLOCK && YY_START!=DECLBLOCK)
511 unput('\n'); 546 unput('\n');
512 } 547 }
513} 548}
514 <SLASHSTAR_COMMENT,SLASHSLASH_COMMENT>.{ 549 <SLASHSTAR_COMMENT,SLASHSLASH_COMMENT>.{
515 if(!M().devour_comments()) { 550 if(!M().devour_comments()) {
516 ECHO; 551 ECHO;
517 } 552 }
518} 553}
519<STRING>{ 554<STRING>{
520 \\.ECHO; 555 \\.ECHO;
521 \"ECHO; yy_pop_state(); 556 \"ECHO; yy_pop_state();
522 .ECHO; 557 .ECHO;
523} 558}
524 559
525 {WHITESPACE}+{ 560 {WHITESPACE}+{
526 if(!(M().flags&modus_operandi::flag_devour_whitespace)) { 561 if(!(M().flags&modus_operandi::flag_devour_whitespace)) {
527 ECHO; 562 ECHO;
528 } 563 }
529} 564}
530 565
531%% 566%%
532 567
533sitecing_parser::sitecing_parser(component_factory& f) 568sitecing_parser::sitecing_parser(component_factory& f)
534 : factory(f), have_initializers(false), have_constructor(false), 569 : factory(f), have_initializers(false), have_constructor(false),
535 base_class("sitecing::cgi_component"), 570 base_class("sitecing::cgi_component"),
536 base_header("sitecing/cgi_component.h"), 571 base_header("sitecing/cgi_component.h"),
537 skeleton(__SC_DEFAULT_SKELETON) { 572 skeleton(__SC_DEFAULT_SKELETON) {
538 } 573 }
539 574
540void sitecing_parser::preprocess(const string& in) { 575void sitecing_parser::preprocess(const string& in) {
541 ifstream ifs(in.c_str(),ios::in); 576 ifstream ifs(in.c_str(),ios::in);
542 if(!ifs.good()) 577 if(!ifs.good())
543 throw preprocessor_error(CODEPOINT,"failed to open input file"); 578 throw preprocessor_error(CODEPOINT,"failed to open input file");
544 input_file = in; 579 input_file = in;
545 modi.push_front(modus_operandi(0)); 580 modi.push_front(modus_operandi(0));
546 switch_streams(&ifs,NULL); 581 switch_streams(&ifs,NULL);
547 if(yylex()) 582 if(yylex())
548 throw preprocessor_error(CODEPOINT,"unknown error"); 583 throw preprocessor_error(CODEPOINT,"unknown error");
549 member_functions.push_back(member_function("void","main","(int _magic,va_list _args)",M().output)); 584 pragmas_t::const_iterator mp = pragmas.find("main");
585 if(mp==pragmas.end()) {
586 member_functions.push_back(member_function("void","main","(int _magic,va_list _args)",M().output));
587 }else{
588 member_functions.push_back(
589 member_function(
590 "void","main","(int _magic,va_list _args)",
591 mp->second+"::main(_magic,_args);"
592 )
593 );
594 }
550 if(have_initializers && !have_constructor) 595 if(have_initializers && !have_constructor)
551 member_functions.push_back(member_function("","","","")); 596 member_functions.push_back(member_function("","","",""));
552 sitecing_enflesher enflesher(*this); 597 sitecing_enflesher enflesher(*this);
553 enflesher.enflesh(); 598 enflesher.enflesh();
554} 599}
555 600
556void sitecing_parser::LexerOutput(const char* buf,int size) { 601void sitecing_parser::LexerOutput(const char* buf,int size) {
557 assert(modi.size()); 602 assert(modi.size());
558 M().output.append(buf,size); 603 M().output.append(buf,size);
559} 604}
560 605
561static const char *modus_transitions 606static const char *modus_transitions
562 [sitecing_parser::modus_operandi::modi] 607 [sitecing_parser::modus_operandi::modi]
563 [sitecing_parser::modus_operandi::modi] = { 608 [sitecing_parser::modus_operandi::modi] = {
564// To: 609// To:
565// code preop postop text From: 610// code preop postop text From:
566 { "", "(*(__SCIF->out))", "(*(__SCIF->out))<<", "(*(__SCIF->out))<<\"" }, // code 611 { "", "(*(__SCIF->out))", "(*(__SCIF->out))<<", "(*(__SCIF->out))<<\"" }, // code
567 { ";", "", "<<", "<<\"" }, // preop 612 { ";", "", "<<", "<<\"" }, // preop
568 { NULL, NULL, "", "\"" }, // postop 613 { NULL, NULL, "", "\"" }, // postop
569 { "\";", "\"", "\"<<", "" } // text 614 { "\";", "\"", "\"<<", "" } // text
570}; 615};
571 616
572void sitecing_parser::modus_operandi::modify(modus_t m) { 617void sitecing_parser::modus_operandi::modify(modus_t m) {
573 const char * x = modus_transitions[modus][m]; 618 const char * x = modus_transitions[modus][m];
574 assert(x); 619 assert(x);
575 output += x; 620 output += x;
576 modus = m; 621 modus = m;
577} 622}
578 623
579void sitecing_parser::soft_anchor() { 624void sitecing_parser::soft_anchor() {
580 if(M().modus!=modus_operandi::modus_text) 625 if(M().modus!=modus_operandi::modus_text)
581 anchor(); 626 anchor();
582} 627}
583void sitecing_parser::anchor() { 628void sitecing_parser::anchor() {
584 if(M().modus==modus_operandi::modus_text) 629 if(M().modus==modus_operandi::modus_text)
585 M().modify(modus_operandi::modus_preop); 630 M().modify(modus_operandi::modus_preop);
586 M().output += "\n#line "; 631 M().output += "\n#line ";
587 char tmp[7]; 632 char tmp[7];
588 snprintf(tmp,sizeof(tmp),"%d",lineno()); 633 snprintf(tmp,sizeof(tmp),"%d",lineno());
589 M().output += tmp; 634 M().output += tmp;
590 M().output += " \""; 635 M().output += " \"";
591 M().output += input_file; 636 M().output += input_file;
592 M().output += "\"\n"; 637 M().output += "\"\n";
593} 638}
594/* vim:set ft=lex: */ 639/* vim:set ft=lex: */