property/src/PropertyV.m3


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.