summaryrefslogtreecommitdiff
path: root/script-beta/vm/getClass.lua
blob: ec86e0cf31f1d000c2bee5b6c6537af6aa6df780 (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
local vm    = require 'vm.vm'
local guide = require 'parser.guide'

local function lookUpDocClass(source)
    local infers = vm.getInfers(source)
    for _, infer in ipairs(infers) do
        if infer.source.type == 'doc.class'
        or infer.source.type == 'doc.type' then
            return infer.type
        end
    end
end

local function getClass(source, classes, deep, simple)
    local lib = vm.getLibrary(source, simple)
    if lib then
        if lib.value.type == 'table' then
            classes[#classes+1] = lib.value.name
        else
            classes[#classes+1] = lib.value.type
        end
        return
    end
    local docClass = lookUpDocClass(source)
    if docClass then
        classes[#classes+1] = docClass
        return
    end
    if deep > 3 then
        return
    end
    local value = guide.getObjectValue(source) or source
    if simple and value == source then
        if value and value.type == 'string' then
            classes[#classes+1] = value[1]
        end
    else
        vm.eachField(value, function (src)
            local key = vm.getKeyName(src)
            if not key then
                return
            end
            local lkey = key:lower()
            if lkey == 's|type'
            or lkey == 's|__name'
            or lkey == 's|name'
            or lkey == 's|class' then
                local value = guide.getObjectValue(src)
                if value and value.type == 'string' then
                    classes[#classes+1] = value[1]
                end
            end
        end)
    end
    if #classes ~= 0 then
        return
    end
    vm.eachMeta(source, function (mt)
        getClass(mt, classes, deep + 1, simple)
    end)
end

function vm.getClass(source, simple)
    local classes = {}
    getClass(source, classes, 1, simple)
    if #classes == 0 then
        return nil
    end
    return guide.mergeTypes(classes)
end