-rw-r--r-- | lib/sitecing_parser.ll | 49 |
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,160 +1,195 @@ | |||
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> |
9 | using namespace std; | 9 | using 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" |
12 | using namespace sitecing; | 12 | using 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 | ||
@@ -361,97 +396,97 @@ NOIDCHAR [^A-Za-z0-9_] | |||
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)); |
@@ -501,94 +536,104 @@ NOIDCHAR [^A-Za-z0-9_] | |||
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 | ||
533 | sitecing_parser::sitecing_parser(component_factory& f) | 568 | sitecing_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 | ||
540 | void sitecing_parser::preprocess(const string& in) { | 575 | void 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 | ||
556 | void sitecing_parser::LexerOutput(const char* buf,int size) { | 601 | void 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 | ||
561 | static const char *modus_transitions | 606 | static 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 | ||
572 | void sitecing_parser::modus_operandi::modify(modus_t m) { | 617 | void 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 | ||
579 | void sitecing_parser::soft_anchor() { | 624 | void 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 | } |
583 | void sitecing_parser::anchor() { | 628 | void 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: */ |