DIRECTORY 
Commander	USING [ CommandProc, Register ],
IO,
Lark -- USING [
-- CommandEvents, ConnectionSpec, Event, LarkModel, Passel, SHHH, StatusEvent, StatusEvents ]--,
LarkRpcControl USING [ ImportNewInterface, InterfaceRecord ],
LarkSmarts,
LarkSmartsMonitorImpl,
LarkSmartsRpcControl USING [ExportInterface, InterfaceName, UnexportInterface],
Log USING [ DNFProc, RegisterWhereToReport, ReportFR, Problem, ProblemFR, WhereProc ],
LupineRuntime,
Names USING [CmdOrToken, CurrentPasskey, RnameToRspec, Rspec ],
NamesRPC USING [ StartConversation ],
Nice USING [ LarkConLogStream ],
RPC USING [ AuthenticateFailed, EncryptionKey, ExportFailed, GetCaller, ImportFailed ],
SafeStorage USING [ GetCanonicalType, Type ],
ThNet USING [ pd ],
ThPartyPrivate USING [ DehandleSmarts, LocalSmartsInterface, RegisterLocal, SmartsBody, SmartsData, GetPartySmarts ],
ThParty USING [ CreateParty, Deregister, Enable ],
Thrush USING [
CallUrgency, ConversationHandle, Disposition, epoch, Epoch, H, NetAddress, none, nullHandle, PartyHandle, ROPE, SmartsHandle, ThHandle, unencrypted ], 
ThSmartsPrivate USING [
CheckHookState, EnterLarkState, GetSmartsInfo, LarkFailed, LarkInfo, LarkInfoBody, LarkParseEvent, LarkProgress, LarkSupervise, RegisterTrunk, SmartsInfo, SmartsInfoBody ],
ThSmartsRpcControl,
ThVersions,
Triples USING [ Erase, Make ],
TU
;

