41 lines
1.6 KiB
OCaml
41 lines
1.6 KiB
OCaml
open! Trace
|
|
|
|
let parse_file (source: string) : Ast.entry_point result =
|
|
(* let pp_input =
|
|
* let prefix = Filename.(source |> basename |> remove_extension)
|
|
* and suffix = ".pp.ligo"
|
|
* in prefix ^ suffix in
|
|
*
|
|
* let cpp_cmd = Printf.sprintf "cpp -traditional-cpp %s > %s"
|
|
* source pp_input in
|
|
* let%bind () = sys_command cpp_cmd in
|
|
*
|
|
* let%bind channel =
|
|
* generic_try (simple_error "error opening file") @@
|
|
* (fun () -> open_in pp_input) in *)
|
|
let%bind channel =
|
|
generic_try (simple_error "error opening file") @@
|
|
(fun () -> open_in source) in
|
|
let lexbuf = Lexing.from_channel channel in
|
|
let module Lexer = Lex.Lexer in
|
|
(specific_try (fun () -> fun e ->
|
|
let error s () =
|
|
let start = Lexing.lexeme_start_p lexbuf in
|
|
let end_ = Lexing.lexeme_end_p lexbuf in
|
|
let str () = Format.sprintf
|
|
"at \"%s\" from (%d, %d) to (%d, %d)\n"
|
|
(Lexing.lexeme lexbuf)
|
|
start.pos_lnum (start.pos_cnum - start.pos_bol)
|
|
end_.pos_lnum (end_.pos_cnum - end_.pos_bol) in
|
|
error s str () in
|
|
match e with
|
|
| Parser.Error -> (fun () -> error (thunk "Parse") ())
|
|
| Lexer.Error s -> (fun () -> error (fun () -> "Lexer " ^ s) ())
|
|
| Lexer.Unexpected_character s -> error (fun () -> "Unexpected char " ^ s) (* TODO: this allows injection of ANSI escape codes in error messages, fix this. *)
|
|
| _ -> simple_error "unrecognized parse_ error"
|
|
)) @@ (fun () ->
|
|
let raw = Parser.entry_point Lexer.token lexbuf in
|
|
raw
|
|
) >>? fun raw ->
|
|
ok raw
|