local export = {}
local remove_ruby_markup = require("Module:ja").remove_ruby_markup
local kana_to_romaji = require("Module:Hrkt-translit").tr
-- [[Module:scripts]]
-- [[Module:parameters]]
-- [[Module:utilities]]
-- [[Module:links]]
-- [[Module:languages]]
-- [[Module:ja-ruby]]
local lang = require("Module:languages").getByCode("ja")
local pagename = mw.loadData("Module:headword/data").pagename
local HaniHiraKana_characters
local function test_script(text, scriptCode, entirely)
if type(text) == "string" and type(scriptCode) == "string" then
local characters
if scriptCode == "HaniHiraKana" then
if HaniHiraKana_characters then
return HaniHiraKana_characters
end
local getScriptByCode = require("Module:scripts").getByCode
characters = ""
for code in scriptCode:gmatch("%u%l%l%l") do
characters = characters .. getScriptByCode(code):getCharacters()
end
else
characters = require("Module:scripts").getByCode(scriptCode):getCharacters()
end
local out
if entirely then
out = mw.ustring.match(text, "^[" .. characters .. "]+$")
else
text = mw.ustring.gsub(text, "%W", "")
out = mw.ustring.find(text, "[" .. characters .. "]")
end
return out
else
mw.log("Parameters to test_script were incorrect.")
end
end
-- main entry point
function export.show(frame)
local params = {
[1] = {},
[2] = {},
[3] = {},
["lit"] = {},
["rom"] = {},
["manyou"] = {},
["m"] = { alias_of = "manyou" },
["manyou_kana"] = {},
["m_kana"] = { alias_of = "manyou_kana" },
["ref"] = {},
["sort"] = {},
["inline"] = {}, -- not currently used
}
local args = require("Module:parameters").process(frame:getParent().args, params)
local literally = args.lit
local sortkey
-- Use sort parameter, or title if it consists only of kana.
if args.sort then
sortkey = args.sort
elseif test_script(pagename, "Hira", true) or test_script(pagename, "Kana", true) then
sortkey = pagename
else
-- [[Special:WhatLinksHere/Template:tracking/ja-usex/no sortkey]]
require("Module:debug").track("ja-usex/no sortkey")
end
-- Process sortkey.
if sortkey then
sortkey = (lang:makeSortKey(sortkey))
end
local text = {}
local categories = { "有使用例的日語詞" }
local example, kana, translation
-- Custom errors are preferable to the generic "These parameters are required.",
-- which would be generated if "required = true" were added to the tables for parameters 1 and 2.
if not args[1] then
error("Usage example text has not been given.")
elseif test_script(args[1], "Hani") then
example = args[1]
if args[2] and test_script(args[2], "HaniHiraKana") then
kana = args[2]
translation = args[3]
else
error("Kana spelling of the usage example text has not been given.")
end
elseif test_script(args[1], "HaniHiraKana") then
example = args[1]
--FIXME
--这种方法无法区分中文译文和日文假名，暂时改为检测参数个数
--if args[2] and test_script(args[2], "HaniHiraKana") then
if args[3] then
kana = args[2]
translation = args[3]
else
kana = args[1]
translation = args[2]
end
end
if (not translation) then
translation = '<small>（請為此使用例補充翻譯）</small>'
table.insert(categories, "日語使用例翻譯請求")
end
local romaji = args["rom"]
local manyou = args["manyou"]
local old_kana = args["manyou_kana"]
local ref = args["ref"]
local tag_start = " <span style=\"color:darkgreen; font-size:x-small;\">[" -- see also [[module:zh-usex]]
local tag_end = "]</span>"
if manyou then
table.insert(text, ('<span lang="ja" class="Jpan">-{%s}-</span>'):format(old_kana ~= "" and require('Module:ja-ruby').ruby_auto{
term = manyou,
kana = old_kana,
} or manyou))
table.insert(text, tag_start)
table.insert(text, "[[w:萬葉假名|萬葉假名]]")
table.insert(text, tag_end)
table.insert(text, "<dd>")
end
local ruby_text
if example and kana and example ~= kana then
ruby_text = require('Module:ja-ruby').ruby_auto{
term = example,
kana = kana,
}
else
ruby_text = remove_ruby_markup(kana)
kana = require("Module:links").remove_links(kana)
end
if ruby_text then
if string.find(ruby_text, "[[", 1, true) then
ruby_text = require("Module:links").language_link{ term = ruby_text, lang = lang}
end
table.insert(text, ('<span lang="ja" class="Jpan">-{%s}-</span>'):format(ruby_text))
end
if ref then
table.insert(text, ref)
end
if manyou then
table.insert(text, tag_start)
table.insert(text, "現代表記")
table.insert(text, tag_end)
table.insert(text, "</dd>")
end
if kana or romaji or translation then
table.insert(text, "<dl>")
end
if kana or romaji then
table.insert(text, '<dd><i><span lang="la" class="tr">')
if romaji then
table.insert(text, romaji)
elseif kana then
-- add capitalization markup to the kana if manual markup is not present
if mw.ustring.match(kana, "[。？！]") and not mw.ustring.match(kana, "%^") then
-- "「テスト」です。"→"「^テスト」^です。"
kana = mw.ustring.gsub(kana, "([^「」『』。？！]+)", "^%1")
-- remove "^" in ~other certain circumstances~
-- TESTS: https://en.wiktionary.org/?oldid=51248532
kana = mw.ustring.gsub(kana, "([）」』])%^", "%1")
kana = mw.ustring.gsub(kana, "([^）」』])([（「『])%^", "%1%2")
end
-- add romaji
table.insert(text, kana_to_romaji(kana, "ja"))
end
table.insert(text, "</span></i></dd>")
end
if translation then
table.insert(text, "<dd>" .. translation .. "</dd>")
end
if literally then
table.insert(text, "<dd>(字面意思為「" .. literally .. "」)</dd>")
end
table.insert(text, "</dl>")
return table.concat(text) .. require("Module:utilities").format_categories(categories, lang, args.sort)
end
return export
