Posted to tcl by colin at Thu Jan 03 07:48:09 GMT 2013view pretty
$sg add { [0-9]+ { return [list NUMBER $yytext] } {\+} { return PLUS } {-} { return MINUS } {\*} { return MULTIPLY } {/} { return DIVIDE } {\(} { return OPEN } {\)} { return CLOSE } }
$sg add { [0-9]+ { return [list NUMBER $yytext] } {\+} { return PLUS } {-} { return MINUS } {\*} { return MULTIPLY } {/} { return DIVIDE } {\(} { return OPEN } {\)} { return CLOSE } }