
DIRECTORY Atom, Rope, SunRPC, SunRPCAuth;

LocalRegistry: CEDAR DEFINITIONS ~ {

ROPE: TYPE ~ Rope.ROPE;

program: CARD ~ 390920;
programVersion: CARD ~ 1;

Handle: TYPE ~ SunRPC.Handle;
Conversation: TYPE ~ SunRPCAuth.Conversation;

Milliseconds: TYPE ~ INT;

ServiceHandle: TYPE ~ ARRAY [0..2] OF INT;
Generation: TYPE ~ CARD;

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

Registration: TYPE ~ RECORD [
name: ROPE,
msToLive: Milliseconds,
value: PropList];

ResultCode: TYPE ~ {success, staleHandle, differentGeneration, otherFailure};

null: CARD ~ 0;
NullProc: TYPE ~ PROC [h: Handle, c: Conversation];

register: CARD ~ 1;
RegisterProc: TYPE ~ PROC [h: Handle, c: Conversation, reg: Registration, gen: Generation] RETURNS [rcode: ResultCode, sh: ServiceHandle--meaningful only if rcode=success--];

refresh: CARD ~ 2;
RefreshProc: TYPE ~ PROC [h: Handle, c: Conversation, sh: ServiceHandle, msToLive: Milliseconds] RETURNS [ResultCode];

getNames: CARD ~ 3;
GetNamesProc: TYPE ~ PROC [h: Handle, c: Conversation, NoteName: PROC [ROPE]] RETURNS [ResultCode];

getHandles: CARD ~ 4;
GetHandlesProc: TYPE ~ PROC [h: Handle, c: Conversation, name: ROPE, NoteHandle: PROC [ServiceHandle]] RETURNS [rcode: ResultCode, gen: Generation--only meaningful if rcode=success--];

getRegistration: CARD ~ 5;
GetRegistrationProc: TYPE ~ PROC [h: Handle, c: Conversation, sh: ServiceHandle] RETURNS [rcode: ResultCode, reg: Registration--only meaningful if rcode=success--];

Error: ERROR;

}.
   ì  
LocalRegistry.mesa
Copyright Ó 1990, 1991 by Xerox Corporation.  All rights reserved.
Spreitze, November 13, 1990 11:37 am PST
!Error if given malformed PropList.
!Error if NoteResults calls NextHandle more than nHandles times.
 ÊJ  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ
Ïeœ7™BK™(—K˜ KšÏk	œ ˜)K˜ KšÏnœžœžœ˜$K˜ Kšžœžœžœ˜K˜ Kšœ	žœ
˜Kšœžœ˜K˜ Kšœžœ˜Kšœžœ˜-K˜ Kšœžœžœ˜K˜ Kš	œžœžœžœžœ˜*Kšœžœžœ˜K˜ Kšœ
žœÏc)˜IK˜ šœžœžœ˜Kšœžœ˜K˜K˜—K˜ Kšœžœ=˜MK˜ Kšœžœ˜Kšœ
žœžœ˜3K˜ Kšœ
žœ˜š	œžœžœBžœ& $œ˜®K™#—K˜ Kšœ	žœ˜KšœžœžœIžœ˜vK˜ Kšœ
žœ˜KšœžœžœŸœžœžœžœ˜cK˜ Kšœžœ˜šœžœžœ$žœŸ
œžœžœ$ $œ˜¸Kšœ@™@—K˜ Kšœžœ˜Kš	œžœžœ1žœ& $œ˜¤K˜ KšŸœžœ˜K˜ K˜— …—    ê  	   