Letin (p.zelus.2.1.doc.zelus.zlcompilerlibs.Letin)

type ctx = {

}

val empty : ctx

val par : ctx -> ctx -> ctx

val seq : ctx -> ctx -> ctx

val add : Zelus.eq -> ctx -> ctx

val optional : ('a -> 'b * ctx) -> 'a option -> 'b option * ctx

val par_fold : ('a -> 'b * ctx) -> 'a list -> 'b list * ctx

val equations : Zelus.eq Misc.State.t -> Zelus.eq list

val add_locals : 
  Zelus.vardec list ->
  Deftypes.tentry Ident.Env.t ->
  ctx ->
  Zelus.vardec list * Deftypes.tentry Ident.Env.t * Zelus.eq list

val expression : Zelus.exp -> Zelus.exp * ctx

Translation of expressions

val equation : Zelus.eq -> ctx

Translate an equation.

val par_equation_list : Zelus.eq list -> ctx

val seq_equation_list : Zelus.eq list -> ctx

val block : Zelus.eq list Zelus.block -> Zelus.eq list Zelus.block

Translating a block

val local : Zelus.local -> ctx

val local_list : Zelus.local list -> ctx

val implementation : 
  Zelus.implementation_desc Zelus.localized ->
  Zelus.implementation_desc Zelus.localized

val implementation_list : 
  Zelus.implementation_desc Zelus.localized list ->
  Zelus.implementation_desc Zelus.localized list