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

JoinAppGetPutImpl: CEDAR PROGRAM
IMPORTS SunRPC, UTGetPut  EXPORTS JoinApp, JoinAppGetPut =
BEGIN
Handle: TYPE = SunRPC.Handle;

ROPE: TYPE = Rope.ROPE;

ReturnCodesNames: PUBLIC ARRAY JoinApp.ReturnCodes OF ROPE _ [
"iluSuccess",
"iluECantExportService",
"ENotAuthorized"
];

GetReturnCodes: PUBLIC PROC[h: Handle] RETURNS [res: JoinApp.ReturnCodes] = {
res _ VAL[SunRPC.GetInt32[h]];
};

PutReturnCodes: PUBLIC PROC[h: Handle, in: JoinApp.ReturnCodes] = {
SunRPC.PutInt32[h, ORD[in]];
};

GetJoinApplicationargs: PUBLIC PROC[h: Handle] RETURNS [res: JoinApp.JoinApplicationargs] = {
res.in _ UTGetPut.GetObjectDescription[h];
};

PutJoinApplicationargs: PUBLIC PROC[h: Handle, in: JoinApp.JoinApplicationargs] = {
UTGetPut.PutObjectDescription[h, in.in];
};

GetJoinApplicationreturn: PUBLIC PROC[h: Handle] RETURNS [res: JoinApp.JoinApplicationreturn] = {
tag: JoinApp.ReturnCodes;
tag _ GetReturnCodes[h];
SELECT tag FROM
iluSuccess => {
v: REF iluSuccess JoinApp.JoinApplicationreturnObject _ NEW[iluSuccess JoinApp.JoinApplicationreturnObject];
v.returnValue _ UTGetPut.GetObjectDescription[h];
res _ v;
};
ENotAuthorized => {
v: REF ENotAuthorized JoinApp.JoinApplicationreturnObject _ NEW[ENotAuthorized JoinApp.JoinApplicationreturnObject];
res _ v;
};
iluECantExportService => {
v: REF iluECantExportService JoinApp.JoinApplicationreturnObject _ NEW[iluECantExportService JoinApp.JoinApplicationreturnObject];
res _ v;
};
ENDCASE => NULL;
};

PutJoinApplicationreturn: PUBLIC PROC[h: Handle, in: JoinApp.JoinApplicationreturn] = {
PutReturnCodes[h, in.returnCode];
SELECT in.returnCode FROM
iluSuccess => {
v: REF iluSuccess JoinApp.JoinApplicationreturnObject _ NARROW[in];
UTGetPut.PutObjectDescription[h, v.returnValue];
};
ENotAuthorized => {
v: REF ENotAuthorized JoinApp.JoinApplicationreturnObject _ NARROW[in];
};
iluECantExportService => {
v: REF iluECantExportService JoinApp.JoinApplicationreturnObject _ NARROW[in];
};
ENDCASE => NULL;
};

END.
    `  
JoinAppGetPutImpl.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˜ —šÏnœœ˜ Jšœœ˜:—Jš˜Jšœœ˜J˜ Jšœœœ˜J˜ š
žœœœœœ˜>J˜J˜J˜J˜J˜ —šžœœœœ˜MJšœœ˜J˜J˜ —šžœœœ(˜CJšœœ˜J˜J˜ —šžœœœœ'˜]J˜*J˜J˜ —šžœœœ0˜SJ˜(J˜J˜ —šžœœœœ)˜aJ˜J˜šœ˜˜Jšœœ2œ1˜lJ˜1J˜J˜—˜Jšœœ6œ5˜tJ˜J˜—˜Jšœœ=œ<˜‚J˜J˜—Jšœœ˜—J˜J˜ —šžœœœ2˜WJ˜!šœ˜˜Jšœœ2œ˜CJ˜0J˜—˜Jšœœ6œ˜GJ˜—˜Jšœœ=œ˜NJ˜—Jšœœ˜—J˜J˜ —Jšœ˜— …—    ð  
­  