balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

WIP: Refactoring of the front-end.

Browse Source
This commit is contained in:
Christian Rinderknecht 2020-01-27 16:36:04 +01:00
parent fc3385389b
commit 8047e98124
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/passes/1-parser/pascaligo.ml
View File

@ -55,13 +55,12 @@ module Errors =
in Trace.error ~data:[] title message in Trace.error ~data:[] title message
end end
let parse (module IO : IO) parser = let parse (module Unit : ParserUnit.S) parser =
let module Unit = PreUnit (IO) in
let local_fail error = let local_fail error =
Trace.fail Trace.fail
@@ Errors.generic @@ Errors.generic
@@ Unit.format_error ~offsets:IO.options#offsets @@ Unit.format_error ~offsets:Unit.IO.options#offsets
IO.options#mode error in Unit.IO.options#mode error in
match parser () with match parser () with
Stdlib.Ok semantic_value -> Trace.ok semantic_value Stdlib.Ok semantic_value -> Trace.ok semantic_value
@ -121,7 +120,9 @@ let parse (module IO : IO) parser =
Hint: Change the name.\n", Hint: Change the name.\n",
None, invalid)) None, invalid))
let parse_file source = let parse_file :
string -> (Unit.Parser.ast, string Region.reg) Stdlib.result =
fun source ->
let module IO = let module IO =
struct struct
let ext = PreIO.ext let ext = PreIO.ext

5
src/passes/1-parser/wrapper.ml
View File

@ -6,7 +6,10 @@ module type IO =
val options : EvalOpt.options val options : EvalOpt.options
end end
let parse_file generic_error (module Unit : ParserUnit.S) parse = let parse_file generic_error
(module Unit : ParserUnit.S)
(parse: unit -> (Unit.Parser.ast, string Region.reg) Stdlib.result)
: (Unit.Parser.ast, string Region.reg) Stdlib.result =
let lib_path = let lib_path =
match Unit.IO.options#libs with match Unit.IO.options#libs with
[] -> "" [] -> ""