モジュール:Zh

モジュールの解説[表示] [編集] [履歴] [キャッシュを破棄]

このモジュールは{{Lang-zh}}を実装しています。主な機能はテンプレートの説明文で詳しく説明されていますので、記事における使用法についてはそちらをご参照ください。この説明文ではモジュールの機能について説明します。

モジュールの最初にあるtlstテーブルは繁体字が先に表示されるページを指定しており、随時追加されます（ページ名は順不同）。追加に先だって、このモジュールのノートページで提案してください。

使い方

ほかのモジュールから使う

このモジュールはテンプレートから呼び出すほか、モジュールから直接呼び出すこともできます。その場合、まずは下記のようにモジュールをロードしてください。

local Zh = require("Module:Zh")._Zh

続いて、下記のように引数をテーブルに記述して呼び出してください。

local output = Zh{["c"] = "中国", ["p"] = "zhōngguó"}

この解説は、モジュール:Zh/docから呼び出されています。 (編集 | 履歴)
編集者は、このモジュールをサンドボックス (編集 | 差分)とテストケース (作成)で試すことができます。（解説）
このモジュールのサブページ一覧。

require('strict')

local p = {}

-- articles in which traditional Chinese preceeds simplified Chinese
local t1st = {
	--["228 Incident"] = true,
	--["Chinese calendar"] = true,
	--["Lippo Centre, Hong Kong"] = true,
	--["Republic of China"] = true,
	--["Republic of China at the 1924 Summer Olympics"] = true,
	--["Taiwan"] = true,
	--["Taiwan (island)"] = true,
	--["Taiwan Province"] = true,
	--["Wei Boyang"] = true,
}

-- the labels for each part 
local labels = {
	["c"] = "中国語",
	["cs"] = "中",
	["s"] = "簡体字",
	["ss"] = "簡",
	["t"] = "繁体字",
	["ts"] = "繁",
	["p"] = "拼音",
	["ps"] = "拼",
	["tp"] = "通用拼音",
	["w"] = "ウェード式",
	["j"] = "粤拼",
	["cy"] = "イェール式広東語",
	["sl"] = "シドニー・ラウ式",
	["poj"] = "白話字",
	["tl"] = "台羅",
	["zhu"] = "注音",
	["zs"] = "注",
	["l"] = "英文直訳",
	["tr"] = "翻訳",
}

-- article titles for wikilinks for each part
local wlinks = {
	["c"] = "中国語",
	["s"] = "簡体字",
	["t"] = "繁体字",
	["p"] = "拼音",
	["tp"] = "通用拼音",
	["w"] = "ウェード式",
	["j"] = "香港語言学学会粤語拼音方案",
	["cy"] = "イェール式#広東語",
	["sl"] = "シドニー・ラウ式ローマ字",
	["poj"] = "白話字",
	["tl"] = "台湾語ローマ字方案",
	["zhu"] = "注音符号",
	--["l"] = "Literal translation",
	--["tr"] = "Translation",
}
wlinks["cs"], wlinks["ss"], wlinks["ts"], wlinks["ps"], wlinks["zs"] = wlinks["c"], wlinks["s"], wlinks["t"], wlinks["p"], wlinks["zhu"]

-- for those parts which are to be treated as languages their ISO code
local ISOlang = {
	["c"] = "zh",
	["t"] = "zh-Hant",
	["s"] = "zh-Hans",
	["p"] = "zh-Latn",
	["tp"] = "zh-Latn-tongyong",
	["w"] = "zh-Latn-wadegile",
	["j"] = "yue-Latn-jyutping",
	["cy"] = "yue-Latn",
	["sl"] = "yue-Latn",
	["poj"] = "nan-Latn",
	["tl"] = "nan-Latn-tailo",
	["zhu"] = "zh-Bopo",
}
ISOlang["cs"], ISOlang["ss"], ISOlang["ts"], ISOlang["ps"], ISOlang["zs"] = ISOlang["c"], ISOlang["s"], ISOlang["t"], ISOlang["p"], ISOlang["zhu"]

local italic = {
	["p"] = false,
	["tp"] = false,
	["w"] = true,
	["j"] = true,
	["cy"] = true,
	["sl"] = true,
	["poj"] = true,
	["tl"] = true,
}

