7fd59977 |
1 | -- File: SCRoots.cdl |
2 | -- Created: Wed Sep 23 14:34:25 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@phobox> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class SCRoots from IFGraph inherits StrongComponants |
9 | |
10 | ---Purpose : determines strong componants in a graph which are Roots |
11 | |
12 | uses Graph |
13 | |
14 | is |
15 | |
16 | Create (agraph : Graph; whole : Boolean) returns SCRoots; |
17 | ---Purpose : creates with a Graph, and will analyse : |
18 | -- whole True : all the contents of the Model |
19 | -- whole False : sub-parts which will be given later |
20 | |
21 | Create (subparts : in out StrongComponants); |
22 | ---Purpose : creates from a StrongComponants which was already computed |
23 | |
24 | Evaluate (me : in out) is redefined; |
25 | ---Purpose : does the computation |
26 | |
27 | -- -- Iteration : More-Next-etc... gives Roots (either Loop or not) |
28 | |
29 | end SCRoots; |