您几乎可以完全按照btyacc的描述进行操作。你可以写:
%union {
Statement *stmt;
Block *blk;
}
%token BLOCK_BEGIN_TOKEN BLOCK_END_TOKEN
%token<stmt> STATEMENT_TOKEN
%type block(<blk>) block_content(<blk>) statement(<blk>)
%%
input: block(new Block())
;
block($parent):
BLOCK_BEGIN_TOKEN block_content(new_block($parent)) BLOCK_END_TOKEN
;
block_content($parent)
: block_content($parent) statement($parent)
| block_content($parent) block($parent)
| statement($parent)
| block($parent)
;
statement($parent)
: STATEMENT_TOKEN { $parent->addStatement($1); }
%%
Block *new_block(Block *parent) {
Block *b = new Block();
parent->addBlock(b);
return b;
}
你可以在 bison 中做同样的事情,但是你必须使用带有显式类型标签的嵌入式操作:
block:
BLOCK_BEGIN_TOKEN { $<blk>$ = new_block($<blk>0); } block_content BLOCK_END_TOKEN
;
block_content
: block_content { $$=$0; } statement
| block_content { $$=$0; } block
| statement
| block
;
statement
: STATEMENT_TOKEN { $<blk>0->addStatement($1); }