

DIRECTORY
RuntimeError USING [BoundsFault],
SunRPC USING [Error, GetCard32, GetInt32, GetRefText, GetRope, Handle, PutRefText, PutRope, ReleaseReply, SendCallAndReceiveReply, StartCall],
SunRPCAuth USING [Conversation],
SunYP USING [all, AllProc, domain, DomainName, domainNonack, DomainProc, first, FirstProc, maplist, MaplistProc, master, MasterProc, match, MatchProc, next, NextProc, null, NullProc, order, OrderProc, program, programVersion, RequestKey, RequestNoKey, ResponseKeyVal, ResponseVal, Status],
SunYPClient USING []
;

SunYPClientStub: CEDAR PROGRAM
IMPORTS RuntimeError, SunRPC
EXPORTS SunYPClient
~ {
Handle: TYPE ~ SunRPC.Handle;
Conversation: TYPE ~ SunRPCAuth.Conversation;
fastTimeout: CARD ¬ 500;
mediumTimeout: CARD ¬ 1000;
slowTimeout: CARD ¬ 5000;
defaultRetries: CARD ¬ 10;
noRetries: CARD ¬ 0;
Null: PUBLIC SunYP.NullProc -- [h: Handle, c: Conversation] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.null];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
SunRPC.ReleaseReply[h];
};

Domain: PUBLIC SunYP.DomainProc -- [h: Handle, c: Conversation, domain: DomainName] RETURNS [serves: BOOL] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.domain];
SunRPC.PutRope[h, domain];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
serves ¬ (SunRPC.GetCard32[h] # 0);
SunRPC.ReleaseReply[h];
};

DomainNonack: PUBLIC PROC [h: SunRPC.Handle, c: SunRPCAuth.Conversation, domain: SunYP.DomainName, timeout: CARD] RETURNS [serves: BOOL] ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.domainNonack];
SunRPC.PutRope[h, domain];
[] ¬ SunRPC.SendCallAndReceiveReply[h, timeout, noRetries];
serves ¬ (SunRPC.GetCard32[h] # 0);
SunRPC.ReleaseReply[h];
};

Match: PUBLIC SunYP.MatchProc -- [h: Handle, c: Conversation, req: RequestKey] RETURNS [resp: ResponseVal] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.match];
PutRequestKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, mediumTimeout, defaultRetries];
resp ¬ GetResponseVal[h];
SunRPC.ReleaseReply[h];
};

First: PUBLIC SunYP.FirstProc -- [h: Handle, c: Conversation, req: RequestNoKey] RETURNS [resp: ResponseKeyVal] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.first];
PutRequestNoKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, mediumTimeout, defaultRetries];
resp ¬ GetResponseKeyVal[h];
SunRPC.ReleaseReply[h];
};

Next: PUBLIC SunYP.NextProc -- [h: Handle, c: Conversation, req: RequestKey] RETURNS [resp: ResponseKeyVal] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.next];
PutRequestKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, mediumTimeout, defaultRetries];
resp ¬ GetResponseKeyVal[h];
SunRPC.ReleaseReply[h];
};

All: PUBLIC SunYP.AllProc -- [h: Handle, c: Conversation, req: RequestNoKey, eachResponseKeyVal: EachResponseKeyValProc] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.all];
PutRequestNoKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, slowTimeout, defaultRetries];
DO
IF SunRPC.GetCard32[h] = 0 THEN EXIT;
IF NOT eachResponseKeyVal[GetResponseKeyVal[h]].continue THEN EXIT;
ENDLOOP;
SunRPC.ReleaseReply[h];
};

Master: PUBLIC SunYP.MasterProc -- [h: Handle, c: Conversation, req: RequestNoKey] RETURNS [resp: ResponseMaster] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.master];
PutRequestNoKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
resp.status ¬ GetStatus[h];
resp.master ¬ SunRPC.GetRope[h];
SunRPC.ReleaseReply[h];
};

Order: PUBLIC SunYP.OrderProc -- [h: Handle, c: Conversation, req: SunYP.RequestNoKey] RETURNS [resp: SunYP.ResponseOrder] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.order];
PutRequestNoKey[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
resp.status ¬ GetStatus[h];
resp.ordernum ¬ SunRPC.GetCard32[h];
SunRPC.ReleaseReply[h];
};

Maplist: PUBLIC SunYP.MaplistProc -- [h: Handle, c: Conversation, req: DomainName, eachMapName: EachMapNameProc] RETURNS [status: Status] -- ~ {
SunRPC.StartCall[h, c, SunYP.program, SunYP.programVersion, SunYP.maplist];
SunRPC.PutRope[h, req];
[] ¬ SunRPC.SendCallAndReceiveReply[h, mediumTimeout, defaultRetries];
status ¬ GetStatus[h];
SELECT status FROM
true, nomore => DO
IF SunRPC.GetCard32[h] = 0 THEN EXIT;
IF NOT eachMapName[SunRPC.GetRope[h]].continue THEN EXIT;
ENDLOOP;
ENDCASE;
SunRPC.ReleaseReply[h];
};

