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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Queue-Definition/Component-Pascal/queue-definition-2.pas Normal file
View file

@ -0,0 +1,17 @@
DEFINITION Queue;
IMPORT Boxes;
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 New (capacity: LONGINT): Instance;
END Queue.