1 -- File: SelectErrorEntities.cdl
2 -- Created: Wed Nov 18 10:07:57 1992
3 -- Author: Christian CAILLET
5 ---Copyright: Matra Datavision 1992
8 class SelectErrorEntities from IFSelect inherits SelectExtract
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).
15 uses AsciiString from TCollection, InterfaceModel
19 Create returns mutable SelectErrorEntities;
20 ---Purpose : Creates a SelectErrorEntities
22 Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
24 ---Purpose : Returns True for an Entity which is qualified as "Error", i.e.
25 -- if <model> explicitly knows <ent> (through its Number) as
29 ExtractLabel (me) returns AsciiString from TCollection;
30 ---Purpose : Returns a text defining the criterium : "Error Entities"
32 end SelectErrorEntities;