$parser->YYNberr()
%% input: #empty | input line ; line: '\n' | 'a' '\n' { print "$_[1]\n" } | error '\n' { $_[0]->YYErrok } ; %% sub _Error { exists $_[0]->YYData->{ERRMSG} and do { print $_[0]->YYData->{ERRMSG}; delete $_[0]->YYData->{ERRMSG}; return; }; print "Syntax error.\n"; } sub _Lexer { my($parser)=shift; $parser->YYData->{INPUT} or $parser->YYData->{INPUT} = <STDIN> or return('',undef); $parser->YYData->{INPUT}=~s/^[ \t]//; for ($parser->YYData->{INPUT}) { s/^(.)//s and return($1,$1); } } sub Run { my($self)=shift; $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error ); print "*", $self->YYNberr(), "\n"; } my($t)=new Test; $t->Run;
で、
a a *0
もしくは、
a a b Syntax error. *1
もしくは、
a a b Syntax error. a a *1