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