Module Pdg_aux.NS

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