DIRECTORYBBAction USING[Action, NewAction, WaitForDataTaken],BBBreak USING[BreakId, BreakIdRep, BreakList, CondProc, NullIndex],BBObjectLocation USING[BreakpointHandler, ClearBreakpoint, EntryLocation, ExitLocation, Location, SetBreakpoint, TVToLocation],BBSafety USING[Mother],BBZones USING[GetQuantizedZone],Rope USING[ROPE],RTBasic USING [TV];BBBreakImpl: CEDAR MONITORIMPORTS BBAction, BBObjectLocation, BBSafety, BBZonesEXPORTS BBBreakSHARES BBBreak= BEGIN OPEN BBBreak, BBObjectLocation, Rope, RTBasic;z: ZONE _ BBZones.GetQuantizedZone[];LastBreakIdNumber: INT _ 0; headBreakList: BreakList _ NIL;BreakError: PUBLIC ERROR [reason: ROPE] = CODE; BreakEntry: PUBLIC PROC[proc: TV] RETURNS [index: INT] = TRUSTED {inner: PROC = TRUSTED { loc: Location _ EntryLocation[TVToLocation[proc]];bid: BreakId _ AddBreakToList[loc];bid.enabled _ bid.entry _ TRUE;index _ bid.index;};msg: ROPE _ BBSafety.Mother[inner];IF msg = NIL THEN RETURN;ERROR BreakError[msg]; }; BreakExit: PUBLIC PROC[proc: TV] RETURNS [index: INT] = TRUSTED {inner: PROC = TRUSTED { loc: Location _ ExitLocation[TVToLocation[proc]];bid: BreakId _ AddBreakToList[loc];bid.enabled _ bid.exit _ TRUE;index _ bid.index;};msg: ROPE _ BBSafety.Mother[inner];IF msg = NIL THEN RETURN;ERROR BreakError[msg]; };ClearBreak: PUBLIC PROC [index: INT] RETURNS [BreakId] = TRUSTED {bid: BreakId _ RemBreakFromList[index];IF bid = NIL THEN RETURN [NIL]; [] _ BBObjectLocation.ClearBreakpoint[bid.loc, bid.cid];RETURN [bid]}; ClearAllBreaks: PUBLIC ENTRY PROC [condProc: CondProc _ NIL] = TRUSTED {ENABLE UNWIND => NULL;bl: BreakList _ headBreakList;WHILE bl # NIL DObid: BreakId _ bl.first;bl _ bl.rest;IF condProc # bid.condProc THEN LOOP; bid.enabled _ FALSE; [] _ RemBreakFromListInternal[bid.index]; [] _ BBObjectLocation.ClearBreakpoint[bid.loc, bid.cid]ENDLOOP}; FindBreakLag: PUBLIC PROC [index: LONG INTEGER] RETURNS [lag: BreakList] = {lag _ NIL; FOR bl: BreakList _ headBreakList, bl.rest WHILE NOT (bl = NIL) DOIF bl.first.index >= index THEN EXIT; lag _ blENDLOOP}; FindBreakId: PUBLIC ENTRY PROC [index: INT] RETURNS [id: BreakId] = {ENABLE UNWIND => NULL;id _ NIL; FOR bl: BreakList _ headBreakList, bl.rest WHILE NOT (bl = NIL) DOIF bl.first.index = index THEN RETURN [bl.first]ENDLOOP}; AddBreakToList: PUBLIC ENTRY PROC[loc: BBObjectLocation.Location, condProc: CondProc _ NIL, condData: REF _ NIL]RETURNS [BreakId] = {ENABLE UNWIND => NULL;RETURN [AddBreakToListInternal[loc, condProc, condData]]};AddBreakToListInternal: PROC[loc: BBObjectLocation.Location, condProc: CondProc _ NIL, condData: REF _ NIL]RETURNS [BreakId] = TRUSTED {bid: BreakId _NEW[BreakIdRep _ [loc: loc, index: 0,cid: NIL,condProc: condProc,condData: condData ,entry: FALSE, exit: FALSE, enabled: TRUE]]; bidl: BreakList _ LIST[bid]; lag: BreakList _ FindBreakLag[LastBreakIdNumber + 1];bid.cid _ BBObjectLocation.SetBreakpoint[loc, MyBreakHandler, bid]; IF lag = NIL THEN {bidl.rest _ headBreakList; headBreakList _ bidl} ELSE {bidl.rest _ lag.rest; lag.rest _ bidl}; LastBreakIdNumber _ bid.index _ LastBreakIdNumber + 1; RETURN [bid]}; RemBreakFromList: PUBLIC ENTRY PROC [index: INT] RETURNS [BreakId] = {ENABLE UNWIND => NULL;RETURN [RemBreakFromListInternal[index]]};RemBreakFromListInternal: PROC [index: INT] RETURNS [bid: BreakId] = TRUSTED {bidl: BreakList _ NIL;bid _ NIL;IF headBreakList # NIL AND headBreakList.first.index = index THEN {bidl _ headBreakList; headBreakList _ headBreakList.rest} ELSE {lag: BreakList _ FindBreakLag[index]; IF lag # NIL THEN {bidl _ lag.rest; lag.rest _ IF bidl # NIL THEN bidl.rest ELSE NIL}}; IF bidl # NIL THEN {bid _ bidl.first;bid.index _ 0; FREE[@bidl]};}; NextBreak: PUBLIC ENTRY PROC[index: INT _ NullIndex] RETURNS [INT] = {ENABLE UNWIND => NULL;FOR bl: BreakList _ headBreakList, bl.rest WHILE NOT (bl = NIL) DObid: BreakId _ bl.first;IF index = NullIndex THEN RETURN [bid.index];IF index = bid.index THEN index _ NullIndex;ENDLOOP;RETURN [NullIndex];};  MyBreakHandler: BBObjectLocation.BreakpointHandler = TRUSTED {action: BBAction.Action _ NIL;bid: BreakId _ NARROW[data]; IF bid = NIL OR NOT bid.enabled THEN RETURN;IF bid.condProc # NIL THEN {IF NOT bid.condProc[bid, event.frame, bid.condData] THEN RETURN};action _ BBAction.NewAction[event, break];BBAction.WaitForDataTaken[action, bid];};END.  J  BBBreakImpl.mesaRuss Atkinson, March 28, 1983 2:50 pmget the entry locationget the exit locationutility routines for breakpoint stuffset the new breakpoint[event: Event, id: BreakpointId, data: REF]first check for cases we may wish to handle quicklyhandle conditional breakssigh, we must notify our normal handler Э╩√  Ш JЪЬЩJЪЬ%Щ%JШ Ъ╧k	Ш	ЪЬ	ЭШJШ&ЧЪЬЭШJШ6ЧЪЬЭШJШiЧЪЬ	ЭШJШ	ЧЪЬЭШJШЧЪЬЭШ
JЪЬЭЬШЧJЪЬЭЬЭЬШJШ ЧЪЬЭЬЭШJЪЭЬ.Ш5JЪЭЬШJЪЭЬШJЪЬЭЬЭЬ*Ш6JШ JЪЬЭЬШ%JШ JЪЬЭЬШJЪЬЭЬШJШ JЪ	ЬЭЬЭЬ
ЭЬЭЬШ0JШ Ъ╧n
ЬЭЬЭШJЪ	ЬЭЬЭЬ	ЭЬЭЬШ+ЪЬЭЬЭЬШJЪЬЩJШ2JШ#JЪЬЭЬШJШJШЧJЪЬЭЬШ#JЪЭЬЭЬЭЬЭЬШJЪЭЬШJШJШ ЧЪЮ	ЬЭЬЭШJЪ	ЬЭЬЭЬ	ЭЬЭЬШ+ЪЬЭЬЭЬШJЪЬЩJШ1JШ#JЪЬЭЬШJШJШЧJЪЬЭЬШ#JЪЭЬЭЬЭЬЭЬШJЪЭЬШJШJШ ЧЪЮ
ЬЭЬЭЬ	ЭЬЭЬЭЬШBJШ'JЪ
ЭЬЭЬЭЬЭЬЭЬШ JШ8JЪЭЬ	ШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬШHJЪЭЬЭЬЭЬШJШЪЭЬЭЬЭШJШJШJЪЭЬЭЬЭЬШ&JЪЬЭЬШJШ*JШ7JЪЭШЧЪЬШJШ ЧЧJЪЬ%Щ%JШ ЪЮЬЭЬЭЬ	ЭЬЭЬЭЬШLJЪЬЭЬШЪ	ЭЬ(ЭЬЭЬЭЬЭШBJЪЭЬЭЬЭЬШ&JШJЪЭЬШ
JШ ЧЧЪЮЬЭЬЭЬЭЬ	ЭЬЭЬШEJЪЭЬЭЬЭЬШJЪЬЭЬШ
Ъ	ЭЬ(ЭЬЭЬЭЬЭШBJЪЭЬЭЬЭЬШ0JЪЭЬШ
JШ ЧЧЪЮЬЭЬЭЬЭШ!JЪЬ6ЭЬЭЬЭЬШOJЪЭЬШJЪЭЬЭЬЭЬШJЪЭЬ4Ш:JШ ЧЪЮЬЭШJЪЬ6ЭЬЭЬЭЬШOJЪЭЬЭЬШШЪЭЬШJЪЬ
Ш
JШ	JЪЬЭЬШ	JШJШJЪЬЭЬШJЪЬЭЬШJЪЬ	ЭЬШЧЧJЪЬЩJЪЬЭЬШJШ5JШDЪЭЬЭЬШJЪЭЬ3Ш7JЪЭЬ*Ш.ЧJШ7JЪЭЬ	ШJШ ЧЪЮЬЭЬЭЬЭЬ	ЭЬЭЬШFJЪЭЬЭЬЭЬШJЪЭЬ$Ш*JШ ЧЪ
ЮЬЭЬ	ЭЬЭЬЭЬШNJЪЬЭЬШJЪЬЭЬШ
ЪЭЬЭЬЭЬ#Ш=ЪЭЬШJЪЬШJШ$ЧЪЭЬШJЪЬ&Ш&ЪЭЬЭЬЭЬШJЪЬШJЪЬЭЬЭЬЭЬЭЬЭЬШ4ЧЧЧЪЭЬЭЬЭЬШJЪЬШJШJЪЭЬ	ШЧЪЬШJШ ЧЧЪЮ	ЬЭЬЭЬЭШJЪЬЭЬЭЬЭЬШ*JЪЭЬЭЬЭЬШЪ	ЭЬ(ЭЬЭЬЭЬЭШBJШJЪЭЬЭЬЭЬШ-JЪЭЬЭЬШ,JЪЭЬШЧJЪЭЬШJШJШ ЧЪЬ5ЭЬШ>JЪЬ+Щ+JЪЬЭЬШJЪЬЭЬШJШ JЪЬ3Щ3JЪЭЬЭЬЭЬЭЬЭЬЭЬШ,ЪЭЬЭЬЭЬШJЪЬЩJЪЭЬЭЬ.ЭЬЭЬШAJШ ЧJЪЬ'Щ'JШ*JШ'JШJШ ЧJЪЭЬШJШ JШ ЧЧ ЕЧ    r  ╖  