7fd59977 |
1 | -- File: SelectModelRoots.cdl |
2 | -- Created: Tue Nov 17 18:52:56 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@topsn2> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class SelectModelRoots from IFSelect inherits SelectBase |
9 | |
10 | ---Purpose : A SelectModelRoots gets all the Root Entities of an |
11 | -- InterfaceModel. Remember that a "Root Entity" is defined as |
12 | -- having no Sharing Entity (if there is a Loop between Entities, |
13 | -- none of them can be a "Root"). |
14 | |
15 | uses AsciiString from TCollection, EntityIterator, Graph |
16 | |
17 | is |
18 | |
19 | Create returns mutable SelectModelRoots; |
20 | ---Purpose : Creates a SelectModelRoot |
21 | |
22 | RootResult (me; G : Graph) returns EntityIterator; |
23 | ---Purpose : Returns the list of selected entities : the Roots of the Model |
24 | -- (note that this result assures naturally uniqueness) |
25 | |
26 | Label (me) returns AsciiString from TCollection; |
27 | ---Purpose : Returns a text defining the criterium : "Model Roots" |
28 | |
29 | end SelectModelRoots; |