模块:Dictionary-Vocabulary.lua

此模块的文档可以在模块:Dictionary-Vocabulary.lua/doc创建

local csv = require("Module:Csv.lua")
local html = mw.html
local cargo = mw.ext.cargo

local dict_views = require("Module:Dictionary-Views.lua")
local DICT_TABLE = dict_views.TABLE
local HEADERS = dict_views.HEADERS
local HEADER_TEXTS = dict_views.HEADER_TEXTS
local ALL_FIELDS = table.concat(HEADERS, ",")

local section = {}

section.show = function(frame)
    local args = frame.args
    local language = args.language
    local format = args.format
    local content = args.content

    local rows

    if format == "csv" then
        rows = csv.parse(ALL_FIELDS.."\n"..content, true)
    else
        mw.addWarning("无效的词典格式："..tostring(format))
        return
    end
    
    local conflicting_rows = {}

    for i = 1, #rows do
        local entry = { Language = language }
        local row = rows[i]
        
        local conflict
        local query_res = cargo.query(DICT_TABLE, ALL_FIELDS, {
            where = string.format([[Language="%s" AND Spelling="%s"]], language, row[1])
        })
        if #query_res ~= 0 then
            local r = query_res[1]
            for j = 1, #row do
                if r[HEADERS[j]] ~= row[j] then
                    table.insert(conflicting_rows, r)
                    conflict = true
                    break
                end
            end
        end
        
        if not conflict then
	        for j = 1, #HEADERS do
	            entry[HEADERS[j]] = row[j]
	        end
	        cargo.store(DICT_TABLE, entry)
	    end
    end

    local view = html.create("div")
    if #conflicting_rows ~= 0 then
        view:tag("pre")
        	:css("color", "red")
        	:tag("p")
        		:wikitext("检测到以下词汇之前已经录入，且与当前词汇表中的内容不一致，请统一词汇信息：")
            	:done()
        	:node(dict_views.vocabulary(conflicting_rows))
    end
    if frame.args.show_view == "true" then
        view:node(dict_views.vocabulary(rows))
    end
    return view
end

return section