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 _ 2000; slowTimeout: CARD _ 5000; defaultRetries: CARD _ 5; 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 Demers, October 6, 1987 4:56:23 pm PDT Types Parameters Procedures Ê]˜codešœ™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šœœœ˜%Jšœœ3œœ˜CJšœ˜—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˜J˜K˜K˜—šžœœ0˜EK˜K˜K˜K˜—šžœœœ˜MK˜K˜ K˜K˜—šžœœœ!˜SK˜K˜ K˜ K˜K˜——K˜——…—p+