a/c2iec.y | b/c2iec.y | ||
---|---|---|---|
... |
... |
||
569 | ; |
569 | ; |
570 | 570 | ||
571 | direct_declarator |
571 | direct_declarator |
572 | : IDENTIFIER |
572 | : IDENTIFIER |
573 | | '(' declarator ')' |
573 | | '(' declarator ')' |
574 | { printf ("not supported direct_declerator\n"); exit(-1); } |
574 | { |
575 | //printf ("not supported direct_declerator 1 (%s)\n", $<str>2); exit(-1); |
||
576 | strcpy($<str>$, ""); |
||
577 | } |
||
575 | | direct_declarator '[' type_qualifier_list assignment_expression ']' |
578 | | direct_declarator '[' type_qualifier_list assignment_expression ']' |
576 | { printf ("not supported direct_declerator\n"); exit(-1); } |
579 | { printf ("not supported direct_declerator 2 (%s - %s)\n", $<str>3, $<str>4); exit(-1); } |
577 | | direct_declarator '[' type_qualifier_list ']' |
580 | | direct_declarator '[' type_qualifier_list ']' |
578 | { printf ("not supported direct_declerator\n"); exit(-1); } |
581 | { printf ("not supported direct_declerator 3 (%s)\n", $<str>3); exit(-1); } |
579 | | direct_declarator '[' assignment_expression ']' |
582 | | direct_declarator '[' assignment_expression ']' |
580 | { |
583 | { |
581 | if (strlen($<str>1) > 0) |
584 | if (strlen($<str>1) > 0) |
582 | { |
585 | { |
583 | sprintf($<str>$, "%s: ARRAY[0..(%s-1)] OF %%s;\n",$<str>1, $<str>3); |
586 | sprintf($<str>$, "%s: ARRAY[0..(%s-1)] OF %%s;\n",$<str>1, $<str>3); |