BarathéGábor: 1 változat importálva

2025-01-24T20:56:38Z

1 változat importálva

← Régebbi változat	A lap 2025. január 24., 22:56-kori változata
(Nincs különbség)

w>Bean49, 2023. november 29., 22:28-n

2023-11-29T22:28:24Z

Új lap

require('strict')
local p = {}
local lang = mw.getContentLanguage()

-- allow to call functions with a single string or number parameter
local function getArgs(frame, options)
if type(frame) ~= "table" then frame = { frame } end
return require('Modul:Arguments').getArgs(frame, options)
end

-- needed to be called from pcall
local function formatDateLocal(form, tstamp, loc)
return lang:formatDate(form, tstamp, loc)
end

-- returns "a" or "az" depending on the first character of the word passed to the template
function p.az(frame)
local str = getArgs(frame)[1]
if not str then return "a(z)" end

local firstChar = mw.ustring.sub(str, 1, 1)
local firstCharLower = mw.ustring.lower(firstChar)

if (nil ~= mw.ustring.find("aáeéiíoóöőuúüű", firstCharLower, 1, true)) then
return "az"
elseif (nil ~= mw.ustring.find("bcdfghjklmnpqrstvwxyz", firstCharLower, 1, true)) then
return "a"
else
return "a(z)"
end

end

-- Return true if first argument starts with A or Az, otherwise empty string.
function p.startsWithAz(frame)
local s = getArgs(frame)[1]
return (s == nil and '') or tostring(mw.ustring.upper(mw.ustring.sub(s, 1, 2)) == 'A '
or mw.ustring.upper(mw.ustring.sub(s, 1, 3)) == 'AZ '
or ''
)
end

-- returns month name in Hungarian + "ából" / "jából" / "éből" / "jéből" accordingly
function p.fromMonthSuffix(frame)
local dateStr = getArgs(frame)[1]
local suffixes = {
[1] = "jából",
[2] = "jából",
[3] = "ából",
[4] = "ából",
[5] = "ából",
[6] = "ából",
[7] = "ából",
[8] = "ából",
[9] = "éből",
[10] = "éből",
[11] = "éből",
[12] = "éből"
}

if (pcall(formatDateLocal, 'n', dateStr)) then
local monthIndex = lang:formatDate('n', dateStr)
return lang:formatDate('Y F', dateStr)..suffixes[tonumber(monthIndex)]
else
return dateStr
end

end

-- returns month name in Hungarian + "i"
function p.ofMonthSuffix(frame)
local dateStr = getArgs(frame)[1]

if (pcall(formatDateLocal, 'n', dateStr)) then
return lang:formatDate('Y F', dateStr).."i"
else
return dateStr
end

end

-- returns number + "-s" / "-as" / "-es" / "-os" / "-ós" / "-ös"
function p.hanyas(frame)
local str = getArgs(frame)[1];

if (nil == str) then
return ""
end

local number = tonumber(str)
if (nil == number) then
number = mw.ustring.match(str, "%d*$")
end

local suffixesNonRound = {
[1] = "es",
[2] = "es",
[3] = "as",
[4] = "es",
[5] = "ös",
[6] = "os",
[7] = "es",
[8] = "as",
[9] = "es"
}

local suffixesRoundBelow100 = {
[1] = "es",
[2] = "as",
[3] = "as",
[4] = "es",
[5] = "es",
[6] = "as",
[7] = "es",
[8] = "as",
[9] = "es"
}

local lastChar = mw.ustring.sub(str, -1)

local suffixIndex = tonumber(lastChar)

if (nil ~= suffixIndex) then
if (0 ~= suffixIndex) then
return str.."-"..suffixesNonRound[suffixIndex]
else
if (0 == tonumber(str) or 0 == tonumber(number)) then
-- return the parameter value + "-s" if
-- the parameter value is exactly 0 or
-- a NaN ending with a number that evaluates to 0 (like "M0" or "dsdadsa000")
return str.."-s"
elseif (0 ~= (number % 100)/10) then
suffixIndex = (number % 100)/10
return str.."-"..suffixesRoundBelow100[suffixIndex]
elseif (0 ~= (number % 1000)/100) then
return str.."-as"
elseif (0 == number % 10^36) then
return str.."-s"
elseif (0 == number % 10^33) then
return str.."-os"
elseif (0 == number % 10^30) then
return str.."-s"
elseif (0 == number % 10^27) then
return str.."-os"
elseif (0 == number % 10^24) then
return str.."-s"
elseif (0 == number % 10^21) then
return str.."-os"
elseif (0 == number % 10^18) then
return str.."-s"
elseif (0 == number % 10^15) then
return str.."-os"
elseif (0 == number % 10^12) then
return str.."-s"
elseif (0 == number % 10^9) then
return str.."-os"
elseif (0 == number % 10^6) then
return str.."-s"
elseif (0 == number % 10^3) then
return str.."-es"
end
end
end

return str

end

-- returns "-s" / "-as" / "-es" / "-os" / "-ós" / "-ös"
function p.hanyas2(frame)
local str = getArgs(frame)[1];

if (nil == str) then
return ""
end

local number = tonumber(str)
if (nil == number) then
number = mw.ustring.match(str, "%d*$")
end

local suffixesNonRound = {
[1] = "es",
[2] = "es",
[3] = "as",
[4] = "es",
[5] = "ös",
[6] = "os",
[7] = "es",
[8] = "as",
[9] = "es"
}

