Copyright (C) 1994, Digital Equipment Corp. INTERFACEThis interface provides a procedural interface to a Property.Set. It specifies VAR (*inoutPropertyV ; IMPORT Property;
parameters to denote the set, so that NIL can denote the uninitialised (empty) set. The Put procedure creates the empty Set object if the input set is NIL. The specification is otherwise as per Property. *) CONST NullSet: Set = NIL; (* usage: VAR s := Property.NullSet; *) TYPE Set = Property.Set; PROCEDURE Put(VAR (*inout*) ps: Set; r: REFANY); PROCEDURE Remove(VAR (*inout*) ps: Set; tc: CARDINAL); PROCEDURE Get(ps: Set; tc: CARDINAL): REFANY; PROCEDURE RemoveSub(VAR (*inout*) ps: Set; tc: CARDINAL); PROCEDURE GetSub(ps: Set; tc: CARDINAL): REFANY; END PropertyV.