Wikipedia

Module:Wikt-lang: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
log to make it easier to find the offending template; fix broken UTF-8
sync from sandbox: include explicitly given script subtag in language tagging
 
(29 intermediate revisions by 10 users not shown)
Line 1:
require('Module:No globalsstrict')
local m_data = mw.loadData("Module:LanguageWikt-lang/data")
local langData = m_data.languages or m_data
 
local p = {}
 
local function checkForStringifNotEmpty(variablevalue)
if value == "" then
return variable ~= "" and variable ~= nil
return nil
end
else
 
return value
local function makeLinkedName(languageCode)
end
local data = langData[languageCode]
local article = data["article"]
local name = data["Wikipedia_name"] or data["name"]
return "[[" .. article .. "|" .. name .. "]]: "
end
 
Line 57 ⟶ 54:
end
end
 
p.makeEntryName = makeEntryName
 
local function fixScriptCode(firstLetter, threeLetters)
Line 64 ⟶ 59:
end
 
local function getCodes(codes, text)
local languageCode, scriptCode, invalidCode
local errorText
if codes == nil or codes == "" then
errorText = 'no language or script code provided'
elseif codes:find("^%a%a%a?$") or codes:find("^%a%a%a?%-%a%a%a%a$") then
-- A three- or two-letter lowercase sequence at beginning of first parameter
languageCode =
codes:find("^%a%a%a?") and (
codes:match("^(%l%l%l?)")
or codes:match("^(%a%a%a?)")
:gsub("(%a%a%a?)", string.lower, 1)
)
-- One uppercase and three lowercase letters at the end of the first parameter
scriptCode =
codes:find("%a%a%a%a$") and (
codes:match("(%u%l%l%l)$")
or gsub(
codes:match("(%a%a%a%a)$"),
"(%a)(%a%a%a)",
fixScriptCode,
1
)
)
elseif codes:find("^%a%a%a?%-%a%a%a?$")
or codes:find("^%a%a%a%-%a%a%a%-%a%a%a$") then
languageCode = codes
-- Private-use subtag: x followed by one or more sequences of 1-8 lowercase
-- letters separated by hyphens. This only allows for one sequence, as it is
-- needed for proto-languages such as ine-x-proto (Proto-Indo-European).
elseif codes:find("^%s*%a%a%a?%-x%-%a%a?%a?%a?%a?%a?%a?%a?$") then
languageCode, scriptCode =
codes:match("^%s*(%a%a%a%-x%-%a%a?%a?%a?%a?%a?%a?%a?)%-?(.*)$")
if not languageCode then
errorText = '<code>'..codes..'</code> is not a valid language or script code.'
Line 87 ⟶ 104:
)
end
elseif codes:find("^%a%a%a?") then
elseif languageCode, codes:find("^%s*%a%a%a?%s*$")invalidCode or= codes:findmatch("^%s*(%a%a%a?)%-%a%a%a%a%s?(.*$)") then
-- A three- or two-letter lowercase sequence at beginning of first parameter
languageCode =
codes:find("^%s*%a%a%a?") and (
codes:match("^%s*(%l%l%l?)")
or codes:match("^%s*(%a%a%a?)")
:gsub("(%a%a%a?)", string.lower, 1)
)
-- One uppercase and three lowercase letters at the end of the first parameter
scriptCode =
codes:find("%a%a%a%a%s*$") and (
codes:match("(%u%l%l%l)%s*$")
or gsub(
codes:match("(%a%a%a%a)%s*$"),
"(%a)(%a%a%a)",
fixScriptCode,
1
)
)
elseif codes:find("^%s*%a%a%a%-%a%a%a$") then
languageCode = codes:match("^%s*%l%l%l%-%l%l%l$") and codes:match("^%s*%l%l%l%-%l%l%l$")
or codes:match("^%s*%a%a%a%-%a%a%a$"):gsub("(%a%a%a?)", string.lower, 1)
elseif codes:find("^%s*%a%a%a?") then
languageCode, invalidCode = codes:match("^%s*(%a%a%a?)%-?(.*)")
languageCode = string.lower(languageCode)
errorText = '<code>'..invalidCode..'</code> is not a valid script code.'
elseif codes:find("%-?%a%a%a%a%s*$") then
invalidCode, scriptCode = codes:match("(.*)%-?(%a%a%a%a)%s*$")
scriptCode = gsub(
scriptCode,
Line 124 ⟶ 118:
else
errorText = '<code>'..codes..'</code> is not a valid language or script code.'
end
if not scriptCode or scriptCode == "" then
scriptCode = require("Module:Language/scripts").isLatn(text) and "Latn" or "unknown"
end
if errorText then
Line 137 ⟶ 128:
end
 
local function tag(text, languageCode, script, italicsitalicize)
local data = langData[languageCode]
-- Use Wikipedia code if it has been given: for instance,
Line 143 ⟶ 134:
-- code "ine-x-proto".
languageCode = data and data.Wikipedia_code or languageCode
if script and script ~= "" then
languageCode = languageCode .. "-" .. script
local italicize = script == "Latn" and italics
end
 
if not text then text = "[text?]" end
Line 155 ⟶ 147:
local out = { textDirectionMarkers[2] }
if italicize then
table.insert(out, "<i lang=\"" .. languageCode .. "\" xml:lang=\"" .. languageCode .. "\"" .. textDirectionMarkers[1] .. ">" .. text .. "</i>")
else
table.insert(out, "<span lang=\"" .. languageCode .. "\" xml:lang=\"" .. languageCode .. "\"" .. textDirectionMarkers[1] .. ">" .. text .. "</span>")
end
table.insert(out, textDirectionMarkers[3])
return table.concat(out)
end
 
function p.lang(frame)
local parent = frame:getParent()
local args = parent.args[1] and parent.args or frame.args
local codes = args[1]
local text = args[2] or error("Provide text in the second parameter")
local languageCode, scriptCode, errorText = getCodes(codes, text)
local italics = args.italics or args.i
italics = not (italics == "n" or italics == "-")
return tag(text, languageCode, scriptCode, italics) .. errorText
end
 
Line 185 ⟶ 162:
if data and data.name then
name = data.name
else
elseif mw.language.fetchLanguageName(languageCode, 'en') ~= "" then
-- On other languages' wikis, use mw.getContentLanguage():getCode(),
-- or replace 'en' with that wiki's language code.
name = mw.language.fetchLanguageName(languageCode, 'en')
if name == "" then
else
error("No nameName for the language code " .. ("%q"):format(languageCode or nil) .. " could be found")
.. " could not be retrieved with mw.language.fetchLanguageName, "
.. "so it should be added to [[Module:Wikt-lang/data]]")
end
end
if entry:sub(1, 1) == "*" then
Line 203 ⟶ 184:
-- a nonexistent template. This technique is used in Wiktionary:
-- see [[wikt:Module:debug]].
-- [[Special:WhatLinksHere/tracking/wikt-lang/reconstructed with no asterisk]]
pcall(frame.expandTemplate, frame,
{ title = 'tracking/wikt-lang/reconstructed with no asterisk' })
if name ~= "" then
entry = "Reconstruction:" .. name .. "/" .. entry
else
error("Language name is empty")
end
elseif data and data.type == "appendix" then
if name ~= "" then
entry = "Appendix:" .. name .. "/" .. entry
else
error("Language name is empty")
Line 225 ⟶ 213:
local args = parent.args[1] and parent.args or frame.args
local codes = args[1] orand nilmw.text.trim(args[1])
local word1 = ifNotEmpty(args[2] or nil)
local word2 = ifNotEmpty(args[3] or nil)
if not args[2] or '' == args[2] then
local languageCode, scriptCode, errorText = getCodes(codes, word1)
return '<span style="color:#d33">[text?] Parameter 2 is required</span>';
end
local languageCode, scriptCode, errorText = getCodes(codes)
local italics = args.italics or args.i
italics = not (italics == "n" or italics == "-")
local italics = args.italics or args.i or args.italic
italics = not (italics == "n" or italics == "-" or italics == "no")
local entry, linkText
if checkForString(word2) and checkForString(word1) then
entry = makeEntryName(word1, languageCode)
linkText = word2
elseif checkForString(word1) then
entry = makeEntryName(word1, languageCode)
linkText = word1
end
 
