ca48e152a0
interfaces ([Stdlib.result] instead). I added --verbose=preproc to print the preprocessed text until the error. Fixed a bug: some whitespace in skip mode was printed out.
23 lines
482 B
OCaml
23 lines
482 B
OCaml
(* 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
|
|
|
|
val error_to_string : error -> string
|
|
|
|
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
|