src/IFSelect/IFSelect_DispPerCount.cdl

   1 -- File:        DispPerCount.cdl
   2 -- Created:     Tue Nov 17 18:38:45 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@topsn2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class DispPerCount  from IFSelect  inherits Dispatch
   9
  10     ---Purpose : A DispPerCount gathers all the input Entities into one or
  11     --           several Packets, each containing a defined count of Entity
  12     --           This count is a Parameter of the DispPerCount, given as an
  13     --           IntParam, thus allowing external control of its Value
  14
  15 uses AsciiString from TCollection, Graph, SubPartsIterator, IntParam
  16
  17 raises InterfaceError
  18
  19 is
  20
  21     Create returns mutable DispPerCount;
  22     ---Purpose : Creates a DispPerCount with no Count (default value 1)
  23
  24     Count (me) returns mutable IntParam;
  25     ---Purpose : Returns the Count Parameter used for splitting
  26
  27     SetCount (me : mutable; count : mutable IntParam);
  28     ---Purpose : Sets a new Parameter for Count
  29
  30     CountValue (me) returns Integer;
  31     ---Purpose : Returns the effective value of the count parameter
  32     --           (if Count Parameter not Set or value not positive, returns 1)
  33
  34     Label (me) returns AsciiString from TCollection;
  35     ---Purpose : Returns as Label, "One File per <count> Input Entities"
  36
  37         --  --    Evaluation    --  --
  38
  39     LimitedMax (me; nbent : Integer; max : out Integer) returns Boolean
  40         is redefined;
  41     ---Purpose : Returns True, maximum count is given as <nbent>
  42
  43     PacketsCount (me; G : Graph; count : out Integer) returns Boolean
  44         is redefined;
  45     ---Purpose : Returns True (count is easy to know) and count is computed
  46     --           from length of input list (RootResult from Final Selection)
  47
  48     Packets (me; G : Graph; packs : in out SubPartsIterator)
  49         raises InterfaceError;
  50     ---Purpose : Computes the list of produced Packets. It defines Packets in
  51     --           order to have at most <Count> Entities per Packet, Entities
  52     --           are given by RootResult from the Final Selection.
  53
  54 fields
  55
  56     thecount : IntParam;
  57
  58 end DispPerCount;