catala 0.2.0 · OCaml Package

Abstract syntax tree of the scope language

module Pos = Utils.Pos

module Uid = Utils.Uid

Identifiers

module ScopeName : Uid.Id with type info = Uid.MarkedString.info

module ScopeNameSet : Set.S with type elt = ScopeName.t

module ScopeMap : Map.S with type key = ScopeName.t

module SubScopeName : Uid.Id with type info = Uid.MarkedString.info

module SubScopeNameSet : Set.S with type elt = SubScopeName.t

module SubScopeMap : Map.S with type key = SubScopeName.t

module ScopeVar : Uid.Id with type info = Uid.MarkedString.info

module ScopeVarSet : Set.S with type elt = ScopeVar.t

module ScopeVarMap : Map.S with type key = ScopeVar.t

module StructName : Uid.Id with type info = Uid.MarkedString.info

module StructMap : Map.S with type key = StructName.t

module StructFieldName : Uid.Id with type info = Uid.MarkedString.info

module StructFieldMap : Map.S with type key = StructFieldName.t

module EnumName : Uid.Id with type info = Uid.MarkedString.info

module EnumMap : Map.S with type key = EnumName.t

module EnumConstructor : Uid.Id with type info = Uid.MarkedString.info

module EnumConstructorMap : Map.S with type key = EnumConstructor.t

type location =

| ScopeVar of ScopeVar.t Pos.marked
| SubScopeVar of ScopeName.t * SubScopeName.t Pos.marked * ScopeVar.t Pos.marked

module LocationSet : Set.S with type elt = location Pos.marked

Abstract syntax tree

type typ =

| TLit of Dcalc.Ast.typ_lit
| TStruct of StructName.t
| TEnum of EnumName.t
| TArrow of typ Pos.marked * typ Pos.marked

type expr =

| ELocation of location
| EVar of expr Bindlib.var Pos.marked
| EStruct of StructName.t * expr Pos.marked StructFieldMap.t
| EStructAccess of expr Pos.marked * StructFieldName.t * StructName.t
| EEnumInj of expr Pos.marked * EnumConstructor.t * EnumName.t
| EMatch of expr Pos.marked * EnumName.t * expr Pos.marked EnumConstructorMap.t
| ELit of Dcalc.Ast.lit
| EAbs of Pos.t * (expr, expr Pos.marked) Bindlib.mbinder * typ Pos.marked list
| EApp of expr Pos.marked * expr Pos.marked list
| EOp of Dcalc.Ast.operator
| EDefault of expr Pos.marked list * expr Pos.marked * expr Pos.marked
| EIfThenElse of expr Pos.marked * expr Pos.marked * expr Pos.marked

The expressions use the Bindlib library, based on higher-order abstract syntax

val locations_used : expr Pos.marked -> LocationSet.t

type rule =

| Definition of location Pos.marked * typ Pos.marked * expr Pos.marked
| Assertion of expr Pos.marked
| Call of ScopeName.t * SubScopeName.t

type scope_decl = {

scope_decl_name : ScopeName.t;
scope_sig : typ Pos.marked ScopeVarMap.t;
scope_decl_rules : rule list;

}

type struct_ctx = (StructFieldName.t * typ Pos.marked) list StructMap.t

type enum_ctx = (EnumConstructor.t * typ Pos.marked) list EnumMap.t

type program = {

program_scopes : scope_decl ScopeMap.t;
program_enums : enum_ctx;
program_structs : struct_ctx;

}

Variable helpers

module Var : sig ... end

type vars = expr Bindlib.mvar

val make_var : Var.t Pos.marked -> expr Pos.marked Bindlib.box

val make_abs : 
  vars ->
  expr Pos.marked Bindlib.box ->
  Pos.t ->
  typ Pos.marked list ->
  Pos.t ->
  expr Pos.marked Bindlib.box

val make_app : 
  expr Pos.marked Bindlib.box ->
  expr Pos.marked Bindlib.box list ->
  Pos.t ->
  expr Pos.marked Bindlib.box

module VarMap : sig ... end

package catala

Identifiers

Abstract syntax tree

Variable helpers