GetStatus: PROC [h: SunRPC.Handle] RETURNS [status: SunYP.Status] ~ INLINE {
ENABLE RuntimeError.BoundsFault => ERROR SunRPC.Error[$protocolError];
RETURN [GetStatusInner[h]];
};

GetStatusInner: PROC [h: SunRPC.Handle] RETURNS [SunYP.Status] ~ {
x: INT ¬ SunRPC.GetInt32[h];
RETURN[VAL[CARDINAL[IF x >= 0 THEN x ELSE 1000-x]]];
};

PutRequestKey: PROC [h: SunRPC.Handle, req: SunYP.RequestKey] ~ {
SunRPC.PutRope[h, req.domain];
SunRPC.PutRope[h, req.map];
SunRPC.PutRefText[h, req.key];
};

PutRequestNoKey: PROC [h: SunRPC.Handle, req: SunYP.RequestNoKey] ~ {
SunRPC.PutRope[h, req.domain];
SunRPC.PutRope[h, req.map];
};

GetResponseVal: PROC [h: SunRPC.Handle] RETURNS [resp: SunYP.ResponseVal] ~ {
resp.status ¬ GetStatus[h];
resp.val ¬ SunRPC.GetRefText[h];
};

GetResponseKeyVal: PROC [h: SunRPC.Handle] RETURNS [resp: SunYP.ResponseKeyVal] ~ {
resp.status ¬ GetStatus[h];
resp.val ¬ SunRPC.GetRefText[h];
resp.key ¬ SunRPC.GetRefText[h];
};

}...
   Ò  SunYPClientStub.mesa
Copyright Ó 1989, 1991, 1992 by Xerox Corporation.  All rights reserved.
Demers, January 5, 1988 5:39:22 pm PST
Willie-Sue, March 15, 1989 2:36:18 pm PST
Types
Parameters
Procedures
 Ê”  –(cedarcode) style•NewlineDelimiter
˜ codešœ™Kšœ
Ïeœ=™HK™&K™)K˜ —šÏk	˜	Kšœžœ˜!Kšœžœ‚˜ŽKšœžœ˜ Kšœžœ–˜¡Kšœžœ˜Kšœ˜K˜ —šÏnœžœž˜Kšžœ˜Kšžœ˜K˜head™Kšœžœ˜Kšœžœ˜-—™
Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜—™
šŸœžœÏc"œ˜BKšœH˜HKšœD˜DK˜K˜K˜ —šŸœžœ Mœ˜qKšœJ˜JK˜KšœD˜DKšœ#˜#K˜K˜K˜ —šŸœžœžœSžœžœ
žœ˜ŒKšœP˜PK˜Kšœ;˜;Kšœ#˜#K˜K˜K˜ —šŸœžœ Oœ˜qKšœI˜IK˜KšœF˜FK˜K˜K˜K˜ —šŸœžœ Tœ˜vKšœI˜IK˜KšœF˜FK˜K˜K˜K˜ —šŸœžœ Rœ˜rKšœH˜HK˜KšœF˜FK˜K˜K˜K˜ —šŸœžœ aœ˜KšœG˜GK˜KšœD˜Dšž˜Kšžœžœžœ˜%Kšžœžœ3žœžœ˜CKšžœ˜—K˜K˜K˜ —šŸœžœ Tœ˜xKšœJ˜JK˜KšœD˜DK˜K˜ K˜K˜K˜ —šŸœžœ _œ˜KšœI˜IK˜KšœD˜DK˜K˜$K˜K˜K˜ —šŸœžœ jœ˜KšœK˜KK˜KšœF˜FKšœ˜šžœž˜šœž˜Kšžœžœžœ˜%Kšžœžœ)žœžœ˜9Kšžœ˜—Kšžœ˜—K˜K˜K˜ —šŸ	œžœžœžœ˜LKšžœžœ˜FKšžœ˜K˜K˜ —šŸœžœžœ˜BKšœžœ˜Kšžœžœžœžœžœžœ˜4K˜—K˜ šŸœžœ.˜AK˜K˜K˜K˜K˜ —šŸœžœ0˜EK˜K˜K˜K˜ —šŸœžœžœ˜MK˜K˜ K˜K˜ —šŸœžœžœ!˜SK˜K˜ K˜ K˜K˜ ——K˜—— …—    p  Ö  