7fd59977 |
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; |