-- Copyright (C) 1984  by Xerox Corporation. All rights reserved. 
-- RPCEchoServer.mesa, HGM, 21-Jan-84 20:37:34

DIRECTORY
  MesaRPCLupine USING [Dispatcher, ExportHandle, ExportInterface];

RPCEchoServer: MONITOR IMPORTS MesaRPCLupine =

  BEGIN

  expHandle: MesaRPCLupine.ExportHandle;
  
  packets: LONG CARDINAL ¬ 0;
  words: LONG CARDINAL ¬ 0;

  MultiPacket: ERROR = CODE;

  EchoDispatcher: MesaRPCLupine.Dispatcher =
    BEGIN
    IF ~lastPkt THEN ERROR MultiPacket[];
    packets ¬ packets + 1;
    words ¬ words + callLength;
    RETURN[callLength];
    END;

  expHandle ¬ MesaRPCLupine.ExportInterface[NIL, TRASH, ["RPC-Echo"L, NIL], EchoDispatcher, [0, 0]];

  END.