Copyright (C) 1994, Digital Equipment Corp.
MODULE PropertyV;
IMPORT Property, PropertyF;
PROCEDURE Put(VAR ps: Set; r: REFANY)=
BEGIN
IF ps = NIL THEN ps := Property.New() END;
PropertyF.Put(ps, r);
END Put;
PROCEDURE Remove(VAR ps: Set; tc: CARDINAL)=
BEGIN
IF ps # NIL THEN
PropertyF.Remove(ps, tc);
END;
END Remove;
PROCEDURE Get(ps: Set; tc: CARDINAL): REFANY=
BEGIN
IF ps # NIL THEN
RETURN PropertyF.Get(ps, tc);
ELSE
RETURN NIL;
END;
END Get;
PROCEDURE RemoveSub(VAR ps: Set; tc: CARDINAL)=
BEGIN
IF ps # NIL THEN
PropertyF.RemoveSub(ps, tc);
END;
END RemoveSub;
PROCEDURE GetSub(ps: Set; tc: CARDINAL): REFANY=
BEGIN
IF ps # NIL THEN
RETURN PropertyF.GetSub(ps, tc);
ELSE
RETURN NIL;
END;
END GetSub;
BEGIN
END PropertyV.