Module:Wikt-lang: Difference between revisions

Revision as of 19:11, 27 May 2019

Latest revision as of 17:01, 21 June 2025

(22 intermediate revisions by 8 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'

-- 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("^%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?$") or codes:find("^%a%a%a?%-%a%a%a%a$") then

-- A three- or two-letter lowercase sequence at beginning of first parameter

Line 107 ⟶ 83:

)

)

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

languageCode = or codes:matchfind("^%la%la%la%-%la%la%l$") and codes:match("^%l%l%la%-%la%la%la$") then

languageCode = codes

or codes:match("^%a%a%a%-%a%a%a$"):gsub("(%a%a%a?)", string.lower, 1)

-- 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("^%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?)%-?(.*)")

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:Unicode data").is_Latin(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] and mw.text.trim(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 or args.italic

italics = not (italics == "n" or italics == "-" or italics == "no")

return tag(text, languageCode, scriptCode, italics) .. errorText

end

Line 187 ⟶ 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 235 ⟶ 214:

local codes = args[1] and mw.text.trim(args[1])

local word1 = ifNotEmpty(args[2])

local word2 = ifNotEmpty(args[3])

if not args[2] or '' == args[2] then

error(return '<span style="color:#d33">[text?] Parameter 2 is required")</span>';

end

local languageCode, scriptCode, errorText = getCodes(codes, word1)

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 269 ⟶ 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] and mw.text.trim(args[1])

local word1 = args[2]

local word2 = args[3]

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