17 lines
334 B
OCaml
17 lines
334 B
OCaml
{ open Day7_parser }
|
|
|
|
rule token = parse
|
|
| "bag" 's'? { BAGS }
|
|
| "contain" { CONTAIN }
|
|
| "no" { NO }
|
|
| "other" { OTHER }
|
|
| ',' { COMMA }
|
|
| '.' { DOT }
|
|
| (['a'-'z' 'A'-'Z']+ as word)
|
|
{ WORD word }
|
|
| (['0'-'9']+ as num)
|
|
{ NUMBER (int_of_string num) }
|
|
| [' ' '\t' '\n']
|
|
{ token lexbuf }
|
|
| eof { EOF }
|