atdgen 1.12.0 · OCaml Package

type loc = Atd_ast.loc

val annot_error : Atd_ast.loc -> 'a

type loc_id = string

type ('a, 'b) mapping = [

]

and ('a, 'b) cell_mapping = {

}

and ('a, 'b) field_mapping = {

}

and ('a, 'b) variant_mapping = {

}

type ('a, 'b) def = {

}

val as_abstract : 
  [> `Name of 'a * (Atd_ast.loc * string * 'b list) * 'c ] ->
  (Atd_ast.loc * 'c) option

val is_abstract : 
  [> `Name of 'a * (Atd_ast.loc * string * 'b list) * 'c ] ->
  bool

val loc_of_mapping : ('a, 'b) mapping -> loc

module Env : sig ... end

val subst : ('a, 'b) mapping Env.t -> ('a, 'b) mapping -> ('a, 'b) mapping

val subst_variant : 
  ('a, 'b) mapping Env.t ->
  ('a, 'b) variant_mapping ->
  ('a, 'b) variant_mapping

val subst_field : 
  ('a, 'b) mapping Env.t ->
  ('a, 'b) field_mapping ->
  ('a, 'b) field_mapping

val subst_cell : 
  ('a, 'b) mapping Env.t ->
  ('a, 'b) cell_mapping ->
  ('a, 'b) cell_mapping

val apply : 
  Env.key list ->
  ('a, 'b) mapping ->
  ('a, 'b) mapping list ->
  ('a, 'b) mapping

val find_name : 
  Atd_ast.loc ->
  (Env.key list * ('a, 'b) mapping) Env.t ->
  Env.key list ->
  Env.key ->
  Env.key list * ('a, 'b) mapping

val deref_expr : 
  (Env.key list * ('a, 'b) mapping) Env.t ->
  Env.key list ->
  ('a, 'b) mapping ->
  ('a, 'b) mapping

val flatten : ('a * 'b list) list -> 'b list

val make_deref : 
  (bool * ('a, 'b) def list) list ->
  ('a, 'b) mapping ->
  ('a, 'b) mapping

val unwrap : 
  (('a, 'b) mapping -> ('a, 'b) mapping) ->
  ('a, 'b) mapping ->
  ('a, 'b) mapping

val constructor : ('a, 'b) mapping -> string

package atdgen