Druid.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Peter B. Kessler, August 6, 1990 2:33 pm PDT
Counting breakpoints for PCedar. The origin of the name is obscure.
The equivalent package on DCedar is called Celtics: it uses the FastBreaks package for breakpoints, and the Boston Celtics use the fast break to make points.
DIRECTORY
BreakWorldArchitecture;
Druid: CEDAR DEFINITIONS ~ {
Megalith: TYPE ~ REF MegalithRep ¬ nullMegalith;
MegalithRep: TYPE;
nullMegalith: Megalith ~ NIL;
These procedures might pass errors from the underlying Breakpoint package.
Set: PROCEDURE [
address: BreakWorldArchitecture.Address,
monitored: BOOLEAN ¬ FALSE]
RETURNS
[Megalith];
Sets a counting breakpoint at the given address.
If monitored, then changes to the megalith are monitored, else not.
Clear: PROCEDURE [megalith: Megalith] RETURNS [];
Clears the given counting break.
IsActive: PROCEDURE [megalith: Megalith] RETURNS [BOOLEAN];
Checks whether the given megalith is active.
Read: PROCEDURE [megalith: Megalith] RETURNS [CARD];
Reads the counter in the given counting break.
Zero: PROCEDURE [megalith: Megalith] RETURNS [CARD];
Zeroes the counter in the given counting break.
Returns the value of the counter.
}.