DIRECTORY
IO,
PropList,
Rope,
SharedCell,
SlatePrivateTypes,
Slate;

SlateCommonImpl: CEDAR MONITOR
IMPORTS IO, SharedCell, PropList
EXPORTS Slate ~
BEGIN OPEN Slate;

SessionPrivateRec: PUBLIC TYPE = SlatePrivateTypes.SessionPrivateRec;
InstancePrivateRec: PUBLIC TYPE = SlatePrivateTypes.InstancePrivateRec;

CallbackList: TYPE = SlatePrivateTypes.CallbackList;
CallbackRec: TYPE = SlatePrivateTypes.CallbackRec;
ClosureList: TYPE = SlatePrivateTypes.ClosureList;
ClosureRec: TYPE = SlatePrivateTypes.ClosureRec;

globalProperties: PUBLIC PropList.List м PropList.NewPropList[];
globalCallbacks: CallbackList м NIL;

GetCallback: PROC [callbacks: CallbackList, event: REF ANY] RETURNS [CallbackList м NIL] = {
WHILE callbacks#NIL DO
IF callbacks.first.event=event THEN RETURN [callbacks];
callbacks м callbacks.rest;
ENDLOOP
};

CallCallbackList: PROC [callbacks: CallbackList, instance: Instance, session: Session, event: REF, callData: REF] = {
cbl: CallbackList м GetCallback[callbacks, event];
IF cbl#NIL THEN {
closures: ClosureList м cbl.first.closures;
WHILE closures#NIL DO
closures.first.proc[instance: instance, session: session, callData: callData, registerData: closures.first.registerData, event: event];
closures м closures.rest;
ENDLOOP;
};
};

CallGlobalEvent: PUBLIC PROC [instance: Instance, session: Session, event: REF, callData: REF м NIL] = {
CallCallbackList[globalCallbacks, instance, session, event, callData];
};

CallSessionEvent: PUBLIC PROC [instance: Instance, session: Session, event: REF, callData: REF м NIL] = {
spr: REF SessionPrivateRec;
IF session=NIL THEN session м instance.session;
spr м session.private;
CallCallbackList[spr.callbacks, instance, session, event, callData];
};

CallInstanceEvent: PUBLIC PROC [instance: Instance, session: Session, event: REF, callData: REF м NIL] = {
ipr: REF InstancePrivateRec м instance.private;
CallCallbackList[ipr.callbacks, instance, session, event, callData];
};

RegisterClosure: ENTRY PROC [cbl: CallbackList, proc: EventProc, registerData: REF] = {
cbl.first.closures м CONS[[proc, registerData], cbl.first.closures]
};

RegisterGlobalEventProc: PUBLIC PROC [event: REF, proc: EventProc, registerData: REF] = {
GetOrCreateCallback: ENTRY PROC [event: REF] RETURNS [cbl: CallbackList] = {
cbl м GetCallback[globalCallbacks, event];
IF cbl=NIL THEN 
globalCallbacks м cbl м CONS[[event: event, closures: NIL], globalCallbacks];
};
p: EventProc м proc;
IF p#NIL THEN {
cbl: CallbackList м GetOrCreateCallback[event];
RegisterClosure[cbl, p, registerData];
};
};

RegisterSessionEventProc: PUBLIC PROC [session: Session, event: REF, proc: EventProc, registerData: REF] = {
GetOrCreateCallback: ENTRY PROC [spr: REF SessionPrivateRec, event: REF] RETURNS [cbl: CallbackList] = {
cbl м GetCallback[spr.callbacks, event];
IF cbl=NIL THEN 
spr.callbacks м cbl м CONS[[event: event, closures: NIL], spr.callbacks];
};
p: EventProc м proc;
spr: REF SessionPrivateRec м session.private;
IF spr#NIL AND p#NIL THEN {
cbl: CallbackList м GetOrCreateCallback[spr, event];
RegisterClosure[cbl, p, registerData];
};
};

RegisterInstanceEventProc: PUBLIC PROC [instance: Instance, event: REF, proc: EventProc, registerData: REF] = {
GetOrCreateCallback: ENTRY PROC [ipr: REF InstancePrivateRec, event: REF] RETURNS [cbl: CallbackList] = {
cbl м GetCallback[ipr.callbacks, event];
IF cbl=NIL THEN 
ipr.callbacks м cbl м CONS[[event: event, closures: NIL], ipr.callbacks];
};
p: EventProc м proc;
ipr: REF InstancePrivateRec м instance.private;
IF ipr#NIL AND p#NIL THEN {
cbl: CallbackList м GetOrCreateCallback[ipr, event];
RegisterClosure[cbl, p, registerData];
};
};

