blob: 0a4a44b55149b75fb4ecf7c38c9cccafd435dda2 (
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
|
-- File: Interface_JaggedArray.cdl
-- Created: Tue May 30 13:43:39 1995
-- Author: Christian CAILLET
-- <cky@anion>
---Copyright: Matra Datavision 1995
generic class JaggedArray from Interface
(TheKey as TShared)
inherits TShared
---Purpose : This class allows to define an HArray1 Of HArray1 ...
-- which is not possible with the actual system of
-- genericity supported by CasCade
uses Array1OfTransient
is
Create (low, up : Integer) returns mutable JaggedArray;
Lower (me) returns Integer;
Upper (me) returns Integer;
Length (me) returns Integer;
SetValue (me : mutable; num : Integer; val : any TheKey);
Value (me; num : Integer) returns any TheKey;
-- C++ : return const & (NO , DownCast required)
-- ChangeValue (me : mutable; num : Integer) returns any TheKey;
-- C++ : return & (NO , DownCast required !)
fields
thelist : Array1OfTransient;
end JaggedArray;
|