src/NMTDS/NMTDS_IndexRange.cdl

   1 -- File:        NMTDS_IndexRange.cdl
   2 -- Created:     Fri Nov 28 10:31:05 2003
   3 -- Author:      Peter KURNEV
   4 --              <pkv@irinox>
   5 ---Copyright:    Matra Datavision 2003
   6
   7
   8 class IndexRange from NMTDS
   9
  10         ---Purpose:
  11
  12 --uses
  13 --raises
  14
  15 is
  16     Create
  17         returns IndexRange from NMTDS;
  18
  19     SetFirst(me:out;
  20             aFirst:Integer from Standard);
  21
  22     SetLast(me:out;
  23             aLast:Integer from Standard);
  24
  25     First(me)
  26         returns Integer from Standard;
  27
  28     Last(me)
  29         returns Integer from Standard;
  30
  31     IsInRange(me;
  32             aIndex:Integer from Standard)
  33         returns Boolean from Standard;
  34
  35 fields
  36     myFirst  :  Integer from Standard is protected;
  37     myLast   :  Integer from Standard is protected;
  38
  39 end IndexRange;