7fd59977 |
1 | -- File: ConnectedComponants.cdl |
2 | -- Created: Wed Sep 23 14:19:57 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@phobox> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class ConnectedComponants from IFGraph inherits SubPartsIterator |
9 | |
10 | ---Purpose : determines Connected Componants in a Graph. They define |
11 | -- disjoined sets of Entities |
12 | |
13 | uses Graph |
14 | |
15 | is |
16 | |
17 | Create (agraph : Graph; whole : Boolean) returns ConnectedComponants; |
18 | ---Purpose : creates with a Graph, and will analyse : |
19 | -- whole True : all the contents of the Model |
20 | -- whole False : sub-parts which will be given later |
21 | |
22 | Evaluate (me : in out) is redefined; |
23 | ---Purpose : does the computation |
24 | |
25 | -- -- Iteration : More-Next-etc... will give the Connected Componants |
26 | |
27 | end ConnectedComponants; |