
DIRECTORY Customize, Rope, Xl, XlDB, XlPredefinedAtoms;

XlDBImpl: CEDAR MONITOR 
LOCKS mr USING mr: REF MyRec 
IMPORTS Customize, Rope, Xl
EXPORTS XlDB
SHARES Customize
~ BEGIN 

MyRec: TYPE = MONITORED RECORD [
val: Rope.ROPE м NIL,
db: Customize.DB м NIL,
errors: Rope.ROPE,
invalidation: LIST OF InvalidationRec м NIL
];

myKey: REF ATOM м NEW[ATOM м $XlDB];

propertyEvents: Xl.EventFilter = Xl.CreateEventFilter[propertyNotify];
ResetProc: Xl.EventProcType = {
WITH event SELECT FROM
pne: Xl.PropertyNotifyEvent => IF pne.atom=XlPredefinedAtoms.resourceManager THEN {
mr: REF MyRec м NARROW[clientData]; mr.val м NIL; mr.db м NIL;
FOR l: LIST OF InvalidationRec м mr.invalidation, l.rest WHILE l#NIL DO
Xl.Enqueue[l.first.tq, l.first.proc, l.first.data, event];
ENDLOOP;
};
ENDCASE => {};
};

InitializeProp: Xl.InitializeProcType = {
rootWindow: Xl.Window м Xl.FirstRoot[c];
mr: REF MyRec м NEW[MyRec];
match: Xl.Match м NEW[Xl.MatchRep м [proc: ResetProc, handles: propertyEvents, tq: Xl.CreateTQ[], data: mr]];
Xl.AddDispatch[c, rootWindow, match, [propertyChange: TRUE]];
RETURN [mr];
};

ReloadDBCache: ENTRY PROC [c: Xl.Connection, mr: REF MyRec, readonly: BOOL] RETURNS [db: Customize.DB м NIL] = {
db м mr.db;
IF ~readonly OR db=NIL THEN { 
val: Rope.ROPE м mr.val;
IF val=NIL THEN {
pr: Xl.PropertyReturnRec;
pr м Xl.GetProperty[c: c, w: Xl.FirstRoot[c], property: XlPredefinedAtoms.resourceManager ! Xl.XError => {
mr.errors м Rope.Concat["failed reading resource_manager property: ", err.explanation];
GOTO Oops;
}];
IF pr.type = XlPredefinedAtoms.string AND ISTYPE[pr.value, Rope.ROPE] 
THEN mr.val м val м NARROW[pr.value]
ELSE mr.errors м "bad resource_manager property";
EXITS Oops => {};
};
db м Customize.CreateDB[];
IF val#NIL THEN mr.errors м Customize.UpdateDBString[db, val];
IF readonly THEN mr.db м db;
};
};

GetStandardDBReadWrite: PUBLIC PROC [c: Xl.Connection] RETURNS [db: Customize.DB] = {
WITH Xl.GetConnectionPropAndInit[c, myKey, InitializeProp] SELECT FROM
mr: REF MyRec => {
db м ReloadDBCache[c, mr, FALSE];
};
ENDCASE => ERROR;
};

GetStandardDB: PUBLIC PROC [c: Xl.Connection] RETURNS [db: Customize.DBreadonly] = {
WITH Xl.GetConnectionPropAndInit[c, myKey, InitializeProp] SELECT FROM
mr: REF MyRec => {
db м mr.db; 
IF db=NIL THEN db м ReloadDBCache[c, mr, TRUE];
};
ENDCASE => ERROR;
};

InvalidationRec: TYPE = RECORD [proc: Xl.EventProcType, tq: Xl.TQ, data: REF];

ConsInvalidator: ENTRY PROC [mr: REF MyRec, ir: InvalidationRec] = {
mr.invalidation м CONS[ir, mr.invalidation];
};

RegisterDBInvalidator: PUBLIC PROC [c: Xl.Connection, proc: Xl.EventProcType, tq: Xl.TQ, data: REF м NIL] = {
WITH Xl.GetConnectionPropAndInit[c, myKey, InitializeProp] SELECT FROM
mr: REF MyRec => {
IF proc=NIL THEN RETURN;
IF tq=NIL THEN tq м Xl.CreateTQ[];
ConsInvalidator[mr, [proc, tq, data]];
};
ENDCASE => ERROR;
};