LarkSmartsInitImpl: CEDAR MONITOR LOCKS root
IMPORTS IO, 
Commander,
LarkRpcControl,
LarkSmartsRpcControl,
Log,
Names,
NamesRPC,
root: LarkSmartsMonitorImpl,
LupineRuntime,
Nice,
RPC,
SafeStorage,
ThNet,
ThPartyPrivate,
ThParty,
Thrush,
ThSmartsPrivate,
ThSmartsRpcControl,
ThVersions,
Triples,
TU
EXPORTS LarkSmarts, ThSmartsPrivate
SHARES LarkSmartsMonitorImpl = {
OPEN IO;


CallUrgency: TYPE = Thrush.CallUrgency;
CommandEvents: TYPE = Lark.CommandEvents;
ConversationHandle: TYPE = Thrush.ConversationHandle;
H: PROC[r: REF] RETURNS[Thrush.ThHandle] = INLINE {RETURN[Thrush.H[r]]; };
none: SHHH = Thrush.none;
nullHandle: Thrush.ThHandle = Thrush.nullHandle;
PartyHandle: TYPE = Thrush.PartyHandle;
ROPE: TYPE = Thrush.ROPE;
SHHH: TYPE = Lark.SHHH;  -- Encrypts conv. if first arg to RPC PROC
RTSmartsType: SafeStorage.Type = SafeStorage.GetCanonicalType[CODE[ThPartyPrivate.SmartsBody]];
SmartsHandle: TYPE = Thrush.SmartsHandle;
SmartsInfo: TYPE = ThSmartsPrivate.SmartsInfo;
SmartsInfoBody: TYPE = ThSmartsPrivate.SmartsInfoBody;
StatusEvents: TYPE = Lark.StatusEvents;

larkInterfaces: LIST OF LarkRpcControl.InterfaceRecord _ NIL;
larkRegistry: ROPE_".lark";

thSmartsExported: BOOL_FALSE;


Register: PUBLIC PROC[
shh: SHHH,	-- encrypts connection
oldSmartsID: Thrush.SmartsHandle,
oldEpoch: Thrush.Epoch,
netAddress: Thrush.NetAddress, -- machine name for registering Lark --
model: Lark.LarkModel,
authenticated: BOOL_FALSE,
clientInstance: ROPE ]
RETURNS [ smartsID: Thrush.SmartsHandle_nullHandle, epoch: Thrush.Epoch_Thrush.epoch ] = {
larkSh: Lark.SHHH;
partyID: PartyHandle;
localSmarts: ThPartyPrivate.LocalSmartsInterface;
info: SmartsInfo;
larkInterface: LarkRpcControl.InterfaceRecord_NIL;
smarts: ThPartyPrivate.SmartsData;
fullRname: ROPE = RPC.GetCaller[shh];
partyRname: ROPE _ fullRname;
s: Names.Rspec _ NIL;
IF (s_Names.RnameToRspec[partyRname])#NIL
AND Names.RnameToRspec[s.simpleName] # NIL THEN partyRname_s.simpleName;
DO ENABLE UNWIND=>NULL;
partyID _ ThParty.CreateParty[
type: (SELECT model.genre FROM --<<>>-- ENDCASE=> individual),
rName: partyRname];
IF partyID=nullHandle THEN {
Log.ReportFR["Registering party %s not found", $System, NIL, rope[partyRname]];
RETURN[nullHandle, Thrush.epoch];
};
smartsID _ ThPartyPrivate.GetPartySmarts[partyID, $VoiceTerminal];
IF smartsID#nullHandle THEN {
DR: ENTRY PROC = {
ENABLE UNWIND=>NULL;
Deregister[ThSmartsPrivate.GetSmartsInfo[smarts: smarts]];
};
smarts _ ThPartyPrivate.DehandleSmarts[smartsID];
IF oldSmartsID=smartsID AND epoch = Thrush.epoch AND smarts#NIL THEN
WITH smarts.properties SELECT FROM
voiceTerminal, manager =>
IF machine = netAddress THEN RETURN[oldSmartsID, Thrush.epoch];
ENDCASE;	-- oldHandle is a strange beast indeed.
IF smarts#NIL THEN DR[];
smartsID_nullHandle; partyID _ nullHandle; LOOP;
};

larkSh _ IF NOT ThNet.pd.encryptionRequested THEN Thrush.unencrypted
ELSE NamesRPC.StartConversation [
caller: myName.instance,
callee: fullRname,
key:	serverPassword,
level:	--<<ECB>>--CBCCheck ! RPC.AuthenticateFailed=> {
Log.ProblemFR["Can't authenticate %g to %g", $System, NIL,
rope[myName.instance], rope[fullRname]]; GOTO NotSmart; }];

larkInterface _ LarkRpcControl.ImportNewInterface[
interfaceName: [type: "Lark.Lark", instance: clientInstance] ! RPC.ImportFailed=> {
Log.ProblemFR["Can't import Lark interface from %g", $System, NIL, rope[clientInstance]]; GOTO NotSmart; }];
larkInterfaces _ CONS[larkInterface, larkInterfaces];


localSmarts _ ThSmartsRpcControl.NewInterfaceRecord[];
localSmarts.Progress _ ThSmartsPrivate.LarkProgress;
smartsID_ThPartyPrivate.RegisterLocal[
partyID: partyID,
interface: localSmarts,
properties: [x: voiceTerminal[machine: netAddress]]
];
IF smartsID=nullHandle THEN {Log.ProblemFR["Can't register Lark: %g, %g",$System,NIL,
rope[fullRname], rope[clientInstance]]; GOTO NotSmart; };
smarts _ ThPartyPrivate.DehandleSmarts[smartsID,TRUE];
info _ NEW[SmartsInfoBody_ [
smarts: smarts,
ParseEvent: ThSmartsPrivate.LarkParseEvent,
Supervise: ThSmartsPrivate.LarkSupervise,
larkInfo: NEW[ThSmartsPrivate.LarkInfoBody _ [
interface: larkInterface,
shh: larkSh,
netAddress: netAddress,
model: model]] ]];
info.larkInfo.scratchEv _ NEW[Lark.CommandEventSequence[15]];
Triples.Make[$SmartsData, smarts, info];
info.otherSmarts _ ThPartyPrivate.DehandleSmarts[
ThSmartsPrivate.RegisterTrunk[ partyID, smarts, info ]];
Log.ReportFR[" (%g = %g)", $Smarts, info,
rope[clientInstance], TU.RefAddr[info.smarts]];
EnableSmartsE[info]; -- Ready to go, as long as phone is on hook
EXIT;
REPEAT
NotSmart => RETURN; 
ENDLOOP;
};

