module NS: sig
.. end
Sets of pairs Node.t * Zone.t
, with a special semantics for zones:
add n z (add n z' empty)
results in (n, Zone.join z z')
instead
of a set with two different elements. All operations see only instance
of a node, with the join of all possible zones. Conversely, a node should
not be present with an empty zone.
include struct ... end
val intersects : t -> t -> bool
val inter : t -> t -> t
val union : t -> t -> t
val find_default : key -> t -> Locations.Zone.t
val add' : key * Locations.Zone.t -> t -> t
val mem' : key * Locations.Zone.t -> t -> bool
val remove' : key * Locations.Zone.t -> t -> t
val iter' : (PdgTypes.Node.t * Locations.Zone.t -> unit) -> t -> unit
val for_all' : (PdgTypes.Node.t * Locations.Zone.t -> bool) -> t -> bool
val diff : t -> t -> t
val filter' : (PdgTypes.Node.t * Locations.Zone.t -> bool) -> t -> t
val fold : (PdgTypes.Node.t * Locations.Zone.t -> 'a -> 'a) -> t -> 'a -> 'a