blob: 72ce60f4688bb3dc5e896571301d0818ed583466 (
plain)
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 buildName = require 'core.hover.name'
local buildArg = require 'core.hover.arg'
local buildReturn = require 'core.hover.return'
local buildTable = require 'core.hover.table'
local vm = require 'vm'
local util = require 'utility'
local function asFunction(source)
local name = buildName(source)
local arg = buildArg(source)
local rtn = buildReturn(source)
local lines = {}
lines[1] = ('function %s(%s)'):format(name, arg)
lines[2] = rtn
return table.concat(lines, '\n')
end
local function asLocal(source)
local name = buildName(source)
local type = vm.getType(source)
local literal = vm.getLiteral(source)
if type == 'table' then
type = buildTable(source)
end
if literal == nil then
return ('local %s: %s'):format(name, type)
else
return ('local %s: %s = %s'):format(name, type, util.viewLiteral(literal))
end
end
local function asGlobal(source)
local name = buildName(source)
local type = vm.getType(source)
local literal = vm.getLiteral(source)
if type == 'table' then
type = buildTable(source)
end
if literal == nil then
return ('global %s: %s'):format(name, type)
else
return ('global %s: %s = %s'):format(name, type, util.viewLiteral(literal))
end
end
local function isGlobalField(source)
if source.type == 'field'
or source.type == 'method' then
source = source.parent
end
if source.type == 'setfield'
or source.type == 'getfield'
or source.type == 'setmethod'
or source.type == 'getmethod'
or source.type == 'tablefield' then
local node = source.node
if node.type == 'setglobal'
or node.type == 'getglobal' then
return true
end
return isGlobalField(node)
else
return false
end
end
local function asField(source)
if isGlobalField(source) then
return asGlobal(source)
end
local name = buildName(source)
local type = vm.getType(source)
local literal = vm.getLiteral(source)
if type == 'table' then
type = buildTable(source)
end
if literal == nil then
return ('field %s: %s'):format(name, type)
else
return ('field %s: %s = %s'):format(name, type, util.viewLiteral(literal))
end
end
return function (source)
if source.type == 'function' then
return asFunction(source)
elseif source.type == 'local'
or source.type == 'getlocal'
or source.type == 'setlocal' then
return asLocal(source)
elseif source.type == 'setglobal'
or source.type == 'getglobal' then
return asGlobal(source)
elseif source.type == 'getfield'
or source.type == 'setfield'
or source.type == 'getmethod'
or source.type == 'setmethod'
or source.type == 'tablefield'
or source.type == 'field'
or source.type == 'method' then
return asField(source)
end
end
|
