DIRECTORY Commander USING [ CommandProc, Register ], CommandTool USING [ NextArgument ], NameDB USING [ GetAttribute ], MulticastImp, MulticastRpcControl USING [ ImportInterface ], IO, RPC USING [ ImportFailed, ShortROPE ], VoiceUtils USING [ MakeRName, NetAddress, NetAddressFromRope, Problem, Report, ReportFR ] ; MulticastImportImpl: CEDAR PROGRAM IMPORTS Commander, CommandTool, IO, VoiceUtils, RPC, NameDB, MulticastRpcControl EXPORTS MulticastImp = { OPEN IO; ROPE: TYPE= RPC.ShortROPE; MulticastImport: PUBLIC PROC [instance: ROPE] RETURNS [success: BOOL_FALSE] = { ENABLE RPC.ImportFailed => GOTO Failed; hostHint: VoiceUtils.NetAddress; IF instance=NIL THEN GOTO Failed; -- no defaulting. instance _ VoiceUtils.MakeRName[instance, rName]; hostHint _ VoiceUtils.NetAddressFromRope[NameDB.GetAttribute[instance,$connect]]; MulticastRpcControl.ImportInterface [ interfaceName: [ type: "Multicast.Lark", instance: instance ], hostHint: hostHint]; success _ TRUE; EXITS Failed => VoiceUtils.Problem["Couldn't import Multicast.Lark", $System]; }; CmdMulticastImport: Commander.CommandProc = { instance: ROPE = CommandTool.NextArgument[cmd]; IF instance=NIL THEN { VoiceUtils.Report["Usage: MulticastImport ", $System]; RETURN; }; IF MulticastImport[instance] THEN VoiceUtils.ReportFR["ImportInterface[Multicast.Lark, %s]", $System, NIL, rope[instance]]; }; Commander.Register["MulticastImport", CmdMulticastImport, "MulticastImport \nConnects to multicast forwarding server"]; }. ŽMulticastImportImpl.Mesa Copyright Σ 1985, 1987 by Xerox Corporation. All rights reserved. Last modified by Swinehart, April 3, 1987 9:11:40 am PST Data Import Procedure User command Initialization Swinehart, May 14, 1985 12:59:49 pm PDT Cedar 6.0 Swinehart, April 3, 1987 9:11:30 am PST Convert to Cedar 7, accommodate NameDB changes to: DIRECTORY, MulticastImportImpl, MulticastImport Κ+˜šœ™IcodešœB™BJšœ8™8—J˜šΟk ˜ Jšœ œ˜+J˜#Jšœœ˜Jšœ ˜ Jšœœ˜.Jšœ˜Jšœœ˜&Jšœ œI˜YJ˜J˜—šœœ˜"Jšœœœ˜Pšœ˜Jšœœ˜J˜——™J˜Jšœœœ ˜J˜—™J˜šΟnœœœ œœ œœ˜OJšœœœ˜'Jšœ ˜ Jš œ œœœ Οc˜3Jšœ1˜1JšœQ˜Qšœ%˜%šœ˜J˜Jšœ˜Jšœ˜—Jšœ˜—Jšœ œ˜š˜JšœH˜H—J˜J˜——™ J˜šœ-˜-Jšœ œ!˜/šœ œœ˜JšœGœ˜Q—šœ˜!JšœDœ˜Y—Jšœ˜—J˜—J˜™J™šœ9˜9JšœY˜Y——J˜K™™'K™ —K™™'K™&Kšœ Οr/™;—K™—…— ½