
DIRECTORY
Atom USING [ GetPName ],
IO,
PhSmarts USING [ ConvDesc, ConvDescBody, OpenConversations, PhoenixInfo ],
PhSwitch USING [ StartSession ],
RefID USING [ ID, Reseal ],
Thrush USING [ ConversationID, ConvEvent, ConvEventBody, Credentials, NB, nullID, nullConvID, PartyID, PartyType, Reason, ROPE, SHHH, SmartsID, StateInConv],
ThParty USING [ AddAttributes, Attributes, DescribeParty, RegisterConversation  ],
VoiceUtils USING [ MakeAtom, ProblemFR],
NameDB USING [ GetAttribute ];

PhPrivateImpl: CEDAR PROGRAM
IMPORTS
Atom, 
IO,
PhSwitch,
RefID,
ThParty,
VoiceUtils,
NameDB
EXPORTS 
PhSmarts
~ BEGIN


ConversationID: TYPE = Thrush.ConversationID;
nullConvID: ConversationID=Thrush.nullConvID;
ConvDesc: TYPE = PhSmarts.ConvDesc;
ConvEvent: TYPE = Thrush.ConvEvent;
Reseal: PROC[r: REF] RETURNS[RefID.ID] = INLINE {RETURN[RefID.Reseal[r]]; };
NB: TYPE = Thrush.NB;
OpenConversations: TYPE = PhSmarts.OpenConversations;
PartyID: TYPE = Thrush.PartyID;
nullID: RefID.ID = Thrush.nullID;
ROPE: TYPE = Thrush.ROPE;
SmartsID: TYPE = Thrush.SmartsID;
PhoenixInfo: TYPE = PhSmarts.PhoenixInfo;
StateInConv: TYPE = Thrush.StateInConv;


ForgetConv: PUBLIC PROC[cDesc: ConvDesc] = {
info: PhoenixInfo = cDesc.info;
convs: OpenConversations м info.conversations;
IF convs=NIL THEN RETURN
ELSE IF convs.first=cDesc THEN info.conversations м convs.rest
ELSE FOR cS: OpenConversations м convs, cS.rest WHILE cS.rest#NIL DO
IF cS.rest.first=cDesc THEN { cS.rest м cS.rest.rest; EXIT; };
ENDLOOP;
};

GetConv: PUBLIC PROC[
info: PhoenixInfo, credentials: Thrush.Credentials, createOK: BOOLмFALSE
] RETURNS [ cDesc: ConvDescмNIL ] = {
partyID: PartyIDмcredentials.partyID;
convID: ConversationID м credentials.convID;
convName: ROPE;
vtClass, vtAddress: ROPE;
nb: NB;
SELECT credentials.smartsID FROM
nullID => credentials.smartsID м info.smartsID;
info.smartsID => NULL;
ENDCASE=>ERROR;
FOR convs: OpenConversations м info.conversations, convs.rest WHILE convs#NIL DO
IF convs.first.situation.self.convID = convID THEN RETURN[convs.first];
ENDLOOP;
IF ~createOK THEN {
VoiceUtils.ProblemFR["Couldn't find referenced conversation, id= %g",
$System, NIL, IO.time[convID]];
RETURN;
};
IF partyID=nullID THEN 
partyID м info.partyID;
cDesc м NEW[PhSmarts.ConvDescBodyм[]];
cDesc.situation.self м credentials;
cDesc.situation.self.state м $neverWas;
cDesc.info м info;
info.conversations м CONS[cDesc, info.conversations];
convName м DBInfo[partyID, $conversationname].value;
IF convName#NIL THEN 
[]мThParty.RegisterConversation[shhh: info.shh, credentials: credentials, name: convName, convAttributes: LIST[[$subject, convName]], accessList: LIST["*"]];
[vtClass, vtAddress] м PhSwitch.StartSession[cDesc];
IF ThParty.AddAttributes[credentials: credentials, convAttributes: NIL,
partyAttributes: LIST [[$VTClass, vtClass], [$VTAddress, vtAddress]]]#$success THEN ERROR;
};