EnableSmartsE: ENTRY PROC[info: SmartsInfo] = { []_EnableSmarts[info]; };
EnableSmarts: PUBLIC INTERNAL PROC[info: SmartsInfo] RETURNS[enabled: BOOL] = {
ENABLE UNWIND, ThSmartsPrivate.LarkFailed =>GOTO Failed;
SELECT info.larkInfo.larkState FROM
none, failed, recovering => NULL;
ENDCASE=> RETURN[TRUE];
IF ThSmartsPrivate.CheckHookState[info.larkInfo].onHook=FALSE THEN RETURN[FALSE];
IF ThParty.Enable[ smartsID: H[info.smarts]]#success THEN RETURN[FALSE]; -- << REPORT!! >> --
IF ThParty.Enable[ smartsID: H[info.otherSmarts]]#success THEN
Log.Problem["Impossible", $Smarts, info];
ThSmartsPrivate.EnterLarkState[ info.larkInfo, none, info ]; -- Clear any previous failure.
ThSmartsPrivate.EnterLarkState[ info.larkInfo, idle, info ]; -- Reset the Lark
RETURN[TRUE];
EXITS
Failed => RETURN[FALSE];
};

Deregister: PUBLIC INTERNAL PROC[info: SmartsInfo] = {
IF info=NIL OR ThPartyPrivate.DehandleSmarts[H[info.smarts]] = NIL THEN RETURN;
ThSmartsPrivate.EnterLarkState[ info.larkInfo, failed, info ]; -- prevent further action.
SimpleDeregister[ThSmartsPrivate.GetSmartsInfo[smarts: info.otherSmarts]];
SimpleDeregister[info];
Log.ReportFR["Smarts %d (%g) is dead", $Smarts, info,
card[H[info.smarts]], TU.RefAddr[info.smarts]];
};

SimpleDeregister: INTERNAL PROC[info: SmartsInfo] = {
ThParty.Deregister[smartsID: H[info.smarts]];
Triples.Erase[$SmartsData, info.smarts, info];
};

Login: PUBLIC PROC[shh: SHHH, smartsID: SmartsHandle, authenticated: BOOL] = { NULL };


WhereIsSmartsLog: Log.WhereProc -- [fixedWhereData: REF ANY, whereData: REF ANY] RETURNS [s: STREAM _ NIL] --  = CHECKED {
info: SmartsInfo=NARROW[whereData];
IF info#NIL THEN s_Nice.LarkConLogStream[info.larkInfo.netAddress];
IF s#NIL AND s=Nice.LarkConLogStream[[[0],[0]]] THEN s_NIL; -- use default stream unless debug viewer stream open.
};

WhereIsLarkLog: Log.WhereProc -- [fixedWhereData: REF ANY, whereData: REF ANY] RETURNS [s: STREAM _ NIL] --  = CHECKED {
info: ThSmartsPrivate.LarkInfo=NARROW[whereData];
IF info#NIL THEN s_Nice.LarkConLogStream[info.netAddress];
IF s#NIL AND s=Nice.LarkConLogStream[[[0],[0]]] THEN s_NIL; -- only want the debug viewer stream
};

WhereIsLarkLogFerSherr: Log.WhereProc _ WhereIsLarkLog;
FerSherrDefault: Log.DNFProc=TRUSTED{ RETURN[ThNet.pd.defaultLarkReports]; };


myName: LarkSmartsRpcControl.InterfaceName;
serverPassword: RPC.EncryptionKey;

