/*
char.y
Najprostszy parser ilustrujacy przedefiniowanie typu tokenu z Integer na Char
*/


%{
uses YaccLib, LexLib;

type YYSType = Char;

%}

%token T_CHAR

%%

input	: 
	| input '\n' 		{ yyaccept; }
	| input znaki '\n' 	
	;

znaki	:  znaki T_CHAR  { writeln('Znaleziono: ', $1); }
	|  T_CHAR  	{ writeln('Znaleziono: ', $1); }
	;

%%

{$I charlex.pas}

begin
  yyparse;
end.