模組:Indtr

---

此模块缺少說明文檔。請協助創建。

相關連結：子頁面列表 • 链入 • 嵌入包含 • 測試用例 • 沙盒

local m_lb = require("Module:labels")
local export = {}

function export.show(frame)
	local args = frame:getParent().args
	local pagename = mw.title.getCurrentTitle().text

	if (args[1] == nil and mw.title.getCurrentTitle().nsText == "Template") then
		args[1] = "und"
	end
	
	local lang = require("Module:languages").getByCode(args[1], 1)
	local nocat = args["nocat"] ~= nil
	local sort_key = args["sort"]
	local term_mode = (frame.args["term"]) ~= nil
	local labels = get_labels(args, require("Module:languages").getByCode(args[1]):getCanonicalName())
	
	return m_lb.show_labels {
		labels = labels,
		lang = lang,
		sort = sort_key,
		nocat = nocat,
		term_mode = term_mode
	}
end


function get_labels(args, langname)

	local labels = {}
	local indtr = ""
	local i = 2
	local q = nil
	local first = true
	local andwith = false
	
	if (args["intr"] ~= nil) then 
		indtr = indtr .. "不及物或"
	end
	
	
	while (args[i] ~= nil) do
	
		if (mw.ustring.sub(args[i], 0, 1) == ".") then
			table.insert(labels, mw.ustring.sub(args[i], 2));
		elseif (args[i] == ";") then
			andwith = true
			if (args[("qual" .. (i-1))] == nil or args[("qual" .. (i-1))] == "") then
				indtr = indtr .. " 和带"
			else
				indtr = indtr .. " 和 " .. args[("qual" .. (i-1))] .. "连带"
			end
		else
			if (first == false) then
				if (andwith == true) then
					andwith = false
				else
				    indtr = indtr .. " 或 "
				end
			else
				if (args["cop"] ~= nil and args["ditr"] ~= nil) then
					indtr = indtr .. "双及物，系动词带 "
				elseif (args["cop"] ~= nil) then
					indtr = indtr .. "系动词带 "
				elseif (args["ditr"] ~= nil) then
					indtr = indtr .. "双及物，间接宾语带 "
				elseif (args["aux"] ~= nil) then
					indtr = indtr .. "助动词带 "
				else
					indtr = indtr .. "及物带 "
				end
				first = false
			end
			
			if (mw.ustring.sub(args[i], 0, 1) == "-") then
				indtr = indtr ..  mw.ustring.sub(args[i], 2);
			else
				indtr = indtr .. "'''[[" .. args[i] .. "#" .. langname .. "|" .. args[i] .. "]]'''"
			end
			indtr = indtr .. qualifier(args[("qual" .. (i-1))])
		end
		i = i + 1
	end
	
	if (args["direct"] ~= nil) then 
		if (args["ditr"] ~= nil) then
			indtr = indtr .. " 或无介词"
		else
			indtr = indtr .. " 或不带介词"
		end
		indtr = indtr .. qualifier(args["qualdirect"])
	end
	
	if (args["aux"] ~= nil) then
		indtr = indtr .. " 和" .. args["aux"] .. "的动词"
	elseif (args["cop"] ~= nil and args["ditr"] ~= nil) then
		indtr = indtr .. " 给第二个宾语"
	end
	
	table.insert(labels, indtr)
	return labels

end


function qualifier(text)
	if (text == nil or text == "") then return "" end
	return '&nbsp;<span class="ib-brac"><span class="qualifier-brac">(</span></span><span class="ib-content"><span class="qualifier-content">' .. text ..
'</span></span><span class="ib-brac"><span class="qualifier-brac">)</span></span>'
end

return export