<<>> <> <> <> <> DIRECTORY Rope USING [ROPE], RPC USING [ InterfaceName], ThParty USING [SmartsProperties ], Thrush USING [none, PartyID, PartyType, SmartsID, SHHH ] ; ThPartySunRPControl: CEDAR DEFINITIONS ~ BEGIN ReportState: TYPE ~ PROC[ reportData: REF, registered, connected, enabled: BOOL, myPartyID: Thrush.PartyID, mySmartsID: Thrush.SmartsID ]; ReportProblem: TYPE ~ PROC[reportData: REF, ec: ATOM, expl: Rope.ROPE ]; <> ThrushConnect: PROC [ server: Rope.ROPE_NIL, rName: Rope.ROPE, type: Thrush.PartyType, interface: RPC.InterfaceName, properties: ThParty.SmartsProperties, reportState: ReportState_NIL, reportProblem: ReportProblem_NIL, reportData: REF_NIL] RETURNS [shhh: Thrush.SHHH _ Thrush.none]; ThrushDisconnect: PROC [shhh: Thrush.SHHH, disable: BOOL_TRUE]; <> ThrushReportState: PROC [shhh: Thrush.SHHH, enabled: BOOL, connected: BOOL]; <> <<>> ReleaseConversation: PROC [shhh: Thrush.SHHH]; <> END. <> < ThrushConnect.>> <> <<>>