BluejaySmarts.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last modified by D. Swinehart, May 17, 1986 3:24:35 pm PDT
DIRECTORY
Jukebox USING [ Handle],
PupSocket USING [ Socket ],
Rope USING [ ROPE ],
Thrush USING [ ConversationHandle, IntervalSpec, nullConvHandle, PartyHandle, SHHH, SmartsHandle ],
ThSmarts,
ThSmartsPrivate USING [ ConvDesc, OpenConversations ],
VoiceStream USING [ Handle ]
;
BluejaySmarts:
CEDAR DEFINITIONS = {
jayShh: Thrush.SHHH;
interfaceIsImported: BOOLEAN;
encryptionRequested: BOOLEAN;
JayInfo: TYPE = REF JayInfoBody;
JayInfoBody:
TYPE =
RECORD [
smartsID: Thrush.SmartsHandle,
partyID: Thrush.PartyHandle,
shh: Thrush.SHHH,
socket: PupSocket.Socket←NIL,
stream: VoiceStream.Handle←NIL,
thProcess: PROCESS←NIL,
thAction: CONDITION,
apprise: BOOL←FALSE,
lastIntervalSpec: Thrush.IntervalSpec←NIL, -- a kludge! Need to save for ReportDone.
conversations: ThSmartsPrivate.OpenConversations ← NIL,
currentConvID: Thrush.ConversationHandle ← Thrush.nullConvHandle
];
infos: ARRAY[0..100) OF JayInfo;
smartses: ARRAY[0..100) OF Thrush.SmartsHandle;
numParties: NAT;
haveJuke: BOOL;
handle: Jukebox.Handle;
BluejayRegister:
PROC[bluejayInstance, thrushInstance, serverPassword: Rope.
ROPE]
RETURNS[partyID: Thrush.PartyHandle, smartsID: Thrush.SmartsHandle];
}.
Swinehart, May 17, 1986 3:24:27 pm PDT
Cedar 6.1
changes to: DIRECTORY, JayInfoBody