7fd59977 |
1 | -- File: DispGlobal.cdl |
2 | -- Created: Tue Nov 17 18:30:59 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@topsn2> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class DispGlobal from IFSelect inherits Dispatch |
9 | |
10 | ---Purpose : A DispGlobal gathers all the input Entities into only one |
11 | -- global Packet |
12 | |
13 | uses AsciiString from TCollection, Graph, SubPartsIterator |
14 | |
15 | is |
16 | |
17 | Create returns mutable DispGlobal; |
18 | ---Purpose : Creates a DispGlobal |
19 | |
20 | Label (me) returns AsciiString from TCollection; |
21 | ---Purpose : Returns as Label, "One File for all Input" |
22 | |
23 | -- -- Evaluation -- -- |
24 | |
25 | LimitedMax (me; nbent : Integer; max : out Integer) returns Boolean |
26 | is redefined; |
27 | ---Purpose : Returns True : maximum equates 1 |
28 | |
29 | PacketsCount (me; G : Graph; count : out Integer) returns Boolean |
30 | is redefined; |
31 | ---Purpose : Returns True (count of packets is well known) and count is 1 |
32 | |
33 | Packets (me; G : Graph; packs : in out SubPartsIterator); |
34 | ---Purpose : Computes the list of produced Packets. It is made of only ONE |
35 | -- Packet, which gets the RootResult from the Final Selection. |
36 | -- Remark : the inherited exception raising is never activated. |
37 | |
38 | end DispGlobal; |