Module:Wikt-lang: Difference between revisions

Revision as of 18:10, 18 June 2017

Latest revision as of 17:01, 21 June 2025

(47 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 subfunction = mw.ustring.subifNotEmpty(value)

if value == "" then

local gsub = mw.ustring.gsub

return nil

local find = mw.ustring.find

else

local match = mw.ustring.match

return value

local lower = mw.ustring.lower

end

local upper = mw.ustring.upper

local function checkForString(variable)

return variable ~= "" and variable ~= nil

end

local function makeLinkedName(languageCode)

local data = m_data[languageCode]

local article = data["article"]

local name = data["Wikipedia_name"] or data["name"]

return "[[" .. article .. "|" .. name .. "]]: "

end

local function makeEntryName(word, languageCode)

local data = m_datalangData[languageCode]

local ugsub = mw.ustring.gsub

word = tostring(word)

if word == nil then

Line 31 ⟶ 23:

else

-- Remove bold and italics, so that words that contain bolding or emphasis can be linked without piping.

word = word:gsub(word, "\'\'\'", "")

word = word:gsub(word, "\'\'", "")

if data == nil then

return word

Line 40 ⟶ 32:

return word

else

-- Decompose so that the diacritics of characters such

for regex, replacement in pairs(replacements) do

-- as á can be removed in one go.

word = gsub(word, regex, replacement)

-- No need to compose at the end, because the MediaWiki software

-- will handle that.

if replacements.decompose then

word = mw.ustring.toNFD(word)

for i, from in ipairs(replacements.from) do

word = ugsub(

word,

from,

replacements.to and replacements.to[i] or "")

end

else

for regex, replacement in pairs(replacements) do

word = ugsub(word, regex, replacement)

end

end

return word

Line 49 ⟶ 55:

end

local function getCodesfixScriptCode(codesfirstLetter, textthreeLetters)

return string.upper(firstLetter) .. string.lower(threeLetters)

end

local function getCodes(codes)

local languageCode, scriptCode, invalidCode

local errorText

if codes == nil or codes == "" then

errorText = 'no language or script code provided'

elseif codes:find(codes, "^%s*%a%a%a?%s*$") or codes:find(codes, "^%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(codes, "^%s*%a%a%a?") and (

codes:match(codes, "^%s*(%l%l%l?)")

or gsubcodes:match("^(%a%a%a?)")

match:gsub(codes, "^%s*(%a%a%a?)"), string.lower, 1)

"(%a%a%a?)",

function(a)

return lower(a)

end,

1

)

)

-- One uppercase and three lowercase letters at the end of the first parameter

scriptCode =

codes:find(codes, "%a%a%a%a%s*$") and (

codes:match(codes, "(%u%l%l%l)%s*$")

or gsub(

codes:match(codes, "(%a%a%a%a)%s*$"),

"(%a)(%a%a%a)",

function(afixScriptCode, b)

return upper(a) .. lower(b)

end,

1

)

)

elseif codes:find(codes, "^%s*%a%a%a?%-%a%a%a?$") then

or codes:find("^%a%a%a%-%a%a%a%-%a%a%a$") then

languageCode = match(codes, "^%s*%l%l%l%-%l%l%l$") and match (codes, "^%s*%l%l%l%-%l%l%l$") or gsub(match(codes, "^%s*%a%a%a%-%a%a%a$"), "(%a%a%a?)", function(a) return lower(a) end, 1)

languageCode = codes

elseif find(codes, "^%s*%a%a%a?") then

languageCode, invalidCode = match(codes, "^%s*(%a%a%a?)%-?(.*)")

-- Private-use subtag: x followed by one or more sequences of 1-8 lowercase

languageCode = lower(languageCode)

-- 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("^%a%a%a?%-x%-%a%a?%a?%a?%a?%a?%a?%a?$") then

languageCode, scriptCode =

codes:match("^(%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.'

elseif scriptCode ~= "" and not scriptCode:find("%a%a%a%a") then

errorText = '<code>'..scriptCode..'</code> is not a valid script code.'

else

scriptCode = scriptCode:gsub(

"(%a)(%a%a%a)",

fixScriptCode,

1

)

end

elseif codes:find("^%a%a%a?") then

languageCode, invalidCode = codes:match("^(%a%a%a?)%-?(.*)")

languageCode = string.lower(languageCode)

errorText = '<code>'..invalidCode..'</code> is not a valid script code.'

elseif codes:find(codes, "%-?%a%a%a%a%s*$") then

invalidCode, scriptCode = codes:match(codes, "(.*)%-?(%a%a%a%a)%s*$")

scriptCode = gsub(

scriptCode,

"(%a)(%a%a%a)",

fixScriptCode

function(a, b)

return upper(a) .. lower(b)

end

)

errorText = '<code>'..invalidCode..'</code> is not a valid language code.'

else

errorText = '<code>'..codes..'</code> is not a valid language or script code.'

end

if not scriptCode then

scriptCode = require("Module:Language/scripts").isLatn(text) and "Latn" or "unknown"

end

if errorText then

Line 108 ⟶ 124:

errorText = ""

end

languageCode = m_data.redirects[languageCode] or languageCode

return languageCode, scriptCode, errorText

end

local function tag(text, languageCode, script, italicsitalicize)

local data = m_datalangData[languageCode]

-- Use Wikipedia code if it has been given: for instance,

-- Proto-Indo-European has the Wiktionary code "ine-pro" but the Wikipedia

local italicize = script == "Latn" and italics

-- code "ine-x-proto".

languageCode = data and data.Wikipedia_code or languageCode

if script and script ~= "" then

languageCode = languageCode .. "-" .. script

end

if not text then text = "[text?]" end

Line 125 ⟶ 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

local function linkToWiktionary(entry, linkText, languageCode)

local data = m_datalangData[languageCode]

local name

if languageCode then

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(entry, 1, 1) == "*" then

if name ~= "" then

entry = "Reconstruction:" .. name .. "/" .. entry:sub(2)

else

error("Language name is empty")

end

elseif data and data.type == "reconstructed" then

mw.log("Reconstructed language without asterisk:", languageCode, name, entry)

local frame = mw.getCurrentFrame()

-- Track reconstructed entries with no asterisk by transcluding

-- 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 = "ReconstructionAppendix:" .. name .. "/" .. sub(entry, 2)

else

error("Language name is empty")

Line 182 ⟶ 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 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 213 ⟶ 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

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