2020-01-31 14:11:56 +01:00
|
|
|
(* Driver for the ReasonLIGO lexer *)
|
2019-12-10 13:47:31 +00: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:"//" ".religo"
|
2020-01-04 19:49:22 +01:00
|
|
|
end
|
2019-12-10 13:47:31 +00: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
|