HistorySpy.mesa
Copyright Ó 1990, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, December 13, 1991 3:49 pm PST
Chauser, December 8, 1992 2:12 pm PST
~
BEGIN
Ref: TYPE ~ REF SpyRep;
Start:
PROC [treeNodes:
NAT ¬ 10000, events:
NAT ¬ 20000, threads:
NAT ¬ 120]
RETURNS [
BOOL];
treeNodes is the number of tree nodes to preallocate, events the number of events to preallocate, threads the maximum number of concurrent threads
Returns TRUE on a successful start.
Stop:
PROC
RETURNS [Ref];
Returns NIL if the spy was not running.
NoticeThreadReady: SAFE PROC [readyThread: POINTER ¬ NIL];
WriteTree:
PROC [stream:
IO.
STREAM, ref: Ref];
Writes the tree to a stream for a post-mortem analysis.