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