ThSmartsSunImport.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Polle Zellweger (PTZ) June 26, 1990 2:06:18 pm PDT
Swinehart, September 16, 1990 6:25:30 pm PDT
Allows importing ThSmarts interface via Sun RPC protocol. Uses ThSmartsRPCControl.InterfaceRecords.
DIRECTORY
Rope USING [ ROPE ],
Thrush USING [ SHHH ],
ThSmartsRpcControl USING [ InterfaceRecord ]
;
ThSmartsSunImport: CEDAR DEFINITIONS
~ BEGIN
Sun RPC addresses should look like "sun#[1.2.3.4]#5", where [1.2.3.4] is the Arpa address, and 5 is the port.
ReportProblem:
TYPE ~
PROC[reportData:
REF, ec:
ATOM, expl: Rope.
ROPE ];
Probably used only to report automatic connection reestablishments, if desired. Probably unused at present.
Error:
ERROR[errCode:
ATOM, explanation: Rope.
ROPE];
Unlike ThParty "stuboid", this one currently reports problems via errors.
ImportInterface: PROC [instance: Rope.ROPE, reportProblem: ReportProblem¬NIL, reportData: REF¬NIL] RETURNS [interface: ThSmartsRpcControl.InterfaceRecord, shhh: Thrush.SHHH];
Creates an interface record and fills it in with procedures that do Sun RPC calls. Return the Thrush.SHHH Conversation value associated with this interface instance. Instance can either be a server name or a port specification of the form "sun#[1.2.3.4]#portNo"; if it isn't of the latter form, things probably won't work.
END.
Polle Zellweger (PTZ) June 25, 1990 1:39:52 pm PDT
changes to: DIRECTORY, ThSmartsSunImport, ~, SunProtocol, SunAddrFromRope, RopeFromSunAddr, ImportInterface, END
Polle Zellweger (PTZ) June 26, 1990 1:21:26 pm PDT
changes to: DIRECTORY, ThSmartsSunImport, ~, SunProtocol, SunAddrFromRope, RopeFromSunAddr, ImportInterface, END