src/IntTools/IntTools_CompareRange.cdl

   1 -- Created on: 2000-10-24
   2 -- Created by: Peter KURNEV
   3 -- Copyright (c) 2000-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and/or modify it under
   8 -- the terms of the GNU Lesser General Public License version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 class CompareRange from IntTools
  17
  18         ---Purpose: Auxiliary class to provide a sorting Ranges,
  19         --          taking  into  account a value of Left .
  20
  21 uses
  22     Range from IntTools
  23 --raises
  24
  25 is
  26     Create
  27         returns CompareRange from IntTools;
  28         ---Purpose:
  29         --- Empty constructor
  30         ---
  31
  32     Create  (aTol:Real from Standard)
  33         returns CompareRange from IntTools;
  34         ---Purpose:
  35         --- Initializes me by tolerance
  36         ---
  37
  38     IsLower (me; Left, Right: Range from IntTools)
  39         ---Purpose:
  40         --- Returns True if <Left> is lower than <Right>.
  41         ---
  42         returns Boolean from Standard;
  43
  44     IsGreater (me; Left, Right: Range from IntTools)
  45         ---Level: Public
  46         ---Purpose:
  47         --- Returns True if <Left> is greater than <Right>.
  48         ---
  49         returns Boolean from Standard;
  50
  51     IsEqual(me; Left, Right: Range from IntTools)
  52         ---Level: Public
  53         ---Purpose:
  54         --- Returns True when <Right> and <Left> are equal.
  55         ---
  56         returns Boolean from Standard ;
  57
  58 fields
  59     myTol: Real from Standard;
  60
  61 end CompareRange;