DIRECTORY CrRPC, TimeP15V2, ClearinghouseP2V2, CHNameP2V0, CHEntriesP0V0; CHEntriesP0V0ServerImpl: CEDAR PROGRAM IMPORTS CrRPC, CHEntriesP0V0 ~ { OPEN CHEntriesP0V0; Server: CrRPC.ServerProc ~ { 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]; }... lCHEntriesP0V0ServerImpl.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 [h: Handle, pgm: CARD, pgmVersion: CARDINAL, proc: CARDINAL, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc] ʘšœ™Jšœ>™>Jšœ:™:Jšœ8™8J˜—šÏk ˜ J˜J˜ J˜J˜ J˜—J˜šÏnœœ˜&Jšœ˜ Jšœ˜—J˜šžœ˜Jšœ”™”J˜šœ˜J˜—J˜šœœ˜J˜$JšœÏc˜JšœŸ˜Jš˜J˜—J˜šœ˜šœ˜ J˜&J˜——J˜š˜Jšœœ˜—J˜—˜J˜AJ˜!—J˜J˜—…—2´