src/IntTools/IntTools_CompareRange.cdl

   1 -- File:        IntTools_CompareRange.cdl
   2 -- Created:     Tue Oct 24 14:07:14 2000
   3 -- Author:      Peter KURNEV
   4 --              <pkv@irinox>
   5 ---Copyright:    Matra Datavision 2000
   6
   7
   8 class CompareRange from IntTools
   9
  10         ---Purpose: Auxiliary class to provide a sorting Ranges,
  11         --          taking  into  account a value of Left .
  12
  13 uses
  14     Range from IntTools
  15 --raises
  16
  17 is
  18     Create
  19         returns CompareRange from IntTools;
  20         ---Purpose:
  21         --- Empty constructor
  22         ---
  23
  24     Create  (aTol:Real from Standard)
  25         returns CompareRange from IntTools;
  26         ---Purpose:
  27         --- Initializes me by tolerance
  28         ---
  29
  30     IsLower (me; Left, Right: Range from IntTools)
  31         ---Purpose:
  32         --- Returns True if <Left> is lower than <Right>.
  33         ---
  34         returns Boolean from Standard;
  35
  36     IsGreater (me; Left, Right: Range from IntTools)
  37         ---Level: Public
  38         ---Purpose:
  39         --- Returns True if <Left> is greater than <Right>.
  40         ---
  41         returns Boolean from Standard;
  42
  43     IsEqual(me; Left, Right: Range from IntTools)
  44         ---Level: Public
  45         ---Purpose:
  46         --- Returns True when <Right> and <Left> are equal.
  47         ---
  48         returns Boolean from Standard ;
  49
  50 fields
  51     myTol: Real from Standard;
  52
  53 end CompareRange;