HeapPrivate.mesa
Copyright
Ó 1986, 1992 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) September 23, 1986 2:38:43 pm PDT
DIRECTORY
Heap
USING [CompareEvents, Event];
HeapPrivate:
CEDAR
DEFINITIONS
=
BEGIN
OPEN Heap;
Queue:
TYPE =
REF QueueRec;
QueueRec:
PUBLIC
TYPE =
RECORD[
compare: CompareEvents,
size:
CARDINAL ¬ 0,
array:
REF QueueBody];
QueueBody:
TYPE =
RECORD [
data:
SEQUENCE max:
NAT
OF Event];
END.