Annotation of parser3/src/main/compile.y, revision 1.26
1.24 paf 1: /*
1.26 ! paf 2: $Id: compile.y,v 1.25 2001/02/23 09:43:14 paf Exp $
1.24 paf 3: */
4:
1.1 paf 5: %{
1.9 paf 6: #define YYSTYPE Array/*<op>*/ *
7: #define YYPARSE_PARAM pc
8: #define YYLEX_PARAM pc
9: #define YYDEBUG 1
1.1 paf 10: #define YYERROR_VERBOSE
1.9 paf 11: #define yyerror(msg) real_yyerror((parse_control *)pc, msg)
12: #define YYPRINT(file, type, value) yyprint(file, type, value)
1.1 paf 13:
14: #include <stdio.h>
15: #include <string.h>
16: #include <stdlib.h>
17:
18: #include "compile_tools.h"
1.8 paf 19: #include "pa_value.h"
1.12 paf 20: #include "pa_request.h"
1.1 paf 21:
1.9 paf 22: int real_yyerror(parse_control *pc, char *s);
23: static void yyprint(FILE *file, int type, YYSTYPE value);
1.1 paf 24: int yylex(YYSTYPE *lvalp, void *pc);
25:
26:
1.8 paf 27: // local convinient inplace typecast & var
1.9 paf 28: #define PC ((parse_control *)pc)
1.25 paf 29: #define POOL *PC->pool
30: #undef NEW
31: #define NEW new(POOL)
1.1 paf 32: %}
33:
34: %pure_parser
35:
1.13 paf 36: %token EON
1.4 paf 37: %token STRING
1.1 paf 38: %token BOGUS
39:
40: %%
41:
1.10 paf 42: all:
43: one_big_piece {
1.25 paf 44: String& name_main=*NEW String(POOL);
1.11 paf 45: name_main.APPEND_CONST(MAIN_METHOD_NAME);
1.25 paf 46: Array& param_names=*NEW Array(POOL);
47: Array& local_names=*NEW Array(POOL);
48: Method *method=NEW Method(POOL, name_main, param_names, local_names, *$1);
1.8 paf 49: *PC->methods+=method;
1.10 paf 50: }
51: | methods;
52:
53: methods: method | methods method;
54: one_big_piece: maybe_codes;
55:
56: method: '@' STRING bracketed_maybe_strings maybe_bracketed_strings maybe_comment '\n'
57: maybe_codes {
58: const String *name=LA2S($2);
59:
60: YYSTYPE params_names_code=$3;
1.25 paf 61: Array& params_names=*NEW Array(POOL);
1.10 paf 62: for(int i=0; i<params_names_code->size(); i+=2)
63: params_names+=LA2S(params_names_code, i);
64:
65: YYSTYPE locals_names_code=$4;
1.25 paf 66: Array& locals_names=*NEW Array(POOL);
1.10 paf 67: for(int i=0; i<locals_names_code->size(); i+=2)
68: locals_names+=LA2S(locals_names_code, i);
69:
1.25 paf 70: Method *method=NEW Method(POOL, *name, params_names, locals_names, *$7);
1.10 paf 71: *PC->methods+=method;
1.8 paf 72: };
1.10 paf 73:
74: maybe_bracketed_strings: empty | bracketed_maybe_strings;
75: bracketed_maybe_strings: '[' maybe_strings ']' {$$=$2};
76: maybe_strings: empty | strings;
77: strings: STRING | strings ';' STRING { $$=$1; P($$, $3) };
78:
79: maybe_comment: empty | STRING;
1.1 paf 80:
81: /* codes */
82:
1.10 paf 83: maybe_codes: empty | codes;
84:
1.1 paf 85: codes: code | codes code {
86: $$=$1;
1.9 paf 87: P($$, $2);
1.1 paf 88: };
89: code: write_str_literal | action;
90: action: get | put | with | call;
91:
92: /* get */
93:
94: get: '$' any_name {
95: $$=$2; /* stack: resulting value */
1.17 paf 96: OP($$, OP_WRITE); /* value=pop; write(value) */
1.1 paf 97: };
98:
1.13 paf 99: any_name: name_without_curly_rdive EON | name_in_curly_rdive;
1.1 paf 100:
101: name_in_curly_rdive: '{' name_without_curly_rdive '}' { $$=$2 };
1.19 paf 102: name_without_curly_rdive: name_without_curly_rdive_read | name_without_curly_rdive_root;
103: name_without_curly_rdive_read: name_without_curly_rdive_code {
1.25 paf 104: $$=N(POOL);
1.22 paf 105: Array *diving_code=$1;
106: String *first_name=LA2S(diving_code);
1.23 paf 107: if(first_name && *first_name==SELF_NAME) {
1.22 paf 108: OP($$, OP_WITH_SELF); /* stack: starting context */
109: P($$, diving_code,
110: /* skip over... */
111: diving_code->size()>2?3/*OP_+string+get_element*/:2/*OP_+string*/);
112: } else {
113: OP($$, OP_WITH_READ); /* stack: starting context */
114: P($$, diving_code);
115: }
116: /* diving code; stack: current context */
1.1 paf 117: };
1.19 paf 118: name_without_curly_rdive_root: ':' name_without_curly_rdive_code {
1.25 paf 119: $$=N(POOL);
1.19 paf 120: OP($$, OP_WITH_ROOT); /* stack: starting context */
121: P($$, $2); /* diving code; stack: current context */
122: };
123: name_without_curly_rdive_code: name_advance2 | name_path name_advance2 { $$=$1; P($$, $2) };
1.1 paf 124:
125: /* put */
126:
127: put: '$' name_expr_dive '(' constructor_value ')' {
128: /*
129: TODO: подсмотреть в $3, и если там первым элементом self,
1.23 paf 130: то выкинуть его и делать не WITH_WRITE, а WITH_SELF
1.1 paf 131: если ничего не осталось - $self(xxx)
132: обругать
133: */
1.20 paf 134: $$=$2; /* stack: context,name */
135: P($$, $4); /* stack: context,name,constructor_value */
136: OP($$, OP_CONSTRUCT); /* value=pop; name=pop; context=pop; construct(context,name,value) */
137: };
138: name_expr_dive: name_expr_dive_write | name_expr_dive_root;
139: name_expr_dive_write: name_expr_dive_code {
1.25 paf 140: $$=N(POOL);
1.23 paf 141: Array *diving_code=$1;
142: String *first_name=LA2S(diving_code);
143: if(first_name && *first_name==SELF_NAME) {
144: OP($$, OP_WITH_SELF); /* stack: starting context */
145: P($$, diving_code,
146: /* skip over... */
147: diving_code->size()>2?3/*OP_+string+get_element*/:2/*OP_+string*/);
148: } else {
149: OP($$, OP_WITH_WRITE); /* stack: starting context */
150: P($$, diving_code);
151: }
152: /* diving code; stack: current context */
1.20 paf 153: };
154: name_expr_dive_root: ':' name_expr_dive_code {
1.25 paf 155: $$=N(POOL);
1.20 paf 156: OP($$, OP_WITH_ROOT); /* stack: starting context */
1.9 paf 157: P($$, $2); /* diving code; stack: context,name */
1.1 paf 158: };
1.20 paf 159:
1.1 paf 160: constructor_value:
161: constructor_one_param_value
162: | constructor_two_params_value /* $var(=;2*2) $var(%d;2*2) $var(+;1) */
163: ;
164: constructor_one_param_value:
1.26 ! paf 165: empty_value /* optimized $var() case */
1.17 paf 166: | STRING /* optimized $var(STRING) case */
1.1 paf 167: | complex_constructor_param_value /* $var(something complex) */
168: ;
169: complex_constructor_param_value: complex_constructor_param_body {
1.25 paf 170: $$=N(POOL);
1.3 paf 171: OP($$, OP_CREATE_EWPOOL); /* stack: empty write context */
1.9 paf 172: P($$, $1); /* some codes to that context */
173: OP($$, OP_REDUCE_EWPOOL); /* context=pop; stack: context.value() */
1.1 paf 174: };
175: complex_constructor_param_body:
176: codes__excluding_sole_str_literal
177: | codes__str__followed_by__excluding_sole_str_literal
178: ;
1.4 paf 179: constructor_two_params_value: STRING ';' constructor_one_param_value {
1.7 paf 180: char *operator_or_fmt=LA2S($1)->cstr();
1.25 paf 181: $$=N(POOL);
1.9 paf 182: P($$, $1); /* stack: ncontext name operator_or_fmt */
1.3 paf 183: P($$, $3); /* stack: ncontext name operator_or_fmt expr */
1.1 paf 184: switch(operator_or_fmt[0]) {
185: case '=': case '%':
1.3 paf 186: OP($$, OP_EXPRESSION_EVAL);
1.1 paf 187: break;
188: case '+': case '-': case '*': case '/':
1.3 paf 189: OP($$, OP_MODIFY_EVAL);
1.1 paf 190: break;
191: default:
1.6 paf 192: strcpy(PC->error, "invalid modification operator");
193: YYERROR;
1.1 paf 194: }
195: /* stack: ncontext name value */
196: };
197:
198:
199: /* call */
200:
1.13 paf 201: call: '^' name_expr_dive store_params EON { /* ^field.$method{vasya} */
1.1 paf 202: /*
203: TODO: подсмотреть в $3, и если там в первом элементе первая буква ":"
204: то выкинуть её и делать не OP_WITH_READ, а WITH_ROOT
205: TODO: подсмотреть в $3, и если там первым элементом self,
206: то выкинуть его и делать не OP_WITH_READ, а WITH_SELF
207: TODO:
208: если первым в $3 идёт result
209: то
210: выкинуть его
211: если там ещё что-то осталось,
212: то
213: не OP_WITH_READ, а WITH_RESULT
214: иначе // ^result(value)
215: обругать безобразие
216: */
1.25 paf 217: $$=N(POOL);
1.3 paf 218: OP($$, OP_WITH_READ); /* stack: starting context */
1.9 paf 219: P($$, $2); /* diving code; stack: context,method_name */
220: OP($$, OP_GET_METHOD_FRAME); /* stack: context,method_frame */
221: P($$, $3); /* filling method_frame.store_params */
222: OP($$, OP_CALL); /* method_frame=pop; ncontext=pop; call(ncontext,method_frame) */
1.1 paf 223: };
224:
1.9 paf 225: store_params: store_param | store_params store_param { $$=$1; P($$, $2) };
1.1 paf 226: store_param: store_round_param | store_curly_param;
227: store_round_param: '(' store_param_parts ')' {$$=$2};
1.9 paf 228: store_param_parts: store_param_part | store_param_parts ';' store_param_part { $$=$1; P($$, $3) };
1.1 paf 229: store_param_part: constructor_one_param_value {
230: $$=$1;
1.9 paf 231: OP($$, OP_STORE_PARAM);
1.1 paf 232: }
1.10 paf 233: store_curly_param: '{' maybe_codes '}' {
1.25 paf 234: $$=N(POOL);
1.3 paf 235: OP($$, OP_CODE_ARRAY);
1.9 paf 236: AA($$, $2);
237: OP($$, OP_CREATE_JUNCTION);
238: OP($$, OP_STORE_PARAM);
1.1 paf 239: };
240:
241: /* name */
242:
1.20 paf 243: name_expr_dive_code: name_expr_value | name_path name_expr_value { $$=$1; P($$, $2) };
1.1 paf 244:
1.9 paf 245: name_path: name_step | name_path name_step { $$=$1; P($$, $2) };
1.1 paf 246: name_step: name_advance1 '.';
247: name_advance1: name_expr_value {
248: /* stack: context */
249: $$=$1; /* stack: context,name */
1.9 paf 250: OP($$, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */
1.1 paf 251: };
252: name_advance2: name_expr_value {
253: /* stack: context */
254: $$=$1; /* stack: context,name */
1.9 paf 255: OP($$, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */
1.1 paf 256: }
1.4 paf 257: | STRING BOGUS
1.1 paf 258: ;
259: name_expr_value:
1.4 paf 260: STRING /* subname_is_const */
1.1 paf 261: | name_expr_subvar_value /* $subname_is_var_value */
262: | name_expr_with_subvar_value /* xxx$part_of_subname_is_var_value[$...] */
263: ;
264: name_expr_subvar_value: '$' subvar_ref_name_rdive {
265: $$=$2;
1.9 paf 266: OP($$, OP_GET_ELEMENT);
1.1 paf 267: };
1.4 paf 268: name_expr_with_subvar_value: STRING subvar_get_writes {
1.25 paf 269: $$=N(POOL);
1.3 paf 270: OP($$, OP_CREATE_EWPOOL);
1.9 paf 271: P($$, $1);
1.17 paf 272: OP($$, OP_WRITE);
1.9 paf 273: P($$, $2);
274: OP($$, OP_REDUCE_EWPOOL);
1.1 paf 275: };
1.18 paf 276: subvar_ref_name_rdive: subvar_ref_name_rdive_read | subvar_ref_name_rdive_root;
277: subvar_ref_name_rdive_read: STRING {
1.25 paf 278: $$=N(POOL);
1.18 paf 279: OP($$, OP_WITH_READ);
1.9 paf 280: P($$, $1);
1.1 paf 281: };
1.18 paf 282: subvar_ref_name_rdive_root: ':' STRING {
1.25 paf 283: $$=N(POOL);
1.18 paf 284: OP($$, OP_WITH_ROOT);
285: P($$, $2);
286: };
1.9 paf 287: subvar_get_writes: subvar__get_write | subvar_get_writes subvar__get_write { $$=$1; P($$, $2) };
1.1 paf 288: subvar__get_write: '$' subvar_ref_name_rdive {
289: $$=$2;
1.17 paf 290: OP($$, OP_GET_ELEMENT__WRITE);
1.1 paf 291: };
292:
293:
294: /* with */
295:
296: with: '$' name_without_curly_rdive '{' codes '}' {
297: $$=$2;
1.9 paf 298: OP($$, OP_CREATE_RWPOOL);
299: P($$, $4);
300: OP($$, OP_REDUCE_RWPOOL);
1.17 paf 301: OP($$, OP_WRITE);
1.1 paf 302: };
303:
304: /* codes_in_brackets */
305:
306: codes__str__followed_by__excluding_sole_str_literal:
307: write_str_literal codes__excluding_sole_str_literal {
308: $$=$1;
1.9 paf 309: P($$, $2);
1.1 paf 310: }
311: ;
312: codes__excluding_sole_str_literal:
313: action
314: | codes__excluding_sole_str_literal write_str_literal {
315: $$=$1;
1.9 paf 316: P($$, $2);
1.1 paf 317: }
318: ;
1.4 paf 319: write_str_literal: STRING {
1.1 paf 320: $$=$1;
1.17 paf 321: OP($$, OP_WRITE);
1.1 paf 322: };
323:
324: /* */
325:
1.26 ! paf 326: empty_value: empty {
! 327: $$=L(NEW VString(POOL));
! 328: };
1.25 paf 329: empty: /* empty */ { $$=N(POOL) };
1.1 paf 330:
331: %%
332:
333: /*
334: 000$111(2222)00
335: 000$111{3333}00
1.9 paf 336: $,^: push,=0
1.1 paf 337: 1:( { break=pop
338: 2:( ) pop
339: 3:{ } pop
340:
341: 000^111(2222)4444{33333}4000
1.9 paf 342: $,^: push,=0
1.1 paf 343: 1:( { break=pop
344: 2:( )=4
345: 3:{ }=4
346: 4:[^({]=pop
347: */
348:
349: int yylex(YYSTYPE *lvalp, void *pc) {
350: #define lexical_brackets_nestage PC->brackets_nestages[PC->sp]
351:
352: register int c;
353: int result;
354:
355: if(PC->pending_state) {
356: result=PC->pending_state;
357: PC->pending_state=0;
358: return result;
359: }
360:
1.9 paf 361: char *begin=PC->source;
362: char *end;
363: int begin_line=PC->line;
1.1 paf 364: while(1) {
1.9 paf 365: c=*(end=(PC->source++));
1.1 paf 366:
1.4 paf 367: if(c=='\n') {
1.1 paf 368: PC->line++;
1.8 paf 369: PC->col=0;
1.10 paf 370: } else
1.4 paf 371: PC->col++;
1.1 paf 372:
373: /* escaping: ^^ ^$ ^; ^) ^} ^( ^{ */
374: if(c=='^') {
375: char pending_c=*PC->source;
376:
1.9 paf 377: if(pending_c=='^' || pending_c=='$' || pending_c==';' ||
378: pending_c=='(' || pending_c==')' ||
379: pending_c=='{' || pending_c=='}') {
1.1 paf 380: /* append piece till ^ */
1.9 paf 381: PC->string->APPEND(begin, end-begin, PC->file, begin_line);
1.1 paf 382: /* reset piece 'start' position & line */
1.9 paf 383: begin=PC->source/*^*/;
384: begin_line=PC->line;
1.1 paf 385: /* skip over ^ and _ */
386: PC->source+=2;
387: /* skip analysis = forced literal */
388: continue;
389: }
390: }
391: switch(PC->ls) {
1.10 paf 392:
393: // USER'S = NOT OURS
1.1 paf 394: case LS_USER:
395: if(c=='$') {
1.10 paf 396: push_LS(PC, LS_VAR_NAME_SIMPLE);
1.1 paf 397: result=c;
398: goto break2;
399: }
400: if(c=='^') {
1.10 paf 401: push_LS(PC, LS_METHOD_NAME);
402: result=c;
403: goto break2;
404: }
405: if(c=='@' && PC->col==0+1) {
1.1 paf 406: result=c;
1.10 paf 407: push_LS(PC, LS_DEF_NAME);
408: goto break2;
409: }
410:
411: break;
412:
413: // METHOD DEFINITION
414: case LS_DEF_NAME:
415: if(c=='[') {
416: result=c;
417: PC->ls=LS_DEF_PARAMS;
418: goto break2;
419: }
420: if(c=='\n') { // wrong. bailing out
421: result=c;
422: pop_LS(PC);
423: goto break2;
424: }
425: break;
426: case LS_DEF_PARAMS:
427: if(c==';') {
428: result=c;
429: goto break2;
430: }
431: if(c==']') {
432: result=c;
433: PC->ls=*PC->source=='['?LS_DEF_LOCALS:LS_DEF_COMMENT;
434: goto break2;
435: }
436: if(c=='\n') { // wrong. bailing out
437: result=c;
438: pop_LS(PC);
439: goto break2;
440: }
441: break;
442: case LS_DEF_LOCALS:
443: if(c=='[' || c==';') {
444: result=c;
445: goto break2;
446: }
447: if(c==']') {
448: result=c;
449: PC->ls=LS_DEF_COMMENT;
450: goto break2;
451: }
452: if(c=='\n') { // wrong. bailing out
453: result=c;
454: pop_LS(PC);
455: goto break2;
456: }
457: break;
458: case LS_DEF_COMMENT:
459: if(c=='\n') {
460: result=c;
461: pop_LS(PC);
1.1 paf 462: goto break2;
463: }
464: break;
465:
1.10 paf 466: // VARIABLE GET/PUT/WITH
1.1 paf 467: case LS_VAR_NAME_SIMPLE:
468: if(c==0 ||
469: c==' '|| c=='\t' || c=='\n' ||
470: c==')' || c=='}') {
471: pop_LS(PC);
1.4 paf 472: PC->source--; PC->col--;
1.13 paf 473: result=EON;
1.1 paf 474: goto break2;
475: }
1.13 paf 476: if(begin==end && c=='{') { /* ${name}, no need of EON, switching LS */
1.1 paf 477: PC->ls=LS_VAR_NAME_CURLY;
478: result=c;
479: goto break2;
480: }
1.18 paf 481: if(c==':') {
482: result=c;
483: goto break2;
484: }
1.1 paf 485: if(c=='(') {
486: PC->ls=LS_VAR_ROUND;
487: lexical_brackets_nestage=1;
488: result=c;
489: goto break2;
490: }
491: if(c=='{') {
492: PC->ls=LS_VAR_CURLY;
493: lexical_brackets_nestage=1;
494: result=c;
495: goto break2;
496: }
497: if(c=='.'/* name part delim */ || c=='$'/* name part subvar */) {
498: result=c;
499: goto break2;
500: }
501: break;
502: case LS_VAR_NAME_CURLY:
1.18 paf 503: if(c==':') {
504: result=c;
505: goto break2;
506: }
1.1 paf 507: if(c=='}') { /* ${name} finished, restoring LS */
508: pop_LS(PC);
509: result=c;
510: goto break2;
511: }
512: if(c=='.'/* name part delim */ || c=='$'/*name part subvar*/) {
513: result=c;
514: goto break2;
515: }
516: break;
517: case LS_VAR_ROUND:
518: if(c=='$') {
1.10 paf 519: push_LS(PC, LS_VAR_NAME_SIMPLE);
1.1 paf 520: result=c;
521: goto break2;
522: }
523: if(c=='^') {
1.10 paf 524: push_LS(PC, LS_METHOD_NAME);
1.1 paf 525: result=c;
526: goto break2;
527: }
528: if(c==')') {
529: if(--lexical_brackets_nestage==0) {
530: pop_LS(PC);
531: result=c;
532: goto break2;
533: }
534: }
535: if(c==';'/* operator_or_fmt;value delim */) {
536: result=c;
537: goto break2;
538: }
539: if(c=='(')
540: lexical_brackets_nestage++;
541: break;
542: case LS_VAR_CURLY:
543: if(c=='$') {
1.10 paf 544: push_LS(PC, LS_VAR_NAME_SIMPLE);
1.1 paf 545: result=c;
546: goto break2;
547: }
548: if(c=='^') {
1.10 paf 549: push_LS(PC, LS_METHOD_NAME);
1.1 paf 550: result=c;
551: goto break2;
552: }
553: if(c=='}')
554: if(--lexical_brackets_nestage==0) {
555: pop_LS(PC);
556: result=c;
557: goto break2;
558: }
559: if(c=='{')
560: lexical_brackets_nestage++;
561: break;
562:
1.10 paf 563: // METHOD CALL
1.1 paf 564: case LS_METHOD_NAME:
565: if(c=='(') {
566: PC->ls=LS_METHOD_ROUND;
567: lexical_brackets_nestage=1;
568: result=c;
569: goto break2;
570: }
571: if(c=='{') {
572: PC->ls=LS_METHOD_CURLY;
573: lexical_brackets_nestage=1;
574: result=c;
575: goto break2;
576: }
577: if(c=='.'/* name part delim */ || c=='$'/* name part subvar */) {
578: result=c;
579: goto break2;
580: }
581: break;
582: case LS_METHOD_ROUND:
583: if(c=='$') {
1.10 paf 584: push_LS(PC, LS_VAR_NAME_SIMPLE);
1.1 paf 585: result=c;
586: goto break2;
587: }
588: if(c=='^') {
1.10 paf 589: push_LS(PC, LS_METHOD_NAME);
1.1 paf 590: result=c;
591: goto break2;
592: }
593: if(c==';'/* param delim */) {
594: result=c;
595: goto break2;
596: }
597: if(c==')')
598: if(--lexical_brackets_nestage==0) {
599: PC->ls=LS_METHOD_AFTER;
600: result=c;
601: goto break2;
602: }
603: if(c=='(')
604: lexical_brackets_nestage++;
605: break;
606: case LS_METHOD_CURLY:
607: if(c=='$') {
1.10 paf 608: push_LS(PC, LS_VAR_NAME_SIMPLE);
1.1 paf 609: result=c;
610: goto break2;
611: }
612: if(c=='^') {
1.10 paf 613: push_LS(PC, LS_METHOD_NAME);
1.1 paf 614: result=c;
615: goto break2;
616: }
617: if(c=='}')
618: if(--lexical_brackets_nestage==0) {
619: PC->ls=LS_METHOD_AFTER;
620: result=c;
621: goto break2;
622: }
623: if(c=='{')
624: lexical_brackets_nestage++;
625: break;
626: case LS_METHOD_AFTER:
627: if(c=='(') {/* )( }( */
628: PC->ls=LS_METHOD_ROUND;
629: lexical_brackets_nestage=1;
630: result=c;
631: goto break2;
632: }
633: if(c=='{') {/* ){ }{ */
634: PC->ls=LS_METHOD_CURLY;
635: lexical_brackets_nestage=1;
636: result=c;
637: goto break2;
638: }
639: pop_LS(PC);
1.4 paf 640: PC->source--; PC->col--;
1.13 paf 641: result=EON;
1.1 paf 642: goto break2;
643: }
1.9 paf 644: if(c==0) {
1.1 paf 645: result=-1;
1.21 paf 646: // PC->source--; PC->col--;
1.1 paf 647: break;
648: }
649: }
650:
651: break2:
1.9 paf 652: if(begin==end)
1.1 paf 653: return result;
654: else {
655: PC->pending_state=result;
1.10 paf 656: // strip last \n before LS_DEF_NAME or EOF
657: if((c=='@' || c==0) && end[-1]=='\n')
658: end--;
659: // append last piece
1.9 paf 660: PC->string->APPEND(begin, end-begin, PC->file, begin_line/*, start_col*/);
1.17 paf 661: // create STRING value: array of OP_VALUE+vstring
1.25 paf 662: *lvalp=L(NEW VString(PC->string));
1.10 paf 663: // new pieces storage
1.25 paf 664: PC->string=NEW String(POOL);
1.10 paf 665: // go!
1.4 paf 666: return STRING;
1.1 paf 667: }
668: }
669:
1.9 paf 670: int real_yyerror(parse_control *pc, char *s) /* Called by yyparse on error */
1.1 paf 671: {
1.16 paf 672: //fprintf(stderr, "[%s]\n", s);
1.6 paf 673:
674: s[MAX_STRING-1]=0; strcpy(pc->error, s);
1.1 paf 675: return 1;
676: }
677:
678: static void
1.9 paf 679: yyprint(
1.1 paf 680: FILE *file,
681: int type,
682: YYSTYPE value)
683: {
1.9 paf 684: if(type==STRING)
685: fprintf(file, " \"%s\"", LA2S(value)->cstr());
1.1 paf 686: }
687:
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to compile.y CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / main