DIRECTORY CrRPC, TimeP15V2, MailTransportP17V5, EnvelopeFormatP1517V1; EnvelopeFormatP1517V1ServerImpl: CEDAR PROGRAM IMPORTS CrRPC, EnvelopeFormatP1517V1 ~ { OPEN EnvelopeFormatP1517V1; Server: CrRPC.ServerProc ~ { ENABLE { }; IF (pgmVersion # 1) THEN { beginReject[h, CrRPC.noSuchVersion]; CrRPC.PutCard16[s, 1]; --low CrRPC.PutCard16[s, 1]; --high RETURN }; SELECT proc FROM ENDCASE => { beginReject[h, CrRPC.noSuchProcedure]; }; EXITS Finished => { NULL }; }; CrRPC.RegisterServerProc[pgm~1517, serverProc~Server, pgmVersion~1]; CrRPC.EnsureListener[class~$SPP]; }... „ EnvelopeFormatP1517V1ServerImpl.Mesa Copyright Σ 1989, 1991 by Xerox Corporation. All rights reserved. Generated by Willie-sue.pa at February 13, 1989 6:32:53 pm PST using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST [h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc] ΚE•NewlineDelimiter –(cedarcode) style™šœ$™$Jšœ Οeœ6™BJšœ>™>Jšœ7™7Icode˜—šΟk ˜ K˜K˜ K˜K˜—K˜šΟnœžœž˜.Kšžœ!˜(Kšžœ˜—K˜šŸœ˜Jšœ™K˜šžœ˜K˜—K˜šžœžœ˜K˜$KšœΟc˜Kšœ ˜Kšž˜K˜—K˜šžœž˜šžœ˜ K˜&K˜——K˜šž˜Kšœžœ˜—K˜—˜K˜DK˜!—K˜K˜—…—F