ThSmartsSunRPCToThSmarts.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Pier, May 18, 1990 6:10:44 pm PDT
Polle Zellweger (PTZ) October 29, 1990 5:06:10 pm PST
Exports ThSmartsSunRPCServer, which is called by ThSmartsSunRPCServerStub, and calls the real ThSmarts routines.
DIRECTORY
ThSmarts,
ThSmartsSunRPC,
ThSmartsSunRPCServer,
Thrush,
ThrushSunRPC,
ThrushSunRPCConvert;
ThSmartsSunRPCToThSmarts: CEDAR PROGRAM
IMPORTS ThSmarts, ThrushSunRPCConvert
EXPORTS ThSmartsSunRPCServer
~ {
OPEN ThSmartsSunRPC, ThSmartsSunRPCServer, ThrushSunRPCConvert;
Substitution: PUBLIC SubstitutionType = {
ThSmarts.Substitution[shh: Thrush.none, convEvent: SrToConvEvent[convEvent], oldPartyID: oldPartyID, newPartyID: newPartyID];
};
ReportAction: PUBLIC ReportActionType = {
ThSmarts.ReportAction[shh: Thrush.none, report: SrToActionReport[report]];
};
CheckIn: PUBLIC CheckInType = {
ThSmarts.CheckIn[shh: Thrush.none, credentials: SrToCredentials[credentials], voicePath: voicePath, reason: SrToATOM[reason], remark: SrToROPE[remark], nextScheduledCheck: nextScheduledCheck];
};
Progress: PUBLIC ProgressType = {
ThSmarts.Progress[shh: Thrush.none, convEvent: SrToConvEvent[convEvent]];
};
}.
Polle Zellweger (PTZ) October 29, 1990 5:05:59 pm PST
Allow detection of NIL ropes across a SunRPC connection.
changes to: CheckIn