DIRECTORY Basics USING [FWORD, HWORD], CrRPC USING [BeginErrorProc, BeginRejectProc, BeginReturnProc, ProcsObject, Handle, HandleClass, RefAddress, ServerProc], XNS USING [Host, Net]; CrRPCBackdoor: CEDAR DEFINITIONS ~ { OPEN CrRPC; FWORD: TYPE ~ Basics.FWORD; HWORD: TYPE ~ Basics.HWORD; bitsPerByte: CARDINAL ~ BITS[BYTE]; courierVersionNum: CARDINAL ~ 3; SessionHdr: TYPE ~ MACHINE DEPENDENT RECORD [ lowVersion: HWORD, highVersion: HWORD ]; sessionHdrBytes: CARDINAL ~ BITS[SessionHdr]/BITS[BYTE]; sessionHdrHWords: CARDINAL ~ BITS[SessionHdr]/BITS[HWORD]; MsgHdr: TYPE ~ MACHINE DEPENDENT RECORD [ msgType: HWORD ]; callMsgType: HWORD ~ [0, 0]; rejectMsgType: HWORD ~ [0, 1]; returnMsgType: HWORD ~ [0, 2]; abortMsgType: HWORD ~ [0, 3]; msgHdrBytes: CARDINAL ~ BITS[MsgHdr]/BITS[BYTE]; msgHdrHWords: CARDINAL ~ BITS[MsgHdr]/BITS[HWORD]; CallHdr: TYPE ~ MACHINE DEPENDENT RECORD [ tID: HWORD, pgmNum: FWORD, pgmVersion: HWORD, procNum: HWORD ]; callHdrBytes: CARDINAL ~ BITS[CallHdr]/BITS[BYTE]; callHdrHWords: CARDINAL ~ BITS[CallHdr]/BITS[HWORD]; CallMsgHdr: TYPE ~ MACHINE DEPENDENT RECORD [ msgHdr: MsgHdr, callHdr: CallHdr ]; callMsgHdrBytes: CARDINAL ~ BITS[CallMsgHdr]/BITS[BYTE]; callMsgHdrHWords: CARDINAL ~ BITS[CallMsgHdr]/BITS[HWORD]; RejectHdr: TYPE ~ MACHINE DEPENDENT RECORD [ tID: HWORD, rejectReason: HWORD -- noSuchProgram(0), noSuchVersion(1), noSuchProcedure(2), invalidArgument(3), unspecifiedReject(ffffH), ]; rejectHdrBytes: CARDINAL ~ BITS[RejectHdr]/BITS[BYTE]; rejectHdrHWords: CARDINAL ~ BITS[RejectHdr]/BITS[HWORD]; RejectMsgHdr: TYPE ~ MACHINE DEPENDENT RECORD [ msgHdr: MsgHdr, rejectHdr: RejectHdr ]; rejectMsgHdrBytes: CARDINAL ~ BITS[RejectMsgHdr]/BITS[BYTE]; rejectMsgHdrHWords: CARDINAL ~ BITS[RejectMsgHdr]/BITS[HWORD]; RejectBody: TYPE ~ MACHINE DEPENDENT RECORD [ SELECT OVERLAID * FROM noSuchProgram => [], noSuchVersion => [ lowPgmVersion: HWORD, highPgmVersion: HWORD], noSuchProcedure => [], invalidArgument => [], unspecifiedReject => [] ENDCASE ]; ReturnHdr: TYPE ~ MACHINE DEPENDENT RECORD [ tID: HWORD ]; returnHdrBytes: CARDINAL ~ BITS[ReturnHdr]/BITS[BYTE]; returnHdrHWords: CARDINAL ~ BITS[ReturnHdr]/BITS[HWORD]; ReturnMsgHdr: TYPE ~ MACHINE DEPENDENT RECORD [ msgHdr: MsgHdr, returnHdr: ReturnHdr ]; returnMsgHdrBytes: CARDINAL ~ BITS[ReturnMsgHdr]/BITS[BYTE]; returnMsgHdrHWords: CARDINAL ~ BITS[ReturnMsgHdr]/BITS[HWORD]; AbortHdr: TYPE ~ MACHINE DEPENDENT RECORD [ tID: HWORD, errNum: HWORD ]; abortHdrBytes: CARDINAL ~ BITS[AbortHdr]/BITS[BYTE]; abortHdrHWords: CARDINAL ~ BITS[AbortHdr]/BITS[HWORD]; AbortMsgHdr: TYPE ~ MACHINE DEPENDENT RECORD [ msgHdr: MsgHdr, abortHdr: AbortHdr ]; abortMsgHdrBytes: CARDINAL ~ BITS[AbortMsgHdr]/BITS[BYTE]; abortMsgHdrHWords: CARDINAL ~ BITS[AbortMsgHdr]/BITS[HWORD]; BulkDataDescriptorType: TYPE ~ MACHINE DEPENDENT { null(0), immediate(1), passive(2), active(3) }; BulkDataXferID: TYPE ~ RECORD [ host: XNS.Host, hostRelativeXferID: ARRAY [0..2) OF CARDINAL]; BulkDataDescriptor: TYPE ~ RECORD [ SELECT type: BulkDataDescriptorType FROM null => [], immediate => [], passive, active => [ network: XNS.Net, host: XNS.Host, identifier: BulkDataXferID] ENDCASE ]; CreateClientHandleProc: TYPE ~ PROC [remote: RefAddress] RETURNS [Handle]; RegisterCreateClientHandleProc: PROC [ class: HandleClass, proc: CreateClientHandleProc]; NewClientObject: PROC [class: HandleClass, procs: REF ProcsObject, data: REF _ NIL, clientData: REF _ NIL] RETURNS [Handle]; RenewClientObject: PROC [handle: Handle]; CreateListenerProc: TYPE ~ PROC [local: RefAddress]; RegisterCreateListenerProc: PROC [ class: HandleClass, createListenerProc: CreateListenerProc]; LookUpServerProc: PROC [pgm: CARD32, pgmVersion: CARD16] RETURNS [serverProc: ServerProc]; }. ΨCrRPCBackdoor.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Demers, December 20, 1986 12:52:09 pm PST Introduction Backdoor interface for Courier runtime support, for use by class implementors. Copied Types and Constants Courier Message Types Header of a Courier session. Header of a Courier message. Header of a call message. Body of a call message is program-specific. Header of a reject message. Reject Reasons See CrRPC Body of a reject message. Header of a return message. Body of a return message is program-specific. Header of an abort message. Body of an abort message is program-specific. Bulk Data Implementing Client Stubs Proc to create a client Object handle associated with the given remote address. The remote address must be appropriate to the handle class for which the CreateClientHandleProc was registered (using RegisterCreateClientHandleProc, see below). The interesting operations on the handle are implemented by the ProcsObject handle.procs^. Register a CreateClientHandleProc for the given class. Allocate a new client object initialized from the arguments. Finalization is enabled, with number of package references set to 0. The finalizer calls handle.procs.finalize[handle]. This is the only approved way for a class implementor to provide Object finalization. Re-enable finalization on a given object. This is the only approved way for a class implementor to provide Object finalization. Implementing Server Stubs Transport-specific proc to create a listener at a specified socket. Default of NIL should be interpreted as a well-known socket if possible. May be called more than once with the same socket value, so it has to check for this. If local is inappropriate for the transport class, it should raise CrRPC.Error[... addressInappropriateForClass ...]. Look up a registered ServerProc for the given pgm/version. Return NIL if none exists. Intended to be called by (the process forked by) a Listener that has received a call message. Κ,˜šœ™Icodešœ Οmœ1™K˜—™š œ žœžœž œžœ˜-šžœžœž˜K˜˜Kšœžœ˜Kšœžœ˜—Kšœ˜Kšœ˜Kšœ˜Kšž˜—K˜K˜——™š œ žœžœž œžœ˜,Kšœž˜ K˜K˜—Kš œžœžœ žœžœ˜6Kš œžœžœ žœžœ˜8K˜š œžœžœž œžœ˜/Kšœ˜Kšœ˜K˜K˜—Kš œžœžœžœžœ˜—K˜K™-K˜šœ™š œ žœžœž œžœ˜+Kšœžœ˜ Kšœž˜ K˜K˜—Kš œžœžœ žœžœ˜4Kš œžœžœ žœžœ˜6K˜š œ žœžœž œžœ˜.Kšœ˜Kšœ˜K˜K˜—Kš œžœžœžœžœ˜:Kš œžœžœžœžœ˜