$_[0]->YYErrok を呼ばないと
%% input: #empty | input line ; line: '\n' | 'a' '\n' { print "$_[1]\n" } | error '\n' { } ; %% 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 ); } my($t)=new Test; $t->Run;
で、
a a b Syntax error. b b b
error のところを「error '\n' { #$_[0]->YYErrok }」としたら、Perl がセグメンテーション違反で落ちるコードが生成されてしまった。
Perl でも落ちるんだ〜