Module Imperative.MakeValuedNumberedNodeSource

Same as MakeValuedNode, but also remembers all built node in a hash-table so we can check if elements already have an associated node

Parameters

module Value : Parameters.SIMPLE_GENERIC_VALUE with type ('a, 'b) relation = ('a, 'b) Relation.t

Signature

include sig ... end
Sourceval polyeq : 'a t -> 'b t -> ('a, 'b) PatriciaTree.cmp
Sourcemodule Relation : sig ... end
Sourcemodule Value : sig ... end
Sourcetype !'a root = 'a MakeValuedNode(Elt)(Relation)(Value).root = {
  1. mutable value : 'a Value.t;
  2. mutable size : int;
}
Sourcetype !'a parent = 'a MakeValuedNode(Elt)(Relation)(Value).parent =
  1. | Node : 'b t * ('a0, 'b) Relation.t -> 'a0 parent
  2. | Root of 'a root
Sourceval get_parent : 'a t -> 'a parent
Sourceval set_parent : 'a t -> 'a parent -> unit
Sourceval payload : 'a t -> 'a Elt.t

Inspect the payload of a node

Sourceval make_node : 'a Elt.t -> 'a Value.t -> 'a t

Create a new node with given value, in its own class. At most one node should be created per element!

Sourceval get_node : 'a Elt.t -> 'a t option

Checks if a node has already been constructed for the given element

Sourceval get_or_make_node : 'a Elt.t -> 'a Value.t -> 'a t

Returns the node associated with the given element if it exists, else builds it The value is only used when creating nodes