Copyright (C) 1994, Digital Equipment Corp. INTERFACEA Property.Set is a set of non-nil traced references, all of different types.Property ;
Clients should not activate procedures in this interface concurrently on the same Set (see MProperty for monitored sets).
TYPE
Set <: Set_public;
Set_public = OBJECT
METHODS
put(ref: REFANY);
(* Add ref to 'ps', replacing any existing reference of the same type
as 'ref'. This is a checked runtime error if 'ref' is NIL. *)
get(tc: CARDINAL): REFANY;
(* Return the element of ps with typecode 'tc', or return NIL if no
such element exists. *)
getSub(tc: CARDINAL): REFANY;
(* Return an element of 'ps' which is a subtype of the type with
typecode 'tc', or return NIL if no such element exists. If there
is more than one element which satisfies the test, it is
indeterminate which one is returned. *)
remove(tc: CARDINAL);
(* Remove the element of 'ps' with typecode 'tc', if one exists. *)
removeSub(tc: CARDINAL);
(* Remove the element of 'ps' which is a subtype of the type with
typecode 'tc', if one exists. *)
END;
PROCEDURE New(): Set;
Create the empty set
END Property.