DIRECTORY
Atom,
DebuggerFixup,
PreDebug,
PreDebugPrivate,
Rope,
RuntimeError,
VM;

Debugger: CEDAR MONITOR
IMPORTS Atom, Rope, RuntimeError, VM
EXPORTS PreDebug, DebuggerFixup, PreDebugPrivate = 
BEGIN OPEN PreDebug;

RaiseSignal: PROC [which: SIGANY, rtns: POINTER, args: POINTER] = TRUSTED MACHINE CODE {
"XR_RaiseSignal"
};

Raise: PUBLIC PROC [signalOrError: SIGANY, args: POINTER] = {
RaiseSignal[signalOrError, NIL, args];
};

registration: LIST OF RegRec м NIL;
RegRec: TYPE = RECORD [signal: SIGANY, explain: Explainer, data: REF];


RegisterSignalExplainer: PUBLIC PROC [signal: SIGANY, explain: Explainer м NIL, data: REF м NIL] = {
registration м CONS[[signal, explain, data], registration]
};

RegisterErrorExplainer: PUBLIC PROC [error: ERRANY, explain: Explainer м NIL, data: REF м NIL] = {
RegisterSignalExplainer[LOOPHOLE[error], explain, data];
};

Ropeize: PROC [x: REF] RETURNS [Rope.ROPE] = {
WITH x SELECT FROM 
r: Rope.ROPE => RETURN [r];
rt: REF TEXT => RETURN [Rope.FromRefText[rt]];
ENDCASE => RETURN [NIL];
};

Explain: PUBLIC PROC [signalOrError: SIGANY, args: POINTER] RETURNS [Rope.ROPE] = {
registerData: Rope.ROPE м NIL;
FOR l: LIST OF RegRec м registration, l.rest WHILE l#NIL DO
IF l.first.signal=signalOrError THEN {
IF l.first.explain#NIL THEN RETURN[l.first.explain[signalOrError, args, l.first.data]];
registerData м Ropeize[l.first.data];
EXIT
};
ENDLOOP;
SELECT TRUE FROM
registerData#NIL => RETURN [registerData];
ENDCASE => RETURN ["unknown error"];
};
Protect: PUBLIC PROC [inner: PROC, rejectP: PROC [Rope.ROPE] RETURNS [BOOL]] RETURNS [ok: BOOL м TRUE] = {
inner[! RuntimeError.UNCAUGHT => TRUSTED {
explanation: Rope.ROPE;
explanation м Explain[signal, LOOPHOLE[parameters]];
IF rejectP[explanation] THEN REJECT ELSE {ok м FALSE; CONTINUE}
}];
};

lastMessage: Rope.ROPE м NIL;

IJustToldTheUser: PUBLIC PROC [msg: Rope.ROPE] = {
lastMessage м msg
};

LastMessage: PUBLIC PROC [] RETURNS [Rope.ROPE] = {
RETURN [lastMessage]
};
SystemPutRope: PUBLIC ENTRY PROC [r: Rope.ROPE] = {
ENABLE UNWIND => NULL;
PutChar: PROC [c: CHAR] RETURNS [] ~ TRUSTED MACHINE CODE {
"XR_DebugPutChar"
};
FOR i: INT IN [0..Rope.Length[r]) DO
PutChar[Rope.Fetch[r, i]]
ENDLOOP;
};
MyUncaughtHandler: RuntimeError.UCSProc = {
explanation: Rope.ROPE;
explanation м Explain[signal, LOOPHOLE[msg]];
IF Rope.Length[explanation]>50 AND Rope.Equal[explanation, LastMessage[]] THEN {
explanation м Rope.Replace[base: explanation, start: 40, with: " ... "];
}; 
SystemPutRope[Rope.Cat["\n*** Uncaught error: ", explanation, "\n"]];
IF signal # LOOPHOLE[RuntimeError.Aborted] THEN { 
Debug[];
ERROR ABORTED;
};
ExitThread[];
};

Debug: PUBLIC PROC [] = {
TryCallDebugger: PROC ~ TRUSTED MACHINE CODE {
"XR_CallDebugger"
};
DoProcs[start];
TryCallDebugger[];
DoProcs[stop];
};

ExitThread: PUBLIC PROC ~ {
Exit: PROC ~ TRUSTED MACHINE CODE {
"XR_Exit"
};
Exit[]
};

