diff options
Diffstat (limited to 'taccle/examples/simple_scanner.fcl')
-rwxr-xr-x | taccle/examples/simple_scanner.fcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/taccle/examples/simple_scanner.fcl b/taccle/examples/simple_scanner.fcl new file mode 100755 index 0000000..99ff67f --- /dev/null +++ b/taccle/examples/simple_scanner.fcl @@ -0,0 +1,16 @@ +# $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 } |