
DIRECTORY
SunRPC,
SunRPCAuth,
Rope,
UT,
UTGetPut,
JoinAppGetPut,
JoinApp;

JoinAppServerImpl: CEDAR PROGRAM
IMPORTS Rope, SunRPC, UTGetPut, JoinAppGetPut
EXPORTS JoinApp =
BEGIN
ROPE: TYPE = Rope.ROPE;

Handle: TYPE = SunRPC.Handle;
Conversation: TYPE = SunRPCAuth.Conversation;

defaultReplyTTL: CARDINAL _ 10;

MakeJoinApp1Server: PUBLIC PROC[
data: REF,
servernoop: JoinApp.servernoopProc,
joinapplication: JoinApp.joinapplicationProc
] RETURNS [SunRPC.Server] ~ {

pseudoClient: JoinApp.JoinApp1 ~
NEW[JoinApp.JoinApp1Object _ [
rpcHandle ~ NIL, rpcConversation ~ NIL, data ~ data,
servernoop ~ servernoop,
joinapplication ~ joinapplication
]];

unbound: SunRPC.Server ~ NEW[SunRPC.ServerObject _ [
pgm ~ JoinApp.JoinAppPrognum,
version ~ JoinApp.version1,
clientData ~ pseudoClient,
serverProc ~ JoinApp1Handler
]];

RETURN [unbound];
};

JoinApp1Handler: SunRPC.ServerProc -- [h: Handle, c: Conversation, proc: CARD, clientData: REFANY
-- RETURNS [doReply: BOOLEAN, replyTimeToLive: CARDINAL] -- = {
o: JoinApp.JoinApp1 _ NARROW[clientData];
doReply _ TRUE;
replyTimeToLive _ defaultReplyTTL;
SELECT proc FROM
0 => servernoop1[h, c, o];
1 => joinapplication1[h, c, o];
ENDCASE => ERROR SunRPC.Error[$wrongProc];
};

servernoop1: PROC[h: Handle, c: Conversation, o: JoinApp.JoinApp1] = {
o.servernoop[o];
SunRPC.StartReply[h];
};

joinapplication1: PROC[h: Handle, c: Conversation, o: JoinApp.JoinApp1] = {
in: UT.ObjectDescription;
out: JoinApp.JoinApplicationreturn;
in _ UTGetPut.GetObjectDescription[h];
out _ o.joinapplication[o,
in];
SunRPC.StartReply[h];
JoinAppGetPut.PutJoinApplicationreturn[h, out];
};


END.
   `  
JoinAppServerImpl.mesa
Please do not edit this file.
It was generated using CedarRPCGen.
Êõ  •NewlineDelimiter
™ J™J™J™#J˜ šÏk	˜	J˜J˜J˜Jšœ˜J˜	J˜J˜J˜ —šÏnœœ˜ Jšœ&˜-Jšœ
˜—Jš˜Jšœœœ˜J˜ Jšœœ˜Jšœœ˜-J˜ Jšœœ˜J˜ šžœœœ˜ Jšœœ˜
J˜#J˜,Jšœœ˜J˜ ˜ šœ˜Jšœœœ˜4J˜J˜!—J˜J˜ ——šœœ˜4J˜J˜J˜J˜J˜J˜ —šœ˜J˜J˜ —šžœÏc>˜aJšŸ;œ˜?Jšœœ˜)Jšœ
œ˜J˜"šœ˜J˜J˜Jšœœ˜*—J˜J˜ —šœœ5˜FJ˜J˜—J˜J˜ šœœ5˜KJšœœ˜J˜#J˜&˜J˜—J˜J˜/—J˜J˜ J˜ Jšœ˜— …—    Z  ¯  