AlpInstanceCourier.mesa
Carl Hauser, November 11, 1987 6:34:13 pm PST
DIRECTORY
AlpineEnvironment,
AlpineP2202V1,
AlpTransaction,
CrRPC,
XNSAuth;
AlpInstanceCourier: CEDAR DEFINITIONS
~ BEGIN
Instance: TYPE = REF InstanceObject;
InstanceObject: TYPE = MONITORED RECORD [
courierHandle: CrRPC.Handle,
authenticatedConversation: XNSAuth.Conversation,
credentials: XNSAuth.Credentials,
session: AlpineP2202V1.Session
];
TransWorkProc: TYPE = PROC [rpc: CrRPC.Handle, session: AlpineP2202V1.Session,
transID: AlpineEnvironment.TransID];
DoTransWork: PROC [inst: Instance, transHandle: AlpTransaction.Handle, work: TransWorkProc];
END.