
DIRECTORY 
IO, Rope, Xl, XlPrivateErrorHandling, XlPrivate, XlTQPrivate;

XlSimpleErrorHandlingImpl: CEDAR PROGRAM 
IMPORTS IO, Rope, Xl, XlPrivate, XlPrivateErrorHandling, XlTQPrivate ~ 
BEGIN 

Explain: PROC [errorEvent: Xl.ErrorNotifyEvent] = {
Ap0: PROC [r: Rope.ROPE] = {
ev.explanation м Rope.Cat[ev.explanation, r, " "];
};
Ap: PROC [format: Rope.ROPE, v1: IO.Value м [null[]]] = {
Ap0[IO.PutFR1[format, v1]]
};
ev: REF Xl.EventRep.errorNotify;
IF errorEvent#NIL AND errorEvent.explanation=NIL THEN {
TRUSTED { ev м LOOPHOLE[errorEvent] }; --read-write
ev.originalCodeByte м ORD[Xl.EventCode[errorNotify]];
WITH ev.replyText SELECT FROM
r: XlPrivate.Reply => {
IF XlPrivate.Get8[r, 0]#0 THEN Ap0["package is not an error event"]
ELSE {
XlPrivate.SetPos[r, 1];
ev.errorKind м VAL[XlPrivate.Read8[r]];
ev.seq м XlPrivate.ERead16[r];
ev.badValue м XlPrivate.ERead32[r];
ev.minorOpCode м XlPrivate.ERead16[r];
ev.majorOpCode м VAL[XlPrivate.ERead8[r]];
SELECT ev.errorKind FROM
nil => Ap0["nil error"];
request => Ap["bad request: %g", IO.card[ev.majorOpCode]];
value => Ap["bad value: %g", IO.card[ev.badValue]];
window => Ap["bad window id: %g", IO.card[ev.badValue]];
pixmap => Ap["bad pixmap id: %g", IO.card[ev.badValue]];
atom => Ap["bad atom id: %g", IO.card[ev.badValue]];
cursor => Ap["bad cursor id: %g", IO.card[ev.badValue]];
font => Ap["bad font id: %g", IO.card[ev.badValue]];
match => Ap0["match error"];
drawable => Ap["bad drawable id: %g", IO.card[ev.badValue]];
access => Ap0["access error"];
alloc => Ap0["server out of memory"];
colormap => Ap["bad colormap id: %g", IO.card[ev.badValue]];
gContext => Ap["bad gContext id: %g", IO.card[ev.badValue]];
idChoice => Ap["idChoice error: bad id: %g", IO.card[ev.badValue]];
name => Ap0["name error"];
length => Ap0["length error"];
implementation => Ap0["implementation error"];
connectionWedged => Ap0["connection wedged"];
requestFromDeadConnection => Ap0["connection closed"];
VAL[241] => Ap0["reply inconsistent"];
ENDCASE => Ap["unknown error (%g)", IO.card[ORD[ev.errorKind]]];
Ap[" (majorOpCode: %g)", IO.card[ev.majorOpCode]];
IF ev.minorOpCode#0 THEN
Ap[" (minorOpCode: %g)", IO.card[ev.minorOpCode]];
};
};
ENDCASE => {Ap0["reply wrong"]};
};
};

lastErrorEvent: Xl.ErrorNotifyEvent;
lastError: Rope.ROPE;
lastErrorReply: REF;

PrintLastErrorEvent: PROC [] RETURNS [Xl.ErrorNotifyEvent] = {
RETURN [lastErrorEvent]
};

PrintLastError: PROC [] RETURNS [r: Rope.ROPE] = {
RETURN [lastError]
};

PrintLastErrorReply: PROC [] RETURNS [REF] = {
RETURN [lastErrorReply]
};

ErrorEventProc: Xl.EventProcType = {
connection: Xl.Connection;
originalCodeByte: BYTE;
IF event#NIL THEN {
connection м event.connection;
originalCodeByte м event.originalCodeByte
}; 
WITH event SELECT FROM
error: Xl.ErrorNotifyEvent => { 
XlPrivateErrorHandling.Explain[error];
BEGIN
ENABLE ABORTED => {
XlTQPrivate.RemoveErrorEvents[tq]; GOTO oops
};
sequenceNo: Xl.SequenceNo м error.seq;
r: Rope.ROPE м IO.PutFLR["[%g, kind:%g, major:%g, minor:%g, bad: %g] ", 
LIST[ [rope[error.explanation]],
[cardinal[ORD[error.errorKind]]],
[cardinal[error.majorOpCode]],
[cardinal[error.minorOpCode]],
[cardinal[error.badValue]] ]
];
lastErrorEvent м error;
lastErrorReply м error.replyText;
lastError м Rope.Flatten[r];

SIGNAL Xl.XError[error];

EXITS oops => {};
END;
};
ENDCASE => ERROR;
};

