# $Id: simple_scanner.fcl,v 1.2 2004/08/18 23:55:31 tang Exp $

%{
source "simple_calculator.tab.tcl"
%}

%option interactive

number  [0-9]+

%%

{number}  { set ::yylval $yytext; return $::ID }
\n        { return $::NEWLINE }
\s        # ignore whitespace
.         { set ::yylval $yytext; return $yytext }