local italicize = italics and (scriptCode == "Latn" or require("Module:Unicode data").is_Latin(linkText))
 
local out
if languageCode and entry and linkText then
out = tag(linkToWiktionary(entry, linkText, languageCode), languageCode, scriptCode, italicsitalicize)
elseif entry and linkText then
out = linkToWiktionary(entry, linkText)
Line 256 ⟶ 250:
else
return errorText or error("The function wiktlang generated nothing")
end
end
 
function p.wikt(frame)
local parent = frame:getParent()
local args = parent.args[1] and parent.args or frame.args
local codes = args[1] or nil
local word1 = args[2] or nil
local word2 = args[3] or nil
if not word1 then
error("Provide a word in parameter 2.")
end
local languageCode, scriptCode, errorText = getCodes(codes, word1)
local entry, linkText
if checkForString(word2) and checkForString(word1) then
entry = makeEntryName(word1, languageCode)
linkText = word2
elseif checkForString(word1) then
entry = makeEntryName(word1, languageCode)
linkText = word1
end
local out
if languageCode and entry and linkText then
out = linkToWiktionary(entry, linkText, languageCode)
elseif entry and linkText then
out = linkToWiktionary(entry, linkText)
else
out = '<span style="font-size: smaller;">[text?]</span>'
end
if out and errorText then
return out and out .. errorText
else
return errorText or error("The function wikt generated nothing")
end
end
Retrieved from "https://en.wikipedia.org/wiki/Module:Wikt-lang"