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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
-- File: Interface_STAT.cdl
-- Created: Thu Feb 15 16:45:14 1996
-- Author: Christian CAILLET
-- <cky@fidox>
---Copyright: Matra Datavision 1996
class STAT from Interface
---Purpose : This class manages statistics to be queried asynchronously.
-- Way of use :
-- An operator describes a STAT form then fills it according to
-- its progression. This produces a state of advancement of the
-- process. This state can then be queried asynchronously :
-- typically it is summarised as a percentage. There are also
-- an identification of the current state, and informations on
-- processed volume.
--
-- A STAT form can be described once for all (as static).
-- It describes the stream of the process (see later), in terms
-- of phases, cycles, steps, with estimated weights. But it
-- brings no current data.
--
-- One STAT at a time is active for filling and querying. It is
-- used to control phasing, weighting ... Specific data for
-- execution are given when running on active STAT : counts of
-- items ... Data for query are then recorded and can be accessed
-- at any time, asynchronously.
--
-- A STAT is organised as follows :
-- - it can be split into PHASES (by default, there is none, and
-- all process takes place in one "default" phase)
-- - each phase is identified by a name and is attached a weight
-- -> the sum of the weights is used to compute relative weights
-- - for each phase, or for the unique default phase if none :
-- -- the process works on a list of ITEMS
-- -- by default, all the items are processed in once
-- -- but this list can be split into CYCLES, each one takes
-- a sub-list : the weight of each cycle is related to its
-- count of items
-- -- a cycle can be split into STEPS, by default there are none
-- then one "default step" is considered
-- -- each step is attached a weight
-- -> the sum of the weights of steps is used to compute relative
-- weights of the steps in each cycle
-- -> all the cycles of a phase have the same organisation
--
-- Hence, when defining the STAT form, the phases have to be
-- described. If no weight is precisely known, give 1. for all...
-- No phase description will give only one "default" phase
-- For each phase, a typical cycle can be described by its steps.
-- Here too, for no weight precisely known, give 1. for all...
--
-- For executing, activate a STAT to begin count. Give counts of
-- items and cycles for the first phase (for the unique default
-- one if no phasing is described)
-- Else, give count of items and cycles for each new phase.
-- Class methods allow also to set next cycle (given count of
-- items), next step in cycle (if more then one), next item in
-- step.
uses Integer, Real, HSequenceOfInteger, HSequenceOfReal,
CString, HAsciiString, HSequenceOfAsciiString
is
-- -- Description of a STAT form -- --
Create (title : CString = "") returns STAT;
---Purpose : Creates a STAT form. At start, one default phase is defined,
-- with one default step. Then, it suffises to start with a
-- count of items (and cycles if several) then record items,
-- to have a queryable report.
Create (other : STAT) returns STAT;
---Purpose : used when starting
Internals (me; tit : out HAsciiString; total : out Real;
phn : out HSequenceOfAsciiString; phw : out HSequenceOfReal;
phdeb, phfin : out HSequenceOfInteger;
stw : out HSequenceOfReal);
---Purpose : Returns fields in once, without copying them, used for copy
-- when starting
AddPhase (me : in out; weight : Real; name : CString = "");
---Purpose : Adds a new phase to the description.
-- The first one after Create replaces the default unique one
AddStep (me : in out; weight : Real = 1);
---Purpose : Adds a new step for the last added phase, the default unique
-- one if no AddPhase has already been added
-- Warning : AddStep before the first AddPhase are cancelled
Description (me; nbphases : out Integer; total : out Real; title : out CString);
---Purpose : Returns global description (cumulated weights of all phases,
-- count of phases,1 for default, and title)
Phase (me; num : Integer;n0step, nbstep : out Integer; weight : out Real; name : out CString);
---Purpose : Returns description of a phase, given its rank
-- (n0 for first step, count of steps, default gives one;
-- weight, name)
Step (me; num : Integer) returns Real;
---Purpose : Returns weight of a Step, related to the cumul given for the
-- phase.
-- <num> is given by <n0step> + i, i between 1 and <nbsteps>
-- (default gives n0step < 0 then weight is one)
-- -- Running : Filling -- --
Start (me; items : Integer; cycles : Integer = 1);
---Purpose : Starts a STAT on its first phase (or its default one)
-- <items> gives the total count of items, <cycles> the count of
-- cycles
-- If <cycles> is more than one, the first Cycle must then be
-- started by NextCycle (NextStep/NextItem are ignored).
-- If it is one, NextItem/NextStep can then be called
StartCount (myclass; items : Integer; title : CString = "");
---Purpose : Starts a default STAT, with no phase, no step, ready to just
-- count items.
-- <items> gives the total count of items
-- Hence, NextItem is available to directly count
NextPhase (myclass; items : Integer; cycles : Integer = 1);
---Purpose : Commands to resume the preceeding phase and start a new one
-- <items> and <cycles> as for Start, but for this new phase
-- Ignored if count of phases is already passed
-- If <cycles> is more than one, the first Cycle must then be
-- started by NextCycle (NextStep/NextItem are ignored).
-- If it is one, NextItem/NextStep can then be called
SetPhase (myclass; items : Integer; cycles : Integer = 1);
---Purpose : Changes the parameters of the phase to start
-- To be used before first counting (i.e. just after NextPhase)
-- Can be used by an operator which has to reajust counts on run
NextCycle (myclass; items : Integer);
---Purpose : Commands to resume the preceeding cycle and start a new one,
-- with a count of items
-- Ignored if count of cycles is already passed
-- Then, first step is started (or default one)
-- NextItem can be called for the first step, or NextStep to pass
-- to the next one
NextStep (myclass);
---Purpose : Commands to resume the preceeding step of the cycle
-- Ignored if count of steps is already passed
-- NextItem can be called for this step, NextStep passes to next
NextItem (myclass; nbitems : Integer = 1);
---Purpose : Commands to add an item in the current step of the current
-- cycle of the current phase
-- By default, one item per call, can be overpassed
-- Ignored if count of items of this cycle is already passed
End (myclass);
---Purpose : Commands to declare the process ended (hence, advancement is
-- forced to 100 %)
-- -- Running : Querying -- --
Where (myclass; phase : Boolean = Standard_True) returns CString;
---Purpose : Returns an identification of the STAT :
-- <phase> True (D) : the name of the current phase
-- <phase> False : the title of the current STAT
Percent (myclass; phase : Boolean = Standard_False) returns Integer;
---Purpose : Returns the advancement as a percentage :
-- <phase> True : inside the current phase
-- <phase> False (D) : relative to the whole process
fields -- used for description, not for running
thetitle : HAsciiString;
thetotal : Real;
thephnam : HSequenceOfAsciiString;
thephw : HSequenceOfReal;
thephdeb : HSequenceOfInteger; -- nums of steps of each phase
thephfin : HSequenceOfInteger;
thestw : HSequenceOfReal;
end STAT;
|