RegisterInterest: PUBLIC ENTRY PROC [startDebugging, stopDebugging: DebuggerFixup.InterestProc, data: REF] ~ {
interests м CONS[ [startDebugging, stopDebugging, data], interests];
};

DoProcs: PROC [action: {start, stop}] ~ {
FOR l: LIST OF Interest м interests, l.rest WHILE l # NIL DO
IF action=start THEN l.first.start[l.first.data] ELSE l.first.stop[l.first.data]
ENDLOOP;
};

interests: LIST OF Interest м NIL;
Interest: TYPE = RECORD [start, stop: DebuggerFixup.InterestProc, data: REF];


oldUncaughtHandler: RuntimeError.UCSProc м NIL;

Init: PROC [] = {
RegisterErrorExplainer[RuntimeError.Aborted, NIL, "Aborted"];
RegisterErrorExplainer[RuntimeError.AbstractionFault, NIL, "ArithmeticFault"];
RegisterErrorExplainer[RuntimeError.ArithmeticFault, NIL, "ArithmeticFault"];
RegisterErrorExplainer[RuntimeError.AssignRefCompositeFault, NIL, "AssignRefCompositeFault"];
RegisterErrorExplainer[RuntimeError.BoundsFault, NIL, "BoundsFault"];
RegisterErrorExplainer[RuntimeError.DivideCheck, NIL, "DivideCheck"];
RegisterErrorExplainer[RuntimeError.LinkageFault, NIL, "LinkageFault"];
RegisterErrorExplainer[RuntimeError.NarrowFault, NIL, "NarrowFault"];
RegisterErrorExplainer[RuntimeError.NarrowRefFault, NIL, "NarrowRefFault"];
RegisterErrorExplainer[RuntimeError.NestedProcFault, NIL, "NestedProcFault"];
RegisterErrorExplainer[RuntimeError.NilFault, NIL, "NilFault"];
RegisterErrorExplainer[RuntimeError.ResumeFault, NIL, "ResumeFault"];
RegisterErrorExplainer[RuntimeError.StackFault, NIL, "StackFault"];
RegisterErrorExplainer[RuntimeError.StartFault, NIL, "StartFault"];
RegisterErrorExplainer[RuntimeError.Uncaught, NIL, "Uncaught"];
RegisterErrorExplainer[RuntimeError.UnnamedError, NIL, "UnnamedError"];
RegisterErrorExplainer[RuntimeError.UnnamedSignal, NIL, "UnnamedSignal"];
RegisterErrorExplainer[RuntimeError.Unwind, NIL, "Unwind"];
RegisterErrorExplainer[RuntimeError.UnwindFault, NIL, "UnwindFault"];
RegisterErrorExplainer[RuntimeError.ZeroDivisor, NIL, "ZeroDivisor"];

RegisterSignalExplainer[RuntimeError.UnboundProcedureFault, NIL, "UnboundProcedureFault"];
RegisterSignalExplainer[RuntimeError.SendMsg, NIL, "SendMsg"];

RegisterErrorExplainer[Atom.NILNotAnAtom, NIL, "NILNotAnAtom"];

RegisterErrorExplainer[Rope.NoRope, NIL, "NoRope"];
RegisterErrorExplainer[Rope.VerifyFailed, NIL, "Rope.VerifyFailed"];

RegisterErrorExplainer[VM.AddressFault, NIL, "VM.AddressFault"];
RegisterErrorExplainer[VM.WriteProtectFault, NIL, "VM.WriteProtectFault"];

IF oldUncaughtHandler=NIL THEN
oldUncaughtHandler м RuntimeError.RegisterUncaughtSignalHandler[MyUncaughtHandler];
};

Init[];
END.


   В  
Debugger.mesa
Copyright ╙ 1990, 1991 by Xerox Corporation.  All rights reserved.
Debugger: Carl Hauser, April 24, 1989 5:45:59 pm PDT
PreDebug: Christian Jacobi, July 20, 1990 1:04:52 pm PDT
Christian Jacobi, July 25, 1990 7:56 pm PDT


--IF oldUncaughtHandler#NIL 
--THEN oldUncaughtHandler[msg, signal, frame]
--ELSE {
If control returns here, raise ABORTED then exit
--};

 Э╩╛  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ4KЩ8KЩ+KЩ ЧЪ╧k	Ш	KЪЬШKЪЬШKЪЬ	Ш	KЪЬШKЪЬШKЪЬШKЪЬШKШ ЧЪ╧nЬЮЬЮШKЪЮЬЮШ$KЪЮЬ,Ш3ЧKЪЮЬЮЬ
