blob: f9a8bbdee5d0c3a7bde473cc2147503dfd8da221 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
-- File: IntTools_CompareRange.cdl
-- Created: Tue Oct 24 14:07:14 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
class CompareRange from IntTools
---Purpose: Auxiliary class to provide a sorting Ranges,
-- taking into account a value of Left .
uses
Range from IntTools
--raises
is
Create
returns CompareRange from IntTools;
---Purpose:
--- Empty constructor
---
Create (aTol:Real from Standard)
returns CompareRange from IntTools;
---Purpose:
--- Initializes me by tolerance
---
IsLower (me; Left, Right: Range from IntTools)
---Purpose:
--- Returns True if <Left> is lower than <Right>.
---
returns Boolean from Standard;
IsGreater (me; Left, Right: Range from IntTools)
---Level: Public
---Purpose:
--- Returns True if <Left> is greater than <Right>.
---
returns Boolean from Standard;
IsEqual(me; Left, Right: Range from IntTools)
---Level: Public
---Purpose:
--- Returns True when <Right> and <Left> are equal.
---
returns Boolean from Standard ;
fields
myTol: Real from Standard;
end CompareRange;
|
