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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
-- File: IFSelect_SignatureList.cdl
-- Created: Thu Oct 27 18:49:25 1994
-- Author: Christian CAILLET
-- <cky@stylox>
---Copyright: Matra Datavision 1994
class SignatureList from IFSelect inherits TShared
---Purpose : A SignatureList is given as result from a Counter (any kind)
-- It gives access to a list of signatures, with counts, and
-- optionally with list of corresponding entities
--
-- It can also be used only to give a signature, through SignOnly
-- Mode. This can be useful for a specific counter (used in a
-- Selection), while it remains better to use a Signature
-- whenever possible
uses CString, HSequenceOfTransient,
DictionaryOfInteger, DictionaryOfTransient,
AsciiString from TCollection,
HAsciiString from TCollection,
HSequenceOfHAsciiString from TColStd,
Messenger from Message,
InterfaceModel, PrintCount
is
Create (withlist : Boolean = Standard_False) returns mutable SignatureList;
---Purpose : Creates a SignatureList. If <withlist> is True, entities will
-- be not only counted per signature, but also listed.
SetList (me : mutable; withlist : Boolean);
---Purpose : Changes the record-list status. The list is not cleared but
-- its use changes
ModeSignOnly (me : mutable) returns Boolean;
---Purpose : Returns modifiable the SignOnly Mode
-- If False (D), the counter normally counts
-- If True, the counting work is turned off, Add only fills the
-- LastValue, which can be used as signature, when a counter
-- works from data which are not available from a Signature
---C++ : return &
Clear (me : mutable) is virtual;
Add (me : mutable; ent : Transient; sign : CString);
---Purpose : Adds an entity with its signature, i.e. :
-- - counts an item more for <sign>
-- - if record-list status is set, records the entity
-- Accepts a null entity (the signature is then for the global
-- model). But if the string is empty, counts a Null item.
--
-- If SignOnly Mode is set, this work is replaced by just
-- setting LastValue
LastValue (me) returns CString;
---Purpose : Returns the last value recorded by Add (only if SignMode set)
-- Cleared by Clear or Init
Init (me : mutable;
name : CString;
count : DictionaryOfInteger;
list : DictionaryOfTransient;
nbnuls : Integer);
---Purpose : Aknowledges the list in once. Name identifies the Signature
List (me; root : CString = "") returns HSequenceOfHAsciiString;
---Purpose : Returns the list of signatures, as a sequence of strings
-- (but without their respective counts). It is ordered.
-- By default, for all the signatures.
-- If <root> is given non empty, for the signatures which
-- begin by <root>
HasEntities (me) returns Boolean;
---Purpose : Returns True if the list of Entities is aknowledged, else
-- the method Entities will always return a Null Handle
NbNulls (me) returns Integer;
---Purpose : Returns the count of null entities
NbTimes (me; sign : CString) returns Integer;
---Purpose : Returns the number of times a signature was counted,
-- 0 if it has not been recorded at all
Entities (me; sign : CString) returns HSequenceOfTransient;
---Purpose : Returns the list of entities attached to a signature
-- It is empty if <sign> has not been recorded
-- It is a Null Handle if the list of entities is not known
SetName (me : mutable; name : CString);
---Purpose : Defines a name for a SignatureList (used to print it)
Name (me) returns CString is virtual;
---Purpose : Returns the recorded Name.
-- Remark : default is "..." (no SetName called)
PrintCount (me; S : Messenger from Message) is virtual;
---Purpose : Prints the counts of items (not the list)
PrintList (me; S : Messenger from Message; model : InterfaceModel;
mod : PrintCount = IFSelect_ListByItem) is virtual;
---Purpose : Prints the lists of items, if they are present (else, prints
-- a message "no list available")
-- Uses <model> to determine for each entity to be listed, its
-- number, and its specific identifier (by PrintLabel)
-- <mod> gives a mode for printing :
-- - CountByItem : just count (as PrintCount)
-- - ShortByItem : minimum i.e. count plus 5 first entity numbers
-- - ShortByItem(D) complete list of entity numbers (0: "Global")
-- - EntitiesByItem : list of (entity number/PrintLabel from the model)
-- other modes are ignored
PrintSum (me; S : Messenger from Message) is virtual;
---Purpose : Prints a summary
-- Item which has the greatest count of entities
-- For items which are numeric values : their count, maximum,
-- minimum values, cumul, average
fields
thesignonly : Boolean;
thelistat : Boolean;
thenbnuls : Integer;
thename : HAsciiString;
thelastval : AsciiString;
thedicount : DictionaryOfInteger;
thediclist : DictionaryOfTransient;
end SignatureList;
|
