2020-01-31 17:11:56 +04:00
|
|
|
(* Driver for the CameLIGO lexer *)
|
2019-05-12 21:31:22 +04:00
|
|
|
|
2020-02-25 21:07:53 +04:00
|
|
|
module Region = Simple_utils.Region
|
|
|
|
|
2020-01-04 22:49:22 +04:00
|
|
|
module IO =
|
|
|
|
struct
|
|
|
|
let ext = ".mligo"
|
|
|
|
let options = EvalOpt.read "CameLIGO" ext
|
|
|
|
end
|
2019-05-12 21:31:22 +04:00
|
|
|
|
2020-01-04 22:49:22 +04:00
|
|
|
module M = LexerUnit.Make (IO) (Lexer.Make (LexToken))
|
2020-01-31 15:31:25 +04:00
|
|
|
|
|
|
|
let () =
|
|
|
|
match M.trace () with
|
|
|
|
Stdlib.Ok () -> ()
|
2020-01-31 17:11:56 +04:00
|
|
|
| Error Region.{value; _} -> Utils.highlight value
|