%semantic token 'c' 'd'
%{
sub TERMINAL::info {
$_[0]->attr;
}
%}
%tree
%%
Start: S
;
S:
('c' <%name Cs * ','> 'd') %name Cs_and_d *
{
print "\nNode\n";
print $_[1]->str."\n";
print "\nChild 0\n";
print $_[1]->child(0)->str."\n";
print "\nChild 1\n";
print $_[1]->child(1)->str."\n";
$_[1]
}
;
%%
# Try:
# modulino code: compile with: eyapp -C CsBetweenCommansAndDWithNames.eyp
# ./CsBetweenCommansAndDWithNames.pm -c 'c,c,cd c,c, cd'