FilingAttributesP10V5ServerImpl.Mesa
Copyright Ó 1986, 1991 by Xerox Corporation. All rights reserved.
Generated by Diebert.pa at May 10, 1988 10:44:09 am PDT
using Sirocco [2.0] of January 31, 1987 1:52:42 am PST
DIRECTORY
CrRPC,
TimeP15V2,
CHNameP2V0,
FilingAttributesP10V5;
FilingAttributesP10V5ServerImpl:
CEDAR
PROGRAM
IMPORTS CrRPC, FilingAttributesP10V5 ~ {
OPEN FilingAttributesP10V5;
Server: CrRPC.ServerProc ~ {
[h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
IF (pgmVersion # 5)
THEN {
beginReject[h, CrRPC.noSuchVersion];
CrRPC.PutCard16[s, 5]; --low
CrRPC.PutCard16[s, 5]; --high
RETURN
};
SELECT proc
FROM
ENDCASE => {
beginReject[h, CrRPC.noSuchProcedure];
};
EXITS
Finished => { NULL };
};
CrRPC.RegisterServerProc[pgm~10, serverProc~Server, pgmVersion~5];
CrRPC.EnsureListener[class~$SPP];
}...