RPCEchoServerImpl.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Hal Murray, January 21, 1986 10:24:39 pm PST
DIRECTORY
Rope USING [ROPE],
RPC USING [MakeKey],
RPCEcho USING [Page, TenWords],
RPCEchoRpcControl USING [ExportInterface],
UserCredentials
USING [Get];
Export the Impls
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]];
}.