`sig
type label
val new_method : string -> CamlinternalOO.label
val public_method_label : string -> CamlinternalOO.label
type table
and meth
and t
and obj
val new_variable : CamlinternalOO.table -> string -> int
val get_variable : CamlinternalOO.table -> string -> int
val get_method_label :
CamlinternalOO.table -> string -> CamlinternalOO.label
val get_method :
CamlinternalOO.table -> CamlinternalOO.label -> CamlinternalOO.meth
val set_method :
CamlinternalOO.table ->
CamlinternalOO.label -> CamlinternalOO.meth -> unit
val narrow :
CamlinternalOO.table -> string list -> string list -> string list -> unit
val widen : CamlinternalOO.table -> unit
val add_initializer :
CamlinternalOO.table -> (CamlinternalOO.obj -> unit) -> unit
val create_table : string list -> CamlinternalOO.table
val init_class : CamlinternalOO.table -> unit
val copy : (< .. > as 'a) -> 'a
val create_object : CamlinternalOO.table -> CamlinternalOO.obj
val create_object_opt :
CamlinternalOO.obj -> CamlinternalOO.table -> CamlinternalOO.obj
val run_initializers : CamlinternalOO.obj -> CamlinternalOO.table -> unit
val run_initializers_opt :
CamlinternalOO.obj ->
CamlinternalOO.obj -> CamlinternalOO.table -> CamlinternalOO.obj
val create_object_and_run_initializers :
CamlinternalOO.obj -> CamlinternalOO.table -> CamlinternalOO.obj
val send : CamlinternalOO.obj -> CamlinternalOO.label -> CamlinternalOO.t
type params = {
mutable compact_table : bool;
mutable copy_parent : bool;
mutable clean_when_copying : bool;
mutable retry_count : int;
mutable bucket_small_size : int;
}
val params : CamlinternalOO.params
type stats = {
classes : int;
labels : int;
methods : int;
inst_vars : int;
buckets : int;
distrib : int array;
small_bucket_count : int;
small_bucket_max : int;
}
val stats : unit -> CamlinternalOO.stats
val show_buckets : unit -> unit
end`