ШKШ ЪЯЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬШXKЪЬШKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ=KЪЬЮЬШ&KЪЬШKШ ЧKЪЬЮЬЮЬ
ЮЬШ#KЪ	ЬЮЬЮЬ
ЮЬЮЬШFKШ KШ ЪЯЬЮЬ
ЮЬЮЬЮЬЮЬШdKЪЬЮЬ'Ш:KШKШ ЧЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШbKЪЬЮЬШ8KЪЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ.ЪЮЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬЮЬШ.KЪЮЬЮЬЮЬШЧKЪЬШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШSKЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮШ;ЪЮЬЮЬШ&KЪЮЬЮЬЮЬЮЬ5ШWKЪЬ%Ш%KЪЮШKШЧKЪЮЬШЧЪЮЬЮЬЮШKЪЬЮЬЮЬШ*KЪЮЬЮЬШ$ЧKЪЬШKЩ ЧЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШjЪЬЮЬЮЬШ*KЪЬЮЬШKЪЬЮЬШ4KЪЮЬЮЬЮЬЮЬЮЬЮЬШ?KЪЬШЧKЪЬШKШ ЧKЪЬЮЬЮЬШKШ ЪЯЬЮЬЮЬЮЬШ2KЪЬШKЪЬШKШ ЧЪ	ЯЬЮЬЮЬЮЬЮШ3KЪЮЬШKЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬ
ЮЬШ3KЪЮЬЮЬЮЬШЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ;KШKШЧЪЮЬЮЬЮЬЮШ$KЪЬШKЪЮЬШЧKШKЩ ЧЪЯЬШ+KЪЬЮЬШKЪЬЮЬШ-ЪЮЬЮЬ(ЮЬШPKЪЬHШHKЪЬШЧKЪЬEШEЪЬЩKЪЬ-Щ-ЪЬЩЪЮЬ
ЮЬЮЬШ2KЪЬШKЪЬЮЬ
Щ0KЪЮЬЮЬШKШЧKШKЪЬЩЧЧKШЧKШ ЪЯЬЮЬЮЬШЪ
ЯЬЮЬЮЬЮЬЮЬШ.KШKШЧKШKЪЬШKШKЪЬШKШ ЧЪЯ
ЬЮЬЮЬШЪ
ЯЬЮЬЮЬЮЬЮЬШ#KШ	KШЧKЪЬШKШKШ ЧЪЯЬЮЬЮ
ЬCЮЬШnKЪЬЮЬ4ШDKШKШ ЧЪЯЬЮЬШ)ЪЮЬЮЬЮЬЮЬЮЬЮШ<KЪЮЬЮЬЮЬШPKЪЮЬШЧKШЧKШ ЪЬЮЬЮЬЮЬШ"KЪЬ
ЮЬЮЬ1ЮЬШMЧШ KШ ЧKЪЬ+ЮЬШ/KШ ЪЯЬЮЬШKЪЬ-ЮЬШ=KЪЬ6ЮЬШNKЪЬ5ЮЬШMKЪЬ=ЮЬШ]KЪЬ1ЮЬШEKЪЬ1ЮЬШEKЪЬ2ЮЬШGKЪЬ1ЮЬШEKЪЬ4ЮЬШKKЪЬ5ЮЬШMKЪЬ.ЮЬШ?KЪЬ1ЮЬШEKЪЬ0ЮЬШCKЪЬ0ЮЬШCKЪЬ.ЮЬШ?KЪЬ2ЮЬШGKЪЬ3ЮЬШIKЪЬ,ЮЬШ;KЪЬ1ЮЬШEKЪЬ1ЮЬШEKШ KЪЬ<ЮЬШZKЪЬ.ЮЬШ>KШ KЪЬ*ЮЬШ?KШ KЪЬ$ЮЬШ3KЪЬ*ЮЬШDKШ KЪЬЮЬЮЬШ@KЪЬЮЬЮЬШJKШ ЪЮЬЮЬЮШKЪЬSШSЧKШЧKШ KЪЬШKЪЮЬШKШ KШ KЩ KШ Ч ЕЧ    r  ▓  