მოდული:Languages
შეგიძლიათ შექმნათ დოკუმენტაცია ამ მოდულისათვის: მოდული:Languages/ინფო
-- ISO 639 ნინეფწკჷმა მუშობაშ მოდული
-- მოდულშ მუნაჩემეფიშ გჷმოხარგუა ნინეფიშ რცხილშე
local languages = mw.loadData('Module:Languages/data')
local p = {}
-- გჷნმამორსენს, ცაიორი რე დო ვარი მოჩამილი პარამეტრი
local function isEmpty(s)
return s == nil or s == ''
end
-- დჷმახვარე ფუნქცია, ლასუნს ოშქეფს
local function trimstr(s)
return (s:gsub("^%s*(.-)%s*$", "%1"))
end
-- ღებულენს ნინაშ კოდის, ორთინუანს რსხილს დო ნორმაშა მოჸუნს ნინაშ კოდი (ვარ-და ცაიორი ველეფი)
local function get_lang_data(code)
local l = languages[code];
if l ~= nil then
return "[[" .. l[2] .. "|" .. l[1] .. "]]", code
elseif code ~= "" then
return code, ""
else
return "", ""
end
end
function p.getRefHtmlFrame( frame )
return p.getRefHtml( trimstr( frame.args[1] ) )
end
function p.getRefHtml( wikidataItemId )
local codeByItemId = mw.loadData( "Module:Wikidata/Language-codes" )
local code = codeByItemId[ wikidataItemId ];
if code == nil then
mw.log( 'Language code not found for ' .. wikidataItemId )
return ""
else
local l = languages[code];
if l == nil then
mw.log( 'Language description for code ' .. code .. ' not found' )
return ""
else
return '<span class="ref-info" title="' .. l[ 2 ] .. '" style="font-size:85%; cursor:help; color:#888;">(' .. l[ 1 ] .. ')</span>'
end
end
end
-- ღებულენს zh|我|tt|მინ, ორთინუანს ერკებულს კანწიშ შქაფონით
function p.list(frame)
local curr_lang = nil
local result = nil
for n, v in frame:argumentPairs() do
local trimmed = trimstr(v)
if curr_lang == nil then
if trimmed ~= '' then
-- ნინა გიშატებულ ქორე-და, ქჷდიბტუათ უწოხოლენი
curr_lang = trimstr(v)
end
else
if trimmed ~= '' then
local link, lang_code = get_lang_data(curr_lang)
local list_item
if lang_code ~= '' then
list_item = link .. " <span dir='auto' lang='" .. lang_code .. "'>" .. trimmed .. "</span>"
else
list_item = link .. " <span class='unknown-foreign-lang'>" .. trimmed .. "</span>".."[[Category:ვიკიპედია:სტატიეფი უჩინებუ ნინათ]]"
end
if result == nil then
result = list_item
else
result = result .. ", " .. list_item
end
else
-- ცაიორი ტექსტი — ესისგი, მიმალი ნინა უხვადუ გეჸვენჯის
local link, lang_code = get_lang_data(curr_lang)
if result == nil then
result = link
else
result = result .. ", " .. link
end
end
curr_lang = nil
end
end
-- უბრალეთ #invoke:Languages|list|yue დართინუას ოკო რსხილი ტექსტიშ უმუშო
if curr_lang ~= nil then
local link, lang_code = get_lang_data(curr_lang)
if result ~= nil then
result = result .. ", " .. link
else
result = link
end
end
return result
end
-- Выводит название языка в предложном падеже
local function transform_lang(code)
if isEmpty(languages[code]) then return '<неизвестный код ' .. code .. '>' end
if languages[code][3] then return languages[code][3] end
local ln = mw.ustring.lower(
languages[code] and languages[code][2]
or mw.language.fetchLanguageName(code,'ru')
):gsub('%s+ნინა%s+', ' '):gsub('%s*%(?ნინა%)?%s*', '')
if not ln then return 'ნინაშა: с ISO-кодом '..code..' (?)' end
if ln:match('.*лингва$') then return ln:gsub('а$','е') end
if mw.ustring.match(ln,'[сц]кий$') or ln:match('ный$') or mw.ustring.match(ln,'[сц]кий%s%b()$') or ln:match('ный%s%b()$')
then
ln = mw.ustring.gsub(
mw.ustring.gsub(ln, 'н([ыи])й(%A)', function(y,s) return (y=='ы' and 'ном' or 'нем')..s end)
:gsub('ный$', 'ном'),
'([сц]к)ий(%A)', '%1ом%2'
):gsub('ский$', 'ском'):gsub('цкий$', 'цком');
if ln:match('%)$') and not (ln:match('ом%)$') or ln:match('нем%)$')) -- „ნინაშა:“ დაზუსტებაშ წჷმი, თინა ვერთინაფუ-და
then
local r,s=ln:gsub('(%s)(%b())$','%1ნინაშა:%1%2');
if s==1 then return r end
end
return ln..'ნინაშა: '
else
return 'ნინაშა: '..ln
end
end
-- Проверяет существование страницы и является ли она перенаправлением
local function getTitle(page)
local success, result = pcall(function()
local title = mw.title.new(page)
return { title.exists, title.isRedirect }
end)
return success and result or nil
end
-- Выводит {{Не переведено 5}}
function p.getIW(frame)
local mwlang = mw.getContentLanguage()
local f = frame.args
local title = f.title
local text = f.text
local lang = mwlang:lc(f.lang)
local page = f.page
local state = f.state
local nocat = f.nocat
-- Изображения для старой функции показа статуса
local states = {
['ИС'] = {'Википедия:Избранные статьи','Избранная статья','Small Skew Star SVG.svg'},
['ХС'] = {'Википедия:Хорошие статьи','Хорошая статья','Blue star unboxed.svg'},
['ИСП'] = {'Википедия:Избранные списки и порталы','Избранный список','Purple star unboxed.svg'}
}
-- Категории для шаблона
local categoryErrors = '[[Категория:Википедия:Статьи с некорректно заполненным шаблоном Не переведено]]'
local categoryExists = '[[Категория:Википедия:Статьи с неактуальным шаблоном Не переведено]]'
local categoryRedirect = '[[Категория:Википедия:Запросы на замену перенаправлений переводами]]'
-- Проверяет существование параметров и заменяет их на альтернативные
if isEmpty(text) then
text = title
end
if isEmpty(lang) then
lang = "en"
end
if isEmpty(page) then
page = title
end
-- Создаёт шаблон
if title ~= '{{{1}}}' then
local this = mw.title.getCurrentTitle()
local titleObj = getTitle(title)
local ifExists, ifRedirect
local type = ''
local s = ''
local langName = ''
if lang ~= 'd' then
if isEmpty(languages[lang]) then
if this.namespace == 0 and isEmpty(nocat) then
s = s .. categoryErrors
end
else
langName = ' data-lang-name="' .. (languages[lang][1] and languages[lang][1] or '???') .. '"'
end
end
-- Проверяет, не ограничен ли лимит вызовов функции
if titleObj ~= nil then
ifExists = titleObj[1]
ifRedirect = titleObj[2]
end
-- Показывает ссылку на редирект или красную ссылку
local class = (ifExists and (ifRedirect and ' iw--redirect' or ' iw--exists') or '')
s = s .. string.format('<span class="iw%s plainlinks" data-title="%s" data-lang="%s"' .. langName .. '>', class, mwlang:ucfirst(title), lang)
if ifRedirect then
if this.namespace == 0 and isEmpty(nocat) then
s = s .. categoryRedirect
end
s = s .. string.format('[%s %s]', tostring(mw.uri.fullUrl(title,'redirect=no')), text)
else
s = s .. string.format('[[%s|%s]]', title, text)
end
-- ოძირანს რსხილს შხვაშთურნინამ სტატიაშა ვარ-და მერზიება თანგიშ ეშაღალაშენ
if ifExists and not ifRedirect then
s = s .. '<sup class="iw__notice noprint">[[თანგი:ვარე თანგილი 5#ხასჷლა უკვე ქორე-და|'
.. '<span style="color:red; font-style:normal; font-weight:bold;" title="გეშეღით თანგი „ვარე თანგილი 5“ სტატიაშე '
.. 'დო თინა გოთირეთ უბრალე ვიკი-რსხილით>?!</span>]]</sup>'
if this.namespace == 0 and isEmpty(nocat) then
s = s .. categoryExists
end
else
-- გჷთმაჭყანს განჩიშ ხეჭკუდის
local t = ''
if lang == 'd' then
t = string.format('სტატიაშ „%s“ ხასჷლა ვიკიმუნაჩემეფს', mwlang:ucfirst(title))
else
if f.page then
t = string.format('%s — სტატიაშ', page)
else
t = 'სტატიაშ'
end
t = t .. string.format(' „%s“ ვერსია %s', mwlang:ucfirst(title), transform_lang(lang))
end
-- გჷთმაჭყანს ხვილაფას გინოწურაფაშ გეშა
local aster = ''
if ifRedirect then
aster = '<sup class="iw__notice noprint" style="font-style:normal; font-weight:normal; margin:0 0 0 1px;">'
.. '[[Шаблон:Не переведено 5#Если существует перенаправление|'
.. '<span title="Замените перенаправление статьёй либо уберите шаблон «Не переведено 5»">*</span>]]'
.. '</sup>'
end
-- ოძირანს რსხილს შხვაშთურნინამ სტატიაშა
s = s .. '<sup class="iw__note noprint" style="font-style:normal; font-weight:normal;">' ..
string.format('[[:%s:%s|<span class="iw__tooltip" title="%s">[%s]</span>]]</sup>', lang, page, t, lang) ..
aster
-- ოძირანს შხვაშთურნინამი ხასჷლაშ სტატუსის
if not isEmpty(state) and not isEmpty(states[state]) then
s = s .. string.format('<sup class="iw__status noprint" style="margin:0 0 0 1px;">[[ფაილი:%s|8px|link=%s|%s]]</sup>',
states[state][3], states[state][1], states[state][2])
end
end
return s .. '</span>'
else
-- ვა რე უციო პარამეტრი-და, ჭითა ტექსტი გიშმუღუ
local htmlerror = require('Module:Error').error
return htmlerror{'ქემიოწურეთ ხასჷლაშ დუდჯოხო.'}
end
end
-- Раскрывает {{ვარე თანგილი 5}}
function p.unwrapIW(frame)
local f = frame.args
local title = f.title
local text = f.text
local s = '[[' .. title
if not isEmpty(text) and title ~= text then
s = s .. '|' .. text
end
return s .. ']]'
end
return p