Lines Matching refs:lineno
33 my($input,$lexlevel,@lineno,$nberr,$prec,$labelno);
541 my($symbol,$lineno)=@$_;
548 $lineno);
551 $$token{$symbol}=$lineno;
563 my($symbol,$lineno)=@$_;
570 $lineno);
573 $$token{$symbol}=$lineno;
604 my($symbol,$lineno)=@$_;
611 $lineno);
833 $lineno[0]=$lineno[1];
834 $lineno[1]=-1;
836 return('TAILCODE',[ substr($$input,$pos), $lineno[0] ]);
858 $lineno[1]+= $blanks=~tr/\n//;
861 $lineno[0]=$lineno[1];
864 and return('IDENT',[ $1, $lineno[0] ]);
871 "will be treated as error token",$lineno[0]);
872 return('IDENT',[ 'error', $lineno[0] ]);
874 return('LITERAL',[ $1, $lineno[0] ]);
880 return($1, [ $1, $lineno[0] ]);
897 and _SyntaxError(2,"Unmatched { opened line $lineno[0]",-1);
899 $lineno[1]+= $code=~tr/\n//;
900 return('CODE',[ $code, $lineno[0] ]);
905 and return('ASSOC',[ uc($1), $lineno[0] ]);
907 and return('START',[ undef, $lineno[0] ]);
909 and return('EXPECT',[ undef, $lineno[0] ]);
915 or _SyntaxError(2,"Unmatched %{ opened line $lineno[0]",-1);
918 $lineno[1]+= $code=~tr/\n//;
919 return('HEADCODE',[ $code, $lineno[0] ]);
922 and return('TOKEN',[ undef, $lineno[0] ]);
924 and return('TYPE',[ undef, $lineno[0] ]);
926 and return('UNION',[ undef, $lineno[0] ]);
928 and return('NUMBER',[ $1, $lineno[0] ]);
933 and return('PREC',[ undef, $lineno[0] ]);
941 and ++$lineno[1];
943 ( $1 ,[ $1, $lineno[0] ]);
948 my($level,$message,$lineno)=@_;
953 ($lineno < 0 ? "eof" : "line $lineno").
969 my($lhs,$lineno)=@{$_[0]};
975 "Previously declared line $$syms{$lhs}",$lineno);
983 "declared as token line $where",$lineno);
989 $$syms{$lhs}=$lineno; #Say it's declared here
1022 and _SyntaxError(0,"More than one empty rule for symbol $lhs",$lineno);
1036 @lineno=(1,1);
1070 undef(@lineno);