2020-01-20 10:57:07 +01:00
|
|
|
(* Functor to build a standalone LIGO lexer *)
|
|
|
|
|
2020-01-23 18:28:04 +01:00
|
|
|
module Region = Simple_utils.Region
|
|
|
|
|
2020-01-20 10:57:07 +01:00
|
|
|
module type IO =
|
|
|
|
sig
|
|
|
|
val ext : string (* LIGO file extension *)
|
|
|
|
val options : EvalOpt.options (* CLI options *)
|
|
|
|
end
|
|
|
|
|
|
|
|
module Make (IO: IO) (Lexer: Lexer.S) :
|
|
|
|
sig
|
2020-01-23 18:28:04 +01:00
|
|
|
val scan : unit -> (Lexer.token list, string Region.reg) Stdlib.result
|
|
|
|
val trace : unit -> (unit, string Region.reg) Stdlib.result
|
2020-01-20 10:57:07 +01:00
|
|
|
end
|