%token '=' '"' ':' ';' ','

%token INT         FLOAT       FT_SIZE_VAL     COLOR
%token HREF        SYMB        REFERENCE
%token FILL        STROKE      STYLE 
%token POINTS      TRANSFORM
%token FONT_FAMILY FONT_SIZE   FONT_FAM_VAL    POLYLINE

%{
#include "utils.c"
%}

%%
Text:		
		|    Text IntList          { myPause("<IntList>");         }
		|    Text IntPairList      { myPause("<IntPairList>");     }
		|    Text SeparateAttrVal  { myPause("<SeparateAttrVal>"); }
		|    Text Style            { myPause("<Style>");           }	
		|    Text PointList        { myPause("<PointList>");       }
                |    Text Transform        { myPause("<Transform>");       } 
                |    Text FuncCallList     { myPause("<FuncCallList>");    } 
                |    Text FuncCall         { myPause("<FuncCall>");        } 
                ;
		
Style:		    STYLE '=' '"' AttValueList '"'
		;
		
AttValueList:	     AttValue
		|    AttValueList  AttValue
		;
		
AttValue:  	    FILL  	':' COLOR		';'
		|   STROKE      ':' COLOR		';'
		|   FONT_FAMILY ':' FONT_FAM_VAL	';'
		|   FONT_SIZE   ':' FT_SIZE_VAL	        ';'
		;
		
SeparateAttrVal :   STROKE '=' '"' COLOR '"'
                |   FILL   '=' '"' COLOR '"'
                ;

PointList :         POINTS  '=' '"' IntPairList '"'
                ;
                
IntPairList:	   IntPair
		|	IntPairList ','  IntPair
		;

IntPair:            INT  INT                  { myPause("<IntPair>"); }
                ;

Transform:          TRANSFORM '=' '"' FuncCallList '"'
                ;
                
FuncCallList:       FuncCall
                |   FuncCallList   FuncCall
                ;
                
FuncCall:           SYMB   '(' IntList ')'    { myPause("<FuncCall1>"); }
                |   SYMB   '(' IntPair ')'    { myPause("<FuncCall2>"); }
                ;
                
IntList:            INT                       { myPause("<INT>"); }
                |   IntList ',' INT           { myPause("<INT>"); }
                ;

%%