-- CHEntriesP0V0ServerImpl.Mesa
-- Copyright Ó 1991 by Xerox Corporation. All rights reserved.
 -- Copyright (C) 1989 by Xerox Corporation. All rights reserved.
 -- Generated by Willie-sue.pa at February 13, 1989 2:51:11 pm PST
 -- using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST
 
DIRECTORY
 CrRPC,
 TimeP15V2,
 CHNameP2V0,
 CHOpsP2V3,
 CHEntriesP0V0;

CHEntriesP0V0ServerImpl: CEDAR PROGRAM
 IMPORTS CrRPC, CHEntriesP0V0 ~ {
 OPEN CHEntriesP0V0;

Server: CrRPC.ServerProc ~ {
 -- [h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
 
 ENABLE {
  };
 
 IF (pgmVersion # 0) THEN {
  beginReject[h, CrRPC.noSuchVersion];
  CrRPC.PutCard16[s, 0]; --low
  CrRPC.PutCard16[s, 0]; --high
  RETURN
  };
 
 SELECT proc FROM
  ENDCASE => {
   beginReject[h, CrRPC.noSuchProcedure];
   };
 
 EXITS
  Finished => { NULL };
 };

 CrRPC.RegisterServerProc[pgm~0, serverProc~Server, pgmVersion~0];
 CrRPC.EnsureListener[class~$SPP];
}...