30 lines
1.1 KiB
OCaml
30 lines
1.1 KiB
OCaml
open Trace
|
|
open Helpers
|
|
|
|
let compile (source_filename:string) syntax : (Ast_imperative.program , _) result =
|
|
let%bind syntax = syntax_to_variant syntax (Some source_filename) in
|
|
let%bind abstract = parse_and_abstract syntax source_filename in
|
|
ok abstract
|
|
|
|
let compile_string (source:string) syntax : (Ast_imperative.program , _) result =
|
|
let%bind abstract = parse_and_abstract_string syntax source in
|
|
ok abstract
|
|
|
|
let compile_expression : v_syntax -> string -> (Ast_imperative.expression , _) result =
|
|
fun syntax exp ->
|
|
parse_and_abstract_expression syntax exp
|
|
|
|
let compile_contract_input : string -> string -> v_syntax -> (Ast_imperative.expression , _) result =
|
|
fun storage parameter syntax ->
|
|
let%bind (storage,parameter) = bind_map_pair (compile_expression syntax) (storage,parameter) in
|
|
ok @@ Ast_imperative.e_pair storage parameter
|
|
|
|
let pretty_print_cst source_filename syntax =
|
|
Helpers.pretty_print_cst syntax source_filename
|
|
|
|
let preprocess source_filename syntax =
|
|
Helpers.preprocess syntax source_filename
|
|
|
|
let pretty_print source_filename syntax =
|
|
Helpers.pretty_print syntax source_filename
|