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.
}.