blob: 685bba3cd63584f2e2ae2d3f2608951c01bb1f95 (
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
|
-- File: ConnectedComponants.cdl
-- Created: Wed Sep 23 14:19:57 1992
-- Author: Christian CAILLET
-- <cky@phobox>
---Copyright: Matra Datavision 1992
class ConnectedComponants from IFGraph inherits SubPartsIterator
---Purpose : determines Connected Componants in a Graph. They define
-- disjoined sets of Entities
uses Graph
is
Create (agraph : Graph; whole : Boolean) returns ConnectedComponants;
---Purpose : creates with a Graph, and will analyse :
-- whole True : all the contents of the Model
-- whole False : sub-parts which will be given later
Evaluate (me : in out) is redefined;
---Purpose : does the computation
-- -- Iteration : More-Next-etc... will give the Connected Componants
end ConnectedComponants;
|