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