40 lines
924 B
OCaml
40 lines
924 B
OCaml
|
|
||
|
|
module ParserLog = Parser_pascaligo.ParserLog
|
||
|
|
module ParErr = Parser_pascaligo.ParErr
|
||
|
|
module SSet = Utils.String.Set
|
||
|
|
|
||
|
|
(* Mock options. TODO: Plug in cmdliner. *)
|
||
|
|
|
||
|
|
let pre_options =
|
||
|
|
EvalOpt.make
|
||
|
|
~libs:[]
|
||
|
|
~verbose:SSet.empty
|
||
|
|
~offsets:true
|
||
|
|
~mode:`Point
|
||
|
|
~cmd:EvalOpt.Quiet
|
||
|
|
~mono:true (* Monolithic API of Menhir for now *)
|
||
|
|
(* ~input:None *)
|
||
|
|
(* ~expr:true *)
|
||
|
|
|
||
|
|
module Parser =
|
||
|
|
struct
|
||
|
|
type ast = AST.t
|
||
|
|
type expr = AST.expr
|
||
|
|
include Parser_pascaligo.Parser
|
||
|
|
end
|
||
|
|
|
||
|
|
module ParserLog =
|
||
|
|
struct
|
||
|
|
type ast = AST.t
|
||
|
|
type expr = AST.expr
|
||
|
|
include Parser_pascaligo.ParserLog
|
||
|
|
end
|
||
|
|
|
||
|
|
module PreUnit = ParserUnit.Make (Lexer)(AST)(Parser)(ParErr)(ParserLog)
|
||
|
|
module Front = ParserAPI.Make (Lexer)(Parser)(ParErr)
|
||
|
|
|
||
|
|
let issue_error point =
|
||
|
|
let error = Front.format_error ~offsets:true (* TODO: CLI *)
|
||
|
|
`Point (* TODO: CLI *) point
|
||
|
|
in Stdlib.Error error
|