<> <> <> <> <> <> DIRECTORY DESFace USING [ IV, Key ], RPC USING[ InterfaceName, Principal, SecurityLevel, VersionRange ], RPCInternal USING[ Authenticator, ConversationObject], RPCLupine USING [ Dispatcher ], RPCPkt USING [ ExportHandle ] ; RPCInternalExtras: DEFINITIONS = BEGIN CopyPrincipal: PROC [from: RPC.Principal, to: LONG POINTER]; EntryGenerate: PROC [ level: RPC.SecurityLevel, iv: DESFace.IV, originator, responder: RPC.Principal, convKey: DESFace.Key, auth: RPCInternal.Authenticator] RETURNS [ conversation: REF RPCInternal.ConversationObject ]; AddToExportTable: PROC [interface: RPC.InterfaceName, dispatcher: RPCLupine.Dispatcher, stubProtocol: RPC.VersionRange] RETURNS [ instance: RPCPkt.ExportHandle ]; END. <> <> <<>>