
DIRECTORY
SRPCCalls,
SunRPC,
ThrushSunRPC,
ThSmartsSunRPC,
ThSmartsSunRPCClient;

ThSmartsSunRPCClientStub: CEDAR PROGRAM
IMPORTS SunRPC, SRPCCalls
EXPORTS ThSmartsSunRPCClient ~ {
OPEN ThSmartsSunRPC, SRPCCalls;

Handle: TYPE ~ SunRPC.Handle;

GetError: SunRPCGetErrorProc ~ {
};


Substitution: PUBLIC SubstitutionType ~ {
PutArgs: SunRPCPutArgsProc ~ {
SunRPC.PutCard32[h, shh];
SunRPC.PutCard32[h, convEvent.self.partyID];
SunRPC.PutCard32[h, convEvent.self.smartsID];
SunRPC.PutCard32[h, convEvent.self.convID];
SunRPC.PutCard32[h, ORD[convEvent.self.state]];
SunRPC.PutCard32[h, convEvent.self.stateID];
SunRPC.PutCard32[h, convEvent.other.partyID];
SunRPC.PutCard32[h, convEvent.other.smartsID];
SunRPC.PutCard32[h, convEvent.other.convID];
SunRPC.PutCard32[h, ORD[convEvent.other.state]];
SunRPC.PutCard32[h, convEvent.other.stateID];
SunRPC.PutCard32[h, convEvent.time];
SunRPC.PutRope[h, convEvent.reason];
SunRPC.PutRope[h, convEvent.comment];
SunRPC.PutCard32[h, oldPartyID];
SunRPC.PutCard32[h, newPartyID];
};
GetResults: SunRPCGetResultsProc ~ {
NULL
};

SunRPCCall[h~h, remoteProc~3 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

ReportAction: PUBLIC ReportActionType ~ {
PutArgs: SunRPCPutArgsProc ~ {
SunRPC.PutCard32[h, shh];
SunRPC.PutCard32[h, report.self.partyID];
SunRPC.PutCard32[h, report.self.smartsID];
SunRPC.PutCard32[h, report.self.convID];
SunRPC.PutCard32[h, ORD[report.self.state]];
SunRPC.PutCard32[h, report.self.stateID];
SunRPC.PutCard32[h, report.other.partyID];
SunRPC.PutCard32[h, report.other.smartsID];
SunRPC.PutCard32[h, report.other.convID];
SunRPC.PutCard32[h, ORD[report.other.state]];
SunRPC.PutCard32[h, report.other.stateID];
SunRPC.PutCard32[h, report.requestingParty];
SunRPC.PutCard32[h, report.actionID];
SunRPC.PutRope[h, report.actionClass];
SunRPC.PutRope[h, report.actionType];
SunRPC.PutRope[h, report.actionInfo];
};
GetResults: SunRPCGetResultsProc ~ {
NULL
};

SunRPCCall[h~h, remoteProc~2 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

CheckIn: PUBLIC CheckInType ~ {
PutArgs: SunRPCPutArgsProc ~ {
SunRPC.PutCard32[h, shh];
SunRPC.PutCard32[h, credentials.partyID];
SunRPC.PutCard32[h, credentials.smartsID];
SunRPC.PutCard32[h, credentials.convID];
SunRPC.PutCard32[h, ORD[credentials.state]];
SunRPC.PutCard32[h, credentials.stateID];
SunRPCPutBool[h, voicePath];
SunRPC.PutRope[h, reason];
SunRPC.PutRope[h, remark];
SunRPC.PutInt32[h, nextScheduledCheck];
};
GetResults: SunRPCGetResultsProc ~ {
NULL
};

SunRPCCall[h~h, remoteProc~4 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

Progress: PUBLIC ProgressType ~ {
PutArgs: SunRPCPutArgsProc ~ {
SunRPC.PutCard32[h, shh];
SunRPC.PutCard32[h, convEvent.self.partyID];
SunRPC.PutCard32[h, convEvent.self.smartsID];
SunRPC.PutCard32[h, convEvent.self.convID];
SunRPC.PutCard32[h, ORD[convEvent.self.state]];
SunRPC.PutCard32[h, convEvent.self.stateID];
SunRPC.PutCard32[h, convEvent.other.partyID];
SunRPC.PutCard32[h, convEvent.other.smartsID];
SunRPC.PutCard32[h, convEvent.other.convID];
SunRPC.PutCard32[h, ORD[convEvent.other.state]];
SunRPC.PutCard32[h, convEvent.other.stateID];
SunRPC.PutCard32[h, convEvent.time];
SunRPC.PutRope[h, convEvent.reason];
SunRPC.PutRope[h, convEvent.comment];
};
GetResults: SunRPCGetResultsProc ~ {
NULL
};

SunRPCCall[h~h, remoteProc~1 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

SunRPCCall: PROC [h: Handle, remoteProc: CARD, putArgs: SunRPCPutArgsProc, getResults: SunRPCGetResultsProc, getError: SunRPCGetErrorProc] ~ {

SunRPCProgramCall[h: h, remoteProc: remoteProc,
putArgs: putArgs, getResults: getResults, getError: getError];

};


}...


   ®  
ThSmartsSunRPCClientStub.Mesa
Copyright س 1990, 1992 by Xerox Corporation.  All rights reserved.
Derived from ThSmartsP910V1ClientImpl.mesa
Generated by Pier.pa at May 24, 1990 2:45:57 pm PDT
using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST
Swinehart, September 15, 1990 1:50:44 pm PDT
Remote Procedures --
Swinehart, September 15, 1990 1:50:19 pm PDT
Modify to accommodate changes to SunRPCProgramCall interface.

 ‌ت  •NewlineDelimiter
–(cedarcode) style™ ڑœ™Jڑœ
دeœ7™BJڑœ*™*Jڑœ3™3Jڑœ7™7Icode™,Kک —ڑدk	ک	Kک
KکKکKکKک—Kک ڑدnœ‍œ‍ک'Kڑ‍œکKڑ‍œک Kڑ‍œک—Kک Kڑœ‍œکKک ڑںœک KکKک —ڑœ™Kک ڑںœ‍œک)ڑںœکKکKک,Kک-Kک+Kڑœ‍œک/Kک,Kک-Kک.Kک,Kڑœ‍œک0Kک-Kک$Kک$Kک%Kک Kک Kک—ڑں
œک$Kڑ‍کKکKک —KڑœZکZKک—Kک ڑںœ‍œک)ڑںœکKکKک)Kک*Kک(Kڑœ‍œک,Kک)Kک*Kک+Kک)Kڑœ‍œک-Kک*Kک,Kک%Kک&Kک%Kک%Kک—ڑں
œک$Kڑ‍کKکKک —KڑœZکZKک—Kک ڑںœ‍œکڑںœکKکKک)Kک*Kک(Kڑœ‍œک,Kک)KڑœکKکKکKک'Kک—ڑں
œک$Kڑ‍کKکKک —KڑœZکZKک—Kک ڑںœ‍œک!ڑںœکKکKک,Kک-Kک+Kڑœ‍œک/Kک,Kک-Kک.Kک,Kڑœ‍œک0Kک-Kک$Kک$Kک%Kک—ڑں
œک$Kڑ‍کKکKک —KڑœZکZKک—Kک ڑں
œ‍œ‍œaکژKک ڑœ/ک/Kڑœ>ک>—Kک Kک—Kک Kک —KکKک Kک ™,K™=—K™ — …—    d    