Module `Desugared.Ast`Source

Abstract syntax tree of the desugared representation

Names, Maps and Keys

Sourcemodule IdentMap : Map.S with type key = String.t

Sourcemodule RuleName : Utils.Uid.Id with type info = Utils.Uid.MarkedString.info

Sourcemodule RuleMap : Map.S with type key = RuleName.t

Sourcemodule RuleSet : Set.S with type elt = RuleName.t

Sourcemodule LabelName : Utils.Uid.Id with type info = Utils.Uid.MarkedString.info

Sourcemodule LabelMap : Map.S with type key = LabelName.t

Sourcemodule LabelSet : Set.S with type elt = LabelName.t

Sourcemodule StateName : Utils.Uid.Id with type info = Utils.Uid.MarkedString.info

Sourcemodule ScopeVar : Utils.Uid.Id with type info = Utils.Uid.MarkedString.info

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

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

Sourcemodule ScopeDef : sig ... end

Inside a scope, a definition can refer either to a scope def, or a subscope def

Sourcemodule ScopeDefMap : Map.S with type key = ScopeDef.t

Sourcemodule ScopeDefSet : Set.S with type elt = ScopeDef.t

AST

Sourcetype location =

| ScopeVar of ScopeVar.t Utils.Pos.marked * StateName.t option
| SubScopeVar of Scopelang.Ast.ScopeName.t * Scopelang.Ast.SubScopeName.t Utils.Pos.marked * ScopeVar.t Utils.Pos.marked

Expressions

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

Sourcetype expr =

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

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

Variable helpers

Sourcemodule Var : sig ... end

Sourcemodule VarMap : Map.S with type key = Var.t

Sourcetype vars = expr Bindlib.mvar

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

Source

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

Source

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

Source

val make_let_in : 
  Var.t ->
  Scopelang.Ast.typ Utils.Pos.marked ->
  expr Utils.Pos.marked Bindlib.box ->
  expr Utils.Pos.marked Bindlib.box ->
  expr Utils.Pos.marked Bindlib.box

Rules and scopes

Sourcetype rule = {

rule_id : RuleName.t;
rule_just : expr Utils.Pos.marked Bindlib.box;
rule_cons : expr Utils.Pos.marked Bindlib.box;
rule_parameter : (Var.t * Scopelang.Ast.typ Utils.Pos.marked) option;
rule_exception_to_rules : RuleSet.t Utils.Pos.marked;

}

Source

val empty_rule : 
  Utils.Pos.t ->
  Scopelang.Ast.typ Utils.Pos.marked option ->
  rule

Source

val always_false_rule : 
  Utils.Pos.t ->
  Scopelang.Ast.typ Utils.Pos.marked option ->
  rule

Sourcetype assertion = expr Utils.Pos.marked Bindlib.box

Sourcetype variation_typ =

| Increasing
| Decreasing

Sourcetype reference_typ =

| Decree
| Law

Sourcetype meta_assertion =

| FixedBy of reference_typ Utils.Pos.marked
| VariesWith of unit * variation_typ Utils.Pos.marked option

Sourcetype scope_def = {

scope_def_rules : rule RuleMap.t;
scope_def_typ : Scopelang.Ast.typ Utils.Pos.marked;
scope_def_is_condition : bool;
scope_def_io : Scopelang.Ast.io;
scope_def_label_groups : RuleSet.t LabelMap.t;

}

Sourcetype var_or_states =

| WholeVar
| States of StateName.t list

Sourcetype scope = {

scope_vars : var_or_states ScopeVarMap.t;
scope_sub_scopes : Scopelang.Ast.ScopeName.t Scopelang.Ast.SubScopeMap.t;
scope_uid : Scopelang.Ast.ScopeName.t;
scope_defs : scope_def ScopeDefMap.t;
scope_assertions : assertion list;
scope_meta_assertions : meta_assertion list;

}

Sourcetype program = {

program_scopes : scope Scopelang.Ast.ScopeMap.t;
program_enums : Scopelang.Ast.enum_ctx;
program_structs : Scopelang.Ast.struct_ctx;

}

Helpers

Sourceval locations_used : expr Utils.Pos.marked -> LocationSet.t

Sourceval free_variables : rule RuleMap.t -> Utils.Pos.t ScopeDefMap.t

Install

Dune Dependency

Authors

Maintainers

Sources

doc/catala.desugared/Desugared/Ast/index.html

Module `Desugared.Ast`Source

Names, Maps and Keys

AST

Variable helpers

Rules and scopes

Helpers

package catala

Install

Dune Dependency

Authors

Maintainers

Sources

doc/catala.desugared/Desugared/Ast/index.html

Module Desugared.AstSource

Names, Maps and Keys

AST

Variable helpers

Rules and scopes

Helpers

Module `Desugared.Ast`Source