blob: 994b4799301b217a642b2534d8a34c81946d354e (
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
|
-- File: GenRel.cdl
-- Created: Tue Aug 18 11:32:35 1992
-- Author: Arnaud BOUZY
-- <adn@bravox>
---Copyright: Matra Datavision 1992
class GenRel from ExprIntrp inherits Generator from ExprIntrp
---Purpose: Implements an interpreter for equations or system
-- of equations made of expressions of package Expr.
uses GeneralRelation from Expr,
AsciiString from TCollection
raises NoSuchObject
is
Create
---Purpose: Creates an empty generator
---Level: Advanced
returns mutable GenRel is private;
Create( myclass ) returns GenRel;
Process(me : mutable; str : AsciiString)
---Purpose: Processes given string.
---Level: Advanced
is static;
IsDone(me)
---Purpose: Returns false if any syntax error has occurred during
-- process.
---Level: Advanced
returns Boolean
is static;
Relation(me)
---Purpose: Returns relation generated. Raises an exception if
-- IsDone answers false.
---Level: Advanced
returns mutable GeneralRelation
raises NoSuchObject
is static;
fields
done : Boolean;
myRelation : GeneralRelation;
end GenRel;
|