blob: 2644e296e72dba776ed32b50cb1bb6f9c9dbed18 (
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
|
-- File: AllShared.cdl
-- Created: Wed Sep 30 18:30:42 1992
-- Author: Christian CAILLET
-- <cky@phobox>
---Copyright: Matra Datavision 1992
class AllShared from IFGraph inherits GraphContent
---Purpose : this class determines all Entities shared by some specific
-- ones, at any level (those which will be lead in a Transfer
-- for instance)
uses Transient, EntityIterator, Graph
is
Create (agraph : Graph) returns AllShared;
---Purpose : creates an AllShared from a graph, empty ready to be filled
Create (agraph : Graph; ent : any Transient)
returns AllShared;
---Purpose : creates an AllShared which memrizes Entities shared by a given
-- one, at any level, including itself
GetFromEntity (me : in out; ent : any Transient);
---Purpose : adds an entity and its shared ones to the list (allows to
-- cumulate all Entities shared by some ones)
GetFromIter (me : in out; iter : EntityIterator);
---Purpose : Adds Entities from an EntityIterator and all their shared
-- ones at any level
ResetData (me : in out);
---Purpose : Allows to restart on a new data set
-- -- Results -- --
-- More-Next-Value give all entities noted as shared,
-- including the entities given for construction or to GetFromEntity
Evaluate (me : in out) is redefined;
---Purpose : does the specific evaluation (shared entities atall levels)
fields
thegraph : Graph;
end AllShared;
|
