Scope_to_dcalc (p.catala.0.2.0.doc.catala.scopelang.Scopelang.Scope_to

Sourcemodule Pos = Utils.Pos

Sourcemodule Errors = Utils.Errors

Sourcemodule Cli = Utils.Cli

type scope_sigs_ctx =
  ((Ast.ScopeVar.t * Dcalc.Ast.typ) list * Dcalc.Ast.Var.t) Ast.ScopeMap.t

Sourcetype ctx = {

structs : Ast.struct_ctx;
enums : Ast.enum_ctx;
scope_name : Ast.ScopeName.t;
scopes_parameters : scope_sigs_ctx;
scope_vars : (Dcalc.Ast.Var.t * Dcalc.Ast.typ) Ast.ScopeVarMap.t;
subscope_vars : (Dcalc.Ast.Var.t * Dcalc.Ast.typ) Ast.ScopeVarMap.t Ast.SubScopeMap.t;
local_vars : Dcalc.Ast.Var.t Ast.VarMap.t;

}

Source

val empty_ctx : 
  Ast.struct_ctx ->
  Ast.enum_ctx ->
  scope_sigs_ctx ->
  Ast.ScopeName.t ->
  ctx

Sourcetype scope_ctx = Dcalc.Ast.Var.t Ast.ScopeMap.t

Sourceval hole_var : Dcalc.Ast.Var.t

Sourceval translate_typ : ctx -> Ast.typ Pos.marked -> Dcalc.Ast.typ Pos.marked

Source

val merge_defaults : 
  Dcalc.Ast.expr Pos.marked Bindlib.box ->
  Dcalc.Ast.expr Pos.marked Bindlib.box ->
  Dcalc.Ast.expr Pos.marked Bindlib.box

Source

val translate_expr : 
  ctx ->
  Ast.expr Pos.marked ->
  Dcalc.Ast.expr Dcalc.Ast.Pos.marked Bindlib.box

Source

val translate_rule : 
  ctx ->
  Ast.rule ->
  Ast.rule list ->
  Utils.Uid.MarkedString.info ->
  Dcalc.Ast.expr Pos.marked Bindlib.box * ctx

Source

val translate_rules : 
  ctx ->
  Ast.rule list ->
  Utils.Uid.MarkedString.info ->
  Dcalc.Ast.expr Dcalc.Ast.Pos.marked Bindlib.box * ctx

Source

val translate_scope_decl : 
  Ast.struct_ctx ->
  Ast.enum_ctx ->
  scope_sigs_ctx ->
  Ast.ScopeName.t ->
  Ast.scope_decl ->
  Dcalc.Ast.expr Pos.marked Bindlib.box

Source

val build_scope_typ_from_sig : 
  (Ast.ScopeVar.t * Dcalc.Ast.typ) list ->
  Pos.t ->
  Dcalc.Ast.typ Pos.marked

Source

val translate_program : 
  Ast.program ->
  Ast.ScopeName.t ->
  Dcalc.Ast.expr Pos.marked