DBInfo: PUBLIC PROC[partyID: Thrush.PartyID, attribute: ATOMмNIL, prevRNAtom: ATOMмNIL]
RETURNS [rName: ROPEмNIL, rNAtom: ATOMмNIL, value: ROPEмNIL] = {
nb: NB м $success;
rNAtom м prevRNAtom;
IF rNAtom#NIL THEN rName м Atom.GetPName[rNAtom]
ELSE IF partyID#nullID THEN
[nb, rName] м ThParty.DescribeParty[partyID: partyID, nameReq: $current];
IF nb # $success OR rName=NIL THEN RETURN;
IF rNAtom=NIL THEN rNAtom м VoiceUtils.MakeAtom[rName: rName, case: FALSE];
IF attribute#NIL THEN value м NameDB.GetAttribute[rName, attribute];
};

END.

FindActiveConv: PUBLIC PROC [info: PhoenixInfo] RETURNS [cDesc: ConvDescмNIL] ~ {
FOR convs: OpenConversations м info.conversations, convs.rest WHILE convs#NIL DO
IF convs.first.situation.self.state = $active THEN RETURN[convs.first];
ENDLOOP;
};

MoreThanOneConversation: PUBLIC PROC [info: PhoenixInfo] RETURNS [BOOL] ~ {
openConvs: OpenConversations м info.conversations;
IF openConvs.rest # NIL THEN RETURN[TRUE] ELSE RETURN[FALSE];
};

MoreThanOneAudioConversation: PUBLIC PROC [info: PhoenixInfo] RETURNS [BOOL] ~ {
totalAudioConversations: INT м 0;
openConvs: OpenConversations м info.conversations;
IF openConvs # NIL THEN {
WHILE openConvs # NIL DO
cDesc: ConvDesc м openConvs.first;
IF cDesc.cInfo.media # $Video--only-- THEN {
totalAudioConversations м totalAudioConversations + 1;
};
openConvs м openConvs.rest;
ENDLOOP;
};
IF totalAudioConversations > 1 THEN 
RETURN[TRUE]
ELSE 
RETURN[FALSE];
};

VideoHardwareInUse: PUBLIC PROC [cDesc: ConvDesc] RETURNS [inUse: BOOL] ~ {

convID: ConversationID м cDesc.situation.self.convID;
info: PhoenixInfo м cDesc.info;
IF info=NIL OR convID = nullConvID THEN RETURN[FALSE];
FOR convs: OpenConversations м info.conversations, convs.rest WHILE convs#NIL DO
IF (convs.first.situation.self.convID # convID) THEN {
IF convs.first.cInfo.media # $Audio--only-- THEN {
IF convs.first.situation.self.state = $active THEN RETURN[TRUE];
};
};
ENDLOOP;
RETURN[FALSE];
};

requiresHardware: ARRAY StateInConv OF BOOL м [
FALSE,   FALSE,TRUE,   TRUE,     TRUE,     FALSE, FALSE,    TRUE,      TRUE,    FALSE,   TRUE,     FALSE ];
FetchAttribute: PROC[
attributes: ThParty.Attributes, attribute: ATOM, default: ROPEмNIL]
RETURNS [value: ROPE, valueLoc: ThParty.AttributesмNIL] = {
value м default;
FOR aL: ThParty.Attributes м attributes, aL.rest WHILE aL#NIL DO
IF aL.first.type = attribute THEN RETURN[aL.first.value, aL]; ENDLOOP;
};

   @  
PhPrivateImpl.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Vin, October 16, 1990 6:36 pm PDT
Swinehart, October 22, 1992 12:02 pm PDT
Definitions

Implementations of procedures
Just remove its cDesc from info.conversations.
Prepare for own participation.
September 30, 1992 9:21:05 am PDT, DCS major revisions as Phoenix is modified to use the audio mixing and network audio connection capabilities built into the PARC SunOS kernel. Audio only, at the moment.

Not used at the moment.
TRUE iff our video hardware is in use already by some other conversation.
Something's wrong, but we needn't be the bad news bearers
never    idle  error   reserved  parsing   init   notified  ringback   ringing  canAc    active    inactive
The following array describes the hardware usage during various states.
 Э╩J  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ
