%{
#include "y.tab.h"
#include "data.h"

extern int yyline, yycolumn ;
extern YYSTYPE yylval;
extern char *yystr;
extern FILE *yyin;
%}
%START STR L S T T2 G
%p 3000
%%
<STR>\"		{
		  yycolumn += yyleng;
		  yytext[yyleng-1] = 0;
		  yylval.str = yytext;
		  yystr = yytext;
		  BEGIN G;
		  return(STRING);
		}
<STR>[^\"]+	{
		  yycolumn += yyleng;
		  yymore();
		}
<G>\"		{
		  yycolumn += yyleng;
		  BEGIN STR;
		}
\n		{
		  yyline++;
		  yycolumn = 0;
		  yymore();
		}
<G>[ ]+		{
		  yycolumn += yyleng;
		}
<G>\t		{
		  yycolumn = (yycolumn - 1)/8;
	 	  yycolumn *= 8;
		  yycolumn += 8;
                }
<G>\,		{
                  yycolumn += yyleng;
		  return(COMMA);
                }
<G>\=           {
                  yycolumn += yyleng;
		  BEGIN G;
                  return(EQUAL);
                }
"<TAO>"		{
		  yycolumn += yyleng;
		  BEGIN G;
                  return(BTAO);
		}
"</TAO>"	{
		  yycolumn += yyleng;
		  BEGIN 0;
                  return(ETAO);
		}
"<TAO_NAME>"	{
		  yycolumn += yyleng;
                  return(BTNAME);
		}
"</TAO_NAME>"	{
                  yycolumn += yyleng;
                  return(ETNAME);
                }
"<TAO_TYPE>"	{
		  yycolumn += yyleng;
                  return(BTTYPE);
                }
"</TAO_TYPE>"	{
                  yycolumn += yyleng;
                  return(ETTYPE);
                }
<G>image	{
		  yycolumn += yyleng;
                  return(IMAGE);
		}
<G>text		{
		  yycolumn += yyleng;
                  return(TEXT);
		}
<G>audio	{
		  yycolumn += yyleng;
                  return(AUDIO);
		}
<G>motion_graph	{
		  yycolumn += yyleng;
                  return(MOTION);
		}
<G>video	{
		  yycolumn += yyleng;
                  return(VIDEO);
		}
<G>mixed	{
		  yycolumn += yyleng;
                  return(MIXED);
		}
"<TAO_TEMPLATE>" {
                  yycolumn += yyleng;
                  return(BTTPL);
                }
"</TAO_TEMPLATE>" {
		  yycolumn += yyleng;
                  return(ETTPL);
		}
"<TAO_TEMPLATE_INPUT>" {
		  yycolumn += yyleng;
		  return(BTTPLIN);
                }
"</TAO_TEMPLATE_INPUT>" {
		  yycolumn += yyleng;
		  return(ETTPLIN);
		}
"<TAO_INPBOX_PAR>" 	{
		  yycolumn += yyleng;
		  return(INPBOXPAR);
                }
"<TAO_RADIO_PAR>" 	{
		  yycolumn += yyleng;
		  return(RADIOPAR);
                }
"<TAO_CHKBOX_PAR>" 	{
		  yycolumn += yyleng;
		  return(CHKBOXPAR);
                }
"<TAO_SKIP_PAR>" 	{
		  yycolumn += yyleng;
		  return(SKIPPAR);
                }
"<TAO_LINKS>" 	{
                  yycolumn += yyleng;
                  return(BTLINK);
                }
"</TAO_LINKS>"  {
		  yycolumn += yyleng;
                  return(ETLINK);
		}
<G>name		{
		  yycolumn += yyleng;
                  return(LNAME);
		}
<G>type		{
		  yycolumn += yyleng;
                  return(LTYPE);
		}
<G>obj		{
		  yycolumn += yyleng;
                  return(LOBJ);
		}
<G>spatial	{
		  yycolumn += yyleng;
                  return(SPATIAL);
		}
<G>temporal	{
		  yycolumn += yyleng;
                  return(TEMPORAL);
		}
<G>structural	{
		  yycolumn += yyleng;
                  return(STRUCTURAL);
		}
"<TAO_DB>"	{
		  yycolumn += yyleng;
		  return(BTDB);
		}
"</TAO_DB>"	{
		  yycolumn += yyleng;
		  return(ETDB);
		}
"<TAO_DB_HERE>"	{
		  yycolumn += yyleng;
		  return(DBHERE);
		}
"<TAO_IC>"	{
		  yycolumn += yyleng;
                  return(BTIC);
		}
"</TAO_IC>"	{
		  yycolumn += yyleng;
                  return(ETIC);
		}
"<TAO_IC_INPUT>"	{
		  yycolumn += yyleng;
                  return(ICINPUT);
		}
<G>old		{
		  yycolumn += yyleng;
                  return(OLD);
		}
<G>OLD		{
		  yycolumn += yyleng;
                  return(OLD);
		}
<G>new		{
		  yycolumn += yyleng;
                  return(NEW);
		}
<G>NEW		{
		  yycolumn += yyleng;
                  return(NEW);
		}
<G>flag		{
		  yycolumn += yyleng;
		  return(FLAG);
		}
<G>ic_type	{
		  yycolumn += yyleng;
		  return(ICTYPE);
		}
<G>ic_id_list	{
		  yycolumn += yyleng;
                  return(ICIDLIST);
		}
<G>message_type	{
		  yycolumn += yyleng;
                  return(MSGTYPE);
		}
<G>message_type	{
		  yycolumn += yyleng;
                  return(MSGTYPE);
		}
<G>cgi		{
		  yycolumn += yyleng;
                  return(CGI);
		}
<G>\?		{
		  yycolumn += yyleng;
                  return(QMARK);
		}
"<TAO_SENSI>"	{
		  yycolumn += yyleng;
                  return(BTSENS);
		}
"</TAO_SENSI>"	{
		  yycolumn += yyleng;
                  return(ETSENS);
		}
<G>location	{
		  yycolumn += yyleng;
                  return(LOCATION);
		}
<G>content	{
		  yycolumn += yyleng;
                  return(CONTENT);
		}
<G>time		{
		  yycolumn += yyleng;
                  return(TIME);
		}
"<TAO_REL>"	{
		  yycolumn += yyleng;
		  BEGIN G;
                  return(BTREL);
                }
"</TAO_REL>"	{
		  yycolumn += yyleng;
		  BEGIN 0;
                  return(ETREL);
                }
.		{
		  yycolumn += yyleng;
		  yystr = yytext;
		  return(NORMAL);
		}
%%
int num_convert()
{
  int num = 0;
  int i;

  for (i=0; i<yyleng; i++)
  {
    num = num * 10 + yytext[i] - '0';
  }
  return(num);
}

str_to_low()
{
  int i;

  for (i=0; i<yyleng; i++)
  {
    if (yytext[i] <= 'Z' && yytext[i] >= 'A')
      yytext[i] = 'a' + yytext[i] - 'A';
  }
}

yywrap()
{
/*
  printf("End of file!\n");
*/
  return(1);
}