RPCInternalExtras.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
RPC: Internal interface
Andrew Birrell September 7, 1983 4:12 pm
Bob Hagmann August 7, 1985 10:42:22 am PDT
Swinehart, August 1, 1985 11:02:34 am PDT
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.
Bob Hagmann August 7, 1985 10:38:25 am PDT
changes to: DIRECTORY, AddToExportTable