aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Queue-Definition/Component-Pascal/queue-definition-2.component
View file

@ -1,14 +1,17 @@
DEFINITION Queue;
IMPORT Boxes;
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;
TYPE
Instance = POINTER TO LIMITED RECORD
(self: Instance) Capacity (): LONGINT, NEW;
(self: Instance) IsEmpty (): BOOLEAN, NEW;
(self: Instance) IsFull (): BOOLEAN, NEW;
(self: Instance) Pop (): Boxes.Box, NEW;
(self: Instance) Push (b: Boxes.Box), NEW;
(self: Instance) Size (): LONGINT, NEW
END;
PROCEDURE NewQueue (cap: LONGINT): Queue;
PROCEDURE New (capacity: LONGINT): Instance;
END Queue.