7fd59977 |
1 | -- File: AllShared.cdl |
2 | -- Created: Wed Sep 30 18:30:42 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@phobox> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class AllShared from IFGraph inherits GraphContent |
9 | |
10 | ---Purpose : this class determines all Entities shared by some specific |
11 | -- ones, at any level (those which will be lead in a Transfer |
12 | -- for instance) |
13 | |
14 | uses Transient, EntityIterator, Graph |
15 | |
16 | is |
17 | |
18 | Create (agraph : Graph) returns AllShared; |
19 | ---Purpose : creates an AllShared from a graph, empty ready to be filled |
20 | |
21 | Create (agraph : Graph; ent : any Transient) |
22 | returns AllShared; |
23 | ---Purpose : creates an AllShared which memrizes Entities shared by a given |
24 | -- one, at any level, including itself |
25 | |
26 | GetFromEntity (me : in out; ent : any Transient); |
27 | ---Purpose : adds an entity and its shared ones to the list (allows to |
28 | -- cumulate all Entities shared by some ones) |
29 | |
30 | GetFromIter (me : in out; iter : EntityIterator); |
31 | ---Purpose : Adds Entities from an EntityIterator and all their shared |
32 | -- ones at any level |
33 | |
34 | ResetData (me : in out); |
35 | ---Purpose : Allows to restart on a new data set |
36 | |
37 | -- -- Results -- -- |
38 | -- More-Next-Value give all entities noted as shared, |
39 | -- including the entities given for construction or to GetFromEntity |
40 | |
41 | Evaluate (me : in out) is redefined; |
42 | ---Purpose : does the specific evaluation (shared entities atall levels) |
43 | |
44 | fields |
45 | |
46 | thegraph : Graph; |
47 | |
48 | end AllShared; |