14 lines
255 B
Text
14 lines
255 B
Text
DEFINITION Queue;
|
|
|
|
IMPORT Boxes;
|
|
|
|
TYPE
|
|
Queue = POINTER TO RECORD
|
|
(q: Queue) IsEmpty (): BOOLEAN, NEW;
|
|
(q: Queue) Pop (): Boxes.Object, NEW;
|
|
(q: Queue) Push (o: Boxes.Object), NEW
|
|
END;
|
|
|
|
PROCEDURE NewQueue (cap: LONGINT): Queue;
|
|
|
|
END Queue.
|