blob: ecb6107289a09d0ae2875be36ee47c2fcc237b9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
-- File: SingleTab.cdl
-- Created: Tue Feb 4 10:43:00 1992
-- Author: Laurent PAINNOT
-- <lpa@topsn3>
---Copyright: Matra Datavision 1992
generic class SingleTab from math (Item as any)
uses Address from Standard
is
Create(LowerIndex, UpperIndex: Integer)
returns SingleTab;
Create(Tab : Item; LowerIndex, UpperIndex: Integer)
returns SingleTab;
Init(me : in out; InitValue: Item) is static;
Create(Other: SingleTab)
returns SingleTab;
Copy(me; Other : in out SingleTab)
---C++: inline
is static;
SetLower(me: in out; LowerIndex : Integer)
is static;
Value(me; Index: Integer)
---C++: alias operator()
---C++: return &
---C++: inline
returns Item
is static;
Free(me: in out)
---C++: alias ~
is static;
fields
Addr : Address;
isAllocated : Boolean;
First : Integer;
Last : Integer;
end;
|