19 lines
428 B
OCaml
19 lines
428 B
OCaml
(* Driver for the CameLIGO lexer *)
|
|
|
|
module Region = Simple_utils.Region
|
|
|
|
module IO =
|
|
struct
|
|
let options =
|
|
let open EvalOpt in
|
|
let block = mk_block ~opening:"(*" ~closing:"*)"
|
|
in read ~block ~line:"//" ".mligo"
|
|
end
|
|
|
|
module M = LexerUnit.Make (IO) (Lexer.Make (LexToken))
|
|
|
|
let () =
|
|
match M.trace () with
|
|
Stdlib.Ok () -> ()
|
|
| Error Region.{value; _} -> Printf.eprintf "\027[31m%s\027[0m%!" value
|