RosettaCodeData/Task/Queue-Definition/Component-Pascal/queue-definition-2.component

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.