blob: 9e7489768549b7fe9c0b7086c8e59b2f895be51b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package Deques is
type Deque (<>) is tagged limited private;
function Create return Deque;
procedure Pop (D : access Deque);
type Sequence is limited interface;
type P_Deque is new Deque and Sequence with private;
function Create return P_Deque;
private
type Deque is tagged limited null record;
type P_Deque is new Deque and Sequence with null record;
end Deques;
|
