ylex example

Posted to tcl by colin at Thu Jan 03 07:48:09 GMT 2013view raw

$sg add {
[0-9]+ { return [list NUMBER $yytext] }
{\+} { return PLUS }
{-} { return MINUS }
{\*} { return MULTIPLY }
{/} { return DIVIDE }
{\(} { return OPEN }
{\)} { return CLOSE }
}