查看“模块:Inherit”的源代码

p = {}

function _table_to_keys(tb)
    local res = {}
    for i, k in ipairs(tb) do
        res[k] = true
    end
    return res
end

function _merge_keys(...)
    local res = {}
    for m in ipairs{...} do
        for k, _ in ipairs(m) do
            res[k] = true
        end
    end
    return res
end

function _keys_to_table(set)
    local res = {}
    for k, v in ipairs(set) do
        table.insert(set, k)
    end
    return res
end

function p.query_inherited_property(anchor_property, query_property, parent_list)
    local results = {}
    for idx, parent in ipairs(parent_list) do
        local anchor_query = "[["..anchor_property.."::"..parent.."]]"
        local property_query = "[[" .. query_property .. "::+]]"
        local content_query = "?"..query_property
        local query = anchor_query .. property_query .. "|" ..content_query .. "|format=plainlist"
        local res = mw.smw.getQueryResult(query)
        for j, r in ipairs(res.results) do
            for k, t in ipairs(r.printouts[query_property]) do
                results[t] = true
            end
        end
    end
    return results
end

function _create_list(root, title, list)
    local node = root:tag("div")
    node:wikitext([[ ''' ]] .. title .. [[''':]])
    local ul = node:tag("ul")
    for k, v in ipair(list) do
        ul:tag("li"):wikitext("[["..v.."]]")
    end
end

function p.inherited_lists(frame)
    local name = frame.args.name
    local parents = mw.text.split(frame.args.parents, ",")
    local parent_title = frame.args.parent_title
    local anchor_property = frame.args.anchor_property
    local properties = mw.text.split(frame.args.properties, ",")

    local root = mw.html.create("div")

    _create_list(root, parent_title, parents)
    mw.smw.set({[anchor_property]=name})

    for i, prop in ipairs(properties) do
        local title = frame.args[prop.."_title"]
        local values_str = frame.args[prop.."_values"]
        local values = (values_str and #values_str > 0) and mw.text.split(values_str) or {}
        local values_set = _table_to_keys(values)
        local inherited_values = p.query_inherited_property(anchor_property, prop, parents)
        local final_values = _merge_keys(values_set, inherited_values)
        local final_list = _keys_to_table(final_values)
        _create_list(root, title, final_list)
        for i, k in ipairs(final_list) do
            mw.smw.set({[prop]=k})
        end
    end

    return root:done()
end

return p