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
|
local cqueues = require 'cqueues'
local Queue = require 'queue'
-- commonality between the different pylon classes
-- they can "inherit" from this
local BasePylon = {}
function BasePylon.check_config(self, vars)
for x in vars:gmatch"%S+" do
assert(self[x], "missing conf field "..x)
end
end
function BasePylon.run(self)
local cq = cqueues.new()
self:_connect()
cq:wrap(self.recving, self)
cq:wrap(self.sending, self)
print(self.pylon_type, cq:loop())
end
function BasePylon.post(self, dest_channel, message)
self.inbox:enqueue(dest_channel, message)
end
function BasePylon.log(self, ...)
if self.debug then
print(self.pylon_type, self.name, ...)
end
end
local function subclass(pylon_type)
local Subclass = {}
setmetatable(Subclass, {__index=BasePylon})
Subclass.pylon_type = pylon_type
Subclass.make = function(wilson, conf)
local self = setmetatable(conf, {__index=Subclass})
for k,v in pairs {
wilson = wilson,
inbox = Queue.make(),
} do self[k] = v end
self:init(wilson, conf)
return self
end
return Subclass
end
return {
BasePylon = BasePylon,
subclass = subclass,
}
|