local superscript = {
	["w"] = true,
	["sl"] = true,
}

-- Categories for different kinds of Chinese text
local cats = {
	["c"] = "", --[[Category:Articles containing Chinese-language text]]
	["s"] = "", --[[Category:Articles containing simplified Chinese-language text]]
	["t"] = "", --[[Category:Articles containing traditional Chinese-language text]]
}
--cats["cs"], cats["ss"], cats["ts"] = cats["c"], cats["s"], cats["t"]

function p.Zh(frame)
	-- load arguments module to simplify handling of args
	local getArgs = require('Module:Arguments').getArgs
	
	local args = getArgs(frame)
	return p._Zh(args)
end
	
function p._Zh(args)
	if args["link"] then args["links"] = args["link"]; end
	if args["label"] then args["labels"] = args["label"]; end
		
	local uselinks = args["links"] ~= "no" -- whether to add links
	local uselabels = args["labels"] ~= "no" -- whether to have labels
	local capfirst = args["scase"] ~= nil
	local out = nil -- which term to put before the brackets
	local usebrackets = 0 -- whether to have bracketed terms
	local numargs = 0
	
	if args["out"] then
		out = args["out"]
		usebrackets = 1
	end

	local t1 = false -- whether traditional Chinese characters go first
	local j1 = false -- whether Cantonese Romanisations go first
	local poj1 = false -- whether Hokkien Romanisations go first
	local testChar
	if (args["first"]) then
	 	 for testChar in mw.ustring.gmatch(args["first"], "%a+") do
			if (testChar == "t") then
				t1 = true
			end
			if (testChar == "j") then
				j1 = true
			end
			if (testChar == "poj") then
				poj1 = true
			end
		end
	end
	if (t1 == false) then
		local title = mw.title.getCurrentTitle()
		t1 = t1st[title.text] == true
	end

	-- based on setting/preference specify order
	local orderlist = {"c", "cs", "s", "ss", "t", "ts", "p", "ps", "tp", "w", "j", "cy", "sl", "poj", "tl", "zhu", "zs", "l", "tr"}
	if (t1) then
		orderlist[3] = "t"
		orderlist[4] = "ts"
		orderlist[5] = "s"
		orderlist[6] = "ss"
	end
	if (j1) then
		orderlist[7] = "j"
		orderlist[8] = "cy"
		orderlist[9] = "sl"
		orderlist[10] = "p"
		orderlist[11] = "ps"
		orderlist[12] = "tp"
		orderlist[13] = "w"
	end
	if (poj1) then
		orderlist[7] = "poj"
		orderlist[8] = "tl"
		orderlist[9] = "p"
		orderlist[10] = "ps"
		orderlist[11] = "tp"
		orderlist[12] = "w"
		orderlist[13] = "j"
		orderlist[14] = "cy"
		orderlist[15] = "sl"
	end

	-- rename rules. Rules to change parameters and labels based on other parameters
	if args["hp"] then
		-- hp an alias for p ([hanyu] pinyin)
		args["p"] = args["hp"]
	end
	if args["tp"] then
		-- if also Tongyu pinyin use full name for Hanyu pinyin
		labels["p"] = "漢語拼音"
	end
	
	if (args["s"] and args["s"] == args["t"]) then
		-- Treat simplified + traditional as Chinese if they're the same
		args["c"] = args["s"]
		args["s"] = nil
		args["t"] = nil
		if out == "s" or out == "t" then
			out = "c"
		end
	--elseif (not (args["s"] and args["t"])) then
		-- use short label if only one of simplified and traditional
	--	labels["s"] = labels["c"]
	--	labels["t"] = labels["c"]
	end
	if (args["ss"] and args["ss"] == args["ts"]) then
		-- Treat simplified + traditional as Chinese if they're the same
		args["cs"] = args["ss"]
		args["ss"] = nil
		args["ts"] = nil
		if out == "ss" or out == "ts" then
			out = "cs"
		end
	--elseif (not (args["ss"] and args["ts"])) then
		-- use short label if only one of simplified and traditional
	--	labels["ss"] = labels["cs"]
	--	labels["ts"] = labels["cs"]
	end
	if out then
		for i, v in ipairs (orderlist) do -- shift `out` to the beginning of the order list
			if v == out then
				table.remove(orderlist, i)
				table.insert(orderlist, 1, v)
				break
			end
		end
	end

	if (out == "c" and args["s"]) then usebrackets = 2; end
	if (out == "cs" and args["ss"]) then usebrackets = 3; end

	local body = "" -- the output string
	local params -- for creating HTML spans
	local label -- the label, i.e. the bit preceeding the supplied text
	local val -- the supplied text
	
	-- go through all possible fields in loop, adding them to the output
	for i, part in ipairs(orderlist) do
		if (args[part]) then
			numargs = numargs + 1
			-- build label
			label = ""
			if (uselabels) then
				label = labels[part]
				if (capfirst) then
					label = mw.language.getContentLanguage():ucfirst(label)
					capfirst = false
				end
				if (uselinks and part ~= "l" and part ~= "tr") then
					label = "[[" .. wlinks[part] .. "|" .. label .. "]]"
				end
				--if (part == "l" or part == "tr") then
				--	label = "<abbr title=\"" .. wlinks[part] .. "\"><small>" .. label .. "</small></abbr>"
				--else
					label = label .. "&colon;"
				--end
				label = label .. " "
			end
			-- build value
			val = args[part]
			if (cats[part]) and mw.title.getCurrentTitle().namespace == 0 then
				-- if has associated category AND current page in article namespace, add category
				val = cats[part] .. val
			end
			if (ISOlang[part]) then
				-- add span for language if needed
				params = {["lang"] = ISOlang[part]}
				val = mw.text.tag({name="span",attrs=params, content=val})
			elseif (part == "l") then
				local terms = ""
				-- put individual, potentially comma-separated glosses in single quotes
				-- (first strip leading and trailing whitespace and quotes, including bold/italic markup)
				for term in val:gmatch("[^;,]+") do
					term = mw.text.trim(term, "%s\"'")
					terms = terms .. "&apos;" .. term .. "&apos;, "
				end
				val = string.sub(terms, 1, -3)
			elseif (part == "tr") then
				-- put translations in double quotes
				-- (first strip leading and trailing spaces and quotes, including bold/italic markup)
				val = mw.text.trim(val, "%s\"'")
				val = "&quot;" .. val .. "&quot;"
			end
			if (italic[part]) then
				-- italicise
				val = "<i>" .. val .. "</i>"
			end
			--if string.match(val, "</?sup>") then val = val.."[[Category:Pages using template Zh with sup tags]]" end
			if (superscript[part]) then
				-- superscript
				val = val:gsub("(%d)", "<sup>%1</sup>"):gsub("(%d)</sup>%*<sup>(%d)", "%1*%2"):gsub("<sup><sup>([%d%*]+)</sup></sup>", "<sup>%1</sup>")
			end
			-- add both to body
			if numargs == usebrackets then
				-- opening bracket after the `out` term
				body = body .. label .. val .. "（"
			else
				body = body .. label .. val .. "; "
			end
		end
	end
	
	if (body > "") then -- check for empty string
		if mw.ustring.sub(body, -1, -1) == '（' then
			body = mw.ustring.sub(body, 1, -2) -- 末尾の開き括弧を除去
		else
			body = string.sub(body, 1, -3) -- chop off final semicolon and space
		end
		if out and numargs > usebrackets then
			-- closing bracket after the rest of the terms
			body = body .. "）"
		end
		return body
	else --no named parameters; see if there's a first parameter, ignoring its name
		if (args[1]) then
			-- if there is treat it as Chinese
			label = ""
			if (uselabels) then
				label = labels["c"]
				if (uselinks) then
					label = "[[" .. wlinks["c"] .. "|" .. label .. "]]"
				end
				label = label .. "&colon; "
			end
			-- default to show links and labels as no options given
			if mw.title.getCurrentTitle().namespace == 0 then
				-- if current page in article namespace
				val = cats["c"] .. args[1]
			else
				val = args[1]
			end
			params = {["lang"] = ISOlang["c"]}
			val = mw.text.tag({name="span",attrs=params, content=val})
			return label .. val
		end
		return ""
	end
end

return p