ch3-03.l

%{
#include "ch3-03.tab.h"
#include <math.h>
#include <stdlib.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; }

"$"  { exit(0); /* end of input */ }

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

int yywrap()
{
  return 1;
}