2013-10-27 22:24:23 +00:00
|
|
|
DEFINITION Queue;
|
|
|
|
|
|
2014-01-17 05:32:22 +00:00
|
|
|
IMPORT Boxes;
|
2013-10-27 22:24:23 +00:00
|
|
|
|
2014-01-17 05:32:22 +00:00
|
|
|
TYPE
|
|
|
|
|
Queue = POINTER TO RECORD
|
|
|
|
|
(q: Queue) IsEmpty (): BOOLEAN, NEW;
|
|
|
|
|
(q: Queue) Pop (): Boxes.Object, NEW;
|
|
|
|
|
(q: Queue) Push (o: Boxes.Object), NEW
|
|
|
|
|
END;
|
2013-10-27 22:24:23 +00:00
|
|
|
|
2014-01-17 05:32:22 +00:00
|
|
|
PROCEDURE NewQueue (cap: LONGINT): Queue;
|
2013-10-27 22:24:23 +00:00
|
|
|
|
|
|
|
|
END Queue.
|
