<<>>
-- 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];
}...