src/Interface/Interface_JaggedArray.cdl

   1 -- File:        Interface_JaggedArray.cdl
   2 -- Created:     Tue May 30 13:43:39 1995
   3 -- Author:      Christian CAILLET
   4 --              <cky@anion>
   5 ---Copyright:    Matra Datavision 1995
   6
   7
   8 generic class JaggedArray  from Interface
   9     (TheKey as TShared)
  10     inherits TShared
  11
  12     ---Purpose : This class allows to define an HArray1 Of HArray1 ...
  13     --           which is not possible with the actual system of
  14     --           genericity supported by CasCade
  15
  16 uses Array1OfTransient
  17
  18 is
  19
  20     Create (low, up : Integer) returns mutable JaggedArray;
  21
  22     Lower  (me) returns Integer;
  23     Upper  (me) returns Integer;
  24     Length (me) returns Integer;
  25
  26     SetValue (me : mutable; num : Integer; val : any TheKey);
  27
  28     Value (me; num : Integer) returns any TheKey;
  29     -- C++ : return const & (NO , DownCast required)
  30
  31 --    ChangeValue (me : mutable; num : Integer) returns any TheKey;
  32     -- C++ : return & (NO , DownCast required !)
  33
  34 fields
  35
  36     thelist : Array1OfTransient;
  37
  38 end JaggedArray;