DIRECTORY
TargetArchitecture, 
Shepherd,
BreakWorldArchitecture,
Rope USING [ROPE];

Breakpoint: CEDAR DEFINITIONS ~ {
SetBreakpoint: SetBreakProc;
SetBreakProc: TYPE ~ 
PROCEDURE [
address: BreakWorldArchitecture.Address, 
clientData: ClientData, 
breakProc: BreakProc, 
breakData: BreakData,
damages: TargetArchitecture.RegisterClass 
_ TargetArchitecture.RegisterClass.all] 
RETURNS [Break];

ClientData: TYPE ~ REF ANY;
BreakProc: TYPE ~ BreakWorldArchitecture.Address;
BreakData: TYPE ~ CARD32;
BreakProcedure: TYPE ~ PROCEDURE [breakData: BreakData] RETURNS [];
Break: TYPE ~ REF BreakRep _ nullBreak;
nullBreak: Break ~ NIL;
BreakRep: TYPE;


ClearBreakpoint: ClearBreakProc;
ClearBreakProc: TYPE ~ 
PROCEDURE [break: Break] RETURNS [];


EnumerateBreakpoints: EnumerateBreakProc;
EnumerateBreakProc: TYPE ~
PROCEDURE [breakWorld: BreakWorldArchitecture.BreakWorld, proc: BreakpointProc] 
RETURNS [quit: BOOLEAN _ FALSE];
BreakpointProc: TYPE ~ 
PROCEDURE [clientData: ClientData] RETURNS [quit: BOOLEAN];

IsNullBreak: PROCEDURE [break: Break] RETURNS [BOOLEAN];

AddressFromBreak: PROCEDURE [break: Break] RETURNS [BreakWorldArchitecture.Address];

PatchFromBreak: PROCEDURE [break: Break] RETURNS [Shepherd.Patch];

ClientDataFromBreak: PROCEDURE [break: Break] RETURNS [ClientData];

NewBreakAccess: PROCEDURE [] RETURNS [BreakWorldArchitecture.BreakAccess];
BreakAccess: TYPE ~ REF BreakAccessRep _ nullBreakAccess;
nullBreakAccess: BreakAccess ~ NIL;
BreakAccessRep: TYPE ~ RECORD [
procs: BreakAccessProcs,
data: BreakAccessData
];

BreakAccessProcs: TYPE ~ REF BreakAccessProcsRep _ nullBreakAccessProcs;
nullBreakAccessProcs: BreakAccessProcs ~ NIL;
BreakAccessProcsRep: TYPE ~ RECORD [
set: SetBreakProc,
clear: ClearBreakProc,
enumerate: EnumerateBreakProc
];

BreakAccessData: TYPE ~ REF BreakAccessDataRep _ nullBreakAccessData;
nullBreakAccessData: BreakAccessData ~ NIL;
BreakAccessDataRep: TYPE;


RememberBreak: PROCEDURE [break: Break];

ForgetBreak: PROCEDURE [break: Break];

NewBreak: PROCEDURE [
address: BreakWorldArchitecture.Address,
patch: Shepherd.Patch,
clientData: ClientData]
RETURNS [Break];

ErrorCode: TYPE ~ ATOM _ nullErrorCode;
nullErrorCode: ErrorCode ~ NIL;
ErrorMessage: TYPE ~ Rope.ROPE _ nullErrorMessage;
nullErrorMessage: ErrorMessage ~ NIL;

CantSet: ERROR [code: ErrorCode, message: ErrorMessage];

CantClear: ERROR [code: ErrorCode, message: ErrorMessage];

Cant: ERROR [code: ErrorCode, message: ErrorMessage];

}.
   
  
Breakpoint.mesa
Copyright ╙ 1989, 1990 by Xerox Corporation.  All rights reserved.
Peter B. Kessler, April 18, 1990 11:41 am PDT

The client's interface to the breakpoint mechanisms.

Machine-Dependent Procedures (exported by SPARCBreakpointImpl)
Machine-Independent Procedures (exported by BreakpointImpl)
Procedures you probably need:
Accessors for Breaks:
Procedures you probably don't need (but I do):
Errors
Specifically for errors during setting.
Specifically for errors during clearing.
For general errors.

Э╩├  Ц"cedar" styleХNewlineDelimiter
Щ codeЩKЪЬ
╧rЬ7ЩBKЪЬ-Щ-ЧKЩ KЩ4Щ Ъ╧k	Ш	KЪЬШKШ	KШKЪЬЮЬЮЬШЧKШ ЧunitЪ╨ln
ЬЮЬЮЬШ!headЩ>Ъ╧nЬШЪЬЮЬШЪЮ	ЬШKЪЬ)Ш)KЪЬШKЪЬШKЪЬШЪЬ*Ш*KЪЬ(Ш(ЧЧKЪЮЬ	ШKШ KЪЬЮЬЮЬЮЬШKЪЬЮЬ"Ш1KЪЬЮЬЮЬШKЪЬЮЬЮ	ЬЮЬШCЪЬЮЬЮЬШ'KЪЬЮЬШKЪЬ
ЮЬШKШ ЧЧKШ ЧЪаЬШ ЪЬЮЬШKЪЮ	ЬЮЬШ$ЧKШ KШ ЧЧЩ;ЩЪаЬШ)ЪЬЮЬШKЪЮ	ЬGШPKЪЮЬЮЬЮЬШ ЪЬЮЬШKЪЮ	ЬЮЬЮЬШ;ЧKШ ЧЧЧЩЪаЬЮ	ЬЮЬЮЬШ8KШ ЧЪаЬЮ	ЬЮЬ"ШTKШ ЧЪаЬЮ	ЬЮЬШBKШ ЧЪаЬЮ	ЬЮЬШCKШ ЧЧЩ.ЪаЬЮ	ЬЮЬ&ШJЪЬЮЬЮЬ"Ш9KЪЬЮЬШ#ЪЬЮЬЮЬШKЪЬШKЪЬШKШKШ ЧЪЬЮЬЮЬ,ШHKЪЬ)ЮЬШ-ЪЬЮЬЮЬШ$KШKЪЬШKШKШKШ ЧЧЪЬЮЬЮЬ*ШEKЪЬ'ЮЬШ+KЪЬЮЬШKШ ЧKШ ЧЧЪаЬЮ	ЬШ(KШ ЧЪаЬЮ	ЬШ&KШ ЧЪаЬЮ	Ь[ЮЬ	Ш~KШ ЧЧЧЩЪЬЮЬЮЬШ'KЪЬЮЬШЧЪЬЮЬЮЬШ2KЪЬ!ЮЬШ%KШ ЧЪаЬЮЬ*Ш8KЩ'KШ ЧЪа	ЬЮЬ*Ш:KЩ(KШ ЧЪаЬЮЬ*Ш5KЩKШ ЧЧLШKЩ ЧЧ ЕЧ    	ж  s  