DIRECTORY SunRPC, ThrushSunRPC, SRPCCalls, LarkFeepSunRPC, LarkFeepSunRPCClient; LarkFeepSunRPCClientStub: CEDAR PROGRAM IMPORTS SunRPC, SRPCCalls EXPORTS LarkFeepSunRPCClient ~ { OPEN LarkFeepSunRPC, SRPCCalls; Handle: TYPE ~ SunRPC.Handle; GetError: SunRPCGetErrorProc ~ { }; Flash: PUBLIC FlashType ~ { PutArgs: SunRPCPutArgsProc ~ { SunRPC.PutCard32[h, shhh]; SunRPC.PutCard32[h, serviceID]; SunRPC.PutCard32[h, convID]; SunRPC.PutCard32[h, requestingParty]; SunRPC.PutCard32[h, actionID]; SunRPC.PutCard32[h, extraTime]; }; GetResults: SunRPCGetResultsProc ~ { nb ¬ SunRPC.GetRope[h]; }; SunRPCCall[h~h, remoteProc~2 , putArgs~PutArgs, getResults~GetResults, getError~GetError]; }; Feep: PUBLIC FeepType ~ { PutArgs: SunRPCPutArgsProc ~ { SunRPC.PutCard32[h, shhh]; SunRPC.PutCard32[h, serviceID]; SunRPC.PutCard32[h, convID]; SunRPC.PutCard32[h, requestingParty]; SunRPC.PutRope[h, number]; SunRPCPutBool[h, noisy]; SunRPC.PutCard32[h, on]; SunRPC.PutCard32[h, off]; }; GetResults: SunRPCGetResultsProc ~ { nb ¬ SunRPC.GetRope[h]; }; SunRPCCall[h~h, remoteProc~1 , putArgs~PutArgs, getResults~GetResults, getError~GetError]; }; SunRPCCall: PROC [h: Handle, remoteProc: CARD, putArgs: SunRPCPutArgsProc, getResults: SunRPCGetResultsProc, getError: SunRPCGetErrorProc] ~ { SunRPCProgramCall[h: h, remoteProc: remoteProc, putArgs: putArgs, getResults: getResults, getError: getError]; }; }... B LarkFeepSunRPCClientStub.Mesa Copyright Σ 1990, 1992 by Xerox Corporation. All rights reserved. Derived from LarkFeepP914V1ClientImpl.mesa Generated by Pier.pa at May 24, 1990 2:39:13 pm PDT using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST Swinehart, September 16, 1990 12:48:02 pm PDT Remote Procedures -- ΚΤ•NewlineDelimiter –(cedarcode) style™šœ™Jšœ Οeœ7™BJšœ*™*Jšœ3™3Jšœ7™7Icode™-K˜—šΟk ˜ K˜K˜ K˜ K˜Kšœ˜—K˜šΟnœžœž˜'Kšžœ˜Kšžœ˜ Kšžœ˜—K˜Kšœžœ˜K˜šŸœ˜ K˜—K˜šœ™K˜šŸœžœ˜šŸœ˜K˜K˜K˜K˜%K˜Kšœ˜K˜—šŸ œ˜$K˜K˜K˜—KšœZ˜ZK˜—K˜šŸœžœ ˜šŸœ˜K˜K˜K˜K˜%K˜Kšœ˜Kšœ˜Kšœ˜K˜—šŸ œ˜$K˜K˜K˜—KšœZ˜ZK˜—K˜K˜šŸ œžœžœa˜ŽK˜Kšœn˜nK˜K˜—K˜K˜—K˜K˜K˜K˜—…—†œ