<<>>
<<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.