Module:Wikt-lang: Difference between revisions

Revision as of 02:44, 7 July 2018

Latest revision as of 17:01, 21 June 2025

(25 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: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]

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 187 ⟶ 162:

if data and data.name then

name = data.name

elseif mw.language.fetchLanguageName(languageCode, 'en') ~= "" then

-- On other languages' wikis, use mw.getContentLanguage():getCode(), or replace with that wiki's language code.

name = mw.language.fetchLanguageName(languageCode, 'en')

else

-- On other languages' wikis, use mw.getContentLanguage():getCode(),

error("No name for the language " .. ("%q"):format(languageCode or nil) .. " could be found")

-- or replace 'en' with that wiki's language code.

name = mw.language.fetchLanguageName(languageCode, 'en')

if name == "" then

error("Name for the language code " .. ("%q"):format(languageCode or nil)

.. " 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 234 ⟶ 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

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] 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