Linguifex

Module:script utilities: Difference between revisions

Module Discussion

Module:script utilities (view source)

Revision as of 15:17, 15 September 2021

1,620 bytes added ,  15 September 2021
no edit summary
No edit summary
No edit summary
Line 5: Line 5:
[[Module:script utilities/data]]
[[Module:script utilities/data]]
[[Module:scripts]]
[[Module:scripts]]
[[Module:senseid]] (only when id's present)
[[Module:string utilities]] (only when hyphens in Korean text or spaces in vertical text)
[[Module:languages]]
[[Module:languages]]
[[Module:parameters]]
[[Module:parameters]]
Line 11: Line 13:


function export.is_Latin_script(sc)
function export.is_Latin_script(sc)
-- Latn, Latf, Latinx, nv-Latn, pjt-Latn
-- Latn, Latf, Latinx, pjt-Latn
return sc:getCode():find("Lat") and true or false
return sc:getCode():find("Lat") and true or false
end
end
Line 39: Line 41:
return export.tag_text(text, lang, sc, face, class)
return export.tag_text(text, lang, sc, face, class)
end
-- Apply a function to `text`, but not to the target of wikilinks or to HTML tags.
local function munge_text(text, fn)
local has_html = text:find("<")
local has_two_part_link = text:find("%[%[.*|")
if not has_html and not has_two_part_link then
return fn(text)
end
local strutils = require("Module:string utilities")
local function munge_text_with_html(txt)
local parts = strutils.capturing_split(txt, "(<[^>]->)")
for i = 1, #parts, 2 do
parts[i] = fn(parts[i])
end
return table.concat(parts)
end
if has_two_part_link then
-- The hard case is when both two-part links and HTML tags occur, because crippled Lua patterns
-- don't support alternation. We need to first split on two-part links (which seem more likely
-- to occur), then split odd-numbered fragments on HTML tags, then apply the function to
-- odd-numbered subfragments. This is unlikely to be very efficient, but should occur rarely.
local parts = strutils.capturing_split(text, "(%[%[[^%[%]|]-|)")
for i = 1, #parts, 2 do
if has_html then
parts[i] = munge_text_with_html(parts[i])
else
parts[i] = fn(parts[i])
end
end
return table.concat(parts)
else -- HTML tags only
return munge_text_with_html(text)
end
end
end


Line 48: Line 87:
-- Replace space characters with newlines in Mongolian-script text, which is written top-to-bottom.
-- Replace space characters with newlines in Mongolian-script text, which is written top-to-bottom.
if sc and sc:getDirection() == "down" then
if sc and sc:getDirection() == "down" and text:find(" ") then
--[[ First, escape targets of wikilinks and HTML tags,
text = munge_text(text, function(txt)
which should not have their spaces
-- having extra parentheses makes sure only the first return value gets through
replaced with line breaks. ]]
return (txt:gsub(" +", "<br>"))
local escaped = {}
end)
local i = 0
local escape_format = "$%d"
local function escape(text, pattern, prefix)
return text:gsub(
pattern,
function(item)
i = i + 1
escaped[i] = item
return (prefix or "") .. escape_format:format(i)
end)
end
text = escape(text, "%[%[([^|]+|)", "[[")
text = escape(text, "<[^>]+>")
text = text:gsub(" +", "<br>")
-- Unescape whatever was escaped.
text = text:gsub(
"$(%d)",
function(a)
a = tonumber(a)
return escaped[a]
end
)
end
end


-- Hack Korean text to remove hyphens. This should be handled in a more general fashion, but needs to
-- be efficient by not doing anything if no hyphens are present, and currently this is the only
-- language needing such processing.
if lang:getCode() == "ko" and text:find("%-") then
text = munge_text(text, function(txt)
-- having extra parentheses makes sure only the first return value gets through
return (txt:gsub("%-", ""))
end)
end
if sc:getCode() == "Imag" then
if sc:getCode() == "Imag" then
face = nil
face = nil
Line 96: Line 119:
local output = {}
local output = {}
if id then
if id then
table.insert(output, 'id="' .. require("Module:utilities").make_id(lang, id) .. '"')
table.insert(output, 'id="' .. require("Module:senseid").anchor(lang, id) .. '"')
end
end
Line 123: Line 146:
end
end


