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;
Register First Jay Party.
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[]]]];
};