JoinApp.mesa
Please do not edit this file.
It was generated using CedarRPCGen.
DIRECTORY
Rope,
Arpa,
UT,
SunRPCAuth,
SunRPC;
JoinApp: CEDAR DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
ReturnCodes:
TYPE =
MACHINE
DEPENDENT {
iluSuccess(0),
iluECantExportService(1),
ENotAuthorized(2)
};
ReturnCodesNames: READONLY ARRAY ReturnCodes OF ROPE;
JoinApplicationargs:
TYPE =
RECORD [
in:
UT.ObjectDescription
];
JoinApplicationreturn: TYPE = REF JoinApplicationreturnObject;
JoinApplicationreturnObject:
TYPE =
RECORD [
union:
SELECT returnCode: ReturnCodes
FROM
iluSuccess => [returnValue: UT.ObjectDescription],
ENotAuthorized, iluECantExportService => [],
ENDCASE];
JoinAppPrognum: CARDINAL = 822083638;
version1: CARDINAL = 1;
servernoopProc: TYPE = PROC[o: JoinApp1];
joinapplicationProc:
TYPE =
PROC[o: JoinApp1,
in: UT.ObjectDescription]
RETURNS [res: JoinApplicationreturn];
JoinApp1: TYPE = REF JoinApp1Object;
JoinApp1Object:
TYPE =
RECORD [
servernoop: servernoopProc,
joinapplication: joinapplicationProc,
rpcHandle: SunRPC.Handle ← NIL,
rpcConversation: SunRPCAuth.Conversation ← NIL,
data: REF ANY ← NIL
];
MakeJoinApp1Client:
PROC[h: SunRPC.Handle,
c: SunRPCAuth.Conversation] RETURNS [JoinApp1];
MakeJoinApp1Server:
PROC[
data: REF,
servernoop: servernoopProc,
joinapplication: joinapplicationProc
] RETURNS [SunRPC.Server];
END.