function export.tag_translit(translit, lang, kind, attributes)
function export.tag_translit(translit, lang, kind, attributes, is_manual)
if type(lang) == "table" then
if type(lang) == "table" then
lang = lang.getCode and lang:getCode()
lang = lang.getCode and lang:getCode()
or error("Third argument to tag_translit should be a language code or language object.")
or error("Second argument to tag_translit should be a language code or language object.")
end
end
Line 135: Line 158:
table.insert(opening_tag, data.tag)
table.insert(opening_tag, data.tag)
if lang == "ja" then
if lang == "ja" then
table.insert(opening_tag, 'class="' .. (data.classes and data.classes .. " " or "") .. 'tr"')
table.insert(opening_tag, 'class="' .. (data.classes and data.classes .. " " or "") .. (is_manual and "manual-tr " or "") .. 'tr"')
else
else
table.insert(opening_tag, 'lang="' .. lang .. '-Latn"')
table.insert(opening_tag, 'lang="' .. lang .. '-Latn"')
table.insert(opening_tag, 'class="' .. (data.classes and data.classes .. " " or "") .. 'tr Latn"')
table.insert(opening_tag, 'class="' .. (data.classes and data.classes .. " " or "") .. (is_manual and "manual-tr " or "") .. 'tr Latn"')
end
end
Line 178: Line 201:


-- Add a notice to request the native script of a word
-- Add a notice to request the native script of a word
function export.request_script(lang, sc)
function export.request_script(lang, sc, usex, nocat, sort_key)
local scripts = lang.getScripts and lang:getScripts() or error('The language "' .. lang:getCode() .. '" does not have the method getScripts. It may be unwritten.')
local scripts = lang.getScripts and lang:getScripts() or error('The language "' .. lang:getCode() .. '" does not have the method getScripts. It may be unwritten.')
Line 219: Line 242:
end
end
-- If there are non-Latin scripts, return nothing.
-- If there are no non-Latin scripts, return nothing.
if not has_nonlatin then
if not has_nonlatin then
return ""
return ""
Line 225: Line 248:
end
end
local category = ""
local category
if mw.title.getCurrentTitle().nsText ~= "Template" then
if usex then
category = "[[Category:" .. lang:getCanonicalName() .. " terms needing " .. cat_script .. " script]]"
category = "Requests for " .. cat_script .. " script in " .. lang:getCanonicalName() .. " usage examples"
else
category = "Requests for " .. cat_script .. " script for " .. lang:getCanonicalName() .. " terms"
end
end
return "<small>[" .. disp_script .. " needed]</small>" .. category
return "<small>[" .. disp_script .. " needed]</small>" ..
(nocat and "" or require("Module:utilities").format_categories({category}, lang, sort_key))
end
end


function export.template_rfscript(frame)
function export.template_rfscript(frame)
local args = frame.args
params = {
local lang = args[1] or error("The first parameter (language code) has not been given")
[1] = { required = true, default = "und" },
local sc = args["sc"]; if sc == "" then sc = nil end
["sc"] = {},
lang = require("Module:languages").getByCode(lang) or error("The language code \"" .. lang .. "\" is not valid.")
["usex"] = { type = "boolean" },
sc = (sc and (require("Module:scripts").getByCode(sc) or error("The script code \"" .. sc .. "\" is not valid.")) or nil)
["nocat"] = { type = "boolean" },
["sort"] = {},
}
local args = require("Module:parameters").process(frame:getParent().args, params)
local ret = export.request_script(lang, sc)
local lang = require("Module:languages").getByCode(args[1], 1)
local sc = args.sc and require("Module:scripts").getByCode(args.sc, true)
 
local ret = export.request_script(lang, sc, args.usex, args.nocat, args.sort)
if ret == "" then
if ret == "" then
Line 269: Line 302:
error(result)
error(result)
else
else
error('The text "' .. originalText .. '" contains the letters "' .. text .. '" that do not belong to the ' .. scriptObject:getCategoryName() .. '.', 2)
error('The text "' .. originalText .. '" contains the letters "' .. text .. '" that do not belong to the ' .. scriptObject:getDisplayForm() .. '.', 2)
end
end
end
end
Retrieved from "https://linguifex.com/wiki/Special:MobileDiff/236724"