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]]; }; }. Έ 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. Polle Zellweger (PTZ) October 29, 1990 5:05:59 pm PST Allow detection of NIL ropes across a SunRPC connection. changes to: CheckIn Κu•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ7™BK™!K™5K™Kšœp™pK™—šΟk ˜ Kšœ ˜ Kšœ˜Kšœ˜Kšœ˜K˜ Kšœ˜—K˜šΟnœžœž˜'Kšžœ˜%Kšžœ˜—Kšœ˜K˜šžœ;˜?J™šŸ œžœ˜)Kšœ Ÿ œh˜}K˜——˜šŸ œžœ˜)Kšœ Ÿ œ5˜JK˜——˜šŸœžœ˜Kšœ Ÿœ°˜ΐK˜——˜šŸœžœ˜!Kšœ Ÿœ8˜IK˜——K˜Kšœ˜™5K™8Kšœ Οr™—K™—…—”Α