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
|
local domain = require("clever_f.domain")
local sequence_state = require("clever_f.sequence_state")
local M = {}
local RepeatResolver = {}
M.RepeatResolver = RepeatResolver
M.Decision = {
ACQUIRE = "acquire",
REPEAT = "repeat",
}
M.ACQUIRE = M.Decision.ACQUIRE
M.REPEAT = M.Decision.REPEAT
local resolver_records = setmetatable({}, { __mode = "k" })
local function fail(message, level)
error(message, (level or 1) + 1)
end
local resolver_metatable = {
__index = RepeatResolver,
__newindex = function()
fail("RepeatResolver values are immutable", 2)
end,
__tostring = function()
return "repeat-resolver"
end,
__metatable = "clever_f.repeat_resolver.RepeatResolver",
}
function RepeatResolver.new(options)
if RepeatResolver.is(options) then
return options
end
if options == nil then
options = {}
elseif sequence_state.is(options) then
options = { state = options }
elseif type(options) ~= "table" then
fail("RepeatResolver options must be a table", 2)
end
local state = options.state or sequence_state.get()
if not sequence_state.is(state) then
fail("RepeatResolver state must be the plugin-global SequenceState", 2)
end
local resolver = setmetatable({}, resolver_metatable)
resolver_records[resolver] = {
state = state,
}
return resolver
end
function RepeatResolver.is(value)
return type(value) == "table" and resolver_records[value] ~= nil
end
function RepeatResolver:previous_landing(context)
context = domain.ModeContext.from_full_mode(context)
return resolver_records[self].state:get_previous_landing(context)
end
function RepeatResolver:decide(context, current_position)
current_position = domain.Position.coerce(current_position)
local landing = self:previous_landing(context)
if landing == nil or not domain.Position.equal(landing, current_position) then
return M.Decision.ACQUIRE
end
return nil
end
RepeatResolver.eligibility = RepeatResolver.decide
RepeatResolver.resolve_eligibility = RepeatResolver.decide
function M.new(options)
return RepeatResolver.new(options)
end
M.landing = function(context, options)
return RepeatResolver.new(options):previous_landing(context)
end
function M.decide(context, current_position, options)
return RepeatResolver.new(options):decide(context, current_position)
end
M.eligibility = M.decide
setmetatable(M, {
__call = function(_, options)
return RepeatResolver.new(options)
end,
})
return M
|
