blob: 5d5d26ef79be9e54047779adcb088c08d543c626 (
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
-- File: IntTools_CArray1.cdl
-- Created: Fri May 26 10:55:45 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
---Purpose:
generic class CArray1 from IntTools (Array1Item as any)
---Purpose: The class CArray1 represents unidimensionnal arrays
-- of fixed size known at run time. Run-time boundary
-- check is performed
--
-- The range of the index is user defined from 0 to Length
raises
ConstructionError from Standard,
OutOfRange from Standard,
OutOfMemory from Standard
is
Create (Length: Integer from Standard = 0)
returns CArray1 from IntTools
---Purpose:
--- Creates an array of given Length.
---
raises
ConstructionError from Standard, -- when Length < 0
OutOfMemory from Standard; -- when not enough memory
Create (AnArray : CArray1 from IntTools)
returns CArray1 from IntTools
---Purpose:
--- Prohibits the creator by copy
---
is private;
Create(Item: Array1Item;
Length: Integer from Standard)
---Purpose:
--- Creates an array sharing datas with an other.
-- Example:
--- Item tab[100];
--- CArray1OfItem thetab (tab[0],100);
---
--- CArray1OfItem aArray1(100);
--- CArray1OfItem anSharedArray1(aArray1.ChangeValue(0),aArray1.Length());
---
-- Warning:
--- The validity of length are under the responsability
--- of the user.
--- The sahred array must have a valid address during the life of
--- the Array1.
---
returns CArray1 from IntTools
raises ConstructionError from Standard; -- when Length < 0
Init (me: in out; V: Array1Item);
---Purpose:
--- Initializes the array with a given value.
---
Resize(me: in out;
theNewLength: Integer from Standard);
---Purpose:
--- destroy current content and realloc the new size
--- does nothing if Length() == theLength
---
Destroy (me: in out);
---Purpose:
--- Frees the allocated area corresponding to the
--- array.
---
---C++: alias ~
Length (me) returns Integer from Standard;
---Purpose:
--- Returns the number of elements of <me>.
---
---C++: inline
Append (me:out; Value: Array1Item);
---Purpose:
SetValue (me : out; Index: Integer from Standard; Value: Array1Item)
raises OutOfRange from Standard;
---Purpose:
--- Sets the <Index>th element of the array to
--- <Value>.
---
Value (me; Index:Integer from Standard) returns any Array1Item
---Purpose:
--- Returns the value of the <Index>th element of the
--- array.
---
---C++: alias operator ()
---C++: return const &
raises OutOfRange from Standard;
ChangeValue (me: in out; Index:Integer from Standard) returns any Array1Item
---Purpose:
--- Returns the value of the <Index>th element of the
--- array.
---
---C++: alias operator ()
---C++: return &
raises OutOfRange from Standard;
IsEqual(me; Other: CArray1 from IntTools)
returns Boolean from Standard;
---Purpose:
--- Applys the == operator on each array item
---
---C++: alias operator ==
fields
myStart: Address;
myLength: Integer;
myIsAllocated: Boolean;
end CArray1;
|
