
DIRECTORY Atom, Rope;

LocalRegistryAgent: CEDAR DEFINITIONS ~ {

ROPE: TYPE ~ Rope.ROPE;
Milliseconds: TYPE ~ INT;
PropList: TYPE ~ Atom.PropList; --each key is an ATOM, each val is a ROPE

ServiceRegistration: TYPE ~ REF ServiceRegistrationPrivate;
ServiceRegistrationPrivate: TYPE;

MaintainService: PROC [name: ROPE, value: PropList, regTimeout, regPeriod: Milliseconds] RETURNS [ServiceRegistration];

ChangeProps: PROC [sr: ServiceRegistration, newValue: PropList];

StopService: PROC [ServiceRegistration];

}.
   @  
LocalRegistryAgent.mesa
Copyright Ó 1990, 1991 by Xerox Corporation.  All rights reserved.
Spreitze, May 27, 1992 7:22 am PDT
Every regPeriod, the registration is refreshed with msToLive=regTimeout --- from a forked process.
Changes the property list of this registration.
Retracts the registration.  Idempotent.
Ê  –(cedarcode) style•NewlineDelimiter
™ code™Kšœ
Ïeœ7™BK™"—K˜ KšÏk	œ˜K˜ KšÏnœžœžœ˜)K˜ Kšžœžœžœ˜Kšœžœžœ˜Kšœ
žœÏc)˜IK˜ Kšœžœžœ˜;Kšœžœ˜!K˜ šŸœžœžœ8žœ˜wKšœb™b—K˜ šŸœžœ/˜@K™/—K˜ šŸœžœ˜(K™'—K˜ K˜— …—      _  