╧eЬ7ЩBJЩ!JЩ(ЧIcodeШ Ъ╧k	Ш	KЪЬЮЬШKЪЮЬШKЪЬ	ЮЬ<ШJKЪЬ	ЮЬШ KЪЬЮЬЮЬШKЪ	ЬЮЬ:ЮЬ2ЮЬЮЬШЭKЪЬЮЬEШRKЪЬЮЬШ(KЪЬЮЬШЧKШ KЪ╨lnЬЮШЪЮШKЪЬШKЪЮЬШKШ	KШKШKШKШЧЪЮЬШKШЧЪЬЮШKШ KШ ЧЩKЩ Ш-KЪЬ-Ш-ЧKЪЬ
ЮЬШ#KЪЬЮЬШ#KЪ╧nЬЮЬЮЬЮЬЮЬЮЬЮЬШLKЪЮЬЮЬ
ЮЬШKЪЬЮЬШ5ЪЬ	ЮЬШKШ!ЧKЪЮЬЮЬ
ЮЬШKЪЬ
ЮЬШ!KЪЬЮЬШ)KЪЬЮЬШ'KШ ЧKШ KЩШ KШ Ъа
ЬЮЬЮЬШ,JЩ.KШKШ.KЪЮЬЮЬЮШKЪЮЬЮЬЮЬ Ш>Ъ	ЮЬЮЬ(ЮЬ	ЮЬЮШDKЪЮЬЮЬЮЬШ>KЪЮЬШЧKШЧKШ ЪаЬЮЬЮЬШKЪЬ>ЮЬЮШHKЪЬЮЬЮЬШ%KШ%KШ,KЪЬ
ЮЬШKЪЬЮЬШKЪЬЮЬШЪЮЬЮШ KШ/KЪЬЮЬШKЪЮЬЮЬШЧЪЮЬ;ЮЬЮЬЮШPKЪЮЬ,ЮЬЮЬШGKЪЮЬШЧЪЮЬЮЬШЪЬEШEKЪЬ	ЮЬЮЬШЧKЪЮЬШKШЧЪЮЬЮЬШKШKЪЬЮЬШ&ЧKШ#KШ'KШKЪЬЮЬШ5KШ4ЪЮЬ
ЮЬЮЬШKЪЬjЮЬ$ЮЬШЭЧKЩKШ4ЪЮЬAЮЬШGKЪЬЮЬ:ЮЬЮЬШZЧKШЧKШ ЪаЬЮЬЮЬ%ЮЬЮЬЮЬЮЬШWKЪЮЬ	ЮЬЮЬ
ЮЬЮЬ	ЮЬЮЬШ@KЪЬЮЬШKШKЪЮЬЮЬЮЬШ0ЪЮЬЮЬЮШKШIЧKЪ
ЮЬЮЬЮЬЮЬЮЬШ*KЪЮЬЮЬЮЬ2ЮЬШKKЪЮЬЮЬЮЬ/ШDKЪЬШKШ ЧЧKЪЮЬШKШ KЩ╠KЩ ЩЪ
аЬЮЬЮЬЮЬЮЬШQЪЮЬ;ЮЬЮЬЮШPKЪЮЬ,ЮЬЮЬШGKЪЮЬШЧKШЧKШ Ъ
аЬЮЬЮЬЮЬЮЬШKKШ2KЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ=KШЧKШ Ъ
аЬЮЬЮЬЮЬЮЬШPKЪЬЮЬШ!KШ2ЪЮЬЮЬЮЬШЪЮЬЮЬЮШKШ"ЪЮЬ╧cЬЮЬШ,KШ6KШЧKШKЪЮЬШЧKШЧЪЮЬЮЬШ$KЪЮЬЮЬШЧЪЮЬШKЪЮЬЮЬШЧKШЧKШ Ъ
аЬЮЬЮЬЮЬ	ЮЬШKJЪЮЬ-╧b
ЬЩIKШ KШ5KШЪЮЬЮЬЮЬЮЬЮЬЮЬШ6JЪЬ9Щ9ЧЪЮЬ;ЮЬЮЬЮШPЪЮЬ.ЮЬШ6ЪЮЬ!бЬЮЬШ2KЪЮЬ,ЮЬЮЬЮЬШ@KШЧKШЧKЪЮЬШЧKЪЮЬЮЬШKШKШ ЧЪЬЮЬЮЬЮЬШ/JЪ╨fskЩkKЪ╤fksгдгдгдгдгдгдгдгдгдгдгдгШkЧKЩGЪаЬЮЬШKЪЬ+ЮЬЮЬЮЬШCKЪЮЬ	ЮЬЮЬШ;KШЪЮЬ.ЮЬЮЬЮШ@KЪЮЬЮЬЮЬЮЬШFЧKШЧKШ ЧЧ ЕЧ    и  2  