LarkSmartsInit: Commander.CommandProc = {
ENABLE {
RPC.ExportFailed => { Log.Problem["LarkSmarts export failed", $System]; GOTO Failed; };
};
myName _ [
type: "LarkSmarts.Lark",
instance: Names.CmdOrToken[cmd: cmd, key: "ThrushServerInstance", default: "Morley.Lark"],
version: ThVersions.ThrushVR];
serverPassword _ Names.CurrentPasskey[Names.CmdOrToken[
cmd: cmd, key: "ThrushServerPassword", default: "MFLFLX"]];
IF thSmartsExported THEN RETURN;
Log.RegisterWhereToReport[proc: WhereIsLarkLog, where: $Lark];
Log.RegisterWhereToReport[proc: WhereIsLarkLogFerSherr, where: $LarkDetailed, defaultIfNotFound: FerSherrDefault];
Log.RegisterWhereToReport[proc: WhereIsSmartsLog, where: $Smarts];
LarkSmartsRpcControl.ExportInterface[
interfaceName: myName,
user: myName.instance,
password: serverPassword];
Log.ReportFR["Export[LarkSmarts.Lark, %s]", $System, NIL, rope[myName.instance]];
thSmartsExported _ TRUE;
EXITS
Failed =>
LarkSmartsRpcControl.UnexportInterface[!LupineRuntime.BindingError=>CONTINUE];
};


Commander.Register["LarkSmarts", LarkSmartsInit, "LarkSmarts <ExportInstance(opt.) <ServerPassword (opt)>> -- Initialize and Export LarkSmarts"];


}.
€LarkSmartsInitImpl.mesa
Last modified by D. Swinehart, March 6, 1985 3:45:05 pm PST
Last Edited by: Pier, May 3, 1984 2:52:59 pm PDT
Copies
Registration/Deregistration/Initialization
Above converts from, say, Swinehart.pa.lark to Swinehart.pa.
Also, from Swinehart.pa to Swinehart.pa.  Strips one registry if there are two or more.
Loop is for restart when had to deregister first.
Produce a Party object for this RName, if none exists yet.

This reregistration should be a no-op, if all of the supplied parameters make sense.
Otherwise, if there is a previous smartsID for this Lark, it must be eliminated.
<< This may all cause trouble later when users log in at Larks -- WAIL.>>
There are no old Lark Smarts for this Lark.  New ones are needed.

