%{
#include "gram.tab.h"
void checkF( char *h ){ fprintf(stderr,"[%s%s]", h, yytext); }
%}

D   [0-9]
I2  {D}{2}
H   [0-9A-Fa-f]
H3  {H}{3}
S   [ ]+
AN  [A-Za-z][A-Za-z0-9]*

%%
"<title>"[^<]*"</title>"          { checkF("TITLE");    return TITLE;   }
"<desc>"[^<]*"</desc>"            { checkF("DESC");     return DESC;    }

"<circle"                         { checkF("CIRC_OP");  return CIRC_OP; }
cx/[ ]*=                          { checkF("CX");       return CX;      }
cy/[ ]*=                          { checkF("CY");       return CY;      }
r/[ ]*=                           { checkF("R");        return R;       }

"<svg"                            { checkF("SVG_BEG");  return SVG_BEG; }
width                             { checkF("WIDTH");    return WIDTH;   }
height                            { checkF("HEIGHT");   return HEIGHT;  }

"<g"                              { checkF("G_BEG");    return G_BEG;   }
id/[ ]*=                          { checkF("ID");       return ID;      } 

"<line"                           { checkF("LINE_OP");  return LINE_OP; }
x1/[ ]*=                          { checkF("X1");       return X1;      }
x2/[ ]*=                          { checkF("X2");       return X2;      }
y1/[ ]*=                          { checkF("Y1");       return Y1;      }
y2/[ ]*=                          { checkF("Y2");       return Y2;      }

"</g>"                            { checkF("G_END");    return G_END;   }
"</svg>"                          { checkF("SVG_END");  return SVG_END; }

"/>"                              { checkF("TAG_CL");   return TAG_CL;  }

"<use"                            { checkF("USE_OP");   return USE_OP;     }
xlink                             { checkF("XLINK");    return XLINK;      }

"<polyline"                       { checkF("POLYL_OP"); return POLYL_OP;   }


{D}+pt			          { checkF("F.SZ:");     return FT_SIZE_VAL;}

[-]?{D}+			  { checkF("INT:");      return INT;        }
				
[-]?{D}*\.{D}+ |
{D}+\.			          { checkF("FLOAT:");    return FLOAT;      }
				
#{H3}{1,2}		          { checkF("H.COL:");    return COLOR;      }

rgb\({I2}%,{S}{I2}%,{S}{I2}%\)	  { checkF("RGB.COL:");  return COLOR;      }

black|blue|gray	|
green|red|yellow  		  { checkF("PDEF.COL:"); return COLOR;      }
none			          { checkF("NONE:]");    return COLOR;      }

href                              { checkF("HREF:");     return HREF;       }

style			          { checkF("");          return STYLE;        }
fill			          { checkF("");          return FILL;         }
stroke			          { checkF("");          return STROKE;       }
font-family		          { checkF("");          return FONT_FAMILY;  }
font-size		          { checkF("");          return FONT_SIZE;    }
points		                  { checkF("");          return POINTS;       }
transform		          { checkF("");          return TRANSFORM;    }
(sans-)?serif	                  { checkF("");          return FONT_FAM_VAL; }

[#]{AN}                           { checkF("ref:");      return REFERENCE;    }

{AN}                              { checkF("SYMB:");     return SYMB;         }

[ \t\n]                           { ECHO;                                     }

[,:;"=()>]                        { checkF("");          return yytext[0];    }

.				  { fprintf(stderr,"[%c!]",yytext[0] );
                                    return yytext[0]; }
%%