ligo/src/main/compile/of_sugar.ml

open Trace
open Ast_sugar
open Sugar_to_core
open Main_errors

type form = 
  | Contract of string
  | Env

let compile (program : program) : (Ast_core.program , _) result =
  trace sugar_to_core_tracer @@ compile_program program

let compile_expression (e : expression) : (Ast_core.expression , _) result =
  trace sugar_to_core_tracer @@ compile_expression e

let list_declarations (program : program) : string list =
  List.fold_left
    (fun prev el -> 
      let open Location in
      match el.wrap_content with
      | Declaration_constant (var,_,_,_) -> (Var.to_name var)::prev
      | _ -> prev) 
    [] program
compiling 2020-03-12 23:20:39 +01:00			`open Trace`
rename AST to imperative, sugar and core. Factor code in compile 2020-03-16 14:28:05 +01:00			`open Ast_sugar`
change passes name concrete_to_imperative, imperative_to_sugar, sugar_to_core 2020-03-16 14:53:56 +01:00			`open Sugar_to_core`
result monad refactoring: - do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages 2020-06-12 13:33:14 +02:00			`open Main_errors`
compiling 2020-03-12 23:20:39 +01:00
			`type form =`
			`\| Contract of string`
			`\| Env`

result monad refactoring: - do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages 2020-06-12 13:33:14 +02:00			`let compile (program : program) : (Ast_core.program , _) result =`
			`trace sugar_to_core_tracer @@ compile_program program`
compiling 2020-03-12 23:20:39 +01:00
result monad refactoring: - do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages 2020-06-12 13:33:14 +02:00			`let compile_expression (e : expression) : (Ast_core.expression , _) result =`
			`trace sugar_to_core_tracer @@ compile_expression e`
compiling 2020-03-12 23:20:39 +01:00
			`let list_declarations (program : program) : string list =`
			`List.fold_left`
			`(fun prev el ->`
			`let open Location in`
			`match el.wrap_content with`
			`\| Declaration_constant (var,_,_,_) -> (Var.to_name var)::prev`
			`\| _ -> prev)`
			`[] program`