package lustre-v6

  1. Overview
  2. Docs

Synchronous Object Component

type ident = string
type var = ident * Data.t
type var_expr =
  1. | Var of var
  2. | Const of var
  3. | Field of var_expr * ident * Data.t
  4. | Index of var_expr * int * Data.t
  5. | Slice of var_expr * int * int * int * int * Data.t
type key_opt =
  1. | Nomore
  2. | Slic of int * int * int
  3. | MemInit of var_expr
  4. | Curr of Lv6Id.long
type key = ident * Data.t list * key_opt
type instance = ident * key
val data_type_of_var_expr : var_expr -> Data.t
type atomic_operation =
  1. | Assign
  2. | Method of instance * ident
  3. | Procedure of key
type gao =
  1. | Case of ident * (ident * gao list) list * Lxm.t
  2. | Call of var_expr list * atomic_operation * var_expr list * Lxm.t
type step_impl =
  1. | Predef
  2. | Gaol of var list * gao list
  3. | Iterator of string * key * int
  4. | Boolred of int * int * int
  5. | Condact of key * var_expr list
  6. | Extern
type step_method = {
  1. name : ident;
  2. lxm : Lxm.t;
  3. idx_ins : int list;
  4. idx_outs : int list;
  5. impl : step_impl;
}
type precedence = ident * ident list
type memory =
  1. | No_mem
  2. | Mem of Data.t
  3. | Mem_hidden
type t = {
  1. key : key;
  2. profile : var list * var list;
  3. clock_profile : (var * (var * Lv6Id.long)) list;
  4. step : step_method list;
  5. precedences : precedence list;
  6. instances : instance list;
  7. memory : memory;
  8. assertions : (Lxm.t * var) list;
}
module SocMap : sig ... end
type tbl = t SocMap.t
val cpt : int Stdlib.ref
val make : key -> instance