XlPrivateErrorHandling.RegisterErrorReportProc[ErrorEventProc];
XlPrivateErrorHandling.RegisterExplainer[Explain];
END.
   
   р  XlSimpleErrorHandlingImpl.mesa
Copyright ╙ 1991 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, November 6, 1991 10:11:20 am PST
Christian Jacobi, February 2, 1993 11:35 am PST

Non essential impl module for Xl.
Registers default error handlers making X errors legible.
Willie-s, November 25, 1991 4:47 pm PST

--Also makes copies of data so it is visible in Cirio...
--Proceeding gets to the next queued error, 
--Aborting flushes the error queue.
Э╩Я  ХNewlineDelimiter
Ц(cedarcode) styleШ codeЪЬЩKЪЬ
╧eЬ1Щ<KЪЬ=Щ=KЩ/KЩ KЩ!KЩ9KЩ'KЩ ЧЪ╧k	ЬШ
KЪЮЬ;Ш=KШ ЧЪ╧nЬЮЬЮЬШ)KЪЮЬЮЬ=ШGЧKЪЮЬШKШ ЪЯЬЮЬ&Ш3ЪЯЬЮЬ
ЮЬШKЪЬ2Ш2KШЧЪЯЬЮЬЮЬЮЬШ9KЪЬЮЬШKШЧKЪЬЮЬШ Ъ
ЮЬЮЬЮЬЮЬЮЬШ7KЪЮЬЮЬ╧cШ3KЪЬЮЬШ5ЪЮЬЮЬЮШШKЪЮЬЮЬ%ШCЪЮЬШKЪЬШKЪЬЮЬШ'KЪЬШKЪЬ#Ш#KЪЬ&Ш&KЪЬЮЬШ*ЪЮЬЮШKЪЬШKЪЬ!ЮЬШ:KЪЬЮЬШ3KЪЬ"ЮЬШ8KЪЬ"ЮЬШ8KЪЬЮЬШ4KЪЬ"ЮЬШ8KЪЬЮЬШ4KЪЬШKЪЬ&ЮЬШ<KЪЬШKЪЬ%Ш%KЪЬ&ЮЬШ<KЪЬ&ЮЬШ<KЪЬ-ЮЬШCKЪЬШKЪЬШKЪЬ.Ш.KЪЬ-Ш-KЪЬ6Ш6KЪЮЬ#Ш&KЪЮЬЮЬЮЬШ@ЧKЪЬЮЬШ2ЪЮЬЮШKЪЬЮЬШ2ЧKШЧKЪЬШЧKЪЮЬШ ЧKШЧKШЧKШ KЪЬ$Ш$KЪЬЮЬШKЪЬЮЬШKШ ЪЯЬЮЬЮЬШ>KЪЮЬШKШKШ ЧЪЯЬЮЬЮЬ
ЮЬШ2KЪЮЬШKШKШ ЧЪЯЬЮЬЮЬЮЬШ.KЪЮЬШKШЧKШ ЪЯЬШ$KЪЬ8Щ8KЪЬШKЪЬЮЬШЪЮЬЮЬЮЬШKЪЬШKЪЬ)Ш)KЪЬШЧЪЮЬЮЬЮШЪЬ Ш KЪЬ&Ш&ЪЮШЪЮЬЮЬШKЪЬ#ЮЬШ,KЪЬШЧKЪЬ&Ш&ЪЬЮЬЮЬ7ШHKЪЮЬШ KЪЬ
ЮЬШ!KЪЬШKЪЬШKЪЬШKЪЬШЧKЪЬШKЪЬ!Ш!KЪЬШKШ KЪЮЬШKЪа╤bcn
а Щ,KЪЬбаЩ#KШ KЪЮЬШKЪЮЬШЧKШЧKЪЮЬЮЬШЧKЪЬШЧKШ KШ?KЪЬ2Ш2KЪЮЬШKШЧ ЕЧ    Ж    