package archetype

  1. Overview
  2. Docs
type t
type label_kind = [
  1. | `Plain
  2. | `Loop of Ident.ident
]
type entry = [
  1. | `Label of t * label_kind
  2. | `State of statedecl
  3. | `Type of M.ptyp
  4. | `Local of M.ptyp
  5. | `Global of vardecl
  6. | `Proc of procsig
  7. | `Asset of assetdecl
  8. | `Action of t actiondecl
  9. | `Transition of transitiondecl
  10. | `Field of Ident.ident
]
type ecallback = error -> unit
val create : ecallback -> t
val emit_error : t -> error -> unit
val name_free : t -> Ident.ident -> bool
val lookup : t -> Ident.ident -> entry option
val open_ : t -> t
val close : t -> t
val inscope : t -> (t -> t * 'a) -> t * 'a
module Label : sig ... end
module Type : sig ... end
module Local : sig ... end
module Var : sig ... end
module Proc : sig ... end
module State : sig ... end
module Asset : sig ... end
module Action : sig ... end
module Transition : sig ... end