2020-03-25 00:05:39 +04:00
|
|
|
(* Module for lexing boolean expressions of conditional directives *)
|
|
|
|
|
|
|
|
|
|
(* Regions *)
|
|
|
|
|
|
|
|
|
|
module Region = Simple_utils.Region
|
|
|
|
|
|
|
|
|
|
val string_of_token : E_Parser.token -> string
|
|
|
|
|
|
|
|
|
|
(* Errors *)
|
|
|
|
|
|
|
|
|
|
type error = Invalid_character of char
|
|
|
|
|
|
2020-03-26 19:51:08 +04:00
|
|
|
val error_to_string : error -> string
|
|
|
|
|
|
2020-03-25 00:05:39 +04:00
|
|
|
val format :
|
|
|
|
|
?offsets:bool -> error Region.reg -> file:bool -> string Region.reg
|
|
|
|
|
|
|
|
|
|
(* Lexing boolean expressions (may raise [Error]) *)
|
|
|
|
|
|
|
|
|
|
exception Error of error Region.reg
|
|
|
|
|
|
|
|
|
|
val scan : Lexing.lexbuf -> E_Parser.token
|
