interpreter/nstlexer.mll

   1 {
   2 open Nstparser
   3 open Types
   4 }
   5
   6 rule token = parse
   7   [' ' '\t' '\n' ]                      { token lexbuf }
   8
   9 | ['0'-'9']+ as a                       { CONST a }
  10 | '.'                                   { POINT }
  11
  12 | '['                                   { LPAR }
  13 | ']'                                   { RPAR }
  14 | ','                                   { COMMA }
  15 | eof                                   { EOF }