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
|
local mt = require 'vm.manager'
local multi = require 'vm.multi'
local library = require 'core.library'
local libraryBuilder = require 'vm.library'
---@param func emmyFunction
---@param values table
function mt:callEmmySpecial(func, values, source)
local emmyParams = func:getEmmyParams()
for index, param in ipairs(emmyParams) do
local option = param:getOption()
if option and type(option.special) == 'string' then
self:checkEmmyParam(func, values, index, option.special, source)
end
end
end
---@param func emmyFunction
---@param values table
---@param index integer
---@param special string
function mt:checkEmmyParam(func, values, index, special, source)
if special == 'dofile:1' then
self:callEmmyDoFile(func, values, index)
elseif special == 'loadfile:1' then
self:callEmmyLoadFile(func, values, index)
elseif special == 'pcall:1' then
self:callEmmyPCall(func, values, index, source)
elseif special == 'require:1' then
self:callEmmyRequire(func, values, index)
end
end
---@param func emmyFunction
---@param values table
---@param index integer
function mt:callEmmyDoFile(func, values, index)
if not values[index] then
values[index] = self:createValue('any', self:getDefaultSource())
end
local str = values[index]:getLiteral()
if type(str) ~= 'string' then
return
end
local requireValue = self:tryRequireOne(values[index], 'dofile')
if not requireValue then
requireValue = self:createValue('any', self:getDefaultSource())
requireValue.isRequire = true
end
func:setReturn(1, requireValue)
end
---@param func emmyFunction
---@param values table
---@param index integer
function mt:callEmmyLoadFile(func, values, index)
if not values[index] then
values[index] = self:createValue('any', self:getDefaultSource())
end
local str = values[index]:getLiteral()
if type(str) ~= 'string' then
return
end
local requireValue = self:tryRequireOne(values[index], 'loadfile')
if not requireValue then
requireValue = self:createValue('any', self:getDefaultSource())
requireValue:set('cross file', true)
end
func:setReturn(1, requireValue)
end
---@param func emmyFunction
---@param values table
---@param index integer
---@param source source
function mt:callEmmyPCall(func, values, index, source)
local funcValue = values[index]
if not funcValue then
return
end
local realFunc = funcValue:getFunction()
if not realFunc then
return
end
local argList = multi()
values:eachValue(function (i, v)
if i > index then
argList:push(v)
end
end)
self:call(funcValue, argList, source)
if realFunc ~= func then
func:setReturn(1, self:createValue('boolean', source))
realFunc:getReturn():eachValue(function (i, v)
func:setReturn(i + 1, v)
end)
end
end
---@param func emmyFunction
---@param values table
---@param index integer
function mt:callEmmyRequire(func, values, index)
if not values[index] then
values[index] = self:createValue('any', self:getDefaultSource())
end
local str = values[index]:getLiteral()
if type(str) ~= 'string' then
return
end
local lib = library.library[str]
if lib then
local value = libraryBuilder.value(lib)
value:markGlobal()
func:setReturn(1, value)
return
else
local requireValue = self:tryRequireOne(values[1], 'require')
if not requireValue then
requireValue = self:createValue('any', self:getDefaultSource())
requireValue:set('cross file', true)
end
func:setReturn(1, requireValue)
end
end
|
