%{

/*
 * $Header: /blue/homes/cowell/src/nec/RCS/nec.lex,v 1.1 1996/04/20 21:06:17 cowell Exp cowell $
 *
 * nec.lex
 * Copyright Andy Cowell <cowell@cs.utk.edu>, all rights reserved.
 *
 * $Log: nec.lex,v $
 * Revision 1.1  1996/04/20  21:06:17  cowell
 * Initial revision
 *
 *
 */

static char *rcsid = "$Id: nec.lex,v 1.1 1996/04/20 21:06:17 cowell Exp cowell $";

#include "nec.tab.h"

int lineno = 1;
void yyerror(char *s);

/*
 * shrink() basically removes the current character and compresses the string.
 */
void
shrink(char *s) {
  int i = 0, end = 0;

  while (!end) {
    if (s[i+1] == '\0')
      end = 1;
    s[i] = s[i+1];
    i++;
  }
}

/*
 * strip() all c's out of string s.
 */	
char *
strip(char *s, char c) {
  int len, i;

  len = strlen(s);
  for (i=0; i<len; i++)
    if (s[i] == c) {
      shrink(&s[i]);
      len--;
    }
}
  

%}

%%

"#".*			;

"Name"			{ return NAME; }

"Rating"		{ return RATING; }

"Territory"		{ return TTORY; }

"Stash"			{ return STASH; }

"Hoard"			{ return HOARD; }

"Member"		{ return MEMBER; }

[0-9]+			{ 
                           yylval.val = atof(yytext);
			   return INTEGER; 
			 }

([a-zA-Z]|[0-9])+ |
\"([^\"])+\"	{ 
  yylval.str = (char *)malloc(sizeof(char) * strlen(yytext) +2);
  strcpy(yylval.str, yytext);
  strip(yylval.str, '\"');
  return STRING; 
}

"="			{ return EQ; }

"("			{ return LP; }

")"			{ return RP; }

","			{ return COMMA; }

\n			{ lineno++; }

[ \t]+                  ;

.			{ yyerror("Invalid character"); }

%%

void
yyerror(char *s) {
  printf("line %d: %s at %s\n", lineno, s, yytext);
}