2020-01-04 22:49:22 +04:00
|
|
|
(** Driver for the ReasonLIGO parser *)
|
|
|
|
|
|
|
|
module IO =
|
|
|
|
struct
|
|
|
|
let ext = ".religo"
|
|
|
|
let options = EvalOpt.read "ReasonLIGO" ext
|
|
|
|
end
|
|
|
|
|
|
|
|
module ExtParser =
|
|
|
|
struct
|
|
|
|
type ast = AST.t
|
|
|
|
type expr = AST.expr
|
|
|
|
include Parser
|
|
|
|
end
|
|
|
|
|
|
|
|
module ExtParserLog =
|
|
|
|
struct
|
|
|
|
type ast = AST.t
|
|
|
|
include ParserLog
|
|
|
|
end
|
|
|
|
|
|
|
|
module M = ParserUnit.Make (IO)
|
|
|
|
(Lexer.Make (LexToken))
|
|
|
|
(AST)
|
|
|
|
(ExtParser)
|
|
|
|
(ParErr)
|
|
|
|
(ExtParserLog)
|