local suffixesRoundBelow100 = {
[1] = "es",
[2] = "as",
[3] = "as",
[4] = "es",
[5] = "es",
[6] = "as",
[7] = "es",
[8] = "as",
[9] = "es"
}

local lastChar = mw.ustring.sub(str, -1)

local suffixIndex = tonumber(lastChar)

if (nil ~= suffixIndex) then
if (0 ~= suffixIndex) then
return "-"..suffixesNonRound[suffixIndex]
else
if (0 == tonumber(str) or 0 == tonumber(number)) then
-- return the parameter value + "-s" if
-- the parameter value is exactly 0 or
-- a NaN ending with a number that evaluates to 0 (like "M0" or "dsdadsa000")
return "-s"
elseif (0 ~= (number % 100)/10) then
suffixIndex = (number % 100)/10
return "-"..suffixesRoundBelow100[suffixIndex]
elseif (0 ~= (number % 1000)/100) then
return "-as"
elseif (0 == number % 10^36) then
return "-s"
elseif (0 == number % 10^33) then
return "-os"
elseif (0 == number % 10^30) then
return "-s"
elseif (0 == number % 10^27) then
return "-os"
elseif (0 == number % 10^24) then
return "-s"
elseif (0 == number % 10^21) then
return "-os"
elseif (0 == number % 10^18) then
return "-s"
elseif (0 == number % 10^15) then
return "-os"
elseif (0 == number % 10^12) then
return "-s"
elseif (0 == number % 10^9) then
return "-os"
elseif (0 == number % 10^6) then
return "-s"
elseif (0 == number % 10^3) then
return "-es"
end
end
end

return ""

end

-- returns number + "-ban" / "-ben"
function p.hanyban(frame)
local str = getArgs(frame)[1];

if (nil == str) then
return ""
end

local number = tonumber(str)
if (nil == number) then
number = mw.ustring.match(str, "%d*$")
end

local suffixesNonRound = {
[1] = "ben",
[2] = "ben",
[3] = "ban",
[4] = "ben",
[5] = "ben",
[6] = "ban",
[7] = "ben",
[8] = "ban",
[9] = "ben"
}

local suffixesRoundBelow100 = {
[1] = "ben",
[2] = "ban",
[3] = "ban",
[4] = "ben",
[5] = "ben",
[6] = "ban",
[7] = "ben",
[8] = "ban",
[9] = "ben"
}

local lastChar = mw.ustring.sub(str, -1)

local suffixIndex = tonumber(lastChar)

if (nil ~= suffixIndex) then
if (0 ~= suffixIndex) then
return str.."-"..suffixesNonRound[suffixIndex]
else
if (0 == tonumber(str) or 0 == tonumber(number)) then
-- return the parameter value + "-s" if
-- the parameter value is exactly 0 or
-- a NaN ending with a number that evaluates to 0 (like "M0" or "dsdadsa000")
return str.."-ban"
elseif (0 ~= (number % 100)/10) then
suffixIndex = (number % 100)/10
return str.."-"..suffixesRoundBelow100[suffixIndex]
elseif (0 ~= (number % 1000)/100) then
return str.."-ban"
elseif (0 == number % 10^6) then
return str.."-ban"
elseif (0 == number % 10^3) then
return str.."-ben"
end
end
end

return str
end

-- converts default signature timestamp to YYYY-MM-DD HH:MM (T) format for
-- further processing via {{#time:}}
function p.alairasIdobelyeg(frame)
local args = getArgs(frame, {
removeBlanks = false
})
local str, errortext = args[1], args[2]
if type(str) ~= 'string' then return str, nil end;
local months = {
['január'] = 1,
['február'] = 2,
['március'] = 3,
['április'] = 4,
['május'] = 5,
['június'] = 6,
['július'] = 7,
['augusztus'] = 8,
['szeptember'] = 9,
['október'] = 10,
['november'] = 11,
['december'] = 12
}
local match = {
tonumber(mw.ustring.match(str, '(%d%d%d%d)%. %a+ %d?%d%.%, %d%d%:%d%d %(CES?T%)')),
months [mw.ustring.match(str, '%d%d%d%d%. (%a+) %d?%d%.%, %d%d%:%d%d %(CES?T%)')],
tonumber(mw.ustring.match(str, '%d%d%d%d%. %a+ (%d?%d)%.%, %d%d%:%d%d %(CES?T%)')),
tostring(mw.ustring.match(str, '%d%d%d%d%. %a+ %d?%d%.%, (%d%d%:%d%d %(CES?T%))'))
}
if #match ~= 4 or match[2] == nil then
return errortext or str, nil
end
str = mw.ustring.format( '%d-%d-%d %s', match[1], match[2], match[3], match[4])
return mw.getContentLanguage():formatDate('Y-m-d H:i (T)', str, true)
end

-- creates a list from (any number of) unnamed arguments using separators
-- in named arguments ("elválasztó" and "utolsó" for last) or default values
-- with Scribunto function mw.text.listToText()
function p.lista(frame)
local args = getArgs(frame)
local list = {}
for n, v in pairs(args) do
if type(n) == 'number' then table.insert(list, v) end -- insert unnamed parameters into the table
end
return mw.text.listToText(list, args['elválasztó'], args['utolsó'])
end

return p

Modul:Nyelvtani modul - Laptörténet

BarathéGábor: 1 változat importálva

w>Bean49, 2023. november 29., 22:28-n