SetSessionName: PUBLIC PROC [session: Session, name: Rope.ROPE] = {
SharedCell.SetContents[session.nameCell, name];
CallGlobalEvent[instance: NIL, session: session, event: $SessionRenamed0, callData: name 
! UNCAUGHT => {--catch uncaught because there is an uncaught error in SlateJoinAppImpl (July 2, 1993)
IO.PutRope[session.debugLog, "uncaught error while renaming session\n"];
CONTINUE
}];     
};

SessionName: PUBLIC PROC [session: Session] RETURNS [Rope.ROPE] = {
WITH SharedCell.GetContents[session.nameCell] SELECT FROM
r: Rope.ROPE => RETURN [r];
ENDCASE => RETURN [NIL];
};

END.


   ╩  
SlateCommonImpl.mesa
Copyright ╙ 1992, 1993 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, November 2, 1990 1:04:32 pm PST 
Christian Jacobi, July 3, 1993 9:58 am PDT

 Э╩╧  ХNewlineDelimiter
Щ ЩJЩBIcodeЪЬ=Щ=JЩ*JЩ ЧЪ╧k	Ш	KШKШ	KШKШKШKШЧJШ Ъ╧nЬЭЬЭШJЪЭЬШ JЪЭЬШЧKЪЭЬЭЬШKШ KЪЬЭЬЭЬ'ШEKЪЬЭЬЭЬ(ШGKШ KЪЬЭЬЭЬШ4KЪЬЭЬЭЬШ2KЪЬЭЬЭЬШ2KЪЬЭЬЭЬШ0KШ KЪЬЭЬ(Ш@KЪЬ ЭЬШ$KШ ЪЮЬЭЬ"ЭЬЭЬЭЬЭЬШ\ЪЭЬЭЬЭШJЪЭЬЭЬЭЬШ7JШJЪЭШЧKШЧJШ ЪЮЬЭЬHЭЬЭЬШuJШ2ЪЭЬЭЬЭЬШJШ+ЪЭЬ
ЭЬЭШKШЗJШJЪЭЬШЧJШЧKШKШ ЧЪЮЬЭЬЭЬ/ЭЬЭЬЭЬШhKШFKШЧKШ ЪЮЬЭЬЭЬ/ЭЬЭЬЭЬШiKЪЬЭЬШKЪЭЬ	ЭЬЭЬШ/KШKШDKШЧKШ ЪЮЬЭЬЭЬ/ЭЬЭЬЭЬШjKЪЬЭЬ'Ш/KШDKШЧKШ ЪЮЬЭЬЭЬ4ЭЬШWKЪЬЭЬ*ШCKШЧKШ Ъ
ЮЬЭЬЭЬ	ЭЬ!ЭЬШYЪ
ЮЬЭЬЭЬ	ЭЬЭЬШLKШ*ЪЭЬЭЬЭЬШKЪЬЭЬЭЬШMЧKШЧKШЪЭЬЭЬЭЬШKШ/KШ&KШЧKШЧKШ Ъ
ЮЬЭЬЭЬЭЬ!ЭЬШlЪЮЬЭЬЭЬЭЬЭЬЭЬШhKШ(ЪЭЬЭЬЭЬШKЪЬЭЬЭЬШIЧKШЧKШKЪЬЭЬ%Ш-Ъ
ЭЬЭЬЭЬЭЬЭЬШKШ4KШ&KШЧKШЧKШ Ъ
ЮЬЭЬЭЬЭЬ!ЭЬШoЪЮЬЭЬЭЬЭЬЭЬЭЬШiKШ(ЪЭЬЭЬЭЬШKЪЬЭЬЭЬШIЧKШЧKШKЪЬЭЬ'Ш/Ъ
ЭЬЭЬЭЬЭЬЭЬШKШ4KШ&KШЧKШЧKШ ЪЮЬЭЬЭЬЭЬШCKШ/ЪЬЭЬ<ШYЪЬЭЬ╧cVШeKЪЭЬFШHKЪЭШЧKШЧKШKШ ЧЪЮЬЭЬЭЬЭЬШCЪЭЬ*ЭЬЭШ9KЪЬЭЬЭЬШKЪЭЬЭЬЭЬШЧKШЧKШ KЪЭЬШKШ KШ Ч ЕЧ    И  !  