模組:Category tree/poscatboiler/data/scripts/sandbox


此數據子模塊定義了維基詞典分類結構的一部分。

關於poscatboiler系統的介紹以及如何添加或更改分類,請參見Module:category tree/poscatboiler/data/documentation


local raw_categories = {}
local raw_handlers = {}

-- A list of Unicode blocks to which the characters of the script or scripts belong is created by this module
-- and displayed in script category pages.
local blocks_submodule = "Module:category tree/poscatboiler/data/scripts/blocks/sandbox"



-----------------------------------------------------------------------------
--                                                                         --
--                               SCRIPT LABELS                             --
--                                                                         --
-----------------------------------------------------------------------------


--[=[
The following values are recognized for each script label:

'description'
  A plain English description for the label. Special template substitutions are recognized; see below.
'umbrella_parents'
  A table listing one or more parent categories of the umbrella category 'LABELS by script' for this label.
  The format is as for regular raw categories (see [[Module:category tree/poscatboiler/data/doc]]).
'umbrella_breadcrumb'
  The breadcrumb to use in the umbrella category 'LABELS by script'. Defaults to "by script".
'catfix'
  Same as the 'catfix' parameter for regular raw categories (see [[Module:category tree/poscatboiler/data/doc]]).
  This specifies a language code to use to ensure that pages in the category are displayed in the right font and linked
  appropriately. If this is set, the 'catfix_sc' parameter will effectively be set with the script code in question.

Special template-like parameters can be used inside the 'description' field (as well as in the 'root_description', 'root_intro' and
'root_additional' variable values initialized below). These are replaced by the equivalent text.

{{{code}}}: Script code.
{{{codes}}}: A comma-separated list of all the alias codes for this script. This applies especially to Arabic, which has
  multiple aliases (e.g. 'tt-Arab', 'ur-Arab', 'ku-Arab', etc.).
{{{scname}}}: The name of the script that the category belongs to.
{{{sccat}}}: The name of the script's main category, which adds "script" to the regular name.
{{{Wikipedia}}}: The Wikipedia article for the script (if it is present in the language's data file), or else {{{sccat}}}.
]=]

local script_labels = {}

script_labels["字元"] = {
	description = "All characters from {{{sccat}}}, and their possible variations, such as versions with diacritics and combinations recognized as single characters in any language.",
	umbrella_parents = {"分类"},
	umbrella_breadcrumb = "各文字字元",
	catfix = "mul",
}

script_labels["附錄"] = {
	description = "Appendices about {{{sccat}}}.",
	umbrella_parents = {"Category:附錄"},
}

script_labels["語言"] = {
	description = "使用{{{sccat}}}的语言。",
	umbrella_parents = {"所有語言"},
}

script_labels["模板"] = {
	description = "Templates with predefined contents for {{{sccat}}}.",
	umbrella_parents = {"模板"},
}

script_labels["模塊"] = {
	description = "Modules with scripts for {{{sccat}}}.",
	umbrella_parents = {"模塊"},
}



-----------------------------------------------------------------------------
--                                                                         --
--                              RAW CATEGORIES                             --
--                                                                         --
-----------------------------------------------------------------------------


raw_categories["所有文字"] = {
	description = "This category contains the categories for every script (writing system) on Wiktionary.",
	additional = "See [[Wiktionary:List of scripts]] for a full list.",
	parents = {"分类"},
}

-- Types of writing systems listed in [[Module:writing systems/data]].
raw_categories["各文字語言"] = {
	description = "各種語言依其文字系統分類。",
	parents = {{ name = "所有文字", sort = " " }},
}

raw_categories["Alphabetic writing systems"] = {
	description = "Scripts whose symbols represent individual speech sounds.",
	parents = {"Scripts by type"},
}

raw_categories["輔音音素文字"] = {
	description = "Scripts whose basic symbols represent consonants. Some of these are impure abjads, which have letters for some vowels.",
	parents = {"Scripts by type"},
}

raw_categories["元音附標文字"] = {
	description = "Scripts whose symbols represent consonant and vowel combinations. Symbols representing the same consonant combined with different vowels are for the most part similar in form.",
	parents = {"Scripts by type"},
}

raw_categories["語素文字"] = {
	description = "Scripts whose symbols represent individual words.",
	parents = {"Scripts by type"},
}

raw_categories["Pictographic writing systems"] = {
	description = "Scripts whose symbols represent individual words by using symbols that resemble the physical objects to which those words refer.",
	parents = {"Scripts by type"},
}

raw_categories["音節文字"] = {
	description = "Scripts whose symbols represent consonant and vowel combinations. Symbols representing the same consonant combined with different vowels are for the most part different in form.",
	parents = {"Scripts by type"},
}

for script_label, obj in pairs(script_labels) do
	raw_categories["各文字" .. mw.getContentLanguage():ucfirst(script_label)] = {
		description = "Categories with " .. script_label .. " of various specific scripts.",
		breadcrumb = obj.umbrella_breadcrumb or "各文字",
		parents = obj.umbrella_parents,
	}
end



-----------------------------------------------------------------------------
--                                                                         --
--                                RAW HANDLERS                             --
--                                                                         --
-----------------------------------------------------------------------------



-- Intro text for "root" categories such as [[Category:Arabic script]]. Template substitutions are as described above.
local root_intro = [=[<div style="clear: right; border: solid #aaa 1px; margin: 1 1 1 1; background: #f9f9f9; width: 250px; padding: 5px; text-align: left; float: right">
<div style="text-align: center; margin-bottom: 10px; margin-top: 5px">'''{{{sccat}}}'''</div>

{| style="font-size: 90%; background: #f9f9f9"
| style="vertical-align: middle; height: 35px;" | [[File:Wikipedia-logo.png|35px|none|維基百]] || 維基百科上有關{{{sccat}}}的條目
|-
| colspan="2" style="padding-left: 50px; border-bottom: 1px solid lightgray;" | '''[[w:{{{Wikipedia}}}|{{{Wikipedia}}}]]'''
|-
| style="vertical-align: middle; height: 35px;" | [[File:Crystal kfind.png|35px|none|相關信息]] || {{{sccat}}}的相關信息
|-
| colspan="2" style="padding-left: 50px; border-bottom: 1px solid lightgray;" | '''[[Wiktionary:{{{sccat}}}]]'''
|-
| style="vertical-align: middle; height: 35px;" | [[File:Book notice.png|35px|none|信息]] || {{{sccat}}}信息
|-
| colspan="2" style="padding-left: 50px; border-bottom: 1px solid lightgray;" | '''[[Appendix:{{{sccat}}}]]'''
|-
| style="vertical-align: Middle; height: 35px;" | [[File:Abc box.svg|35px|none|代码]] || {{{sccat}}}代码
|-
| colspan="2" style="padding-left: 50px; border-bottom: 1px solid lightgray;" | '''{{{code}}}'''
|}
</div>]=]

-- Short description for "root" categories such as [[Category:Arabic script]]. Template substitutions are as described above.
local root_description = "本分類為'''{{{sccat}}}'''的主分類。"

-- Additional description text for "root" categories such as [[Category:Arabic script]]. Template substitutions are as described above.
local root_additional = [=[可在[[Appendix:{{{sccat}}}]]找到{{{sccat}}}的相关信息。

在维基词典中,{{{sccat}}}用[[Wiktionary:文字|代码]]{{{codes}}}来表示。]=]


-- Replace template notation {{{}}} with variables.
local function substitute_template_refs(text, sc)
	local categoryName = sc:getCategoryName()
	local scname = sc:getCanonicalName()
	local codes = {}
	
	for code, data in pairs(mw.loadData("Module:scripts/data")) do
		if data.canonicalName == scname then
			table.insert(codes, "'''" .. code .. "'''")
		end
	end
	
	if codes[2] then
		table.sort(
			codes,
			-- Four-letter codes have length 10, because they are bolded: '''Latn'''.
			function(code1, code2)
				if #code1 == 10 then
					if #code2 == 10 then
						return code1 < code2
					else
						return true
					end
				else
					if #code2 == 10 then
						return false -- four-letter codes before other codes
					else
						return code1 < code2
					end
				end
			end)
	end
	
	local content = {
		code = sc:getCode(),
		codes = table.concat(codes, "、"),
		scname = scname,
		sccat = categoryName,
		Wikipedia = sc:getWikipediaArticle(),
	}
	
	text = string.gsub(
		text,
		"{{{([^}]+)}}}",
		function (parameter)
			return content[parameter] or error("No value for script category parameter '" .. parameter .. "'.")
		end)
	
	return text
end


local function get_root_additional(additional, sc)
	local ret = { additional }
	
	local systems = sc:getSystems()
	for _, system in ipairs(systems) do
		table.insert(ret, "\n\nThe {{{scname}}} script is ")
		if mw.ustring.sub(system:getCanonicalName(), 1, 1) == "a" then
			table.insert(ret, "an ")
		else
			table.insert(ret, "a ")
		end
		
		local singular = system:getCategoryName()
		singular = mw.getContentLanguage():lcfirst(singular)
		singular = mw.ustring.gsub(singular, "ies$", "y")
		singular = mw.ustring.gsub(singular, "s$", "")
		
		table.insert(ret, singular .. ".")
	end
	
	local blocks = require(blocks_submodule)
		.print_blocks_by_canonical_name(sc:getCanonicalName())
	
	if blocks then
		table.insert(ret, "\n")
		table.insert(ret, blocks)
	end

	return substitute_template_refs(table.concat(ret), sc)
end


local function get_script_obj(script)
	return require("Module:scripts").getByCanonicalName(script)
end


-- Handler for 'SCRIPT script' e.g. [[Category:Arabic script]] as well as [[Category:Morse code]] and
-- [[Category:Flag semaphore]].
table.insert(raw_handlers, function(data)
	local sc = get_script_obj(data.category)
	if not sc then
		return nil
	end
	
	-- Compute parents.
	local parents = {}
	local systems = sc:getSystems()
	for _, system in ipairs(systems) do
		table.insert(parents, system:getCategoryName())
	end
	table.insert(parents, "所有文字")

	-- Compute (extra) children.
	local children = {}
	for script_label, _ in pairs(script_labels) do
		table.insert(children, data.category .. script_label)
	end

	return {
		intro = substitute_template_refs(root_intro, sc),
		description = substitute_template_refs(root_description, sc),
		additional = get_root_additional(root_additional, sc),
		parents = parents,
		breadcrumb = sc:getCategoryName(),
		extra_children = children,
		can_be_empty = true,
	}
end)


-- Handler for 'SCRIPT script LABELS' e.g. [[Category:Arabic script templates]] as well as [[Category:Morse code LABELS]] and
-- [[Category:Flag semaphore LABELS]].
table.insert(raw_handlers, function(data)
	local script, label
	for lab, _ in pairs(script_labels) do
		-- FIXME, if we add script labels with a hyphen in them we'll have to escape the hyphen
		-- in the following patterns.
		script, label = data.category:match("^(.+)(" .. lab .. ")$")
		if script then
			break
		end
	end
	if not script then
		return nil
	end

	local sc = get_script_obj(script)
	if not sc then
		return nil
	end
	
	local label_obj = script_labels[label]
	-- Compute description.
	local desc = substitute_template_refs(label_obj.description, sc)

	-- Compute parents.
	local parents = {
		{name = script, sort = label},
		-- umbrella category
		"各文字" .. label,
	}

	return {
		description = substitute_template_refs(label_obj.description, sc),
		parents = parents,
		breadcrumb = label,
		catfix = label_obj.catfix,
		catfix_sc = label_obj.catfix and sc:getCode(),
	}
end)


return {RAW_CATEGORIES = raw_categories, RAW_HANDLERS = raw_handlers}