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
|
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at http://mozilla.org/MPL/2.0/.
require "circular_buffer"
data = circular_buffer.new(3, 3, 1)
local ADD_COL = data:set_header(1, "Add column")
local SET_COL = data:set_header(2, "Set column", "count")
local GET_COL = data:set_header(3, "Get column", "count", "sum")
local cb = circular_buffer.new(2, 2, 1)
local SUM_COL = cb:set_header(1, "Sum column")
local MIN_COL = cb:set_header(2, "Min", "count", "min")
function process(ts)
if data:add(ts, ADD_COL, 1) then
data:set(ts, GET_COL, data:get(ts, ADD_COL))
end
data:set(ts, SET_COL, 1)
return 0
end
function report(tc)
if tc == 0 then
write_output(data:format("cbuf"))
elseif tc == 1 then
write_output(data:format("cbufd"))
elseif tc == 2 then
-- the sum delta should reflect the difference
-- the min delta should reflect the current value
cb:set(0, SUM_COL, 3)
cb:set(0, MIN_COL, 6)
write_output(cb:format("cbufd"))
cb:set(0, SUM_COL, 5)
cb:set(0, MIN_COL, 5)
write_output(cb:format("cbufd"))
elseif tc == 3 then
cb:fromstring("1 1 1 2 3 4 0 3 4")
write_output(cb:format("cbufd"))
elseif tc == 4 then
data:set(0, ADD_COL, 1/0)
data:set(0, ADD_COL, 1/0)
data:set(0, SET_COL, -1/0)
data:add(0, SET_COL, 1)
data:set(0, GET_COL, data:get(0, ADD_COL))
write_output(data:format("cbufd"))
data:add(6e9, ADD_COL, 1)
data:annotate(6e9, ADD_COL, "info", "anno preserve")
elseif tc == 5 then
cb:annotate(1e9, ADD_COL, "info", "delta anno")
write_output(cb:format("cbufd")) -- annotation delta only
elseif tc == 6 then
write_output(cb:format("cbufd")) -- no delta
elseif tc == 7 then
write_output(data:format("cbufd")) -- delta after restoration
end
end
|
