DIRECTORY BluejaySmarts, Names USING [ OwnNetAddress ], ThParty USING [ CreateParty ], ThPartyPrivate USING [ RegisterLocal ], Thrush USING [ nullHandle, PartyHandle, ROPE, SmartsHandle, unencrypted ], ThSmarts, ThSmartsRpcControl USING [ InterfaceRecord, NewInterfaceRecord ] ; BluejayRegisterLocalImpl: CEDAR PROGRAM IMPORTS BluejaySmarts, Names, ThParty, ThPartyPrivate, ThSmarts, ThSmartsRpcControl EXPORTS BluejaySmarts = { BluejayRegister: PUBLIC PROC[bluejayInstance, thrushInstance, serverPassword: Thrush.ROPE] RETURNS [partyID: Thrush.PartyHandle_Thrush.nullHandle, smartsID: Thrush.SmartsHandle_Thrush.nullHandle] = { smartsInterface: ThSmartsRpcControl.InterfaceRecord; BluejaySmarts.jayShh _ Thrush.unencrypted; BluejaySmarts.interfaceIsImported_TRUE; partyID_ThParty.CreateParty[type: recording, rName: NIL]; IF partyID=Thrush.nullHandle THEN ERROR; smartsInterface _ ThSmartsRpcControl.NewInterfaceRecord[]; smartsInterface.Progress _ ThSmarts.Progress; smartsID _ ThPartyPrivate.RegisterLocal[ partyID: partyID, interface: smartsInterface, properties: [x: voiceTerminal[machine: Names.OwnNetAddress[]]]]; }; }. €BluejayRegisterLocalImpl.mesa Last modified by D. Swinehart, November 29, 1984 1:54:34 pm PST Register First Jay Party. Ê5˜Jšœ™Jšœ?™?J™šÏk ˜ J˜Jšœœ˜ Jšœ œ˜Jšœœ˜'Jšœœœ˜KJ˜ Jšœœ(˜@J˜J˜—šœ ˜'JšœL˜SJšœ˜—˜šÏnœœœ9œ˜Zšœ/˜7Jšœ4˜4—J˜4J˜Jšœ*˜*Jšœ"œ˜'J™J™J˜Jšœ4œ˜9Jšœœœ˜(Jšœ:˜:Jšœ-˜-šœ(˜(Jšœ-˜-Jšœ@˜@—J˜——J˜J˜J˜J˜J˜—…—t)