/* File: ch3-03.l (from lex & yacc book by John Levine) */
%{
#include "y.tab.h"
#include <math.h>
extern double vbltable[26];
%}

%%
([0-9]+|([0-9]*\.[0-9]+)([eE][-+]?[0-9]+)?) {
	yylval.dval = atof(yytext); return NUMBER;
	}

[ \t]		;   /* ignore white space */

[a-z]		{ yylval.vblno = yytext[0] - 'a'; return NAME; }

"$"			{ return 0; /* end of input */ }

\n|.		return yytext[0];
%%