src/IFSelect/IFSelect_SelectErrorEntities.cdl

   1 -- File:        SelectErrorEntities.cdl
   2 -- Created:     Wed Nov 18 10:07:57 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@topsn2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class SelectErrorEntities  from IFSelect  inherits SelectExtract
   9
  10     ---Purpose : A SelectErrorEntities sorts the Entities which are qualified
  11     --           as "Error" (their Type has not been recognized) during reading
  12     --           a File. This does not concern Entities which are syntactically
  13     --           correct, but with incorrect data (for integrity constraints).
  14
  15 uses AsciiString from TCollection, InterfaceModel
  16
  17 is
  18
  19     Create returns mutable SelectErrorEntities;
  20     ---Purpose : Creates a SelectErrorEntities
  21
  22     Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
  23         returns Boolean;
  24     ---Purpose : Returns True for an Entity which is qualified as "Error", i.e.
  25     --           if <model> explicitly knows <ent> (through its Number) as
  26     --           Erroneous
  27
  28
  29     ExtractLabel (me) returns AsciiString from TCollection;
  30     ---Purpose : Returns a text defining the criterium : "Error Entities"
  31
  32 end SelectErrorEntities;