DIRECTORY
FanoutStream,
PropList,
SF,
SharedCell,
SlatePrivateTypes,
Slate;

SlateInstantiationImpl: CEDAR MONITOR
IMPORTS FanoutStream, PropList, SharedCell, Slate
EXPORTS Slate ~
BEGIN OPEN Slate;

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

NewSession: PUBLIC PROC [] RETURNS [session: Session] = {
session м NEW[SessionRec м [
activePage: NIL,
debugLog: FanoutStream.Create[forwardClose: FALSE],
properties: PropList.NewPropList[],
nameCell: SharedCell.Create[],
private: NEW[SessionPrivateRec м [
instanceList: PropList.NewPropList[],
pageList: NIL
]]
]];
CallGlobalEvent[instance: NIL, session: session, event: $NewSession];
};

NewInstance: PUBLIC PROC [session: Session] RETURNS [instance: Instance] = {
instance м NEW[InstanceRec м [
session: session,
log: FanoutStream.Create[forwardClose: TRUE],
properties: PropList.NewPropList[],
private: NEW[InstancePrivateRec м []]
]];
IF session#NIL THEN {
sessionPrivate: REF SessionPrivateRec м session.private;
PropList.TrustedAddNewProp[sessionPrivate.instanceList, instance, instance];
};
CallGlobalEvent[instance: instance, session: session, event: $NewInstance];
};

DestroyInstance: PUBLIC PROC [instance: Instance] = {
session: Session м instance.session;
IF session#NIL THEN {
sessionPrivate: REF SessionPrivateRec м session.private;
instanceList: PropList.List ~ sessionPrivate.instanceList;
didit: BOOL м FALSE;
Monitored: ENTRY PROC [] = INLINE {
didit м instance.session#NIL;
instance.session м NIL;
[] м PropList.RemProp[instanceList, instance];
};
IF instanceList=NIL THEN ERROR; 
Monitored[];
IF didit THEN 
CallGlobalEvent[instance: instance, session: session, event: $InstanceDestroyed];
};
};

CountInstances: PUBLIC PROC [session: Session] RETURNS [n: INT м 0] = {
EachProp: PropList.EachPropProc = {n м n+1};
sessionPrivate: REF SessionPrivateRec м session.private;
[] м PropList.Enumerate[sessionPrivate.instanceList, EachProp];
};

EnumerateInstances: PUBLIC PROC [session: Session, eachInstance: InstanceProc, clientData: REF м NIL] RETURNS [quit: BOOL м FALSE] = {
EachProp: PropList.EachPropProc = {
quit м eachInstance[instance: NARROW[key], clientData: clientData].quit
};
sessionPrivate: REF SessionPrivateRec м session.private;
quit м PropList.Enumerate[sessionPrivate.instanceList, EachProp, clientData].quit
};

CallSessionForAllInstancesOfSession: PUBLIC PROC [session: Session м NIL, event: REF, callData: REF м NIL] = {
EachInstance: InstanceProc = {
CallSessionEvent[instance, session, event, callData] 
};
[] м EnumerateInstances[session, EachInstance, callData]
};
CallGlobalForAllInstancesOfSession: PUBLIC PROC [session: Session м NIL, event: REF, callData: REF м NIL] = {
EachInstance: InstanceProc = {
CallGlobalEvent[instance, session, event, callData] 
};
[] м EnumerateInstances[session, EachInstance, callData]
};
END.


    ·  
SlateInstantiationImpl.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:59 am PDT
Theimer, December 17, 1992 1:29 pm PST


 Э╩L  ХNewlineDelimiter
Щ ЩJЩBIcodeЪЬ=Щ=JЩ*JЩ&JЩ ЧЪ╧k	Ш	KШKШ	KШKШKШKШЧJШ Ъ╧nЬЭЬЭШ%JЪЭЬ*Ш1JЪЭЬШЧKЪЭЬЭЬШKШ KЪЬЭЬЭЬ'ШEKЪЬЭЬЭЬ(ШGKШ ЪЮ
ЬЭЬЭЬЭЬШ9ЪЬ
ЭЬШKЪЬЭЬШKЪЬ,ЭЬШ3KШ#KШЪЬ	ЭЬШ"KШ%KЪЬ
ЭШKШЧKШЧKЪЬЭЬ(ШEKШKШ ЧЪЮЬЭЬЭЬЭЬШLЪЬЭЬШKШKЪЬ'ЭЬШ-KШ#KЪЬ	ЭЬШ%KШЧЪЭЬ	ЭЬЭЬШKЪЬЭЬ%Ш8KШLKШЧKШKKШKШ ЧЪЮЬЭЬЭЬШ5KШ$ЪЭЬ	ЭЬЭЬШKЪЬЭЬ%Ш8KШ:KЪЬЭЬЭЬШЪЮ	ЬЭЬЭЬЭЬШ#KЪЬЭЬШKЪЬЭЬШKШ.KШЧJЪЭЬЭЬЭЬЭЬШ JШЪЭЬЭЬШKШQЧJШЧKШЧKШ Ъ
ЮЬЭЬЭЬЭЬЭЬ	ШGKЪЮЬ$Ш,KЪЬЭЬ%Ш8KШ?KШKШ ЧЪЮЬЭЬЭЬ<ЭЬЭЬЭЬЭЬЭЬШЖЪЮЬШ#KЪЬЭЬ#ШGKШЧKЪЬЭЬ%Ш8KШQKШKШ ЧЪЮ#ЬЭЬЭЬЭЬ	ЭЬЭЬЭЬШnЪЮЬШKШ5KШЧKШ8KШKЩ ЧЪЮ"ЬЭЬЭЬЭЬ	ЭЬЭЬЭЬШmЪЮЬШKШ4KШЧKШ8KШKЩ ЧKЪЭЬШKШ KШ Ч ЕЧ    f  м  