summaryrefslogtreecommitdiff
path: root/server/src/method/textDocument/documentSymbol.lua
blob: 915c0126bcd4a15795c659aa39354d3c60a23a3d (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
local core = require 'core'
local lang = require 'language'

local timerCache = {}

local function posToRange(lines, start, finish)
    local start_row,  start_col  = lines:rowcol(start)
    local finish_row, finish_col = lines:rowcol(finish)
    return {
        start = {
            line = start_row - 1,
            character = start_col - 1,
        },
        ['end'] = {
            line = finish_row - 1,
            character = finish_col,
        },
    }
end

local function convertRange(lines, symbol)
    symbol.range = posToRange(lines, symbol.range[1], symbol.range[2])
    symbol.selectionRange = posToRange(lines, symbol.selectionRange[1], symbol.selectionRange[2])
    if symbol.name == '' then
        symbol.name = lang.script.SYMBOL_ANONYMOUS
    end

    if symbol.children then
        for _, child in ipairs(symbol.children) do
            convertRange(lines, child)
        end
    end
end

return function (lsp, params)
    local uri = params.textDocument.uri

    if timerCache[uri] then
        timerCache[uri]:remove()
        timerCache[uri] = nil
    end

    return function (response)
        timerCache[uri] = ac.loop(0.1, function (t)
            local vm, lines = lsp:getVM(uri)
            if not vm then
                if not lsp:isWaitingCompile() then
                    t:remove()
                    timerCache[uri] = nil
                    response(nil)
                end
                return
            end

            t:remove()
            timerCache[uri] = nil

            local symbols = core.documentSymbol(vm)
            if not symbols then
                response(nil)
                return
            end

            for _, symbol in ipairs(symbols) do
                convertRange(lines, symbol)
            end

            response(symbols)
        end)
    end
end