blob: b7da5a2fab89ae4f40e094dd9404d1723b43abea (
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
|
-- File: IntTools_Compare.cdl
-- Created: Mon May 22 16:56:20 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
class Compare from IntTools
---Purpose: Auxiliary class to provide a sorting Roots.
uses
Root from IntTools
is
Create
returns Compare from IntTools;
---Purpose:
--- Empty constructor
---
Create (aTol:Real from Standard)
returns Compare from IntTools;
---Purpose:
--- Initializes me by tolerance
---
IsLower (me; Left, Right: Root from IntTools)
---Purpose:
--- Returns True if <Left> is lower than <Right>.
---
returns Boolean from Standard;
IsGreater (me; Left, Right: Root from IntTools)
---Level: Public
---Purpose:
--- Returns True if <Left> is greater than <Right>.
---
returns Boolean from Standard;
IsEqual(me; Left, Right: Root from IntTools)
---Level: Public
---Purpose:
--- Returns True when <Right> and <Left> are equal.
---
returns Boolean from Standard ;
fields
myTol: Real from Standard;
end Compare;
|
