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 }
}