7fd59977 |
1 | -- File: DispPerOne.cdl |
2 | -- Created: Tue Nov 17 18:35:40 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@topsn2> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class DispPerOne from IFSelect inherits Dispatch |
9 | |
10 | ---Purpose : A DispPerOne gathers all the input Entities into as many |
11 | -- Packets as there Root Entities from the Final Selection, |
12 | -- that is, one Packet per Entity |
13 | |
14 | uses AsciiString from TCollection, Graph, SubPartsIterator |
15 | |
16 | is |
17 | |
18 | Create returns mutable DispPerOne; |
19 | ---Purpose : Creates a DispPerOne |
20 | |
21 | Label (me) returns AsciiString from TCollection; |
22 | ---Purpose : Returns as Label, "One File per Input Entity" |
23 | |
24 | -- -- Evaluation -- -- |
25 | |
26 | LimitedMax (me; nbent : Integer; max : out Integer) returns Boolean |
27 | is redefined; |
28 | ---Purpose : Returns True, maximum limit is given as <nbent> |
29 | |
30 | PacketsCount (me; G : Graph; count : out Integer) returns Boolean |
31 | is redefined; |
32 | ---Purpose : Returns True (count is easy to know) and count is the length |
33 | -- of the input list (RootResult from FinalSelection) |
34 | |
35 | Packets (me; G : Graph; packs : in out SubPartsIterator); |
36 | ---Purpose : Returns the list of produced Packets. It defines one Packet |
37 | -- per Entity given by RootResult from the Final Selection. |
38 | |
39 | end DispPerOne; |