%{
#define set_estado(x) BEGIN(_stack[_i]=x)
#define push_to_stack(x)  _stack[++_i]=YY_START; set_estado(x)
#define pop_back set_estado(_stack[--_i])

#include <string.h>
#include <ctype.h>

#define MAX 1000

int _i=0;
int j=0,i=0;

int _stack[MAX];
int cont_nota=1;
int cont_refbib=0;
int cont_item_lista;
int cont_pag=0;
int cont_titulo=0;
int cont_subtit1=0;
int cont_subtit2=0;
int cont_subtit3=0;
int cont_sec=0;

char *refbibs[]={"FRS90","CAR89","YOU78","PES67","CUN66","FRA60","CUN38","JOA88","ANT90","FRE72","CUN38","PAL33","HEA81","QUE72","JOA88","BOY74","SMI59","OLI89","MUL36","GOL77","EUL96","GIU89","NEW11","MUL57a","JOA88","MAR87","JOA88","MUL57a","BEL56a","BEL56b","DUA87","DUA90a","DUA90b","QUE72"};


/*
	e1 - inicial
	e2 - pagina
	e3 - titulo
	e4 - sc
	e5 - em
	e6 - nota
	e7 - bibref
	e8 - subtit1
	e9 - subtit2
	e10 - subtit3
	e11 - texto	
	e12 - centrado
	e13 - realce_centrado
	e14 - realce
	e15 - italico
	e16 - lista
	e17 - supert
	e18 - parbox
	e19 - hfill
	e20 - ss
	e21 - minipage
	e22 - notesize
	e23 - matematica
	
*/

%}

