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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
-- File: SelectExtract.cdl
-- Created: Tue Nov 17 19:19:26 1992
-- Author: Christian CAILLET
-- <cky@topsn2>
---Copyright: Matra Datavision 1992
deferred class SelectExtract from IFSelect inherits SelectDeduct
---Purpose : A SelectExtract determines a list of Entities from an Input
-- Selection, as a sub-list of the Input Result
-- It works by applying a sort criterium on each Entity of the
-- Input. This criterium can be applied Direct to Pick Items
-- (default case) or Reverse to Remove Item
--
-- Basic features (the unique Input) are inherited from SelectDeduct
uses AsciiString from TCollection, InterfaceModel, EntityIterator, Graph
is
Initialize;
---Purpose : Initializes a SelectExtract : enforces the sort to be Direct
IsDirect (me) returns Boolean;
---Purpose : Returns True if Sort criterium is Direct, False if Reverse
SetDirect (me : mutable; direct : Boolean);
---Purpose : Sets Sort criterium sense to a new value
-- (True : Direct , False : Reverse)
-- Input : see SelectDeduct
RootResult (me; G : Graph) returns EntityIterator is virtual;
---Purpose : Returns the list of selected entities. Works by calling the
-- method Sort on each input Entity : the Entity is kept as
-- output if Sort returns the same value as Direct status
Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
returns Boolean is deferred;
---Purpose : Returns True for an Entity if it satisfies the Sort criterium
-- It receives :
-- - <rank>, the rank of the Entity in the Iteration,
-- - <ent> , the Entity itself, and
-- - <model>, the Starting Model
-- Hence, the Entity to check is "model->Value(num)" (but an
-- InterfaceModel allows other checks)
-- This method is specific to each class of SelectExtract
SortInGraph (me; rank : Integer; ent : Transient; G : Graph)
returns Boolean is virtual;
---Purpose : Works as Sort but works on the Graph
-- Default directly calls Sort, but it can be redefined
-- If SortInGraph is redefined, Sort should be defined even if
-- not called (to avoid deferred methods in a final class)
Label (me) returns AsciiString from TCollection;
---Purpose : Returns a text saying "Picked" or "Removed", plus the
-- specific criterium returned by ExtractLabel (see below)
ExtractLabel (me) returns AsciiString from TCollection is deferred;
---Purpose : Returns a text defining the criterium for extraction
fields
thesort : Boolean;
end SelectExtract;
|