DIRECTORY Rope USING [ROPE], RPC USING [MakeKey], RPCEcho USING [Page, TenWords], RPCEchoRpcControl USING [ExportInterface], UserCredentials USING [Get]; RPCEchoServerImpl: CEDAR MONITOR IMPORTS RPC, RPCEchoRpcControl, UserCredentials EXPORTS RPCEcho = { ROPE: TYPE = Rope.ROPE; Page: TYPE = RPCEcho.Page; TenWords: TYPE = RPCEcho.TenWords; Error: PUBLIC ERROR = CODE; Simple: PUBLIC PROC = {}; SloshTenWords: PUBLIC PROC [tenWords: TenWords] RETURNS [mumble: TenWords] = { RETURN[tenWords]; }; SloshPage: PUBLIC PROC [page: Page] RETURNS [mumble: Page] = { RETURN[page]; }; DoAtom: PUBLIC PROC [atom: ATOM] = {}; DoRope: PUBLIC PROC [rope: ROPE] = {}; RPCEchoRpcControl.ExportInterface[ interfaceName: [instance: UserCredentials.Get[].name], user: UserCredentials.Get[].name, password: RPC.MakeKey[UserCredentials.Get[].password]]; }. šRPCEchoServerImpl.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Hal Murray, January 21, 1986 10:24:39 pm PST Export the Impls Κš˜šœ™Icodešœ Οmœ1™Kšžœ˜ K˜K˜—šŸœž œžœ˜&K˜—šŸœž œžœ˜&K˜—šœ"˜"Jšœ6˜6Jšœ!˜!Jšœ7˜7J˜—Jšœ˜J˜J˜J˜——…—Tˆ