PALAVRA [a-zA-Z&0-9\[\]]+
BLANK [ \t\n]
PONTUACAO [:\.;',?!\-_=]
TEXTO ({BLANK}*{PALAVRA}{BLANK}*{PONTUACAO}*{BLANK}*{PONTUACAO}*)+
NUMINT  [0-9]+
NUMREAL  {NUMINT}\.{NUMINT}
BIBS (\\[a-z]+)




%Start e1 e2 e3 e4 e5 e6 e7 sair e8 e9 e10 e11 e12 e13 e14 e15 e16 e17 e18 e19 e20 e21 e22 e23 e90

%%
	set_estado(e1);



(\\novapagina)|(\\newpage)	{ switch(cont_pag){
					case 0: cont_pag++;
						break;
					case 5: printf("</pagina>\n\n</rosto>\n\n");
                                        	printf("<prefacio>\n\n<introducao>\n\n<pagina>");
                                        	cont_pag++;
						break;
					case 9: printf("</pagina>\n</introducao>");
						break;
					default: printf("</pagina>\n\n<pagina>");
						 cont_pag++;}
       
				  push_to_stack(e2);
				}

\\desc\[aZZ='{BLANK}*'{PALAVRA}	printf("<livro>\n\n<rosto><pagina>");



\{\\Huge	{printf("<subtit1>");
		 push_to_stack(e8);}

<e8>\}	{printf("</subtit1>\n");pop_back;}

\\realce{BLANK}*\{{BLANK}*\{{BLANK}*\\Huge	{printf("<titulo>");
			 push_to_stack(e3);}

<e3>\}\}	{printf("</titulo>\n");pop_back;}

\\centrado{BLANK}*\{{BLANK}*\{{BLANK}*\\[lL]arge{BLANK}*\\realce{BLANK}*\{	{switch (cont_subtit2){
										   case 0: printf("<subtit2 idlink=\"introd\">");
										   	   cont_subtit2++;
				 					           	   push_to_stack(e9);
											   break;
				 					           default:printf("<subtit2>"); 
											   push_to_stack(e9);
										}}
<e9>\}\}\}	{printf("</subtit2>\n");pop_back;}

\\centrado{BLANK}*\{{BLANK}*\\[lL]arge{BLANK}*\{	{printf("<subtit3>");
			 push_to_stack(e10);}

<e10>\}\}	{printf("</subtit3>\n");pop_back;}


\{\\large	;


\\centrado\{	{printf("<texto><alinha tipo=\"centrado\">");
		 push_to_stack(e12);}

<e12>\}	{printf("</alinha></texto>");pop_back;}

<e12>\\realce\{	{printf("<enfase estilo=\"realce\">");
		 push_to_stack(e13);}

<e13>\}	{printf("</enfase>");pop_back;}

{NUMINT}\.{BLANK}*\\realce\{	{switch(cont_sec){
				case 0: printf("\n<seccao idsec=\"caracgerais\">\n"); 
					cont_sec++;
					printf("1. <texto><enfase estilo=\"realce\">");
					push_to_stack(e90);
					break;
				case 1: printf("\n<seccao idsec=\"notastransc\">\n"); 
					cont_sec++;
					printf("2. <texto><enfase estilo=\"realce\">");
					push_to_stack(e90);
					break;
				case 2: printf("\n<seccao idsec=\"agradecimentos\">\n"); 
					cont_sec++;
					printf("3. <texto><enfase estilo=\"realce\">");
					push_to_stack(e90);
					break;}}

<e90>\} {printf("</enfase></texto></seccao>\n");pop_back;}
				

\\realce\{	{printf("<texto><enfase estilo=\"realce\">");
		 push_to_stack(e14);}

<e14>\}	{printf("</enfase></texto>");pop_back;}

\\italico\{	{printf("<texto><enfase estilo=\"italico\">");
		 push_to_stack(e15);}

<e15>\}	{printf("</enfase></texto>");pop_back;}

\\parbox\{({NUMINT}|{NUMREAL})(cm)\}\{	push_to_stack(e18);

<e18>\}	pop_back;        


\\\(    {printf("\n\n<matematica>\n\n");
         push_to_stack(e23);}

<e23>\\\)       {printf("\n\n</matematica>\n\n");
                 pop_back;}


\{\\notesize	push_to_stack(e22);

<e22>\}	pop_back;
 
\\hfill\{	push_to_stack(e19);

<e19>\}	pop_back;

\\begin\{minipage\}\{{NUMREAL}\\textwidth\}	{printf("<minibloco>");
						 push_to_stack(e21);}

<e21>\\end\{minipage\}	{printf("</minibloco>");pop_back;}

\\ss{BLANK}*\{	push_to_stack(e20);

<e20>\}	pop_back;





\\begin\{description\}	{push_to_stack(e16);
			 printf("<lista tipo=\"numero\">");}

<e16>\\item\{{BLANK}*{NUMINT}{BLANK}*{PONTUACAO}*{BLANK}*\}	{if(cont_item_lista==0)
					    printf("<item tipo=\"numero\">");
					 else
					    printf("</item><item tipo=\"numero\">");

					 cont_item_lista++;}

<e16>\\end\{description\}	{printf("</item></lista>");pop_back;}


 
 
((\\supers)|(\\supert)|(\\super))\{	{printf(".");push_to_stack(e17);}

<e17>\}	pop_back;
 



<e1,e2,e3,e8,e9,e10,e18,e19,e20,e21,e22>\{\\sc	push_to_stack(e4);

<e4>{TEXTO}(\n)*\}      {i=0;
				 while(yytext[i]!='}'){
				      if(yytext[i]!='&')
					printf("%c",toupper(yytext[i]));
				      else{
					printf("&");
					printf("%c",toupper(yytext[i+1]));
					i=i+2;
					while(yytext[i]!=';'){
					     printf("%c",yytext[i]);
					     i++;
					}
					printf("%c",yytext[i]);
				      }
					i++;
				 }
				 pop_back;
				}

<e1,e2,e4>\{\\em   push_to_stack(e5);

<e5>\}  {i=0;
			 while(yytext[i]!='}'){
				printf("%c", yytext[i]);
				i++;}
			 pop_back;}



<e1,e2,e4,e5>\\nota\{\{\\ss      {printf("<refnota notaref=\"nota%d\">",cont_nota);
				 printf("<ftnota id=\"nota%d\">\n",cont_nota);
				 cont_nota++;
				 push_to_stack(e6);
				 }
<e6>{BLANK}*{BIBS}{BLANK}*(\.*)\}\}  {printf("<bibref refbib=\"%s\">",refbibs[cont_refbib++]);
				 i=0;
				 while(yytext[i]!='}'){
				     printf("%c",yytext[i]);
				     i++;
				 }
				 printf("</bibref></ftnota>");
				 pop_back;
			}



<e6>({BLANK}*{BIBS}{BLANK}*;{BLANK}*{BIBS}*{BLANK}*)+(\.*)\}\}       {printf("<bibref refbib=\"%s\">",refbibs[cont_refbib++]);
                         i=0;
                         while(yytext[i]!= '}'){
                                if (yytext[i]!= ';')
                                        printf("%c", yytext[i]);
                                else{
				    printf(";");
				    printf("</bibref>");
                                    printf("<bibref refbib=\"%s\">", refbibs[
cont_refbib++]);
                                    }
                          i++;
                        }
                        yyless(0);
                        push_to_stack(sair);
                        }
 
<sair>({BLANK}*{BIBS}{BLANK}*;{BLANK}*{BIBS}*{BLANK}*)+(\.*)\}\}     { printf("</bibref></ftnota>");
                  pop_back;
                  pop_back;}
 
%%