DIRECTORY BluejaySmarts, Names USING [ OwnNetAddress ], ThParty USING [ CreateParty ], ThPartyPrivate USING [ RegisterLocal ], Thrush USING [ nullHandle, PartyHandle, SmartsHandle, unencrypted ], ThSmarts, ThSmartsRpcControl USING [ InterfaceRecord ] ; BluejayRegisterLocalImpl: CEDAR PROGRAM IMPORTS BluejaySmarts, Names, ThParty, ThPartyPrivate EXPORTS BluejaySmarts = { BluejayRegister: PUBLIC PROC 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, June 18, 1984 6:28:50 pm PDT Register First Jay Party. Ê'˜Jšœ™Jšœ;™;J™šÏk ˜ J˜Jšœœ˜ Jšœ œ˜Jšœœ˜'Jšœœ8˜EJ˜ Jšœœ˜,J˜J˜—šœ ˜'Jšœ.˜5Jšœ˜—˜šÏnœ ˜šœ/˜7Jšœ4˜4—J˜4J˜Jšœ*˜*Jšœ"œ˜'J™J™J˜Jšœ4œ˜9Jšœœœ˜(Jšœ:˜:Jšœ-˜-šœ(˜(Jšœ-˜-Jšœ@˜@—J˜——J˜J˜J˜J˜J˜—…—þ¡