2020-01-31 14:11:56 +01:00
|
|
|
(* Driver for the CameLIGO lexer *)
|
2019-05-12 19:31:22 +02:00
|
|
|
|
2020-02-25 18:07:53 +01:00
|
|
|
module Region = Simple_utils.Region
|
|
|
|
|
2020-01-04 19:49:22 +01:00
|
|
|
module IO =
|
|
|
|
struct
|
2020-04-24 21:06:18 +02:00
|
|
|
let options =
|
|
|
|
let open EvalOpt in
|
|
|
|
let block = mk_block ~opening:"(*" ~closing:"*)"
|
|
|
|
in read ~block ~line:"//" ".mligo"
|
2020-01-04 19:49:22 +01:00
|
|
|
end
|
2019-05-12 19:31:22 +02:00
|
|
|
|
2020-01-04 19:49:22 +01:00
|
|
|
module M = LexerUnit.Make (IO) (Lexer.Make (LexToken))
|
2020-01-31 12:31:25 +01:00
|
|
|
|
|
|
|
let () =
|
|
|
|
match M.trace () with
|
|
|
|
Stdlib.Ok () -> ()
|
2020-04-24 21:06:18 +02:00
|
|
|
| Error Region.{value; _} -> Printf.eprintf "\027[31m%s\027[0m%!" value
|