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