QueryStandardDB: PUBLIC PROC [c: Xl.Connection, query: Rope.ROPE] RETURNS [answer: Rope.ROPE] = {
db: Customize.DBreadonly = GetStandardDB[c];
WITH Customize.DoQueryString[db, query] SELECT FROM
r: Rope.ROPE => RETURN [r];
ENDCASE => RETURN [NIL];
};

END.

  4  
XlDBImpl.mesa
Copyright ╙ 1989, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 6, 1989 12:58:15 pm PDT
Christian Jacobi, January 11, 1993 11:41 am PST
--Flushes the cached shared data base
--Set up connection so that shared data base is flushed from cache 
--when the corresponding property value is set.
--Reread the database; if not readonly put it into the cache atomically
--Returns a modifiable copy of the default data base of the connection
--Returns the shared default data base of the connection
 Э╩С  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬCЩNKЪЬ<Щ<KЩ/ЧKШ Ъ╧k	Ь.Ш7KШ ЧЪ╧nЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЮЬШKЪЮЬШKЪЮЬ
ШЧЪЬЮЬШKШ ЧЪЬЮЬЮ	ЬЮЬШ KЪЬ
ЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬЮЬЮШ+KЪЬШЧKШ KЪ	ЬЮЬЮЬЮЬЮЬ
Ш$KШ KЪЬFШFЪЯ	ЬШKЪЬ%Щ%ЪЮЬЮЬЮШЪЬЮЬ,ЮЬШSKЪ	ЬЮЬ	ЮЬЮЬ
ЮЬШ>ЪЮЬЮЬЮЬ+ЮЬЮЬЮШGKЪЬ:Ш:KЪЮЬШЧKШЧKЪЮЬШЧKШЧKШ ЪЯЬШ)KЪЬCЩCKЪЬ/Щ/KЪЬ(Ш(KЪЬЮЬ	ЮЬШKЪЬЮЬXШmKЪЬ6ЮЬШ=KЪЮЬШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШpKЪЬGЩGKЪЬШЪЮЬЮЬЮЬЮЬШKЪЬ
ЮЬ
ШЪЮЬЮЬЮЬШKШШjKШWKЪЮЬШ
KШЧЪЮЬ$ЮЬЮЬЮЬШFKЪЮЬЮЬ
Ш$KЪЮЬ-Ш1ЧKЪЮЬШKШЧKЪЬШKЪЮЬЮЬЮЬ/Ш>KЪЮЬ
ЮЬШKШЧKШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШUKЪЬFЩFЪЮЬ7ЮЬЮШFЪЬЮЬШKЪЬЮЬШ!KШЧKЪЮЬЮЬШЧKШKШ ЧЪЯЬЮЬЮЬЮЬШTKЪЬ8Щ8ЪЮЬ7ЮЬЮШFЪЬЮЬШKЪЬШKЪЮЬЮЬЮЬЮЬШ/KШЧKЪЮЬЮЬШЧKШЧKШ KЪ	ЬЮЬЮЬ!ЮЬЮЬШNKШ ЪЯЬЮЬЮЬЮЬ ШDKЪЬЮЬШ,KШЧKШ ЪЯЬЮЬЮЬ3ЮЬЮЬЮЬШmЪЮЬ7ЮЬЮШFЪЬЮЬШKЪЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШ"KЪЬ&Ш&KШЧKЪЮЬЮЬШЧKШЧKШ ХStartOfExpansionЧ -- [parent: ViewerClasses.Viewer, clientData: REF ANY _ NIL, mouseButton: ViewerClasses.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]ЪЯЬЮЬЮЬ ЮЬЮЬЮЬШaKЪЬ,Ш,ЪЮЬ$ЮЬЮШ3KЪЬЮЬЮЬШKЪЮЬЮЬЮЬШЧKШKШ ЧKЪЮЬШKШ Ч ЕЧ    ,  ё  