blob: be10ddb93976a04efcf04d76ea405e01bdcbdab7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(** Provide a lexer for the langage. The function [main] read the source and
identify the next to token to give to the parser.
Personal note: parsing the QSP is really complicated. The language was
designed for regex and I have to twist the lexer in order to get something
working. *)
exception EOF
exception UnclosedQuote
exception LexError of string
val discard : Lexbuf.t -> unit
(** Discard the remaining element in the location until the end of this one.
Used in case of unrecoverable error *)
val main : Lexbuf.t -> Tokens.token
|
