CHEntriesP0V0ServerImpl.Mesa
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at October 9, 1986 4:46:41 am PDT
using Sirocco [1.0] of September 25, 1986 3:44:23 am PDT
DIRECTORY
CrRPC,
TimeP15V2,
ClearinghouseP2V2,
CHNameP2V0,
CHEntriesP0V0;
CHEntriesP0V0ServerImpl: CEDAR PROGRAM
IMPORTS CrRPC, CHEntriesP0V0 ~ {
OPEN CHEntriesP0V0;
Server: CrRPC.ServerProc ~ {
[h: Handle, pgm: CARD, pgmVersion: CARDINAL, proc: CARDINAL, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
ENABLE {
};
IF (pgmVersion # 0) THEN {
beginReject[h, CrRPC.noSuchVersion];
CrRPC.PutCARDINAL[h, 0]; --low
CrRPC.PutCARDINAL[h, 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];
}...