<> <> <> <> <<>> <> <> <<>> <> <<>> DIRECTORY Xl USING [Connection, ErrorNotifyEvent, EventRep, EventProcType, Match, SequenceNo]; XlPrivateErrorHandling: CEDAR DEFINITIONS = BEGIN <> <> RegisterErrorReportProc: PROC [proc: Xl.EventProcType]; <> <> ErrorReportProc: PROC [] RETURNS [Xl.EventProcType]; <> <> <<>> RegisterErrorMatch: PROC [c: Xl.Connection, errorMatch: Xl.Match]; <> <> <<>> <> ExplainerProc: TYPE = PROC [errorEvent: Xl.ErrorNotifyEvent]; <<>> RegisterExplainer: PROC [proc: ExplainerProc]; <> Explain: PROC [errorEvent: Xl.ErrorNotifyEvent]; <> <> <> <> NewErrorEvent: PROC [reply: REF ANY, connection: Xl.Connection ¬ NIL, sequenceNumber: Xl.SequenceNo ¬ 0] RETURNS [REF Xl.EventRep.errorNotify]; <> <> <> <> RaiseErrorEvent: PROC [errorEvent: Xl.ErrorNotifyEvent]; <> RaiseClientError: PROC [c: Xl.Connection, what: REF ¬ NIL]; <> <> <> <<>> RaiseServerError: PROC [c: Xl.Connection, what: REF ¬ NIL, reply: REF ANY ¬ NIL]; <> <> <> <> <<>> RegisterRaiseErrorEvent: PROC [PROC [errorEvent: Xl.ErrorNotifyEvent]]; <> END.