320e31cb41
* [ligo pretty-print foo.religo] is a transpiler (for now) and needs
more work.
* Renamed functions *_ast into *_cst. One day, module AST should be
renamed CST for clarity and consistency.
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 = parsify syntax source_filename in
|
|
ok abstract
|
|
|
|
let compile_string (source:string) syntax : Ast_imperative.program result =
|
|
let%bind abstract = parsify_string syntax source in
|
|
ok abstract
|
|
|
|
let compile_expression : v_syntax -> string -> Ast_imperative.expression result =
|
|
fun syntax exp ->
|
|
parsify_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
|