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.