blob: e83cd86a13cc248883bbbd202a5501fab61b6382 (
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
|
-- File: Equal.cdl
-- Created: Mon Jan 14 09:54:44 1991
-- Author: Arnaud BOUZY
-- <adn@topsn3>
---Copyright: Matra Datavision 1991
class Equal from Expr
inherits SingleRelation from Expr
uses GeneralExpression from Expr,
GeneralRelation from Expr,
AsciiString from TCollection
raises NumericError from Standard
is
Create(exp1 : GeneralExpression ; exp2 : GeneralExpression)
---Purpose: Creates the relation <exp1> = <exp2>.
returns mutable Equal;
IsSatisfied(me)
returns Boolean;
Simplified(me)
---Purpose: returns a GeneralRelation after replacement of
-- NamedUnknowns by an associated expression and after
-- values computation.
returns mutable GeneralRelation
raises NumericError;
Simplify(me : mutable)
---Purpose: Replaces NamedUnknowns by an associated expressions
-- and computes values in <me>.
raises NumericError;
Copy(me)
---Purpose: Returns a copy of <me> having the same unknowns and functions.
returns mutable like me;
String(me)
---Purpose: returns a string representing <me> in a readable way.
returns AsciiString;
end Equal;
|