%{
#include "y.tab.h"

char texto[1000]:
int itxt;
%}

ID [a-zA-Z][a-zA-Z0-9_]*
VAL \"[^"]*\"

%x sta

%%
\>         {BEGIN sta; itxt=0; return('>'); }
[</=]      {return(yytext[0]); }
{ID}       {yylval.string = strdup(yytext); return(id); }
{VAL}      {yylval.string = strdup(yytext); return(val); }
<sta>\<    {yylval.string = strdup(texto); unput(yytext[0]); BEGIN INITIAL; return(pcdata); }
<sta>.|\n  {texto[itxt++] = yytext[0]; }
%%