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
|
local thread = require 'bee.thread'
local errlog = thread.channel 'errlog'
local TaskId = 0
local IdlePool = {}
local RunningList = {}
local function createTask()
TaskId = TaskId + 1
local id = TaskId
local requestName = 'request' .. tostring(id)
local responseName = 'response' .. tostring(id)
thread.newchannel(requestName)
thread.newchannel(responseName)
local buf = ([[
package.cpath = %q
package.path = %q
local thread = require 'bee.thread'
local request = thread.channel(%q)
local response = thread.channel(%q)
local errlog = thread.channel 'errlog'
local function task()
local dump, arg = request:bpop()
local env = setmetatable({
IN = request,
OUT = response,
ERR = errlog,
}, { __index = _ENV })
local f, err = load(dump, '=task', 't', env)
if not f then
errlog:push(err)
return
end
local result = f(arg)
response:push(result)
end
while true do
local ok, result = xpcall(task, debug.traceback)
if not ok then
errlog:push(result)
end
end
]]):format(package.cpath, package.path, requestName, responseName)
log.debug('Create thread, id: ', id)
return {
id = id,
thread = thread.thread(buf),
request = thread.channel(requestName),
response = thread.channel(responseName),
}
end
local function run(name, arg, callback)
local dump = io.load(ROOT / 'src' / 'async' / (name .. '.lua'))
if not dump then
error(('找不到[%s]'):format(name))
end
local task = table.remove(IdlePool)
if not task then
task = createTask()
end
RunningList[task.id] = {
task = task,
callback = callback,
}
task.request:push(dump, arg)
-- TODO 线程回收后禁止外部再使用通道
return task.request, task.response
end
local function callback(id, running)
if running.callback then
while true do
local ok, result = running.task.response:pop()
if not ok then
break
end
-- TODO 封装成对象
local suc, destroy = xpcall(running.callback, log.error, result)
if not suc or destroy then
RunningList[id] = nil
IdlePool[#IdlePool+1] = running.task
break
end
end
end
end
local function onTick()
local ok, msg = errlog:pop()
if ok then
log.error(msg)
end
for id, running in pairs(RunningList) do
callback(id, running)
end
end
return {
onTick = onTick,
run = run,
}
|
