Sophie

Sophie

distrib > Mageia > 4 > x86_64 > by-pkgid > ddfdf0b0f2e10c06cbb5bbb1f4ee8dd8 > files > 361

perl-Parse-Eyapp-1.182.0-3.mga4.x86_64.rpm

%token NUM = /(\d+)/
%token ID  = { /\G(\w+)/gc and return ('ID', $1); }
%whites  { /\G(\s*(?:#.*)?\s*)/gc and $self->tokenline($1 =~ tr{\n}{}) }

%%
A:   
      B
    | A B
;

B: 
      ID
    | a
    | NUM
;
%%