
DIRECTORY 
Atom, Xl, XlPrivateTypes, XlFinalizePrivate;

XlFinalizePrivateImpl: CEDAR MONITOR
IMPORTS Atom, Xl 
EXPORTS Xl, XlPrivateTypes, XlFinalizePrivate =
BEGIN 

ConnectionPrivate: PUBLIC <<Xl>> TYPE = XlPrivateTypes.ConnectionPrivateImplRec;
FinalizationRep: PUBLIC <<XlPrivateTypes>> TYPE = FinalizationRec;

FinalizationRec: TYPE = RECORD [
finalMatch: Xl.Match м NIL,
finalizationTQ: Xl.TQ м NIL,
countList: Atom.PropList м NIL
];

Init: PUBLIC PROC [c: Xl.Connection, finalMatch: Xl.Match м NIL] = {
cPriv: REF XlPrivateTypes.ConnectionPrivateImplRec м c.cPriv;
cPriv.finalizationStuff м NEW[FinalizationRec м [
finalMatch: finalMatch,
finalizationTQ: Xl.CreateTQ[],
countList: Atom.PutPropOnList[NIL, NIL, NEW[CARD м 1]]
]];
};
FinalizationStuff: PROC [c: Xl.Connection] RETURNS [REF FinalizationRec м NIL] = {
IF c#NIL THEN {
cPriv: REF XlPrivateTypes.ConnectionPrivateImplRec м c.cPriv;
IF cPriv#NIL THEN RETURN [cPriv.finalizationStuff];
};
};

IncRefCount: PUBLIC ENTRY PROC [c: Xl.Connection, object: REF м NIL] = {
finalizationStuff: REF FinalizationRec ~ FinalizationStuff[c];
IF finalizationStuff#NIL THEN {
count: REF CARD м NARROW[Atom.GetPropFromList[finalizationStuff.countList, object]];
IF count#NIL 
THEN countн м countн+1
ELSE finalizationStuff.countList м Atom.PutPropOnList[finalizationStuff.countList, object, NEW[CARD м 1]];
};
};
DecRefCount: PUBLIC ENTRY PROC [c: Xl.Connection, object: REF м NIL] = {
finalizationStuff: REF FinalizationRec ~ FinalizationStuff[c];
IF finalizationStuff#NIL THEN {
count: REF CARD м NARROW[Atom.GetPropFromList[finalizationStuff.countList, object]];
IF count#NIL THEN {
IF countн#1 
THEN countн м countн - 1
ELSE finalizationStuff.countList м Atom.RemPropFromList[finalizationStuff.countList, object];
}; 
IF finalizationStuff.countList=NIL THEN {
tq: Xl.TQ; 
finalMatch: Xl.Match ~ finalizationStuff.finalMatch;
IF finalMatch#NIL THEN tq м finalMatch.tq; 
IF tq=NIL THEN tq м finalizationStuff.finalizationTQ; 
Xl.Enqueue[tq: tq, proc: TryCloseConnection, data: c];
};
};
};

TryCloseConnection: Xl.EventProcType = {
c: Xl.Connection ~ NARROW[clientData];
finalizationStuff: REF FinalizationRec ~ FinalizationStuff[c];
IF finalizationStuff.countList=NIL THEN {	
finalMatch: Xl.Match ~ finalizationStuff.finalMatch;
IF finalMatch#NIL THEN {
proc: Xl.EventProcType м finalMatch.proc;
IF proc#NIL THEN {
event: REF Xl.EventRep.finalEvent м NEW[Xl.EventRep.finalEvent];
event.connection м c;
event.refCountTransition м TRUE;
proc[event, finalMatch.data, tq];
};
};
IF finalizationStuff.countList=NIL THEN Xl.CloseConnection[c];
};
};

END.

  
  (  XlFinalizePrivateImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, April 7, 1988 2:01:36 pm PDT
Christian Jacobi, February 3, 1993 11:57 am PST
Willie-s, September 30, 1991 6:17 pm PDT


--fork to leave monitor and to be on right tq
Э╩▌  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЩKЪЬ
╧eЬ7ЩBKЪЬ6╧kЩ9KЩ/KЩ(KЩ ЧЪЮ	ЬШ
KШ,KШ ЧЪ╧nЬЮЬЮШ$KЪЮЬ
ШKЪЮЬ(Ш/ЧKЪЮЬШKШ KЪЬЮЬЮЬ+ШPKЪЬЮЬЮЬШBKШ ЪЬЮЬЮЬШ KЪЬЮЬШKЪЬЮЬЮШKЪЬЮШKЪЬШЧKШ ЪЯЬЮЬЮЬ+ЮЬШDKЪЬЮЬ3Ш=ЪЬЮЬШ1KЪЬШKЪЬШKЪ	ЬЮЬЮЬЮЬЮЬШ6KЪЬШЧKЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШRЪЮЬЮЬЮЬШKЪЬЮЬ3Ш=KЪЮЬЮЬЮЬЮЬШ3KШЧKЪЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШHKЪЬЮЬ(Ш>ЪЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬ<ШTЪЮЬЮЬШKЪЮЬШKЪЮЬWЮЬЮЬШjЧKШЧKШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШHKЪЬЮЬ(Ш>ЪЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬ<ШTЪЮЬЮЬЮЬШЪЮЬ
ШKЪЮЬШKЪЮЬYШ]ЧKЪЬШЧЪЮЬЮЬЮЬШ)KЪЬ-Щ-KЪЬЮЬШKЪЬ4Ш4KЪЮЬЮЬЮЬШ+KЪЮЬЮЬЮЬ(Ш6KЪЬ6Ш6KЪЬШЧKШЧKШЧKШ ЪЯЬШ(KЪЬЮЬШ&KЪЬЮЬ(Ш>ЪЮЬЮЬЮЬШ*KЪЬ4Ш4ЪЮЬЮЬЮЬШKЪЬ)Ш)ЪЮЬЮЬЮЬШKЪЬЮЬЮЬШ@KЪЬШKЪЬЮЬШ KЪЬ!Ш!KШЧKШЧKЪЮЬЮЬЮЬШ>KШЧKЪЬШKШ ЧKЪЮЬШKШ KШЧ ЕЧ    
0  5  