Get encryption taken care of 
Make sure we can talk to the Lark
<< No way to deal with resumption of calls in progress, as yet. >>
larkInterface.Reset[larkSh, NIL];
No further bad things are expected to happen.
Unimport the Lark interface (automatic, via finalization.)
Other Utilities
Initialization, export "LarkSmarts"
Same as $Lark, except doesn't print at all if debugging viewer not found.
�Ê
c˜Jš
œ™š
œ;™;J™0J˜—šÏk	œ
˜
Jšœ
�œ˜*Jš�œ
˜šœÏc
˜Jšž_œ
˜`—Jšœ�œ)˜=J˜J˜Jšœ�œ5˜OJšœ�œM˜VJ˜Jšœ�œ4˜?Jšœ	�œ˜%Jšœ�œ˜ Jš�œ
�œN˜WJšœ�œ˜-Jšœ�œ˜Jšœ�œa˜uJš
œ2˜2Jšœ�œm�œ)˜¦
šœ�œ˜Jš
œ¬
˜¬
—J˜J˜Jšœ�œ˜Jš
�˜J˜
J˜—šœ�
œ
�œ˜,š�œ
�œ˜Jš
œ
˜
J˜J˜J˜J˜J˜	J˜J˜J˜Jš�œ
˜J˜J˜J˜J˜J˜J˜J˜J˜J˜Jš
�˜—Jš�œ˜#Jš�œ˜ Jš�œ
�œ
˜J˜—š
œ™J˜Jšœ
�œ˜'Jšœ�œ˜)Jšœ�œ˜5Jš�
œ�œ�œ�œ�œ�œ�
œ˜JJšœ�œ˜J˜0Jšœ
�œ˜'Jš�œ�œ
�œ
˜š�œ�œ�œž*˜CJšœ>�œ˜_—Jšœ�œ˜)Jšœ�œ˜.Jšœ�œ"˜6Jšœ�œ˜'—˜Jšœ�œ
�œ"�œ
˜=Jšœ�œ	˜J˜Jšœ�œ
�œ
˜J˜—™*J˜šÏnœ�œ
�œ
˜Jšœ�œž˜!J˜!J˜Jšœž'˜FJ˜Jšœ�œ
�œ
˜Jšœ�œ˜Jš�œS˜ZJšœ
�œ
˜J˜J˜1J˜Jšœ.�œ
˜2J˜"Jšœ�œ�œ˜%Jšœ�œ
˜Jšœ�œ
˜š�œ$�˜)Jš�œ$�œ˜HJ™<J™W——š�œ
�œ
�œ�œ
˜J™1Jš
œ:™:˜Jš	œ�œ
�œ
žœ
�œ˜>J˜—š�œ�œ
�
˜Jšœ8�œ˜OJš�œ˜!Jš
œ˜—J™J™TJ™PJ™IJš
œB˜Bš�œ�œ˜š�œ�œ
�œ˜Jš�œ
�œ�œ
˜Jš
œ:˜:Jš
œ˜—Jš
œ1˜1š	�œ�œ�œ�œ
�˜Dš�œ�œ
�˜"˜Jš�œ�œ
�œ˜?—Jš�œž'˜0——Jš�œ�œ
�œ
�œ˜Jšœ+�œ
˜0š
œ˜J˜——J™AJ™Jš
œ™Jšœ	�œ
�œ�œ˜Dš�œ˜!J˜J˜J˜šœžœ�œ˜7šœ6�œ
˜:Jšœ)�œ˜;—J˜——Jš
œ!™!˜2šœ?�œ˜SJšœ>�œ�œ˜l——šœ�œ ˜5J˜—Jš
œB™BJšœ�œ™!J˜Jš
œ6˜6J˜4š
œ&˜&Jš
œ˜J˜Jš
œ3˜3Jš
œ˜š�œ�œ6�œ
˜UJšœ(�œ
˜9——Jš
œ-™-Jšœ0�œ˜6šœ�œ˜Jš
œ˜J˜+J˜)šœ
�œ!˜.J˜J˜J˜J˜——Jšœ�œ ˜=J˜(š
œ1˜1Jš
œ8˜8—š
œ)˜)Jš
œ/˜/—Jšœž+˜@Jš�œ
˜š
�˜Jšœ�œ˜—Jš�œ
˜Jš
œ˜—J˜JšŸ
œ�œ
�œ0˜IšŸœ�œ
�œ
�œ�œ
�œ˜OJš�œ
�œ�œ˜8š�œ�˜#Jšœ�œ
˜!Jš�œ�œ
�œ˜—Jš
�œ6�œ
�œ
�œ
�œ˜QJš�œ�
œ�œ
�œ
�œž˜]š�œ�
œ�˜>Jš
œ)˜)—Jšœ=ž˜[Jšœ=ž˜NJš�œ
�œ˜
š
�˜Jšœ
�œ
�œ˜—J˜J˜—šŸ
œ�œ
�œ
�œ˜6Jš�œ�œ
�œ1�œ
�œ
�œ
˜OJšœ?ž˜YJ˜JJ˜J™:š
œ5˜5Jšœ�
œ�œ˜/—J˜—J˜šŸœ�œ
�œ˜5Jšœ�
œ˜-J˜.J˜—J˜šŸœ�œ
�œ�œ)�œ�œ˜VJ˜——™J˜•StartOfExpansionO -- [fixedWhereData: REF ANY, whereData: REF ANY] RETURNS [s: STREAM _ NIL] -- šœÐckNœ�œ˜zJšœ�œ˜#Jš�œ�œ3˜CJš�œ�œ
�œ$�œ�œž6˜rJ˜—J˜–O -- [fixedWhereData: REF ANY, whereData: REF ANY] RETURNS [s: STREAM _ NIL] -- šœ Nœ�œ˜xJšœ�œ˜1Jš�œ�œ
�œ*˜:Jš�œ�œ
�œ$�œ�œž$˜`J˜J˜—J–O -- [fixedWhereData: REF ANY, whereData: REF ANY] RETURNS [s: STREAM _ NIL] -- š
œ7˜7šœ�œ�œ!˜MJ˜——š
œ#™#J˜J˜+Jš
œ"˜"J˜šŸœ˜)š�œ˜Jš�œE�œ˜WJ˜—˜
J˜Jš
œZ˜ZJ˜—š
œ7˜7J˜;—Jš�œ�œ
�œ
˜ Jš
œ>˜>š
œr˜rJ™I—Jš
œB˜B˜%J˜J˜J˜—Jšœ5�œ˜QJšœ�œ
˜š
�˜˜	JšœD�œ˜N——J˜——˜J˜—š
œ‘
˜‘
J˜J˜—J˜—…—$à3Ã