RPCEchoServerImpl.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Hal Murray, January 22, 1986 11:12:36 pm PST
DIRECTORY
Rope USING [ROPE],
RPCEcho USING [Page, TenPages, TenWords],
RPCEchoRpcControl
USING [ExportInterface];
Export the Impls
Page: TYPE = RPCEcho.Page;
TenPages: TYPE = RPCEcho.TenPages;
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];
};
SloshTenPages:
PUBLIC PROC [pages: TenPages]
RETURNS [mumble: TenPages] = {
RETURN[pages];
};
PushPage:
PUBLIC PROC [page: Page] = {};
PullPage:
PUBLIC PROC
RETURNS [mumble: Page] = {};
DoAtom:
PUBLIC PROC [atom:
ATOM] = {};
DoRope:
PUBLIC PROC [rope:
ROPE] = {};
RPCEchoRpcControl.ExportInterface[
interfaceName: [instance: NIL], user: NIL, password: NULL ];
}.