% $Id: OzLexer.oz,v 1.6 2012/01/08 13:17:01 leavens Exp $ % AUTHOR: Gary T. Leavens \insert 'LexerTools.oz' declare OzReservedWords = [ 'andthen' 'at' 'attr' 'case' 'catch' 'choice' 'class' 'declare' 'define' 'div' 'do' 'else' 'elseif' 'end' 'export' 'fail' 'false' 'finally' 'for' 'from' 'fun' 'functor' 'if' 'in' 'lazy' 'local' 'lock' 'meth' 'mod' 'of' 'orelse' 'proc' 'prop' 'raise' 'self' 'skip' 'then' 'thread' 'true' 'try' ] OzSymbols = [ "{" "}" "(" ")" "[]" "=" ":=" "=:" "\\=:" "=<:" "::" "==" "\\=" ">=" "=<" "<" ">" "*" "+" "-" "/" "$" ":" "|" "#" "\&" "\"" "~" "..." "." "@" "!!" "^" ":::" "<-" ] fun {OzLexer Chars FileName} {{Scanning OzReservedWords OzSymbols FileName} Chars} end