MediaWiki - Contribuțiile utilizatorului [ro]

Istoria Adevărată a Unirii

2025-04-26T20:39:51Z

Sergiu: Prima revizie

=== Sau despre ce se tace la istoria românilor. ===

= Despre autor =
Eu am fost unionist. Am fost fan al istoriei românilor. Știu zeci de poezii ale lui Eminescu, Coșbuc, Alecsandri, etc. Și-i băteam la dezbateri pe toți moldoveniștii. Cel puțin așa credeam eu. Pînă cînd am pierdut la o dezbatere. Sau mai bine spus - am fost bătut măr.

= Omul prost și omul înțelept =
<blockquote>Motto: Minciuna repetată de o mie de ori devine adevăr.

''Joseph Goebbels, filolog, Ministru al Propagandei în Germania nazistă (1933-1945)''</blockquote><blockquote>Motto nr. 2: Adevărul pentru a stîrpi minciuna e suficient de spus o singură dată.

''Un moldovan.''</blockquote>Noi suntem învățați că oamenii puternici stau pe pozițiile lor pînă la urmă, și că doar trădătorii își pot schimba pozițiile. Dacă ar fi așa, atunci dezbaterile între doi oameni puternici nu și-ar avea rostul, pentru că ei vor sta pînă la urmă pe pozițiile lor fără a putea fi convinși de argumentele drepte ale oponentului

Oamenii înțelepți însă, mereu își schimbă părerile atunci cînd aud un argument care explică mai bine lucrurile, care are mai mult sens decît ceea în ce credeau ei pînă atunci.

[[Fișier:Exemplu de gîndire greșită..png|alt=Exemplu de gîndire greșită|centru|miniatura|Exemplu de gîndire greșită]]
[[Fișier:Exemplu de gîndire corectă.png|alt=Exemplu de gîndire corectă. Informațiile noi completează vechea viziune și o actualizează.|centru|miniatura|Exemplu de gîndire corectă. Informațiile noi completează vechea viziune și o actualizează.]]
În viața de zi cu zi îi putem recunoaște pe oamenii nătîngi (prostuți) în discuții. Atunci cînd ei aud un argument care îi contrazice - ei ori:

* Etichetează pe cel care a zis argumentul - această tactică se numește „atac la persoană”. Exemplu: Tu ești prea tînăr să cunoști adevărul. Exemplu2: Ești un prost, ceea ce înseamnă că argumentul tău este fals.
* Etichetează sursa la care se face trimitere. Exemplu: Asta de unde ai luat? Din manualele sovietice? Exemplu2: Propagandă sovietică!

Pe oamenii cu inteligență îi preocupă sursa argumentului, dar numai pentru a încerca să găsească adevărul, pentru a afla izvorul. Cu alte cuvinte, pe omul inteligent îl interesează în primul rînd dacă argumentul oponentului este drept.

Omul prost vede în argumentele oponentului o amenințare. Consideră pe acestea ca un atac la persoana sa, la convingerile sale. Omul prost se teme să afle adevărul, pentru că asta ar putea însemna că el nu a fost drept, că părerile lui au fost greșite.

Omul înțelept însă, vede în argumentele oponentului o oportunitate. El va fi bucuros dacă convingerile sale vor fi făcute praf, pentru că asta înseamnă că el va obține în urma la asta niște convingeri mai drepte. Omul înțelept tinde mereu spre perfecțiune.

Omul prost vrea ca convingerile sale să fie adevărate.

Omul înțelept vrea ca adevărul să ajungă să devină convingerea sa.

= Istorie sau propagandă =
<blockquote>''Motto: Nicio acțiune bună nu poate fi însoțită de minciună.''

''Filmul „Păzește-te de automobil”''</blockquote>Nouă ni se spune că la școală învățăm „adevărul istoric”, și că ideile care neagă acest „adevăr istoric” sunt „propagandă”.

Eu zic că „adevărul istoric” nu poate să includă acești „dușmani” ai adevărului precum:

* Neadevăruri, sau falsuri,
* Ascunderea cu bună știință a informației care ar combate aceste „adevăruri”.

Asta nu înseamnă că un manual bun și adevărat nu conține falsuri. Deseori se strecoară greșeli chiar și în manualele bune. Dar autorii de bună credință îndată ce vor fi găsit greșeala - o vor îndrepta în următoarea ediție. De dragul adevărului.

Atunci cînd falsurile sunt perpetuate din ediție în ediție a manualelor, iar contra-argumentele sunt cu rea voință ascunse - noi putem constata că aceste manuale nu învață „adevărul istoric”, ci fac propagandă.

În această lucrare eu m-am stăruit să pun doar informații adevărate. Informații care au fost ascunse de către autorii manualelor de istorie a românilor. Eu voi fi bucuros dacă se vor descoperi neadevăruri și falsuri în text. Chiar vă rog să le căutați. Vă provoc! Arătați-mi-le și le voi îndrepta.

= Marea Unire din 1918 =
Cu toții știm povestea cu deputații din Sfatul Țării care au votat Marea Unire într-un vot democratic, după care s-au luat de mînă și au dansat Hora Unirii. Dar iată cîteva lucruri pe care nu le știm despre Sfatul Țării. Să începem cu o scurtă cronologie a unirii.

== Cronologia evenimentelor ==
'''2 decembrie 1917''' - Sfatul Țării proclamă „Republica Democratică Moldovenească”.

'''30 decembrie 1917''' - Regele României Ferdinand I ia hotărîrea să ocupe Republica Democratică Moldovenească.

'''Începutul lui ianuarie 1918''' - Trupele românești invadează Basarabia. Nu la chemarea Sfatului Țării.

'''13 ianuarie 1918''' - Inculeț povestește că atunci cînd i-a întrebat la Călărași pe ofițerii români de ce au intrat - ei i-au răspuns că pentru a apăra depozitele. Ei i-au dat asigurări că nu se vor amesteca în viața politică a RDM (au mințit). Militarii români aveau să părăsească Basarabia după restabilirea ordinii și liniștii în regiune.
'''23 ianuarie 1918''' - RUMCEROD (Comitetul Executiv Central al Sovietelor Frontului Român, Flotei Mării Negre și regiunii Odessa) declară război României pentru invazia Republicii Democratice Moldovenești. Trupele românești suferind o serie de înfrîngeri au cerut un armistițiu (încetare a focului).
'''23-24 ianuarie 1918''' - Sfatul Țării votează Declarația de independență a Republicii Democratice Moldovenești. Fapt care a deranjat oligarhatul român. În special partea care spunea că se dă pămînt țăranilor fără plată, în timp ce România a ucis mii de țărani care cereau pămînt în 1907, și nu vroia să aibă un exemplu pentru țăranii români că în altă parte s-a putut rezolva problema fără vărsare de sînge și în folosul țăranilor.

'''15 februarie 1918''' - guvernul României a primit o telegramă de la RUMCEROD în care scria că dacă România nu-și retrage trupele de pe teritoriul Basarabiei - trupele sovietice vor relua luptele.

'''21 februarie 1918''' - corpul diplomatic de la Iași a propus rușilor să intre în tratative cu românii.

'''2 martie 1918''' - trupele germane intră în Kiev, alungîndu-i pe ruși.

'''3 martie 1918''' - Rusia semnează cu România o înțelegere de retragere a trupelor românești de pe teritoriul Basarabiei (Iași). Prim-ministrul Averescu a garantat retragerea trupelor de ocupație românești într-un termen de două luni.

'''5 martie 1918''' - Tratatul de la Buftea, în anexa secretă a căruia Imperiul German a permis Regatului Român anexarea Basarabiei în schimbul pasajului liber feroviar către Ucraina. România și-a schimbat astfel aliații.

'''5-9 martie 1918''' - s-a semnat acordul de pace „Protocolul lichidării conflictului ruso-român”.

'''8 martie 1918''' - trupele sovietice primesc ordin de încetare a operațiunilor militare împotriva trupelor românești.

'''9 martie 1918''' - Rusia semnează cu România o înțelegere de retragere a trupelor românești de pe teritoriul Basarabiei (același acord ca și cel din 3 martie, Odessa)

'''9 martie 1918''' - România văzînd că Rusia pierde bătălile împotriva armatelor austro-germane (Kiev, Vinnița), și înțelegînd că în curînd Rușii vor fi alungați din regiune - încalcă acordul de pace cu Rusia și cucerește localitățile Acherman și Șabo, sfîrșind ocupația Sudului Basarabiei.

'''15 martie 1918''' - Averescu a fost dat jos din funcția de prim-ministru al Românei. Asta din cauză că pe 9 martie spusese că Rusia e slabă, dar nu moartă, iar o țară mică ca România nu trebuie să între în conflict cu o putere ca Rusia.

'''27 martie 1918''' - armata românească adună Sfatul Țării și-i obligă pe deputați să voteze pentru unire prin vot deschis și practic - cu arma la tîmplă
'''27 noiembrie 1918''' - puciul care a lichidat Sfatul Țării.

== Mai mulți deputați din Sfatul Țării au fost uciși de armata română. Lista membrilor Sfatului Țării este incompletă ==
Pare incredibil, nu-i așa? Toată lumea știe că poți afla lista membrilor din Sfatul Țării intrînd pe Wikipedia!

Dar dacă veți intra pe Wikipedia - veți vedea următorul text:

''Aceasta este '''lista cu membrii Sfatului Țării din ziua votării Unirii Basarabiei cu România'''. Din cei 125 de deputați prezenți, 86 au votat în favoarea Unirii, 3 au votat împotrivă, 36 s-au abținut, 13 deputați fiind absenți.''

Fișier:Exemplu de gîndire corectă.png

2025-04-26T20:35:35Z

Sergiu:

Exemplu de gîndire corectă. Informațiile noi completează vechile idei sau chiar le infirmă.

Fișier:Exemplu de gîndire greșită..png

2025-04-26T20:32:43Z

Sergiu:

Exemplu de gîndire greșită. Faptele noi care neagă vechile concepte sunt ignorate.

Modul:WikidataUtils/Biography

2024-07-14T20:31:48Z

Sergiu: Pagină nouă: local Wikidata = require('Modul:Wikidata') local p = {} local function isDead(qId) local deathDateClaims = Wikidata.findBestClaimsForProperty(qId, 'P570') if deathDateClaims then for _,eachDeathDateClaim in ipairs(deathDateClaims) do if Wikidata.isClaimTrue(eachDeathDateClaim) and eachDeathDateClaim.mainsnak.snaktype ~= 'novalue' then return true end end end return false end p.isDead = isDead local function isFemale(qId) local genders = Wikidata.findBestCl...

local Wikidata = require('Modul:Wikidata')
local p = {}

local function isDead(qId)
local deathDateClaims = Wikidata.findBestClaimsForProperty(qId, 'P570')
if deathDateClaims then for _,eachDeathDateClaim in ipairs(deathDateClaims) do
if Wikidata.isClaimTrue(eachDeathDateClaim) and eachDeathDateClaim.mainsnak.snaktype ~= 'novalue'
then
return true
end
end end
return false
end
p.isDead = isDead

local function isFemale(qId)
local genders = Wikidata.findBestClaimsForProperty(qId, 'P21')
local feminineIds = { 6581072, 1052281, 43445 }

if genders then for genderIdx,eachGender in ipairs(genders) do
if Wikidata.hasValueSnak(eachGender) and Wikidata.isClaimTrue(eachGender) then for _,eachFemId in ipairs(feminineIds) do
if eachFemId == eachGender.mainsnak.datavalue.value['numeric-id'] then return true end
end end
end end
return false
end
p.isFemale = isFemale
return p

Modul:NameAndImage

2024-07-14T20:31:14Z

Sergiu: Pagină nouă: local getArgs = require('Modul:Arguments').getArgs local wikidata = require('Modul:Wikidata') local StringUtils = require('Modul:StringUtils') local DateUtils = require('Modul:DateUtils') local GregorianDate = require('Modul:GregorianDate') local join = require('Modul:Separated entries')._main local libUtils = require('libraryUtil') local p = {} local maxSize = { ['P94'] = '23x23', ['P41'] = '23x23'} local function toWikidataTimestamp(timestamp) local ret = nil if timesta...

local getArgs = require('Modul:Arguments').getArgs
local wikidata = require('Modul:Wikidata')
local StringUtils = require('Modul:StringUtils')
local DateUtils = require('Modul:DateUtils')
local GregorianDate = require('Modul:GregorianDate')
local join = require('Modul:Separated entries')._main
local libUtils = require('libraryUtil')
local p = {}

local maxSize = { ['P94'] = '23x23', ['P41'] = '23x23'}

local function toWikidataTimestamp(timestamp)
local ret = nil
if timestamp then
ret = timestamp
if mw.ustring.gmatch(timestamp, '^%d+$') then
return '+' .. timestamp .. '-00-00', 9
end
if mw.ustring.find(timestamp, '%d+') == 1 then
ret = '+' .. timestamp
end
end
return ret
end

p._imageFromOneOfProps = function(entityId, imagePropIds, timestamp)
local imageName = nil
local maxSizeOfImage = nil
for _idx, eachPropId in pairs(imagePropIds) do
local defaultImageName = wikidata.findOneValueNoRef(eachPropId, entityId)
local specificImageName = nil
local dataClaim = nil
if timestamp then
dataClaim = wikidata.findClaimForTimestamp(entityId, eachPropId, timestamp)
else
local bestDataClaims = wikidata.findBestClaimsForProperty(entityId, eachPropId)
if bestDataClaims and 0 < #bestDataClaims then dataClaim = bestDataClaims[1] end
end
if dataClaim and 'statement' == dataClaim.type and 'value' == dataClaim.mainsnak.snaktype then specificImageName = dataClaim.mainsnak.datavalue.value end

if imageName == nil and (defaultImageName and mw.text.trim(defaultImageName) ~= '' or specificImageName and mw.text.trim(specificImageName) ~= '') then
imageName = mw.text.trim(specificImageName or defaultImageName)
maxSizeOfImage = StringUtils.appendIfMissing({maxSize[imagePropId] or '23x23', 'px'})
end
end

local imageLink = ''
if imageName and mw.text.trim(imageName) ~= '' then
imageLink = '[[Fișier:' .. imageName .. '|' .. maxSizeOfImage .. '|border]]'
end
return imageLink
end

p._nameAndImageFromOneOfProps = function(entityId, imagePropIds, timestamp)
libUtils.checkTypeForNamedArg('_nameAndImageFromOneOfProps', 'entityId', entityId, 'string', true)
libUtils.checkTypeForNamedArg('_nameAndImageFromOneOfProps', 'imagePropIds', imagePropIds, 'table', false)
libUtils.checkTypeForNamedArg('_nameAndImageFromOneOfProps', 'timestamp', timestamp, 'table', true)

local articleLink = wikidata.findLinkToItem(entityId, true, false, true)

local imageLink = p._imageFromOneOfProps(entityId, imagePropIds, timestamp)

return mw.text.trim(join({imageLink, articleLink, separator = ' '}))
end

p._nameAndImage = function(entityId, imagePropId, timestamp)
if not entityId or entityId == '' then return '' end

libUtils.checkTypeForNamedArg('_nameAndImage', 'imagePropId', imagePropId, 'string', false)
libUtils.checkTypeForNamedArg('_nameAndImage', 'entityId', entityId, 'string', true)
libUtils.checkTypeForNamedArg('_nameAndImage', 'timestamp', timestamp, 'table', true)

return p._nameAndImageFromOneOfProps(entityId, {imagePropId}, timestamp)
end

p.nameAndImage = function(frame)
local args = getArgs(frame)
local entityId = args[1]
local propId = args[2]
local timestamp = args[3] or args['timestamp']
local wdTimestamp, wdTimestampPrecision = toWikidataTimestamp(timestamp)
if timestamp then timestamp = DateUtils.parseWikidataDate(wdTimestamp, wdTimestampPrecision) end
return p._nameAndImage(entityId, propId, timestamp)
end

p.nameAndCoatOfArms = function(frame)
local args = getArgs(frame)
local entityId = args[1]
local timestamp = args[2] or args['timestamp']
local wdTimestamp, wdTimestampPrecision = toWikidataTimestamp(timestamp)
if timestamp then timestamp = DateUtils.parseWikidataDate(wdTimestamp, wdTimestampPrecision) end
return p._nameAndImage(entityId, 'P94', timestamp)
end

p.nameAndFlag = function(frame)
local args = getArgs(frame)
local entityId = args[1]
local timestamp = args[2] or args['timestamp']
local wdTimestamp, wdTimestampPrecision = toWikidataTimestamp(timestamp)
if timestamp then timestamp = DateUtils.parseDate(wdTimestamp, wdTimestampPrecision) end
return p._nameAndImage(entityId, 'P41', timestamp)
end

p._nameAndFlagFromPropOfEntity = function(propId, entityId, timestamp)
if not propId then return '' end
local entity = entityId
local claims = nil
if type(entity) == 'table' then
claims = entity:getBestStatements(propId)
else
if not entity then entity = mw.wikibase.getEntityIdForCurrentPage() end
if type(entity) == 'number' then entity = 'Q' .. tostring(entityId) end
if not entity then return nil end
claims = mw.wikibase.getBestStatements(entity, propId)
end

local countryIdsList = {}
if claims and 0 < #claims then
for _,eachClaim in ipairs(claims) do
if eachClaim.mainsnak.snaktype == 'value' then
table.insert(countryIdsList, eachClaim.mainsnak.datavalue.value.id)
end
end
end

local countriesWithFlags = {}
for _,eachCountryId in ipairs(countryIdsList) do
table.insert(countriesWithFlags, p._nameAndImage(eachCountryId, 'P41', timestamp))
end
return table.concat(countriesWithFlags, tostring(mw.html.create('br')))
end

p.nameAndFlagFromPropOfEntity = function(frame)
local args = getArgs(frame)
local propId = args['pid'] or args[1]
local entityId = args['qid'] or args[2]
local timpestamp = args['timestamp'] or args[3]

return p._nameAndFlagFromPropOfEntity(propId, entityId, timestamp)
end

p.flag = function(frame)
local args = getArgs(frame)
local entityId = args[1]
local timestamp = args[2] or args['timestamp']
if timestamp then
local wdTimestamp, wdTimestampPrecision = toWikidataTimestamp(timestamp)
timestamp = DateUtils.parseWikidataDate(wdTimestamp, wdTimestampPrecision)
end
return p._imageFromOneOfProps(entityId, {'P41'}, timestamp)
end

return p

Modul:EditAtWikidata

2024-07-14T20:30:45Z

Sergiu: Pagină nouă: -- Module to display an icon with a tooltip such as "Edit this at Wikidata" -- Icon will be linked to the Wikidata entry for the article where this is placed. -- This message is only displayed if a local_parameter is not supplied -- i.e. when called from a template, it can be coded not to display the message -- when a local parameter is in use, preventing the value form Wikidata being fetched. -- The qid of a Wikidata entry can optionally be supplied for testing outside the...

-- Module to display an icon with a tooltip such as "Edit this at Wikidata"
-- Icon will be linked to the Wikidata entry for the article where this is placed.
-- This message is only displayed if a local_parameter is not supplied
-- i.e. when called from a template, it can be coded not to display the message
-- when a local parameter is in use, preventing the value form Wikidata being fetched.
-- The qid of a Wikidata entry can optionally be supplied for testing outside the article.
-- Usage:
-- {{#invoke:EditAtWikidata|showMessage|local_parameter}}
-- {{#invoke:EditAtWikidata|showMessage|qid=<ArticleID>|local_parameter}}

local p = {}
local getArgs = require('Modul:Arguments').getArgs

local i18n =
{
["message"] = "Modificați la Wikidata"
}

p.displayMessageWithCustomText = function(pid, qid, text)
-- Get the object containing all the claims for the article
local thisQid = qid or mw.wikibase.getEntityIdForCurrentPage()
if not thisQid then return nil end
if not text then return p.displayMessage(pid, qid) end

local link = " [[:d:" .. thisQid .. (pid and ("#" .. pid ) or "") .. "|" .. text .. "]]"
return link
end

p.displayMessage = function(pid, qid)

-- Get the object containing all the claims for the article
local thisQid = qid or mw.wikibase.getEntityIdForCurrentPage()
if not thisQid then return nil end

local icon
if pid then
icon = " [[File:Blue pencil.svg |frameless |text-top |10px |alt=" .. i18n.message .. " |link=https://www.wikidata.org/wiki/" .. thisQid .. "#" .. pid .. "|" .. i18n.message .. "]]"
else
icon = " [[File:Blue pencil.svg |frameless |text-top |10px |alt=" .. i18n.message .. " |link=https://www.wikidata.org/wiki/" .. thisQid .. "|" .. i18n.message .. "]]"
end

return icon
end

p.showMessage = function(frame)
local args = getArgs(frame)

-- There may be a local parameter supplied, if it's blank, set it to nil
local local_parm = args[1] or ""
if local_parm and (#local_parm == 0) then local_parm = nil end

-- If there is a local parameter used, we don't want to display the message
if local_parm then return nil end

-- Can take a named parameter |qid which is the Wikidata ID for the article.
-- This will not normally be used except for testing outside the article.
local qid = args.qid

-- The module can take a parameter pid=
-- which will create a link to that property in the Wikidata entry for the article
local pid = args.pid

local label = args.label

if not label then
return p.displayMessage(pid, qid)
else
return p.displayMessageWithCustomText(pid, qid, label)
end
end

return p

Modul:Lang

2024-07-14T20:30:08Z

Sergiu: Pagină nouă: local p = {} local getArgs = require('Modul:Arguments').getArgs local wikidata = require('Modul:Wikidata') p.fromArgs = function(langISOcode, languageDir, langText, italic) local span = mw.html.create('span') span:attr('lang', langISOcode) span:attr('translate', 'no') if languageDir then span:attr('dir', languageDir) end if italic then span:css('font-style', 'italic') end span:wikitext(langText) return tostring(span) end p.fromFrame = function(frame) local args = ge...

local p = {}
local getArgs = require('Modul:Arguments').getArgs
local wikidata = require('Modul:Wikidata')

p.fromArgs = function(langISOcode, languageDir, langText, italic)
local span = mw.html.create('span')
span:attr('lang', langISOcode)
span:attr('translate', 'no')
if languageDir then span:attr('dir', languageDir) end
if italic then span:css('font-style', 'italic') end
span:wikitext(langText)
return tostring(span)
end

p.fromFrame = function(frame)
local args = getArgs(frame)
local langId = args[1]
local langISOCode = langId
local languageRTL = args['rtl']
local italic = true
if mw.ustring.match(langId, 'Q?%d+') then
langISOCode = wikidata.findOneValue('P218', langId) or wikidata.findOneValue('P219', langId) or wikidata.findOneValue('P305', langId)
if languageAlphabets and languageAlphabets[1] then
languageDirectionalities = wikidata.getBestEntityIdsList(languageAlphabets[1], 'P1406')
if languageDirectionalities and languageDirectionalities[1] then
languageRTL = (languageDirectionalities[1] == 7333457)
end
end
end
local italicarg = args.italic or args.i
if italicarg == 'no' or italicarg == 'false' or italicarg == 'nu' or italicarg == 'n' then
italic = false
end

return p.fromArgs(langISOCode, languageRTL and 'rtl', args[2], italic)
end

return p

Modul:BirthDateAndAge

2024-07-14T20:29:25Z

Sergiu: Pagină nouă: local p = {} local getArgs = require('Modul:Arguments').getArgs local wikidata = require('Modul:Wikidata') local plural = require('Modul:Plural').get_plural local GregorianDate = require('Modul:GregorianDate') local computeYearsPastBetween = function(inMomentDate, inReferenceDate) local momentDate = GregorianDate.julianToGregorian(inMomentDate) local referenceDate = GregorianDate.julianToGregorian(inReferenceDate) local yearsDiff = tonumber(momentDate.year) - tonumber(ref...

local p = {}
local getArgs = require('Modul:Arguments').getArgs
local wikidata = require('Modul:Wikidata')
local plural = require('Modul:Plural').get_plural
local GregorianDate = require('Modul:GregorianDate')

local computeYearsPastBetween = function(inMomentDate, inReferenceDate)
local momentDate = GregorianDate.julianToGregorian(inMomentDate)
local referenceDate = GregorianDate.julianToGregorian(inReferenceDate)
local yearsDiff = tonumber(momentDate.year) - tonumber(referenceDate.year)
if tonumber(momentDate.month) < tonumber(referenceDate.month) or (tonumber(momentDate.month) == tonumber(referenceDate.month) and tonumber(momentDate.day) < tonumber(referenceDate.day)) then
yearsDiff = yearsDiff - 1
end
return yearsDiff
end

local computeYearsPastSince = function(referenceDate)
return computeYearsPastBetween(os.date("*t"), referenceDate)
end

p._getBdaByWikidata = function(args)
local link = false
if args['link'] and mw.text.trim(args['link']) ~= '' then
link = true
end
local birthDates = wikidata.findDateValues('P569', nil)
local deathDates = wikidata.findDateValues('P570', nil)
if birthDates and birthDates[1] and birthDates[1].claim and birthDates[1].claim.type == 'statement' and birthDates[1].claim.mainsnak.snaktype == 'value' then
local out = GregorianDate.displayDualDateIfInInterval(birthDates[1], link)
if not deathDates or not deathDates[1] or (deathDates[1].claim and deathDates[1].claim.mainsnak.snaktype == 'novalue') then
age = computeYearsPastSince(birthDates[1])
if age < 120 and birthDates[1].precision > 7 then
out = out .. ' (' .. plural{args={age, 'an', 'ani', 'de ani'}} .. ')'
else
out = out .. '[[Categorie:Decese cu dată necunoscută]]'
end
end
if birthDates[1].claim then
out = out .. wikidata.outputReferences(birthDates[1].claim)
end
return out
end
return ''
end

p.getBdaByWikidata = function(frame)
local args = getArgs(frame)
return p._getBdaByWikidata(args)
end

p.getBda = function(frame)
local args = getArgs(frame)
local link = false
if args['link'] and mw.text.trim(args['link']) ~= '' then
link = true
end
local d = {}
if args[1] then
d.year = tonumber(args[1])
d.month = tonumber(args[2] or '1')
d.day = tonumber(args[3] or '1')
d.precision = 9
d.calendar = mw.ustring.lower(args['calendar_birth'] or args['calendar'] or 'gregorian')
if args[2] then d.precision = 10 end
if args[3] then d.precision = 11 end
out = GregorianDate.displayDualDateIfInInterval(d, link)
if d.precision > 7 then
out = out .. ' (' .. plural{args={computeYearsPastSince(d), 'an', 'ani', 'de ani'}} .. ')'
end
return out
else
return p.getBdaByWikidata(frame)
end
end

p._getDdaByWikidata = function(args)
local birthDates = wikidata.findDateValues('P569', nil)
local deathDates = wikidata.findDateValues('P570', nil)
local link = false
if args['link'] and mw.text.trim(args['link']) ~= '' then
link = true
end
if deathDates and deathDates[1] and (not deathDates[1].claim or deathDates[1].claim.mainsnak.snaktype == 'value') then
local out = ''
out = out .. GregorianDate.displayDualDateIfInInterval(deathDates[1], link)
if birthDates and birthDates[1] and (not birthDates[1].claim or birthDates[1].claim.mainsnak.snaktype == 'value') then
if deathDates[1].precision > 7 and birthDates[1].precision > 7 then
out = out .. ' (' .. plural{args={computeYearsPastBetween(deathDates[1], birthDates[1]), 'an', 'ani', 'de ani'}} .. ')'
end
end
if deathDates[1].claim then
out = out .. wikidata.outputReferences(deathDates[1].claim)
end
return out
end
return ''
end

p.getDdaByWikidata = function(frame)
local args = getArgs(frame)
return p._getDdaByWikidata(args)
end
p.getDda = function(frame)
local args = getArgs(frame)
local link = false
if args['link'] and mw.text.trim(args['link']) ~= '' then
link = true
end
if args[1] then
local d = {}
d.year = tonumber(args[1])
d.month = tonumber(args[2] or '1')
d.day = tonumber(args[3] or '1')
d.precision = 9
d.calendar = mw.ustring.lower(args['calendar_death'] or 'gregorian')
if args[2] then d.precision = 10 end
if args[3] then d.precision = 11 end
local b = {}
b.year = tonumber(args[4])
b.month = tonumber(args[5] or '1')
b.day = tonumber(args[6] or '1')
b.precision = 9
b.calendar = mw.ustring.lower(args['calendar_birth'] or 'gregorian')
if args[5] then b.precision = 10 end
if args[6] then b.precision = 11 end
return GregorianDate.displayDualDateIfInInterval(d, link) .. ' (' .. plural{args={computeYearsPastBetween(d, b), 'an', 'ani', 'de ani'}} .. ')'
else
return p.getDdaByWikidata(frame)
end
end

return p

Modul:TimestampedTable

2024-07-14T20:28:48Z

Sergiu: Pagină nouă: local DateUtils = require('Modul:DateUtils') local p = {} local function getTimestampedValueFromArray(arr, ts) local tsDate = type(ts) == 'string' and DateUtils.parseDate(ts) or type(ts) == 'table' and ts if not tsDate then tsDate = nil end local closestDate = nil local closestDateLabel = nil for k,v in pairs(arr) do local crtStartDate = k == '_' and {year=-3000, precision=9} or DateUtils.parseDate(k) if (nil == tsDate or (tsDate and DateUtils.compare(crtStartDate,...

local DateUtils = require('Modul:DateUtils')
local p = {}
local function getTimestampedValueFromArray(arr, ts)
local tsDate = type(ts) == 'string' and DateUtils.parseDate(ts) or type(ts) == 'table' and ts
if not tsDate then tsDate = nil end
local closestDate = nil
local closestDateLabel = nil
for k,v in pairs(arr) do
local crtStartDate = k == '_' and {year=-3000, precision=9} or DateUtils.parseDate(k)
if (nil == tsDate or (tsDate and DateUtils.compare(crtStartDate, tsDate) <= 0)) and
(nil == closestDate or DateUtils.compare(crtStartDate, closestDate) > 0) then
closestDate = crtStartDate
closestDateLabel = k
end
end
return arr[closestDateLabel]
end
p.getValueByTimestamp = getTimestampedValueFromArray

return p

Modul:Plain text

2024-07-14T20:28:04Z

Sergiu: Pagină nouă: --converts text with wikilinks to plain text, e.g "gah is bar" to "gah is bar" --removes anything enclosed in tags that isn't nested, mediawiki strip markers (references etc), files, italic and bold markup local p = {} function p.main(frame) local text = frame.args[1] return p._main(text) end function p._main(text) if not text then return end text = mw.text.killMarkers(text) :gsub(' ', ' ') --replace nbsp spaces with regular spaces :gsub(' ',...

--converts text with wikilinks to plain text, e.g "[[foo|gah]] is [[bar]]" to "gah is bar"
--removes anything enclosed in tags that isn't nested, mediawiki strip markers (references etc), files, italic and bold markup
local p = {}

function p.main(frame)
local text = frame.args[1]
return p._main(text)
end

function p._main(text)
if not text then return end
text = mw.text.killMarkers(text)
:gsub(' ', ' ') --replace nbsp spaces with regular spaces
:gsub(' ', ', ') --replace br with commas
:gsub('<span.->(.-)', '%1') --remove spans while keeping text inside
:gsub('<i.->(.-)', '%1') --remove italics while keeping text inside
:gsub('<.->.-<.->', '') --strip out remaining tags and the text inside
:gsub('<.->', '') --remove any other tag markup
:gsub('%[%[%s*[Ff]ile%s*:.-%]%]', '') --strip out files
:gsub('%[%[%s*[Ii]mage%s*:.-%]%]', '') --strip out use of image:
:gsub('%[%[%s*[Cc]ategory%s*:.-%]%]', '') --strip out categories
:gsub('%[%[[^%]]-|', '') --strip out piped link text
:gsub('[%[%]]', '') --then strip out remaining [ and ]
:gsub("'''''", "") --strip out bold italic markup
:gsub("'''?", "") --not stripping out '''' gives correct output for bolded text in quotes
:gsub('----', '') --remove ---- lines
:gsub("^%s+", "") --strip leading
:gsub("%s+$", "") --and trailing spaces
:gsub("%s+", " ") --strip redundant spaces
return text
end

return p

Modul:Ill-wd

2024-07-14T20:27:10Z

Sergiu: Pagină nouă: local getArgs = require('Modul:Arguments').getArgs local wikidata = require('Modul:Wikidata') local StringUtils = require('Modul:StringUtils') local plainText = require('Modul:Plain text')._main local p = {} p.fromArgs = function(wdId, wdLabel, wdArticleName, capitalize) local out = '' if mw.wikibase.sitelink(wdId) then if wdLabel then out = wikidata.findLinkToItemWithLabel(wdId, wdLabel) else local label = mw.wikibase.label(StringUtils._prependIfMissing({tostrin...

local getArgs = require('Modul:Arguments').getArgs
local wikidata = require('Modul:Wikidata')
local StringUtils = require('Modul:StringUtils')
local plainText = require('Modul:Plain text')._main
local p = {}

p.fromArgs = function(wdId, wdLabel, wdArticleName, capitalize)
local out = ''
if mw.wikibase.sitelink(wdId) then
if wdLabel then
out = wikidata.findLinkToItemWithLabel(wdId, wdLabel)
else
local label = mw.wikibase.label(StringUtils._prependIfMissing({tostring(wdId), 'Q'}))
if label and capitalize then label = StringUtils._capitalize({ label }) end
out = label and wikidata.findLinkToItemWithLabel(wdId, label) or wikidata.findLinkToItem(wdId, capitalize, false, false)
end
else
wdLabel = wdLabel or mw.wikibase.label(wdId) or wdArticleName or wikidata.findLabel(wdId)
if wdLabel and capitalize then wdLabel = StringUtils._capitalize({ wdLabel }) end

if not wdArticleName then
local wdLangLabel, wdLangName = mw.wikibase.getLabelWithLang(wdId)
if wdLangName == 'ro' then wdArticleName = wdLangLabel end
end

wdArticleName = plainText(wdArticleName or wdLabel)

if not wdArticleName then
return wikidata.findLinkToItem(wdId, capitalize, false, false)
end
out = out .. '[[:' .. wdArticleName
if wdArticleName ~= wdLabel then
out = out .. '|' .. (wdLabel or wdArticleName)
end
out = out .. ']]'

local wikidataLinkSpan = mw.html.create('span'):attr('title', wdArticleName .. ' la Wikidata'):wikitext('d')
local supTag = mw.html.create('sup'):tag('small'):wikitext(mw.ustring.char(0x2060), '([[:d:', wdId, '|', tostring(wikidataLinkSpan), ']])'):allDone()
out = out .. tostring(supTag)
end
return out
end

p.fromArray = function(array)
local wdId = StringUtils.prependIfMissing({array[1] or wikidata.getEntityId(), 'Q'})
local inLabel = array[3]
local labelLang = 'ro'
if not inLabel then
wdLabel, labelLang = mw.wikibase.getLabelWithLang(wdId)
end
local wdArticleName = array[2] or wdLabel

if not wdLabel or labelLang ~= 'ro' then
wdLabel = wdArticleName or wdLabel or wikidata.findLabel(wdId, 'ro')
end

local capitalize = array['capitalize']

return p.fromArgs(wdId, inLabel or wdLabel, wdArticleName, capitalize ~= nil)
end
p.fromFrame = function(frame)
local args = getArgs(frame)
return p.fromArray(args)
end

return p

Modul:LocationAndCountry/data

2024-07-14T20:24:01Z

Sergiu: Pagină nouă: local ESCALATABLE_LOCATION_ENTITIES = { -- if this is one of the types of the location from Wikidata, then we skip and escalate it to the administrative unit 'Q79007', --street 'Q16917', --hospital 'Q608152', --hospice 'Q1059324', -- university hospital 'Q702842', --municipal arrondissement (France) 'Q2115448', --raioane ale orașelor federale rusești 'Q15921300', --sector of Bucharest 'Q2755753', --area of London 'Q211690', --London borough 'Q518343', -- municipal...

local ESCALATABLE_LOCATION_ENTITIES = { -- if this is one of the types of the location from Wikidata, then we skip and escalate it to the administrative unit
'Q79007', --street
'Q16917', --hospital
'Q608152', --hospice
'Q1059324', -- university hospital
'Q702842', --municipal arrondissement (France)
'Q2115448', --raioane ale orașelor federale rusești
'Q15921300', --sector of Bucharest
'Q2755753', --area of London
'Q211690', --London borough
'Q518343', -- municipal borough
'Q879050', --manor house
'Q47168', --county of USA
'Q1785071', -- fort
'Q40357', -- prison
'Q41176', --building
'Q33506', --museum
'Q256020', --inn
'Q287414', -- neighborhood
'Q462667', -- administrative territorial entity of Moscow
}

local ADMIN_UNIT_ATTRACTOR_ENTITY_TYPES = { -- if this is one of the types of the location from Wikidata, then we also pull in the administrative unit
'Q532', -- village
'Q659103', -- commune of Romania
'Q17343829', -- unincorporated community (SUA)
'Q408804', -- burough of NYC
'Q55237813', -- village in NY state, USA
'Q13414757', -- county of NY
'Q13212489', -- county of CA
'Q21672098', -- village of Ukraine
'Q10354598', -- rural settlement
}

local ADMIN_UNIT_ATTRACTOR_COUNTRIES = { -- if the country is one of these, pull at least one unit; this is necessary b/c not all such countries are flagged in Wikidata as federations, e.g. UK, Canada
'Q145', -- UK
'Q16', -- Canada
}

local ADMIN_UNIT_TYPES_TO_SKIP = { -- if this is one of the types of UATs from Wikidata, then skip
'Q15042037', -- statistical territorial entity
'Q2661988', -- urban settlement in Russia
'Q60849925', -- municipal district in Russia
'Q1561418', -- agreed administrative community in Baden-Württemberg, Germany
'Q2586717', -- Regional State Administrative Agency (Finland)
'Q3575784', -- defense and security zone of France
}

local ADMIN_UNITS_TO_SKIP = {-- if this is one of the UATs from Wikidata, then skip
'Q212429', -- Franța metropolitană
'Q533534', -- Cisleithania
'Q1206012', -- Reich-ul German
'Q23306', -- Greater London
}

local INVARIANT_LOCATION_NAMES_COUNTRIES = { -- For locations currently in these countries, we don't search for the name in another language
'Q218', --ro
'Q217', --md
'Q230', --Georgia; transliterare problematică
}
local INVARIANT_LOCATION_UATS = {-- For locations currently in these UATs, we don't search for the name in another language
'Q168856', --regiunea Cernăuți
'Q103842911', -- raionul Ismail
'Q103842889', -- raionul Cetatea Albă
'Q103842904', -- raionul Bolgrad
'Q428976', -- raionul Teceu
'Q428963', -- raionul Rahău
'Q728041', --Banatul de Nord
'Q425782', --Banatul Central
'Q720030', --Banatul de Sud
'Q174994', --Basarabia
}
local INVARIANT_LOCATION_TYPES = { -- For locations of these types, we don't search for the name in another language
'Q6256', -- țări în general
'Q3024240', -- țări istorice
'Q426759', --mandate ale Ligii Națiunilor
'Q35657', -- statele SUA
'Q3336843', -- țările UK
'Q12959600', -- republicile iugoslaviei
'Q1221156', --landurile Germaniei
'Q261543', -- landurile Austriei
'Q209824', -- regiunile Bulgariei
'Q10742', --comunitățile autonome ale Spaniei
'Q134390', --provinciile Țărilor de Jos
'Q150093', -- voievodatele Poloniei
'Q84582639',
'Q681026', -- țările coroanei Habsburgice
'Q83057', --regiunile Belgiei
'Q236036', --republicile sovietice
'Q86622', -- guberniile țariste
'Q836672', -- provinciile Kazahstanului
'Q188604', -- județele Ungariei
'Q23058', -- cantoanele Elveției
'Q3348196', -- regiunile Ucrainei
'Q41162', -- republicile Rusiei
'Q687121', -- volostele Rusiei
'Q843752', -- entități federale ale Bosniei și Herțegovinei
'Q1572329', -- raioanele Rusiei
'Q1267632', -- raioanele Ucrainei
'Q104251', -- regiunile Albaniei
'Q182547', -- provinciile romane
'Q4377540', -- prefecturile pretoriene romane
'Q852231', -- comitatele Regatului Ungariei
'Q44753', -- provinciile Argentinei
'Q207299', -- unitățile administrative ale Greciei
'Q835714', -- regiunile Rusiei
'Q3403564', -- principate eclesiastice
'Q1710033', -- regiuni autonome ale Italiei
-- 'Q82794', -- regiuni geografice
'Q57053', -- cantoanele Croației
'Q2577883', -- teritorii ocupate
'Q193512', -- regiunile Finlandei
'Q4312761', -- viceregatele Imperiului Rus
}
local SHORT_NAME_LOCATION_TYPES = { -- For locations of these types, we look for the short name rather than official name
'Q6256', -- țări în general
'Q236036', --republicile sovietice
'Q12959600', -- republicile Iugoslaviei
}
local INVARIANT_LOCATION_NAMES_IDS = { -- For these locations, we don't search for the name in another language
'Q1524', -- Atena
'Q4332333', -- Babele
'Q3711', -- Belgrad
'Q70', -- Berna
'Q56036', -- Berlinul de Vest
'Q56037', -- Berlinul de Est
'Q1781', -- Budapesta
'Q193965', -- Camenița
'Q52193', -- Colomeea
'Q1748', -- Copenhaga
'Q31487', -- Cracovia
'Q1731', -- Dresda
'Q1953', -- Erevan
'Q2044', -- Florența
'Q71', -- Geneva
'Q4093', -- Glasgow
'Q36600', -- Haga
'Q1218', -- Ierusalim
'Q147739', -- Ismail
'Q1899', -- Kiev
'Q597', -- Lisabona
'Q84', -- Londra
'Q23482', -- Marsilia
'Q193420', -- Miercurea Ciuc
'Q154835', -- Moghilău
'Q649', -- Moscova
'Q1726', -- München
'Q33959', -- Nisa
'Q10282', -- Pamplona
'Q210205', -- Pesta
'Q1085', -- Praga
'Q1773', -- Riga
'Q908', -- Rostov pe Don
'Q17151', -- Salonic
'Q19689', -- Tirana
'Q270', -- Varșovia
'Q641', -- Veneția
'Q1741', -- Viena
'Q174994', -- Basarabia
'Q1697', -- regiunea Moscova
'Q3769', -- Guyana Franceză
'Q30971', -- Polinezia Franceză
'Q1653', -- Dunărea
'Q40104', -- Ajaccio

--localități din Ungaria per http://budapesta.mae.ro/node/797
'Q911667','Q751520','Q791458','Q187303','Q740810','Q178878','Q528338','Q677698','Q1076482','Q654192','Q902272',
'Q227413','Q214938','Q54808404','Q948356','Q1075840','Q1076475','Q1021811','Q281575','Q1014872','Q81581','Q1185124',
}

local LANGUAGE_ORDER = { -- specify the preferred order of official languages for settlements in a certain region
['Q5705'] = {'es', 'ca'}, -- Catalonia
['Q3908'] = {'es', 'gl'}, -- Galicia
['Q3995'] = {'es', 'eu'}, -- Țara Bascilor
['Q10282'] = {'es', 'eu'}, -- Pamplona
['Q5720'] = {'es', 'cat', 'ca'}, -- Valencia
['Q5765'] = {'es', 'ca'}, -- Baleare
['Q5689'] = {'se', 'fi'}, -- Åland
['Q33'] = {'fi', 'se'}, -- Finlanda
['Q184'] = {'be', 'ru'}, -- Belarus
['Q1250'] = {'it', 'fur', 'sl', 'de'}, -- Friuli-Venezia Giulia
['Q1237'] = {'it', 'de', 'lld'}, --Trentino-Alto Adige
['Q1222'] = {'it', 'fr'}, --Valea Aostei
['Q9337'] = {'nl', 'fr'}, --Flandra
['Q231'] = {'fr', 'nl'}, --Valonia
['Q27'] = {'en', 'ga'}, --Irlanda
['Q22'] = {'en', 'gd', 'sco'}, --Scoția
['Q25'] = {'en', 'cy'}, --Țara Galilor
['Q233'] = {'en', 'mt' }, --Malta
['Q39'] = {'de', 'fr', 'it' }, --Elveția
['Q12640'] = {'fr', 'de', 'it'}, --Fribourg
['Q11925'] = {'de', 'rm', 'it'}, --Graubünden
['Q12724'] = {'it', 'fr', 'de'}, --Ticino
['Q12771'] = {'fr', 'de', 'it'}, --Vaud
['Q834'] = {'fr', 'de', 'it'}, --Valais
['Q12738'] = {'fr', 'de', 'it'}, --Neuchâtel
['Q11917'] = {'fr', 'de', 'it'}, --Geneva
['Q12755'] = {'fr', 'de', 'it'}, --Jura
['Q232'] = {'kk', 'ru'}, --Kazahstan
['Q170174'] = {'it', 'la'}, -- Statele Papale
['Q12548'] = {'de', 'la'}, -- Sfântul Imperiu Roman
['Q14112'] = {'fr', 'co'}, -- Corsica
}

local LOCATION_NAME_OVERRIDES = { -- For these locations, we use the historical names specified here
['Q406'] = {
['1930-03-28'] = 'Istanbul',
['_'] = 'Constantinopol'
},
['Q656'] = {
['1924-01-25'] = 'Leningrad',
['1914-08-31'] = 'Petrograd',
['1991-09-07'] = 'Sankt Petersburg',
['_'] = 'Sankt Petersburg',
},
['Q48256'] = {
['2016-05-19'] = 'Dnipro',
['1926-07-20'] = 'Dnipropetrovsk',
['1802'] = 'Ekaterinoslav',
['_'] = 'Novorosiisk'
},
['Q1751495'] = { ['_'] = 'RS Slovacă' },
}
LOCATION_NAME_OVERRIDES['Q16869'] = LOCATION_NAME_OVERRIDES['Q406']

local COUNTRY_NAMES_OVERRIDES = { -- For these countries, we use the name specified here
['Q30'] = 'SUA',
['Q145'] = 'Regatul Unit',
['Q842794'] = 'România',
['Q2685298'] = 'România',
['Q203493'] = 'România',
['Q713750'] = 'RFG',
['Q16957'] = 'RDG',
['Q83286'] = 'RSF Iugoslavia',
['Q15180'] = 'URSS',
['Q207272'] = 'Polonia',
['Q1290149'] = 'RFP Iugoslavia',
['Q83286'] = 'RSF Iugoslavia',
['Q172107'] = 'Polonia-Lituania',
['Q62589'] = 'Suedia-Norvegia',
['Q62651'] = 'Danemarca-Norvegia',
['Q853348'] = 'Cehoslovacia',
['Q140359'] = 'Cehoslovacia',
['Q2010024'] = 'Cehoslovacia',
['Q2454585'] = 'Cehoslovacia',
['Q11178782'] = 'Cehoslovacia',
['Q853348'] = 'Cehoslovacia',
['Q11177699'] = 'Cehoslovacia',
['Q1998866'] = 'Cehia și Slovacia',
['Q2415901'] = 'Germania sub ocupație aliată',
['Q533534'] = 'Cisleithania',
}

local COUNTRY_SKIP_TYPES = {
'Q9430', --ocean
'Q165', --mare
}

return {
escalatableLocationTypes = ESCALATABLE_LOCATION_ENTITIES,
adminUnitExpandableLocationTypes = ADMIN_UNIT_ATTRACTOR_ENTITY_TYPES,
adminUnitExpandableCountries = ADMIN_UNIT_ATTRACTOR_COUNTRIES,
skippableUatTypes = ADMIN_UNIT_TYPES_TO_SKIP,
skippableUats = ADMIN_UNITS_TO_SKIP,
invariantLocations = INVARIANT_LOCATION_NAMES_IDS,
invariantLocationCountries = INVARIANT_LOCATION_NAMES_COUNTRIES,
invariantLocationTypes = INVARIANT_LOCATION_TYPES,
shortNameLocationTypes = SHORT_NAME_LOCATION_TYPES,
invariantLocationUats = INVARIANT_LOCATION_UATS,
locationNameOverrides = LOCATION_NAME_OVERRIDES,
countryNameOverrides = COUNTRY_NAMES_OVERRIDES,
languageOrder = LANGUAGE_ORDER,
skipCountryTypes = COUNTRY_SKIP_TYPES
}

Modul:LocationAndCountry

2024-07-14T20:23:25Z

Sergiu: Pagină nouă: -- will display a wikidata property representing a location, followed by a comma and the name of the country, both with wikilinks -- the first argument specifies the parameter to be displayed -- the second argument specifies the entity ID -- the third argument specifies a timestamp showing the moment in time for which the country is to be identified -- the fourth argument specifies the maximum number of values to be processed (default 1) -- the fifth argument specifies the se...

-- will display a wikidata property representing a location, followed by a comma and the name of the country, both with wikilinks
-- the first argument specifies the parameter to be displayed
-- the second argument specifies the entity ID
-- the third argument specifies a timestamp showing the moment in time for which the country is to be identified
-- the fourth argument specifies the maximum number of values to be processed (default 1)
-- the fifth argument specifies the separator to use when displaying multiple values
local getArgs = require('Modul:Arguments').getArgs
local Wikidata = require('Modul:Wikidata')
local lacData = mw.loadData('Modul:LocationAndCountry/data')
local TableTools = require('Modul:TableTools')
local GregorianDate = require('Modul:GregorianDate')
local DateUtils = require('Modul:DateUtils')
local Set = require('Modul:Set')
local illWd = require('Modul:Ill-wd').fromArgs
local Transliteration = require('Modul:Transliteration')
local getValueByTimestamp = require('Modul:TimestampedTable').getValueByTimestamp
local p = {}

local function getClaimsForParam(entity, param)
local claims = nil
local workingEntityId = nil
if type(entity) == 'table' then
workingEntityId = entity.id
claims = entity:getBestStatements(param)
else
workingEntityId = entity
if not workingEntityId then workingEntityId = mw.wikibase.getEntityIdForCurrentPage() end
if type(entity) == 'number' then workingEntityId = 'Q' .. tostring(entity) end
if workingEntityId == nil then return '' end
claims = mw.wikibase.getBestStatements(workingEntityId, param)
end
return claims, workingEntityId
end

local function getTimestamp(timestamp, workingEntityId)
local ts = nil
if timestamp then
if type(timestamp) == 'string' and mw.ustring.gmatch(timestamp, 'P%d+') then
local wdDates = Wikidata.findDateValues(timestamp, workingEntityId)
if wdDates then for _,eachWdDate in ipairs(wdDates) do
if Wikidata.isClaimTrue(eachWdDate.claim) and Wikidata.hasValueSnak(eachWdDate.claim) then
ts = GregorianDate.convertToGregorianIfInInterval(eachWdDate)
break
end
end end
end
if ts == nil and type(timestamp) == 'string' and mw.ustring.match(timestamp, '^%d+') then
ts = DateUtils.parseYear(timestamp)
elseif ts == nil and type(timestamp) == 'table' and timestamp.year then
ts = timestamp
end
end
return ts
end

local function getUatsAndCountryFromQuals(claim)
if not Wikidata.isClaimTrue(claim) or not claim.qualifiers then return nil end
local country = nil
local uats = {}
if claim.qualifiers['P17'] then for _,eachCountryQual in ipairs(claim.qualifiers['P17']) do
if Wikidata.isValueSnak(eachCountryQual) then
country = eachCountryQual.datavalue.value.id
break
end
end end

if claim.qualifiers['P131'] then for _,eachUatQual in ipairs(claim.qualifiers['P131']) do
if Wikidata.isValueSnak(eachUatQual) then
table.insert(uats, eachUatQual.datavalue.value.id)
end
end end

return uats, country
end

local function getClaimForTimestamp(entityId, propId, ts)
local timestampedClaim = Wikidata.findClaimForTimestamp(entityId, propId, ts)
if timestampedClaim and Wikidata.hasValueSnak(timestampedClaim) then
local retVal = timestampedClaim
local claimTs = nil
if timestampedClaim.qualifiers and timestampedClaim.qualifiers['P582'] then
for _,endTQual in ipairs(timestampedClaim.qualifiers['P582']) do if Wikidata.isValueSnak(endTQual) then
claimTs = GregorianDate.convertToGregorianIfInInterval(DateUtils.extractDateFromWikidataSnak(endTQual))
break
end end
end
return retVal, claimTs
end
return nil, nil
end

local function getCountryIdForTimestamp(entityId, ts)
local countryClaim, retTs = getClaimForTimestamp(entityId, 'P17', ts)

if countryClaim and Wikidata.hasValueSnak(countryClaim) then
return countryClaim.mainsnak.datavalue.value.id, retTs
else
return Wikidata.loadOneValueInChain({entityId, 'P17', 'raw'}), nil
end
end

-- returns 0, 1 or 2 - the number of admin units to be pulled
local function shouldPullUats(entityId, countryId)
-- villages, rural settlements, should get 2 uats
if Wikidata.isA(entityId, lacData.adminUnitExpandableLocationTypes) then
return 2
end
-- locations in federal countries should get at least one UAT regardless of size
if countryId and (Wikidata.isA(countryId, { 'Q22676603', 'Q43702' })
or TableTools.contains(lacData.adminUnitExpandableCountries, countryId)) then
return 1
end
-- only big cities should have just the country
if not Wikidata.isA(entityId, {'Q1549591', 'Q1637706', 'Q200250'}) then
return 1
end
return 0
end

local function recurseUats(entityId, ts)
local crtUatId = entityId
local crtCountryId = Wikidata.loadOneValueInChain({entityId, 'P17', 'raw'})
local timestampedCountryId = getCountryIdForTimestamp(entityId, ts)
local uatList = {}
while crtUatId and crtUatId ~= crtCountryId and crtUatId ~= timestampedCountryId do
local timestampedUatClaim = Wikidata.findClaimForTimestamp(crtUatId, 'P131', ts)
crtUatId = timestampedUatClaim and Wikidata.hasValueSnak(timestampedUatClaim) and timestampedUatClaim.mainsnak.datavalue.value.id or Wikidata.loadOneValueInChain({crtUatId, 'P131', 'raw'})
if (TableTools.contains(uatList, crtUatId)) then
break
end
table.insert(uatList, crtUatId)
end
local uatListCountryId = nil
if #uatList > 0 and (uatList[#uatList] == crtCountryId or uatList[#uatList] == timestampedCountryId or Wikidata.isA(uatList[#uatList], {'Q6256'})) then
uatListCountryId = table.remove(uatList, #uatList)
end
return uatList, uatListCountryId
end

local function shouldSkipLocation(entityId)
return Wikidata.isA(entityId, lacData.escalatableLocationTypes)
end

local function trimUats(uatList)
while #uatList > 0 and (Wikidata.isA(uatList[1], lacData.skippableUatTypes) or TableTools.contains(lacData.skippableUats, uatList[1])) do
table.remove(uatList, 1)
end
while #uatList > 0 and (Wikidata.isA(uatList[#uatList], lacData.skippableUatTypes) or TableTools.contains(lacData.skippableUats, uatList[#uatList])) do
table.remove(uatList, #uatList)
end
return uatList
end

local function resolvePartName(partId, ts, crtCountryId, uats)
if lacData.locationNameOverrides[partId] then

local timestampedLabel = getValueByTimestamp(lacData.locationNameOverrides[partId], ts)
return illWd(partId, timestampedLabel)
end

local offLangCodes = { 'ro' }
local offLangSource = nil
local countryId = getCountryIdForTimestamp(partId, ts)

if TableTools.contains(lacData.invariantLocations, partId) or
(crtCountryId and TableTools.contains(lacData.invariantLocationCountries, crtCountryId))
or TableTools.size(Set.valueIntersection(recurseUats(partId), lacData.invariantLocationUats)) > 0
or Wikidata.isA(partId, lacData.invariantLocationTypes) then
offLangCodes = { 'ro' }
else
-- look for (1) official language of the location
local officialLangAtTsClaim = getClaimForTimestamp(partId, 'P37', ts)
local officialLangClaims = officialLangAtTsClaim and { officialLangAtTsClaim } or Wikidata.findBestClaimsForProperty(partId, 'P37')
-- (2) official language of one of the UATs
if not officialLangClaims or #officialLangClaims == 0 then
for uatIdx,eachUat in ipairs(uats or {}) do
local uatOfficialLangAtTsClaim = getClaimForTimestamp(eachUat, 'P37', ts)
local uatOfficialLangClaims = uatOfficialLangAtTsSnak and {uatOfficialLangAtTsClaim } or Wikidata.findBestClaimsForProperty(eachUat, 'P37')
if not officialLangClaims or #officialLangClaims == 0 then
officialLangClaims = uatOfficialLangClaims
offLangSource = { qId = eachUat, srcType = 'uat', srcIdx = uatIdx }
end
end
else
offLangSource = { qId = partId, srcType = 'part' }
end
-- (3) official language of the country
if not officialLangClaims or #officialLangClaims == 0 then
if not countryId then return illWd(partId) end
officialLangClaims = Wikidata.findBestClaimsForProperty(countryId, 'P37')
offLangSource = { qId = countryId, srcType = 'country' }
end

for _,eachOffLangClaim in ipairs(officialLangClaims) do
if Wikidata.hasValueSnak(eachOffLangClaim) and (not eachOffLangClaim.qualifiers or not eachOffLangClaim.qualifiers['P518']) then
local eachOffLangId = eachOffLangClaim.mainsnak.datavalue.value.id
local writingSystemQueue = Wikidata.getBestEntityIdsList(eachOffLangId, 'P282')
local writingSystem = writingSystemQueue and table.remove(writingSystemQueue, 1)
while writingSystem and writingSystem ~= '' and writingSystem ~= 8229 do
TableTools.appendAll(writingSystemQueue, Wikidata.getBestEntityIdsList(writingSystem, 'P282'))
writingSystem = table.remove(writingSystemQueue, 1)
end
local offLangCode = Wikidata.loadOneValueInChain({eachOffLangId, 'P218'})
if offLangCode and offLangCode ~= '' then
if writingSystem == 8229 or Transliteration.isTransliterationSupported(offLangCode) then
table.insert(offLangCodes, offLangCode)
end
end
end
end
end
if #offLangCodes > 1 and offLangSource then
--search config order
local configOrder = lacData.languageOrder[offLangSource.qId]
if offLangSource.srcType == 'part' or offLangSource.srcType == 'uat' then
local startIdx = offLangSource.srcType == 'uat' and offLangSource.srcIdx or 1
local crtIdx = startIdx
while not configOrder and crtIdx <= #(uats or {}) do
configOrder = configOrder or lacData.languageOrder[uats[crtIdx]]
crtIdx = crtIdx + 1
end
configOrder = configOrder or lacData.languageOrder[countryId]
end

if configOrder then
local sortedOffLangCodes = {}
local unknownOffLangCodes = {}
for _,eachLang in ipairs(configOrder) do
if TableTools.contains(offLangCodes, eachLang) then
table.insert(sortedOffLangCodes, eachLang)
end
end
for _,eachLang in ipairs(offLangCodes) do
if not TableTools.contains(sortedOffLangCodes, eachLang) then
table.insert(sortedOffLangCodes, eachLang)
end
end
offLangCodes = sortedOffLangCodes
end
end
for _,offLangCode in ipairs(offLangCodes) do
local wdPropForName = Wikidata.isA(partId, lacData.shortNameLocationTypes) and 'P1813' or 'P1448'

local officialNameClaim = Wikidata.findClaimForTimestamp(partId, wdPropForName, ts, offLangCode)
if officialNameClaim and Wikidata.isClaimTrue(officialNameClaim) and Wikidata.hasValueSnak(officialNameClaim) then
local nameInOffLang = officialNameClaim.mainsnak.datavalue.value.text
if wdPropForName == 'P1448' and (not officialNameClaim.qualifiers or not officialNameClaim.qualifiers['P582']) then -- if this is a former name, use it
-- if this is the current name, then just get the label from that language
nameInOffLang = mw.wikibase.getLabelByLang(partId, offLangCode)
end
return illWd(partId, Transliteration.isTransliterationSupported(offLangCode) and Transliteration.transliterate(nameInOffLang, offLangCode) or nameInOffLang)
end
end
for _,offLangCode in ipairs(offLangCodes) do
local labelInLang = Wikidata.findLabel(partId, offLangCode)
if Transliteration.isTransliterationSupported(offLangCode) then
labelInLang = Transliteration.transliterate(labelInLang, offLangCode)
end
return illWd(partId, labelInLang)
end
return nil
end

local function resolvePartNames(partIds, ts, crtCountryId, uats)
if not partIds then return nil end
local res = {}
for _,partId in ipairs(partIds) do
table.insert(res, resolvePartName(partId, ts, crtCountryId, uats))
end
return res
end

local function collapseCapitalledUat(locationEntityId, uatEntitiesIds)
if not uatEntitiesIds or #uatEntitiesIds == 0 then return uatEntitiesIds end
local out = {}
local firstUatEntCapital = Wikidata.loadOneValueInChain({uatEntitiesIds[1], 'P36', 'raw'})
if not firstUatEntCapital or firstUatEntCapital ~= locationEntityId then
table.insert(out, uatEntitiesIds[1])
end
for idx = 2,#uatEntitiesIds do table.insert(out, uatEntitiesIds[idx]) end
return out

end

local function displayFromParams(param, entity, timestamp, maxvalues, separator, enableRefs)

if param == nil then return '' end

local claims, workingEntityId = getClaimsForParam(entity, param)

local ts = getTimestamp(timestamp, workingEntityId)

local valueList = {}
local maxvalues = maxvalues or 1
if claims and 0 < #claims then
for _,actualClaim in ipairs(claims) do
local uatEntitiesIds = {}
local countryId = nil
local locationEntityId = nil
if Wikidata.isClaimTrue(actualClaim) and Wikidata.hasValueSnak(actualClaim) then
-- get admin unit(s) and/or country from qualifiers
uatEntitiesIds, countryId = getUatsAndCountryFromQuals(actualClaim)
locationEntityId = actualClaim.mainsnak.datavalue.value.id
local countryByTs, countryTs = getCountryIdForTimestamp(locationEntityId, ts)

countryId = countryId or countryByTs
-- (1) see if admin unit needs to be pulled
local uatsEnabled = shouldPullUats(locationEntityId, countryId)
-- (2) pull all admin units based on timestamp until reaching nothing, self or country
local allUats, uatCountryId = recurseUats(locationEntityId, ts)
if uatsEnabled > 0 then
if uatCountryId and uatCountryId ~= countryId and not countryTs then
countryId = uatCountryId
elseif countryTs and uatCountryId and uatCountryId ~= countryId then
allUats = {}
end
-- (3) if the location itself is to be skipped, keep the first admin unit in the list as location
while #allUats > 0 and shouldSkipLocation(locationEntityId) do
locationEntityId = table.remove(allUats, 1)
end
-- (4) apply rules to eliminate from both ends
local trimmedUats = trimUats(allUats)
-- (5) keep only first and last (or the only one if only one is left)
uatEntitiesIds = #trimmedUats == 0 and {} or #trimmedUats == 1 and trimmedUats or uatsEnabled == 1 and {trimmedUats[#trimmedUats]} or {trimmedUats[1], trimmedUats[#trimmedUats]}
if #uatEntitiesIds > 1 then
uatEntitiesIds = collapseCapitalledUat(locationEntityId, uatEntitiesIds)
end
else
uatEntitiesIds = {}
end
local allPartIds = {}
table.insert(allPartIds, locationEntityId)
for __,eachUat in ipairs(uatEntitiesIds) do table.insert(allPartIds, eachUat) end
local allPartLinks = resolvePartNames(allPartIds, ts, Wikidata.loadOneValueInChain({locationEntityId, 'P17', 'raw'}), allUats)
if not countryId and uatEntitiesIds and #uatEntitiesIds > 0 then
countryId = Wikidata.loadOneValueInChain({uatEntitiesIds[#uatEntitiesIds], 'P17', 'raw'})
end
if countryId and not TableTools.contains(allPartIds, countryId)
and not Wikidata.isA(#uatEntitiesIds > 0 and uatEntitiesIds[#uatEntitiesIds] or locationEntityId, lacData.skipCountryTypes) then
table.insert(allPartLinks, lacData.countryNameOverrides[countryId] and illWd(countryId, lacData.countryNameOverrides[countryId]) or resolvePartName(countryId, ts, countryId))
end
local crtVal = table.concat(allPartLinks, ', ')
if enableRefs then crtVal = crtVal .. Wikidata.outputReferences(actualClaim) end
table.insert(valueList, crtVal)
end
if #valueList >= maxvalues then
break
end
end
end
return table.concat(valueList, separator or '; ')
end
p.displayFromParams = displayFromParams

local function displayFromArgs(args)
local param = nil
local entity = nil
local timestamp = nil
local maxvalues = 1
local separator = '; '
if args[1] or args['param'] then
param = args[1] or args['param']
end
if args[2] or args['entityId'] then
entity = args[2] or args['entityId']
end
if args[3] or args['timestamp'] then
timestamp = args[3] or args['timestamp']
end
if args[4] or args['maxvalues'] then
maxvalues = tonumber(args[4] or args['maxvalues'])
end
if args[5] or args['separator'] then
separator = args[5] or args['separator']
end
return displayFromParams(param, entity, timestamp, maxvalues, separator)
end
p.displayFromArgs = displayFromArgs

p.displayFromFrame = function(frame)
local args = getArgs(frame, { frameOnly = true })
return displayFromArgs(args)
end

p.displayFromParentFrame = function(frame)
local args = getArgs(frame, { parentOnly = true})
return displayFromArgs(args)
end

return p

Modul:Set

2024-07-14T20:22:45Z

Sergiu: Pagină nouă: --[[ ------------------------------------------------------------------------------------ -- Set -- -- -- -- This module includes a number of set operations for dealing with Lua tables. -- -- It currently has union, intersection and complement functions for both -- -- key/value pairs and for values only....

--[[
------------------------------------------------------------------------------------
-- Set --
-- --
-- This module includes a number of set operations for dealing with Lua tables. --
-- It currently has union, intersection and complement functions for both --
-- key/value pairs and for values only. --
------------------------------------------------------------------------------------
--]]

-- Get necessary libraries and functions
local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType
local tableTools = require('Module:TableTools')

local p = {}

--[[
------------------------------------------------------------------------------------
-- Helper functions
------------------------------------------------------------------------------------
--]]

-- Makes a set from a table's values. Returns an array of all values with
-- duplicates removed.
local function makeValueSet(t)
local isNan = tableTools.isNan
local ret, exists = {}, {}
for k, v in pairs(t) do
if isNan(v) then
-- NaNs are always unique, and they can't be table keys, so don't
-- check for existence.
ret[#ret + 1] = v
elseif not exists[v] then
exists[v] = true
ret[#ret + 1] = v
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- union
--
-- This returns the union of the key/value pairs of n tables. If any of the tables
-- contain different values for the same table key, the table value is converted
-- to an array holding all of the different values.
------------------------------------------------------------------------------------
--]]
function p.union(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'union' (minimum is 2, received " .. lim .. ')', 2)
end
local ret, trackArrays = {}, {}
for i = 1, lim do
local t = select(i, ...)
checkType('union', i, t, 'table')
for k, v in pairs(t) do
local retKey = ret[k]
if retKey == nil then
ret[k] = v
elseif retKey ~= v then
if trackArrays[k] then
local array = ret[k]
local valExists
for _, arrayVal in ipairs(array) do
if arrayVal == v then
valExists = true
break
end
end
if not valExists then
array[#array + 1] = v
ret[k] = array
end
else
ret[k] = {ret[k], v}
trackArrays[k] = true
end
end
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- valueUnion
--
-- This returns the union of the values of n tables, as an array. For example, for
-- the tables {1, 3, 4, 5, foo = 7} and {2, bar = 3, 5, 6}, union will return
-- {1, 2, 3, 4, 5, 6, 7}.
------------------------------------------------------------------------------------
--]]
function p.valueUnion(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'valueUnion' (minimum is 2, received " .. lim .. ')', 2)
end
local isNan = tableTools.isNan
local ret, exists = {}, {}
for i = 1, lim do
local t = select(i, ...)
checkType('valueUnion', i, t, 'table')
for k, v in pairs(t) do
if isNan(v) then
ret[#ret + 1] = v
elseif not exists[v] then
ret[#ret + 1] = v
exists[v] = true
end
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- intersection
--
-- This returns the intersection of the key/value pairs of n tables. Both the key
-- and the value must match to be included in the resulting table.
------------------------------------------------------------------------------------
--]]
function p.intersection(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'intersection' (minimum is 2, received " .. lim .. ')', 2)
end
local ret, track, pairCounts = {}, {}, {}
for i = 1, lim do
local t = select(i, ...)
checkType('intersection', i, t, 'table')
for k, v in pairs(t) do
local trackVal = track[k]
if trackVal == nil then
track[k] = v
pairCounts[k] = 1
elseif trackVal == v then
pairCounts[k] = pairCounts[k] + 1
end
end
end
for k, v in pairs(track) do
if pairCounts[k] == lim then
ret[k] = v
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- valueIntersection
--
-- This returns the intersection of the values of n tables, as an array. For
-- example, for the tables {1, 3, 4, 5, foo = 7} and {2, bar = 3, 5, 6},
-- intersection will return {3, 5}.
------------------------------------------------------------------------------------
--]]

function p.valueIntersection(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'valueIntersection' (minimum is 2, received " .. lim .. ')', 2)
end
local isNan = tableTools.isNan
local vals, ret = {}, {}
local isSameTable = true -- Tracks table equality.
local tableTemp -- Used to store the table from the previous loop so that we can check table equality.
for i = 1, lim do
local t = select(i, ...)
checkType('valueIntersection', i, t, 'table')
if tableTemp and t ~= tableTemp then
isSameTable = false
end
tableTemp = t
t = makeValueSet(t) -- Remove duplicates
for k, v in pairs(t) do
-- NaNs are never equal to any other value, so they can't be in the intersection.
-- Which is lucky, as they also can't be table keys.
if not isNan(v) then
local valCount = vals[v] or 0
vals[v] = valCount + 1
end
end
end
if isSameTable then
-- If all the tables are equal, then the intersection is that table (including NaNs).
-- All we need to do is convert it to an array and remove duplicate values.
return makeValueSet(tableTemp)
end
for val, count in pairs(vals) do
if count == lim then
ret[#ret + 1] = val
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- complement
--
-- This returns the relative complement of t1, t2, ..., in tn. The complement
-- is of key/value pairs. This is equivalent to all the key/value pairs that are in
-- tn but are not in t1, t2, ... tn-1.
------------------------------------------------------------------------------------
--]]
function p.complement(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'complement' (minimum is 2, received " .. lim .. ')', 2)
end
--[[
-- Now we know that we have at least two sets.
-- First, get all the key/value pairs in tn. We can't simply make ret equal to tn,
-- as that will affect the value of tn for the whole module.
--]]
local tn = select(lim, ...)
checkType('complement', lim, tn, 'table')
local ret = tableTools.shallowClone(tn)
-- Remove all the key/value pairs in t1, t2, ..., tn-1.
for i = 1, lim - 1 do
local t = select(i, ...)
checkType('complement', i, t, 'table')
for k, v in pairs(t) do
if ret[k] == v then
ret[k] = nil
end
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- valueComplement
--
-- This returns an array containing the relative complement of t1, t2, ..., in tn.
-- The complement is of values only. This is equivalent to all the values that are
-- in tn but are not in t1, t2, ... tn-1.
------------------------------------------------------------------------------------
--]]
function p.valueComplement(...)
local lim = select('#', ...)
if lim < 2 then
error("too few arguments to 'valueComplement' (minimum is 2, received " .. lim .. ')', 2)
end
local isNan = tableTools.isNan
local ret, exists = {}, {}
for i = 1, lim - 1 do
local t = select(i, ...)
checkType('valueComplement', i, t, 'table')
t = makeValueSet(t) -- Remove duplicates
for k, v in pairs(t) do
if not isNan(v) then
-- NaNs cannot be table keys, and they are also unique so cannot be equal to anything in tn.
exists[v] = true
end
end
end
local tn = select(lim, ...)
checkType('valueComplement', lim, tn, 'table')
tn = makeValueSet(tn) -- Remove duplicates
for k, v in pairs(tn) do
if isNan(v) or exists[v] == nil then
ret[#ret + 1] = v
end
end
return ret
end

function p.contains(set, element)
checkType('insert', 1, set, 'table', false)
for k,v in pairs(set) do
if v == element then return true end
end
return false
end

function p.insert(set, element)
checkType('insert', 1, set, 'table', false)
if not p.contains(set, element) then
table.insert(set, element)
end
end

return p

Modul:Transliteration/langdata

2024-07-14T20:22:01Z

Sergiu: Pagină nouă: local map = { ['sr'] = { ['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['г'] = 'g', ['д'] = 'd', ['ђ'] = 'đ', ['е'] = 'e', ['ж'] = 'ž', ['з'] = 'z', ['и'] = 'i', ['ј'] = 'j', ['к'] = 'k', ['л'] = 'l', ['љ'] = 'lj', ['м'] = 'm', ['н'] = 'n', ['њ'] = 'nj', ['о'] = 'o', ['п'] = 'p', ['р'] = 'r', ['с'] = 's', ['т'] = 't', ['ћ'] = 'ć', ['у'] = 'u', ['ф'] = 'f', ['х'] = 'h', ['ц'] = 'c', ['ч'] = 'č', ['џ'] = 'dž', ['ш'] = 'š' }, ['mk'] = {...

local map = {
['sr'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['г'] = 'g', ['д'] = 'd', ['ђ'] = 'đ',
['е'] = 'e', ['ж'] = 'ž', ['з'] = 'z', ['и'] = 'i', ['ј'] = 'j', ['к'] = 'k',
['л'] = 'l', ['љ'] = 'lj', ['м'] = 'm', ['н'] = 'n', ['њ'] = 'nj', ['о'] = 'o',
['п'] = 'p', ['р'] = 'r', ['с'] = 's', ['т'] = 't', ['ћ'] = 'ć', ['у'] = 'u',
['ф'] = 'f', ['х'] = 'h', ['ц'] = 'c', ['ч'] = 'č', ['џ'] = 'dž', ['ш'] = 'š'
},
['mk'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['г'] = 'g', ['д'] = 'd', ['ђ'] = 'đ',
['е'] = 'e', ['ж'] = 'ž', ['з'] = 'z', ['и'] = 'i', ['ј'] = 'j', ['к'] = 'k',
['л'] = 'l', ['љ'] = 'lj', ['м'] = 'm', ['н'] = 'n', ['њ'] = 'nj', ['о'] = 'o',
['п'] = 'p', ['р'] = 'r', ['с'] = 's', ['т'] = 't', ['ћ'] = 'ć', ['у'] = 'u',
['ф'] = 'f', ['х'] = 'h', ['ц'] = 'c', ['ч'] = 'č', ['џ'] = 'dž', ['ш'] = 'š',
['ѓ'] = 'ǵ', ['ѕ'] = 'dz', ['ќ'] = 'ḱ'
},
['uk'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['д'] = 'd', ['г'] = 'h', ['е'] = 'e',
['ж'] = 'j', ['з'] = 'z', ['и'] = 'î', ['й'] = 'i', ['і'] = 'i', ['к'] = 'k',
['л'] = 'l', ['м'] = 'm', ['н'] = 'n', ['о'] = 'o', ['п'] = 'p', ['р'] = 'r',
['с'] = 's', ['т'] = 't', ['у'] = 'u', ['ф'] = 'f', ['х'] = 'h', ['ц'] = 'ț',
['ш'] = 'ș', ['ю'] = 'iu', ['ʼ'] = '', ['є'] = 'ie',

['ґ'] = { ['def'] = 'g', ['ah'] = { ['е'] = 'gh', ['і'] = 'gh', ['ї'] = 'gh', ['є'] = 'gh', ['я'] = 'gh' } },
['ї'] = { ['def'] = 'ii', ['bh'] = { ['і'] = 'i' } },
['ч'] = { ['def'] = 'ci', ['ah'] = { ['а'] = 'ce', ['е'] = 'c', ['і'] = 'c', ['ї'] = 'c', ['є'] = 'c', ['я'] = 'c', ['є'] = 'c' } },
['щ'] = { ['def'] = 'șci', ['ah'] = { ['а'] = 'șce', ['е'] = 'șc', ['і'] = 'șc', ['ї'] = 'șc', ['є'] = 'șc', ['я'] = 'șc', ['є'] = 'șc' } },
['я'] = { ['def'] = 'ea', ['bh'] = { [''] = 'ia', [' '] = 'ia', ['а'] = 'ia', ['е'] = 'ia', ['и'] = 'ia', ['й'] = 'ia', ['і'] = 'a', ['о'] = 'ia', ['у'] = 'ia', ['я'] = 'ia', ['є'] = 'ia', ['ь'] = 'ia' } },
['ь'] = { ['def'] = '', ['ah'] = { ['е'] = 'i' } },
},
['ru'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['д'] = 'd', ['е'] = 'e', ['ё'] = 'io',
['ж'] = 'j', ['з'] = 'z', ['и'] = 'i', ['к'] = 'k', ['э'] = 'ie', ['ы'] = 'î',
['л'] = 'l', ['м'] = 'm', ['н'] = 'n', ['о'] = 'o', ['п'] = 'p', ['р'] = 'r',
['с'] = 's', ['т'] = 't', ['у'] = 'u', ['ф'] = 'f', ['х'] = 'h', ['ц'] = 'ț',
['ш'] = 'ș', ['ю'] = 'iu', ['ъ'] = '', ['є'] = 'ie',

['й'] = { ['def'] = 'i', ['ah'] = { [''] = { ['bh'] = { ['и'] = '' } }, [' '] = { ['bh'] = { ['и'] = '' } } } },
['г'] = { ['def'] = 'g', ['ah'] = { ['е'] = 'gh', ['і'] = 'gh', ['ї'] = 'gh', ['є'] = 'gh', ['я'] = 'gh' } },
['ч'] = { ['def'] = 'ci', ['ah'] = { ['а'] = 'ce', ['е'] = 'c', ['и'] = 'c', ['є'] = 'c', ['я'] = 'c', ['є'] = 'c' } },
['щ'] = { ['def'] = 'șci', ['ah'] = { ['а'] = 'șce', ['е'] = 'șc', ['і'] = 'șc', ['ї'] = 'șc', ['є'] = 'șc', ['я'] = 'șc', ['є'] = 'șc' } },
['я'] = { ['def'] = 'ea', ['bh'] = { [''] = 'ia', [' '] = 'ia', ['а'] = 'ia', ['е'] = 'ia', ['и'] = 'a', ['й'] = 'ia', ['і'] = 'a', ['о'] = 'ia', ['у'] = 'ia', ['я'] = 'ia', ['є'] = 'ia', ['ь'] = 'ia' } },
['ь'] = { ['def'] = '', ['ah'] = { ['е'] = 'i' } },
},
['bg'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['д'] = 'd', ['е'] = 'e',
['ж'] = 'j', ['з'] = 'z', ['и'] = 'i', ['э'] = 'ie', ['щ'] = 'șt',
['л'] = 'l', ['м'] = 'm', ['н'] = 'n', ['о'] = 'o', ['п'] = 'p', ['р'] = 'r',
['с'] = 's', ['т'] = 't', ['у'] = 'u', ['ф'] = 'f', ['х'] = 'h', ['ц'] = 'ț',
['ш'] = 'ș', ['ю'] = 'iu', ['ъ'] = 'ă',

['й'] = { ['def'] = 'i', ['ah'] = { [''] = { ['bh'] = { ['и'] = '' } }, [' '] = { ['bh'] = { ['и'] = '' } } } },
['г'] = { ['def'] = 'g', ['ah'] = { ['е'] = 'gh', ['и'] = 'gh', ['є'] = 'gh', ['я'] = 'gh', ['ь'] = 'ghi' } },
['к'] = { ['def'] = 'k', ['ah'] = { ['ь'] = 'chi' } },
['ч'] = { ['def'] = 'ci', ['ah'] = { ['а'] = 'ce', ['е'] = 'c', ['и'] = 'c', ['є'] = 'c', ['я'] = 'c', ['є'] = 'c' } },
['я'] = { ['def'] = 'ea', ['bh'] = { [''] = 'ia', [' '] = 'ia', ['а'] = 'ia', ['е'] = 'ia', ['и'] = 'a', ['й'] = 'ia', ['о'] = 'ia', ['у'] = 'ia', ['я'] = 'ia', ['ъ'] = 'ia', ['ь'] = 'ia' } },
['ь'] = { ['def'] = '', ['ah'] = { ['е'] = 'i' } },
},
['el'] = {
['α'] = 'a', ['β'] = 'v', ['δ'] = 'd', ['ε'] = 'e', ['ζ'] = 'z', ['η'] = 'i',
['θ'] = 'th', ['ι'] = 'i', ['κ'] = 'k', ['λ'] = 'l', ['ν'] = 'n', ['ξ'] = 'x',
['ο'] = 'o', ['ρ'] = 'r', ['σ'] = 's', ['ς'] = 's', ['τ'] = 't', ['φ'] = 'f',
['χ'] = 'ch', ['ψ'] = 'ps', ['ω'] = 'o', ['ή'] = 'i', ['ά'] = 'a', ['ί'] = 'i',
['ύ'] = 'ý', ['έ'] = 'e', ['ώ'] = 'o',

['γ'] = { def = 'g', ah = { ['γ'] = 'n', ['ξ'] = 'n', ['χ'] = 'n'} },
['υ'] = { def = 'y', bh = { ['ο'] = 'u', ['α'] = 'f', ['ε'] = 'f', ['η'] = 'f' } },
['ύ'] = { def = 'ý', bh = { ['ο'] = 'ù', ['α'] = 'f', ['ε'] = 'f', ['η'] = 'f' } },
['μ'] = { def = 'm', ah = { ['π'] = { def = 'm', bh = { [''] = 'B\226\140\166', [' '] = 'B\226\140\166' } } } },
['π'] = { def = 'p', bh = { ['μ'] = { def = 'p', ah = { [''] = '\226\140\171b', [' '] = '\226\140\171b' } } } },
},
['be'] = {
['а'] = 'a', ['б'] = 'b', ['в'] = 'v', ['д'] = 'd', ['г'] = 'h', ['ь'] = '\204\129',
['ж'] = 'ž', ['з'] = 'z', ['й'] = 'j', ['і'] = 'i', ['к'] = 'k', ['ы'] = 'y',
['л'] = 'l', ['м'] = 'm', ['н'] = 'n', ['о'] = 'o', ['п'] = 'p', ['р'] = 'r',
['с'] = 's', ['т'] = 't', ['у'] = 'u', ['ў'] = 'ŭ', ['ф'] = 'f', ['х'] = 'ch', ['ц'] = 'c',
['ш'] = 'š', ['ч'] = 'č' , ['э'] = 'e',

['ю'] = { def = 'iu', bh = { [''] = 'ju', [' '] = 'ju', ['э'] = 'ju', ['а'] = 'ju', ['й'] = 'ju', ['і'] = 'ju', ['о'] = 'ju', ['у'] = 'ju', ['ў'] = 'ju', ['ы'] = 'ju', ['ь'] = 'ju', ['ю'] = 'ju', ['я'] = 'ju', ['е'] = 'ju', ['ё'] = 'ju' } },
['я'] = { def = 'ia', bh = { [''] = 'ja', [' '] = 'ja', ['э'] = 'ja', ['а'] = 'ja', ['й'] = 'ja', ['і'] = 'ja', ['о'] = 'ja', ['у'] = 'ja', ['ў'] = 'ja', ['ы'] = 'ja', ['ь'] = 'ja', ['ю'] = 'ja', ['я'] = 'ja', ['е'] = 'ja', ['ё'] = 'ja' } },
['е'] = { def = 'ie', bh = { [''] = 'je', [' '] = 'je', ['э'] = 'je', ['а'] = 'je', ['й'] = 'je', ['і'] = 'je', ['о'] = 'je', ['у'] = 'je', ['ў'] = 'je', ['ы'] = 'je', ['ь'] = 'je', ['ю'] = 'je', ['я'] = 'je', ['е'] = 'je', ['ё'] = 'je' } },
['ё'] = { def = 'io', bh = { [''] = 'jo', [' '] = 'jo', ['э'] = 'jo', ['а'] = 'jo', ['й'] = 'jo', ['і'] = 'jo', ['о'] = 'jo', ['у'] = 'jo', ['ў'] = 'jo', ['ы'] = 'jo', ['ь'] = 'jo', ['ю'] = 'jo', ['я'] = 'jo', ['е'] = 'jo', ['ё'] = 'jo' } },
},
['kk'] = {
['а'] = 'a', ['ә'] = 'ä', ['б'] = 'b', ['д'] = 'd', ['е'] = 'e', ['ф'] = 'f',
['г'] = 'g', ['ғ'] = 'ğ', ['х'] = 'h', ['һ'] = 'h', ['і'] = 'ı', ['и'] = 'i',
['й'] = 'i', ['ж'] = 'j', ['к'] = 'k', ['л'] = 'l', ['м'] = 'm', ['н'] = 'n',
['ң'] = 'ŋ', ['о'] = 'o', ['ө'] = 'ö', ['п'] = 'p', ['қ'] = 'q', ['р'] = 'r',
['с'] = 's', ['ш'] = 'ş', ['т'] = 't', ['у'] = 'u', ['ұ'] = 'ū', ['ү'] = 'ü',
['в'] = 'v', ['ы'] = 'y', ['з'] = 'z'
},
['hy'] = {
['ա'] = 'a', ['բ'] = 'b', ['գ'] = 'g', ['դ'] = 'd', ['ե'] = 'e', ['է'] = 'ē',
['ը'] = 'ë', ['թ'] = 't’', ['ժ'] = 'ž', ['զ'] = 'z', ['ի'] = 'i', ['լ'] = 'l',
['խ'] = 'x', ['ծ'] = 'ç', ['կ'] = 'k', ['հ'] = 'h', ['ձ'] = 'j', ['ղ'] = 'ġ',
['մ'] = 'm', ['յ'] = 'y', ['ն'] = 'n', ['շ'] = 'š', ['ո'] = 'o', ['չ'] = 'č',
['պ'] = 'p', ['ջ'] = 'ǰ', ['ռ'] = 'ṙ', ['ս'] = 's', ['վ'] = 'v', ['տ'] = 't',
['ր'] = 'r', ['ց'] = 'c’', ['ւ'] = 'w', ['փ'] = 'p’', ['ք'] = 'k’', ['օ'] = 'ò',
['ֆ'] = 'f', ['և'] = 'ew', ['ճ'] = 'č\204\163',

['Ջ'] = 'J̌',
},
['ka'] = {
['ა'] = 'a', ['ბ'] = 'b', ['გ'] = 'g', ['დ'] = 'd', ['ე'] = 'e', ['ვ'] = 'v',
['ზ'] = 'z', ['ჱ'] = 'ē', ['თ'] = 't\204\149', ['ი'] = 'i', ['კ'] = 'k',
['ლ'] = 'l', ['მ'] = 'm', ['ნ'] = 'n', ['ჲ'] = 'y', ['ო'] = 'o', ['პ'] = 'p',
['ჟ'] = 'ž', ['რ'] = 'r', ['ს'] = 's', ['ტ'] = 't', ['ჳ'] = 'w', ['უ'] = 'u',
['ფ'] = 'p\204\149', ['ქ'] = 'k\204\149', ['ღ'] = 'ḡ', ['ყ'] = 'q', ['შ'] = 'š',
['ჩ'] = 'č\204\149', ['ც'] = 'c\204\149', ['ძ'] = 'j', ['წ'] = 'c', ['ჭ'] = 'č',
['ხ'] = 'x', ['ჴ'] = 'ẖ', ['ჯ'] = 'ǰ', ['ჰ'] = 'h', ['ჵ'] = 'ō'
},
--[[
['hi'] = {
['अ'] = 'a', ['\224\164\134'] = 'ā', ['इ'] = 'i', ['ई'] = 'ī', ['उ'] = 'u',
['ऊ'] = 'ū', ['ए'] = 'e', ['ऐ'] = 'ai', ['ओ'] = 'o', ['औ'] = 'au',
['ऋ'] = 'ṛ', ['ॠ'] = 'ṝ', ['ऌ'] = 'ḷ', ['ॡ'] = 'ḹ', ['अं'] = 'ṃ', ['अः'] = 'ḥ',
['अँ'] = '', ['ऽ'] = "'", ['क'] = 'k', ['ख'] = 'kh', ['ग'] = 'g', ['घ'] = 'gh',
['ङ'] = 'ṅ', ['च'] = 'c', ['छ'] = 'ch', ['ज'] = 'j', ['झ'] = 'jh', ['ञ'] = 'ñ',
['ट'] = 'ṭ', ['ठ'] = 'ṭh', ['ड'] = 'ḍ', ['ढ'] = 'ḍh', ['ण'] = 'ṇ', ['त'] = 't',
['थ'] = 'th', ['द'] = 'd', ['ध'] = 'dh', ['न'] = 'n', ['प'] = 'p', ['फ'] = 'ph',
['ब'] = 'b', ['भ'] = 'bh', ['म'] = 'm', ['य'] = 'y', ['र'] = 'r', ['ल'] = 'l',
['व'] = 'v', ['श'] = 'ś', ['ष'] = 'ṣ', ['स'] = 's', ['ह'] = 'h', ['क्ष'] = 'kṣ',
['त्र'] = 'tr', ['ज्ञ'] = 'jñ', ['श्र'] = 'śr',
['क़'] = 'q', ['ख़'] = 'k͟h', ['ग़'] = 'ġ',
['ज़'] = 'z', ['फ़'] = 'f', ['ड़'] = 'ṛ',
['ढ़'] = 'ṛh',
}
]]--
}

map['sr-Cyrl'] = map['sr']

return map

Modul:Transliteration

2024-07-14T20:21:18Z

Sergiu: Pagină nouă: local p = {} local getArgs = require('Modul:Arguments').getArgs local transliterationMaps = mw.loadData('Modul:Transliteration/langdata') local function isTransliterationSupported(langCode) if transliterationMaps[langCode] then return true end return false end p.isTransliterationSupported = isTransliterationSupported local function postProcess(str) local chars = {} local idx = 1 while idx <= mw.ustring.len(str) do local crtChar = mw.ustring.sub(str, idx, idx) if c...

local p = {}
local getArgs = require('Modul:Arguments').getArgs
local transliterationMaps = mw.loadData('Modul:Transliteration/langdata')

local function isTransliterationSupported(langCode)
if transliterationMaps[langCode] then return true end
return false
end
p.isTransliterationSupported = isTransliterationSupported

local function postProcess(str)
local chars = {}
local idx = 1
while idx <= mw.ustring.len(str) do
local crtChar = mw.ustring.sub(str, idx, idx)
if crtChar == '\226\140\166' then
idx = idx + 1
elseif crtChar == '\226\140\171' and #table > 1 then
table.remove(chars, #chars)
else
table.insert(chars, crtChar)
end
idx = idx + 1
end
return table.concat(chars)
end

local function applyConversionRule(conversionRule, crtChar, prevChar, nextChar)
if not conversionRule then
return nil
end
if type(conversionRule) == 'string' then
return conversionRule
end
if type(conversionRule) == 'table' then
return prevChar and conversionRule['bh'] and applyConversionRule(conversionRule['bh'][prevChar], crtChar, prevChar, nextChar)
or nextChar and conversionRule['ah'] and applyConversionRule(conversionRule['ah'][nextChar], crtChar, prevChar, nextChar)
or conversionRule['def']
end
return nil
end

local function transliterate(text, langCode)
if text == nil then return nil end
local map = transliterationMaps[langCode]
local lang = mw.language.new(langCode)
if not map then
error('Transliteration from language ' .. langCode .. ' not supported', 2)
end
local out = ''
for strIdx = 1,mw.ustring.len(text) do
local crtChar = mw.ustring.sub(text, strIdx, strIdx)
local prevChar = strIdx > 1 and lang:lc(mw.ustring.sub(text, strIdx - 1, strIdx - 1)) or ''
local nextChar = strIdx < mw.ustring.len(text) and lang:lc(mw.ustring.sub(text, strIdx + 1, strIdx + 1)) or ''

local convertedChar = applyConversionRule(map[crtChar], crtChar, prevChar, nextChar)
if not convertedChar then
local lcCrtChar = lang:lc(crtChar)
local ucConvertedChar = applyConversionRule(map[lcCrtChar], lcCrtChar, prevChar, nextChar)
convertedChar = ucConvertedChar and lang:ucfirst(ucConvertedChar)
end
out = out .. (convertedChar or crtChar)
end
return postProcess(out)
end
p.transliterate = transliterate

local function transliterateFromFrame(frame)
local args = getArgs(frame)
local text = args.text or args[1]
local lang = args.lang or args[2]
return transliterate(text, lang)
end
p.transliterateFromFrame = transliterateFromFrame

return p

Modul:Plural

2024-07-14T20:20:19Z

Sergiu: Pagină nouă: local getArgs = require('Module:Arguments').getArgs local lang = mw.getLanguage("ro") local p = {} function p.build_first_plural(singular) local plural = mw.loadData("Modul:Plural/data").plural if plural[singular] ~= nil then return plural[singular] else return string.format("%si", singular) end end function p.build_plural(count, singular, first_plural, second_plural) local form if count == 1 then form = singular elseif count == 0 or count ~= nil an...

local getArgs = require('Module:Arguments').getArgs
local lang = mw.getLanguage("ro")
local p = {}

function p.build_first_plural(singular)
local plural = mw.loadData("Modul:Plural/data").plural
if plural[singular] ~= nil then
return plural[singular]
else
return string.format("%si", singular)
end
end

function p.build_plural(count, singular, first_plural, second_plural)
local form
if count == 1 then
form = singular
elseif count == 0 or count ~= nil and (count%100 > 0 and count%100 < 20) then
if first_plural == nil then
form = p.build_first_plural(singular)
else
form = first_plural
end
else
if second_plural == nil and first_plural == nil then
form = "de " .. p.build_first_plural(singular)
elseif first_plural ~= nil then
form = "de " .. first_plural
else
form = second_plural
end
end
return string.format("%s %s", lang:formatNum(count), form)
end

function p.get_plural(frame)
-- if we don't have any args, try to get them from the template
if frame.args[1] == nil then
origArgs = getArgs(frame, { wrappers = { 'Format:Plural' } })
else
origArgs = frame.args
end

local form = ""
local count = lang:parseFormattedNumber(origArgs[1])
local singular = origArgs[2]
local first_plural = nil
local second_plural = nil
if origArgs[3] ~= nil then
first_plural = origArgs[3]
end
if origArgs[4] ~= nil then
local first_plural = origArgs[4]
end

return p.build_plural(count, singular, first_plural, second_plural)
end

function p.get_first_plural(frame)
if frame.args or frame.args[1] == nil then
origArgs = getArgs(frame, { wrappers = { 'Format:Plural' } })
else
origArgs = frame.args
end
return p.build_first_plural(origArgs[1])
end

return p

Modul:LangUtils

2024-07-14T20:18:02Z

Sergiu: Pagină nouă: -- This module contains various utility code for use with language-related modules local langCodes = { ["Q188"] = "de", ["Q1860"] = "en", ["Q7913"] = "ro", ["Q7737"] = "ru", } return langCodes

-- This module contains various utility code for use with language-related modules

local langCodes = {
["Q188"] = "de",
["Q1860"] = "en",
["Q7913"] = "ro",
["Q7737"] = "ru",
}

return langCodes

Modul:Citation/CS1

2024-07-14T20:17:28Z

Sergiu: Pagină nouă: local cs1 ={}; ----------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- local dates, year_date_check, reformat_dates, date_hyphen_to_dash, -- functions in Module:Citation/CS1/Date_validation date_name_xlate local is_set, in_array, substitute, error_comment, set_error, select_one, -- functions in Module:Citation/CS1/Utilities add_maint_cat, wrap_style, safe_for_italics, is_wikilink, make_wikilink; local z ={}...

local cs1 ={};

--[[--------------------------< F O R W A R D D E C L A R A T I O N S >--------------------------------------
]]

local dates, year_date_check, reformat_dates, date_hyphen_to_dash, -- functions in Module:Citation/CS1/Date_validation
date_name_xlate

local is_set, in_array, substitute, error_comment, set_error, select_one, -- functions in Module:Citation/CS1/Utilities
add_maint_cat, wrap_style, safe_for_italics, is_wikilink, make_wikilink;

local z ={}; -- tables in Module:Citation/CS1/Utilities

local extract_ids, extract_id_access_levels, build_id_list, is_embargoed; -- functions in Module:Citation/CS1/Identifiers

local make_coins_title, get_coins_pages, COinS; -- functions in Module:Citation/CS1/COinS

local cfg = {}; -- table of configuration tables that are defined in Module:Citation/CS1/Configuration
local whitelist = {}; -- table of tables listing valid template parameter names; defined in Module:Citation/CS1/Whitelist

--[[----------------------------------------------------------------

delare variables here that have page-wide scope that are not brought in from other modules; thatare created here
and used here

]]

local added_deprecated_cat; -- boolean flag so that the category is added only once
local added_prop_cats = {}; -- list of property categories that have been added to z.properties_cats
local added_vanc_errs; -- boolean flag so we only emit one Vancouver error / category

local Frame; -- holds the module's frame table

--[[--------------------------< F I R S T _ S E T >------------------------------------------------------------

Locates and returns the first set value in a table of values where the order established in the table,
left-to-right (or top-to-bottom), is the order in which the values are evaluated. Returns nil if none are set.

This version replaces the original 'for _, val in pairs do' and a similar version that used ipairs. With the pairs
version the order of evaluation could not be guaranteed. With the ipairs version, a nil value would terminate
the for-loop before it reached the actual end of the list.

]]

local function first_set (list, count)
local i = 1;
while i <= count do -- loop through all items in list
if is_set( list[i] ) then
return list[i]; -- return the first set list member
end
i = i + 1; -- point to next
end
end

--[[--------------------------< A D D _ P R O P _ C A T >--------------------------------------------------------

Adds a category to z.properties_cats using names from the configuration file with additional text if any.

foreign_lang_source and foreign_lang_source_2 keys have a language code appended to them so that multiple languages
may be categorized but multiples of the same language are not categorized.

added_prop_cats is a table declared in page scope variables above

]]

local function add_prop_cat (key, arguments)
if not added_prop_cats [key] then
added_prop_cats [key] = true; -- note that we've added this category
key = key:gsub ('(foreign_lang_source_?2?)%a%a%a?', '%1'); -- strip lang code from keyname
table.insert( z.properties_cats, substitute (cfg.prop_cats [key], arguments)); -- make name then add to table
end
end

--[[--------------------------< A D D _ V A N C _ E R R O R >----------------------------------------------------

Adds a single Vancouver system error message to the template's output regardless of how many error actually exist.
To prevent duplication, added_vanc_errs is nil until an error message is emitted.

added_vanc_errs is a boolean declared in page scope variables above

]]

local function add_vanc_error (source)
if not added_vanc_errs then
added_vanc_errs = true; -- note that we've added this category
table.insert( z.message_tail, { set_error( 'vancouver', {source}, true ) } );
end
end

--[[--------------------------------------------------------------------------------------

does this thing that purports to be a uri scheme seem to be a valid scheme? The scheme is checked to see if it
is in agreement with http://tools.ietf.org/html/std66#section-3.1 which says:
Scheme names consist of a sequence of characters beginning with a
letter and followed by any combination of letters, digits, plus
("+"), period ("."), or hyphen ("-").

returns true if it does, else false

]]

local function is_scheme (scheme)
return scheme and scheme:match ('^%a[%a%d%+%.%-]*:'); -- true if scheme is set and matches the pattern
end

--[=[---------------------------------------------------------------------------

Does this thing that purports to be a domain name seem to be a valid domain name?

Syntax defined here: http://tools.ietf.org/html/rfc1034#section-3.5
BNF defined here: https://tools.ietf.org/html/rfc4234
Single character names are generally reserved; see https://tools.ietf.org/html/draft-ietf-dnsind-iana-dns-01#page-15;
see also [[Single-letter second-level domain]]
list of tlds: https://www.iana.org/domains/root/db

rfc952 (modified by rfc 1123) requires the first and last character of a hostname to be a letter or a digit. Between
the first and last characters the name may use letters, digits, and the hyphen.

Also allowed are IPv4 addresses. IPv6 not supported

domain is expected to be stripped of any path so that the last character in the last character of the tld. tld
is two or more alpha characters. Any preceding '//' (from splitting a url with a scheme) will be stripped
here. Perhaps not necessary but retained incase it is necessary for IPv4 dot decimal.

There are several tests:
the first character of the whole domain name including subdomains must be a letter or a digit
internationalized domain name (ascii characters with .xn-- ASCII Compatible Encoding (ACE) prefix xn-- in the tld) see https://tools.ietf.org/html/rfc3490
single-letter/digit second-level domains in the .org and .cash TLDs
q, x, and z SL domains in the .com TLD
i and q SL domains in the .net TLD
single-letter SL domains in the ccTLDs (where the ccTLD is two letters)
two-character SL domains in gTLDs (where the gTLD is two or more letters)
three-plus-character SL domains in gTLDs (where the gTLD is two or more letters)
IPv4 dot-decimal address format; TLD not allowed

returns true if domain appears to be a proper name and tld or IPv4 address, else false

]=]

local function is_domain_name (domain)
if not domain then
return false; -- if not set, abandon
end

domain = domain:gsub ('^//', ''); -- strip '//' from domain name if present; done here so we only have to do it once

if not domain:match ('^[%a%d]') then -- first character must be letter or digit
return false;
end
-- Do most common case first
if domain:match ('%f[%a%d][%a%d][%a%d%-]+[%a%d]%.%a%a+$') then -- three or more character hostname.hostname or hostname.tld
return true;
elseif domain:match ('%f[%a%d][%a%d][%a%d%-]+[%a%d]%.xn%-%-[%a%d]+$') then -- internationalized domain name with ACE prefix
return true;
elseif domain:match ('%f[%a%d][%a%d]%.cash$') then -- one character/digit .cash hostname
return true;
elseif domain:match ('%f[%a%d][%a%d]%.org$') then -- one character/digit .org hostname
return true;
elseif domain:match ('%f[%a][qxz]%.com$') then -- assigned one character .com hostname (x.com times out 2015-12-10)
return true;
elseif domain:match ('%f[%a][iq]%.net$') then -- assigned one character .net hostname (q.net registered but not active 2015-12-10)
return true;
elseif domain:match ('%f[%a%d][%a%d]%.%a%a$') then -- one character hostname and cctld (2 chars)
return true;
elseif domain:match ('%f[%a%d][%a%d][%a%d]%.%a%a+$') then -- two character hostname and tld
return true;
elseif domain:match ('^%d%d?%d?%.%d%d?%d?%.%d%d?%d?%.%d%d?%d?') then -- IPv4 address
return true;
else
return false;
end
end

--[[--------------------------------------------------------------------------------------------

returns true if the scheme and domain parts of a url appear to be a valid url; else false.

This function is the last step in the validation process. This function is separate because there are cases that
are not covered by split_url(), for example is_parameter_ext_wikilink() which is looking for bracketted external
wikilinks.

]]

local function is_url (scheme, domain)
if is_set (scheme) then -- if scheme is set check it and domain
return is_scheme (scheme) and is_domain_name (domain);
else
return is_domain_name (domain); -- scheme not set when url is protocol relative
end
end

--[[--------------------------< S P L I T _ U R L >------------------------------------------------------------

Split a url into a scheme, authority indicator, and domain.

First remove Fully Qualified Domain Name terminator (a dot following tld) (if any) and any path(/), query(?) or fragment(#).

If protocol relative url, return nil scheme and domain else return nil for both scheme and domain.

When not protocol relative, get scheme, authority indicator, and domain. If there is an authority indicator (one
or more '/' characters immediately following the scheme's colon), make sure that there are only 2.

Strip off any port and path;

]]

local function split_url (url_str)
local scheme, authority, domain;

url_str = url_str:gsub ('([%a%d])%.?[/%?#].*$', '%1'); -- strip FQDN terminator and path(/), query(?), fragment (#) (the capture prevents false replacement of '//')

if url_str:match ('^//%S*') then -- if there is what appears to be a protocol relative url
domain = url_str:match ('^//(%S*)')
elseif url_str:match ('%S-:/*%S+') then -- if there is what appears to be a scheme, optional authority indicator, and domain name
scheme, authority, domain = url_str:match ('(%S-:)(/*)(%S+)'); -- extract the scheme, authority indicator, and domain portions
authority = authority:gsub ('//', '', 1); -- replace place 1 pair of '/' with nothing;
if is_set(authority) then -- if anything left (1 or 3+ '/' where authority should be) then
return scheme; -- return scheme only making domain nil which will cause an error message
end
domain = domain:gsub ('(%a):%d+', '%1'); -- strip port number if present
end

return scheme, domain;
end

--[[--------------------------< L I N K _ P A R A M _ O K >---------------------------------------------------

checks the content of |title-link=, |series-link=, |author-link= etc for properly formatted content: no wikilinks, no urls

Link parameters are to hold the title of a wikipedia article so none of the WP:TITLESPECIALCHARACTERS are allowed:
# < > [ ] | { } _
except the underscore which is used as a space in wiki urls and # which is used for section links

returns false when the value contains any of these characters.

When there are no illegal characters, this function returns TRUE if value DOES NOT appear to be a valid url (the
|<param>-link= parameter is ok); else false when value appears to be a valid url (the |<param>-link= parameter is NOT ok).

]]

local function link_param_ok (value)
local scheme, domain;
if value:find ('[<>%[%]|{}]') then -- if any prohibited characters
return false;
end

scheme, domain = split_url (value); -- get scheme or nil and domain or nil from url;
return not is_url (scheme, domain); -- return true if value DOES NOT appear to be a valid url
end

--[[--------------------------< L I N K _ T I T L E _ O K >---------------------------------------------------

Use link_param_ok() to validate |<param>-link= value and its matching |<title>= value.

|<title>= may be wikilinked but not when |<param>-link= has a value. This function emits an error message when
that condition exists

]]

local function link_title_ok (link, lorig, title, torig)
local orig;

if is_set (link) then -- don't bother if <param>-link doesn't have a value
if not link_param_ok (link) then -- check |<param>-link= markup
orig = lorig; -- identify the failing link parameter
elseif title:find ('%[%[') then -- check |title= for wikilink markup
orig = torig; -- identify the failing |title= parameter
end
end

if is_set (orig) then
table.insert( z.message_tail, { set_error( 'bad_paramlink', orig)}); -- url or wikilink in |title= with |title-link=;
end
end

--[[--------------------------< C H E C K _ U R L >------------------------------------------------------------

Determines whether a URL string appears to be valid.

First we test for space characters. If any are found, return false. Then split the url into scheme and domain
portions, or for protocol relative (//example.com) urls, just the domain. Use is_url() to validate the two
portions of the url. If both are valid, or for protocol relative if domain is valid, return true, else false.

Because it is different from a standard url, and because this module used external_link() to make external links
that work for standard and news: links, we validate newsgroup names here. The specification for a newsgroup name
is at https://tools.ietf.org/html/rfc5536#section-3.1.4

]]

local function check_url( url_str )
if nil == url_str:match ("^%S+$") then -- if there are any spaces in |url=value it can't be a proper url
return false;
end
local scheme, domain;

scheme, domain = split_url (url_str); -- get scheme or nil and domain or nil from url;

if 'news:' == scheme then -- special case for newsgroups
return domain:match('^[%a%d%+%-_]+%.[%a%d%+%-_%.]*[%a%d%+%-_]$');
end

return is_url (scheme, domain); -- return true if value appears to be a valid url
end

--[=[-----------------------------------------------------

Return true if a parameter value has a string that begins and ends with square brackets [ and ] and the first
non-space characters following the opening bracket appear to be a url. The test will also find external wikilinks
that use protocol relative urls. Also finds bare urls.

The frontier pattern prevents a match on interwiki links which are similar to scheme:path urls. The tests that
find bracketed urls are required because the parameters that call this test (currently |title=, |chapter=, |work=,
and |publisher=) may have wikilinks and there are articles or redirects like '//Hus' so, while uncommon, |title=[[//Hus]]
is possible as might be [[en://Hus]].

]=]

local function is_parameter_ext_wikilink (value)
local scheme, domain;

if value:match ('%f[%[]%[%a%S*:%S+.*%]') then -- if ext wikilink with scheme and domain: [xxxx://yyyyy.zzz]
scheme, domain = split_url (value:match ('%f[%[]%[(%a%S*:%S+).*%]'));
elseif value:match ('%f[%[]%[//%S+.*%]') then -- if protocol relative ext wikilink: [//yyyyy.zzz]
scheme, domain = split_url (value:match ('%f[%[]%[(//%S+).*%]'));
elseif value:match ('%a%S*:%S+') then -- if bare url with scheme; may have leading or trailing plain text
scheme, domain = split_url (value:match ('(%a%S*:%S+)'));
elseif value:match ('//%S+') then -- if protocol relative bare url: //yyyyy.zzz; may have leading or trailing plain text
scheme, domain = split_url (value:match ('(//%S+)')); -- what is left should be the domain
else
return false; -- didn't find anything that is obviously a url
end

return is_url (scheme, domain); -- return true if value appears to be a valid url
end

--[[-------------------------< C H E C K _ F O R _ U R L >-----------------------------------------------------

loop through a list of parameters and their values. Look at the value and if it has an external link, emit an error message.

]]

local function check_for_url (parameter_list)
local error_message = '';
for k, v in pairs (parameter_list) do -- for each parameter in the list
if is_parameter_ext_wikilink (v) then -- look at the value; if there is a url add an error message
if is_set(error_message) then -- once we've added the first portion of the error message ...
error_message=error_message .. ", "; -- ... add a comma space separator
end
error_message=error_message .. "|" .. k .. "="; -- add the failed parameter
end
end
if is_set (error_message) then -- done looping, if there is an error message, display it
table.insert( z.message_tail, { set_error( 'param_has_ext_link', {error_message}, true ) } );
end
end

--[[--------------------------< S A F E _ F O R _ U R L >------------------------------------------------------

Escape sequences for content that will be used for URL descriptions

]]

local function safe_for_url( str )
if str:match( "%[%[.-%]%]" ) ~= nil then
table.insert( z.message_tail, { set_error( 'wikilink_in_url', {}, true ) } );
end

return str:gsub( '[%[%]\n]', {
['['] = '[',
[']'] = ']',
['\n'] = ' ' } );
end

--[[--------------------------< E X T E R N A L _ L I N K >----------------------------------------------------

Format an external link with error checking

]]

local function external_link( URL, label, source, access)
local error_str = "";
local domain;
local path;
local base_url;

if not is_set( label ) then
label = URL;
if is_set( source ) then
error_str = set_error( 'bare_url_missing_title', { wrap_style ('parameter', source) }, false, " " );
else
error( cfg.messages["bare_url_no_origin"] );
end
end
if not check_url( URL ) then
error_str = set_error( 'bad_url', {wrap_style ('parameter', source)}, false, " " ) .. error_str;
end

domain, path = URL:match ('^([/%.%-%+:%a%d]+)([/%?#].*)$'); -- split the url into scheme plus domain and path
if path then -- if there is a path portion
path = path:gsub ('[%[%]]', {['[']='%5b',[']']='%5d'}); -- replace '[' and ']' with their percent encoded values
URL=domain..path; -- and reassemble
end

if is_set (access) then -- access level (subscription, registration, limited)
label = safe_for_url (label); -- replace square brackets and newlines

base_url = table.concat ( -- assemble external link with access signal
{
'[', -- opening css and url markup
URL, -- the url
' ', -- the required space
label,
'', -- signal spacing css
cfg.presentation[access], -- the appropriate icon
'', -- close signal spacing span
']' -- close url markup and plain links span
});
else
base_url = table.concat({ "[", URL, " ", safe_for_url( label ), "]" }); -- no signal markup
end

return table.concat({ base_url, error_str });
end

--[[--------------------------< D E P R E C A T E D _ P A R A M E T E R >--------------------------------------

Categorize and emit an error message when the citation contains one or more deprecated parameters. The function includes the
offending parameter name to the error message. Only one error message is emitted regardless of the number of deprecated
parameters in the citation.

added_deprecated_cat is a boolean declared in page scope variables above

]]

local function deprecated_parameter(name)
if not added_deprecated_cat then
added_deprecated_cat = true; -- note that we've added this category
table.insert( z.message_tail, { set_error( 'deprecated_params', {name}, true ) } ); -- add error message
end
end

--[=[-------------------------< K E R N _ Q U O T E S >--------------------------------------------------------

Apply kerning to open the space between the quote mark provided by the Module and a leading or trailing quote
mark contained in a |title= or |chapter= parameter's value.

This function will positive kern either single or double quotes:
"'Unkerned title with leading and trailing single quote marks'"
" 'Kerned title with leading and trailing single quote marks' " (in real life the kerning isn't as wide as this example)
Double single quotes (italic or bold wikimarkup) are not kerned.

Replaces unicode quotemarks in plain text or in the label portion of a [[L|D]] style wikilink with typewriter
quote marks regardless of the need for kerning. Unicode quote marks are not replaced in simple [[D]] wikilinks.

Call this function for chapter titles, for website titles, etc; not for book titles.

]=]

local function kern_quotes (str)
local cap='';
local cap2='';
local wl_type, label, link;

wl_type, label, link = is_wikilink (str); -- wl_type is: 0, no wl (text in label variable); 1, [[D]]; 2, [[L|D]]

if 1 == wl_type then -- [[D]] simple wikilink with or without quote marks
if mw.ustring.match (str, '%[%[[\"“”\'‘’].+[\"“”\'‘’]%]%]') then -- leading and trailing quote marks
str = substitute (cfg.presentation['kern-wl-both'], str);
elseif mw.ustring.match (str, '%[%[[\"“”\'‘’].+%]%]') then -- leading quote marks
str = substitute (cfg.presentation['kern-wl-left'], str);
elseif mw.ustring.match (str, '%[%[.+[\"“”\'‘’]%]%]') then -- trailing quote marks
str = substitute (cfg.presentation['kern-wl-right'], str);
end

else -- plain text or [[L|D]]; text in label variable
label= mw.ustring.gsub (label, '[“”]', '\"'); -- replace “” (U+201C & U+201D) with " (typewriter double quote mark)
label= mw.ustring.gsub (label, '[‘’]', '\''); -- replace ‘’ (U+2018 & U+2019) with ' (typewriter single quote mark)

cap, cap2 = mw.ustring.match (label, "^([\"\'])([^\'].+)"); -- match leading double or single quote but not doubled single quotes (italic markup)
if is_set (cap) then
label = substitute (cfg.presentation['kern-left'], {cap, cap2});
end

cap, cap2 = mw.ustring.match (label, "^(.+[^\'])([\"\'])$") -- match trailing double or single quote but not doubled single quotes (italic markup)
if is_set (cap) then
label = substitute (cfg.presentation['kern-right'], {cap, cap2});
end

if 2 == wl_type then
str = make_wikilink (link, label); -- reassemble the wikilink
else
str = label;
end
end
return str;
end

--[[--------------------------< F O R M A T _ S C R I P T _ V A L U E >----------------------------------------

|script-title= holds title parameters that are not written in Latin based scripts: Chinese, Japanese, Arabic, Hebrew, etc. These scripts should
not be italicized and may be written right-to-left. The value supplied by |script-title= is concatenated onto Title after Title has been wrapped
in italic markup.

Regardless of language, all values provided by |script-title= are wrapped in <bdi>...</bdi> tags to isolate rtl languages from the English left to right.

|script-title= provides a unique feature. The value in |script-title= may be prefixed with a two-character ISO639-1 language code and a colon:
|script-title=ja:*** *** (where * represents a Japanese character)
Spaces between the two-character code and the colon and the colon and the first script character are allowed:
|script-title=ja : *** ***
|script-title=ja: *** ***
|script-title=ja :*** ***
Spaces preceding the prefix are allowed: |script-title = ja:*** ***

The prefix is checked for validity. If it is a valid ISO639-1 language code, the lang attribute (lang="ja") is added to the <bdi> tag so that browsers can
know the language the tag contains. This may help the browser render the script more correctly. If the prefix is invalid, the lang attribute
is not added. At this time there is no error message for this condition.

Supports |script-title= and |script-chapter=

TODO: error messages when prefix is invalid ISO639-1 code; when script_value has prefix but no script;
]]

local function format_script_value (script_value)
local lang=''; -- initialize to empty string
local name;
if script_value:match('^%l%l%s*:') then -- if first 3 non-space characters are script language prefix
lang = script_value:match('^(%l%l)%s*:%s*%S.*'); -- get the language prefix or nil if there is no script
if not is_set (lang) then
return ''; -- script_value was just the prefix so return empty string
end
-- if we get this far we have prefix and script
name = mw.language.fetchLanguageName( lang, "ro" ); -- get language name so that we can use it to categorize
if is_set (name) then -- is prefix a proper ISO 639-1 language code?
script_value = script_value:gsub ('^%l%l%s*:%s*', ''); -- strip prefix from script
-- is prefix one of these language codes?
if in_array (lang, cfg.script_lang_codes) then
add_prop_cat ('script_with_name', {name, lang})
else
add_prop_cat ('script')
end
lang = ' lang="' .. lang .. '" '; -- convert prefix into a lang attribute
else
lang = ''; -- invalid so set lang to empty string
end
end
script_value = substitute (cfg.presentation['bdi'], {lang, script_value}); -- isolate in case script is rtl

return script_value;
end

--[[--------------------------< S C R I P T _ C O N C A T E N A T E >------------------------------------------

Initially for |title= and |script-title=, this function concatenates those two parameter values after the script value has been
wrapped in <bdi> tags.
]]

local function script_concatenate (title, script)
if is_set (script) then
script = format_script_value (script); -- <bdi> tags, lang atribute, categorization, etc; returns empty string on error
if is_set (script) then
title = title .. ' ' .. script; -- concatenate title and script title
end
end
return title;
end

--[[--------------------------< W R A P _ M S G >--------------------------------------------------------------

Applies additional message text to various parameter values. Supplied string is wrapped using a message_list
configuration taking one argument. Supports lower case text for {{citation}} templates. Additional text taken
from citation_config.messages - the reason this function is similar to but separate from wrap_style().

]]

local function wrap_msg (key, str, lower)
if not is_set( str ) then
return "";
end
if true == lower then
local msg;
msg = cfg.messages[key]:lower(); -- set the message to lower case before
return substitute( msg, str ); -- including template text
else
return substitute( cfg.messages[key], str );
end
end

--[[--------------------------< F O R M A T _ C H A P T E R _ T I T L E >--------------------------------------

Format the four chapter parameters: |script-chapter=, |chapter=, |trans-chapter=, and |chapter-url= into a single Chapter meta-
parameter (chapter_url_source used for error messages).

]]

local function format_chapter_title (scriptchapter, chapter, transchapter, chapterurl, chapter_url_source, no_quotes, access)
local chapter_error = '';

if not is_set (chapter) then
chapter = ''; -- to be safe for concatenation
else
if false == no_quotes then
chapter = kern_quotes (chapter); -- if necessary, separate chapter title's leading and trailing quote marks from Module provided quote marks
chapter = wrap_style ('quoted-title', chapter);
end
end

chapter = script_concatenate (chapter, scriptchapter) -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped

if is_set (transchapter) then
transchapter = wrap_style ('trans-quoted-title', transchapter);
if is_set (chapter) then
chapter = chapter .. ' ' .. transchapter;
else -- here when transchapter without chapter or script-chapter
chapter = transchapter; --
chapter_error = ' ' .. set_error ('trans_missing_title', {'chapter'});
end
end

if is_set (chapterurl) then
chapter = external_link (chapterurl, chapter, chapter_url_source, access); -- adds bare_url_missing_title error if appropriate
end

return chapter .. chapter_error;
end

--[[--------------------------< H A S _ I N V I S I B L E _ C H A R S >----------------------------------------

This function searches a parameter's value for nonprintable or invisible characters. The search stops at the
first match.

This function will detect the visible replacement character when it is part of the wikisource.

Detects but ignores nowiki and math stripmarkers. Also detects other named stripmarkers (gallery, math, pre, ref)
and identifies them with a slightly different error message. See also coins_cleanup().

Detects but ignores the character pattern that results from the transclusion of {{'}} templates.

Output of this function is an error message that identifies the character or the Unicode group, or the stripmarker
that was detected along with its position (or, for multi-byte characters, the position of its first byte) in the
parameter value.

]]

local function has_invisible_chars (param, v)
local position = ''; -- position of invisible char or starting position of stripmarker
local dummy; -- end of matching string; not used but required to hold end position when a capture is returned
local capture; -- used by stripmarker detection to hold name of the stripmarker
local i=1;
local stripmarker, apostrophe;

capture = string.match (v, '[%w%p ]*'); -- Test for values that are simple ASCII text and bypass other tests if true
if capture == v then -- if same there are no unicode characters
return;
end

while cfg.invisible_chars[i] do
local char=cfg.invisible_chars[i][1] -- the character or group name
local pattern=cfg.invisible_chars[i][2] -- the pattern used to find it
position, dummy, capture = mw.ustring.find (v, pattern) -- see if the parameter value contains characters that match the pattern

if position and (char == 'zero width joiner') then -- if we found a zero width joiner character
if mw.ustring.find (v, cfg.indic_script) then -- its ok if one of the indic scripts
position = nil; -- unset position
end
end

if position then
if 'nowiki' == capture or 'math' == capture then -- nowiki, math stripmarker (not an error condition)
stripmarker = true; -- set a flag
elseif true == stripmarker and 'delete' == char then -- because stripmakers begin and end with the delete char, assume that we've found one end of a stripmarker
position = nil; -- unset
else
local err_msg;
if capture then
err_msg = capture .. ' ' .. char;
else
err_msg = char .. ' ' .. 'character';
end

table.insert( z.message_tail, { set_error( 'invisible_char', {err_msg, wrap_style ('parameter', param), position}, true ) } ); -- add error message
return; -- and done with this parameter
end
end
i=i+1; -- bump our index
end
end

--[[--------------------------< A R G U M E N T _ W R A P P E R >----------------------------------------------

Argument wrapper. This function provides support for argument mapping defined in the configuration file so that
multiple names can be transparently aliased to single internal variable.

]]

local function argument_wrapper( args )
local origin = {};

return setmetatable({
ORIGIN = function( self, k )
local dummy = self[k]; --force the variable to be loaded.
return origin[k];
end
},
{
__index = function ( tbl, k )
if origin[k] ~= nil then
return nil;
end

local args, list, v = args, cfg.aliases[k];

if type( list ) == 'table' then
v, origin[k] = select_one( args, list, 'redundant_parameters' );
if origin[k] == nil then
origin[k] = ''; -- Empty string, not nil
end
elseif list ~= nil then
v, origin[k] = args[list], list;
else
-- maybe let through instead of raising an error?
-- v, origin[k] = args[k], k;
error( cfg.messages['unknown_argument_map'] );
end

-- Empty strings, not nil;
if v == nil then
v = cfg.defaults[k] or '';
origin[k] = '';
end

tbl = rawset( tbl, k, v );
return v;
end,
});
end

--[[--------------------------< V A L I D A T E >--------------------------------------------------------------

Looks for a parameter's name in one of several whitelists.

Parameters in the whitelist can have three values:
true - active, supported parameters
false - deprecated, supported parameters
nil - unsupported parameters

]]

local function validate( name, cite_class )
local name = tostring( name );
local state;

if in_array (cite_class, {'arxiv', 'biorxiv', 'citeseerx'}) then -- limited parameter sets allowed for these templates
state = whitelist.basic_arguments[ name ]; -- TODO: temporary workaround, we need to support limited_basic_arguments at some point
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter (name); -- parameter is deprecated but still supported
return true;
end

if 'arxiv' == cite_class then -- basic parameters unique to these templates
state = whitelist.arxiv_basic_arguments[name];
end
if 'biorxiv' == cite_class then
state = whitelist.biorxiv_basic_arguments[name];
end
if 'citeseerx' == cite_class then
state = whitelist.citeseerx_basic_arguments[name];
end

if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter (name); -- parameter is deprecated but still supported
return true;
end
-- limited enumerated parameters list
name = name:gsub( "%d+", "#" ); -- replace digit(s) with # (last25 becomes last#)
state = whitelist.numbered_arguments[ name ]; -- TODO: temporary workaround, we need to support limited_numbered_arguments at some point
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter (name); -- parameter is deprecated but still supported
return true;
end

return false; -- not supported because not found or name is set to nil
end -- end limited parameter-set templates

state = whitelist.basic_arguments[ name ]; -- all other templates; all normal parameters allowed

if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter (name); -- parameter is deprecated but still supported
return true;
end
-- all enumerated parameters allowed
name = name:gsub( "%d+", "#" ); -- replace digit(s) with # (last25 becomes last#
state = whitelist.numbered_arguments[ name ];

if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter (name); -- parameter is deprecated but still supported
return true;
end

return false; -- not supported because not found or name is set to nil
end

--[[--------------------------< N O W R A P _ D A T E >--------------------------------------------------------

When date is YYYY-MM-DD format wrap in nowrap span: YYYY-MM-DD. When date is DD MMMM YYYY or is
MMMM DD, YYYY then wrap in nowrap span: DD MMMM YYYY or MMMM DD, YYYY

DOES NOT yet support MMMM YYYY or any of the date ranges.

]]

local function nowrap_date (date)
local cap='';
local cap2='';

if date:match("^%d%d%d%d%-%d%d%-%d%d$") then
date = substitute (cfg.presentation['nowrap1'], date);

elseif date:match("^%a+%s*%d%d?,%s+%d%d%d%d$") or date:match ("^%d%d?%s*%a+%s+%d%d%d%d$") then
cap, cap2 = string.match (date, "^(.*)%s+(%d%d%d%d)$");
date = substitute (cfg.presentation['nowrap2'], {cap, cap2});
end

return date;
end

--[[--------------------------< S E T _ T I T L E T Y P E >----------------------------------------------------

This function sets default title types (equivalent to the citation including |type=<default value>) for those templates that have defaults.
Also handles the special case where it is desirable to omit the title type from the rendered citation (|type=none).

]]

local function set_titletype (cite_class, title_type)
if is_set(title_type) then
if "none" == title_type then
title_type = ""; -- if |type=none then type parameter not displayed
end
return title_type; -- if |type= has been set to any other value use that value
end

return cfg.title_types [cite_class] or ''; -- set template's default title type; else empty string for concatenation
end

--[[--------------------------< H Y P H E N _ T O _ D A S H >--------------------------------------------------

Converts a hyphen to a dash

]]

local function hyphen_to_dash( str )
if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then
return str;
end
return str:gsub( '-', '–' );
end

--[[--------------------------< S A F E _ J O I N >------------------------------------------------------------

Joins a sequence of strings together while checking for duplicate separation characters.

]]

local function safe_join( tbl, duplicate_char )
--[[
Note: we use string functions here, rather than ustring functions.

This has considerably faster performance and should work correctly as
long as the duplicate_char is strict ASCII. The strings
in tbl may be ASCII or UTF8.
]]

local str = ''; -- the output string
local comp = ''; -- what does 'comp' mean?
local end_chr = '';
local trim;
for _, value in ipairs( tbl ) do
if value == nil then value = ''; end

if str == '' then -- if output string is empty
str = value; -- assign value to it (first time through the loop)
elseif value ~= '' then
if value:sub(1,1) == '<' then -- Special case of values enclosed in spans and other markup.
comp = value:gsub( "%b<>", "" ); -- remove html markup (string -> string)
else
comp = value;
end
-- typically duplicate_char is sepc
if comp:sub(1,1) == duplicate_char then -- is first charactier same as duplicate_char? why test first character?
-- Because individual string segments often (always?) begin with terminal punct for th
-- preceding segment: 'First element' .. 'sepc next element' .. etc?
trim = false;
end_chr = str:sub(-1,-1); -- get the last character of the output string
-- str = str .. "<HERE(enchr=" .. end_chr.. ")" -- debug stuff?
if end_chr == duplicate_char then -- if same as separator
str = str:sub(1,-2); -- remove it
elseif end_chr == "'" then -- if it might be wikimarkup
if str:sub(-3,-1) == duplicate_char .. "''" then -- if last three chars of str are sepc''
str = str:sub(1, -4) .. "''"; -- remove them and add back ''
elseif str:sub(-5,-1) == duplicate_char .. "]]''" then -- if last five chars of str are sepc]]''
trim = true; -- why? why do this and next differently from previous?
elseif str:sub(-4,-1) == duplicate_char .. "]''" then -- if last four chars of str are sepc]''
trim = true; -- same question
end
elseif end_chr == "]" then -- if it might be wikimarkup
if str:sub(-3,-1) == duplicate_char .. "]]" then -- if last three chars of str are sepc]] wikilink
trim = true;
elseif str:sub(-3,-1) == duplicate_char .. '"]' then -- if last three chars of str are sepc"] quoted external link
trim = true;
elseif str:sub(-2,-1) == duplicate_char .. "]" then -- if last two chars of str are sepc] external link
trim = true;
elseif str:sub(-4,-1) == duplicate_char .. "'']" then -- normal case when |url=something & |title=Title.
trim = true;
end
elseif end_chr == " " then -- if last char of output string is a space
if str:sub(-2,-1) == duplicate_char .. " " then -- if last two chars of str are <sepc><space>
str = str:sub(1,-3); -- remove them both
end
end

if trim then
if value ~= comp then -- value does not equal comp when value contains html markup
local dup2 = duplicate_char;
if dup2:match( "%A" ) then dup2 = "%" .. dup2; end -- if duplicate_char not a letter then escape it

value = value:gsub( "(%b<>)" .. dup2, "%1", 1 ) -- remove duplicate_char if it follows html markup
else
value = value:sub( 2, -1 ); -- remove duplicate_char when it is first character
end
end
end
str = str .. value; --add it to the output string
end
end
return str;
end

--[[--------------------------------------------------------------------------------------

returns true is suffix is properly formed Jr, Sr, or ordinal in the range 2–9. Puncutation not allowed.

]]

local function is_suffix (suffix)
if in_array (suffix, {'Jr', 'Sr', '2nd', '3rd'}) or suffix:match ('^%dth$') then
return true;
end
return false;
end

--[[----------------------------------------------------------------------

For Vancouver Style, author/editor names are supposed to be rendered in Latin (read ASCII) characters. When a name
uses characters that contain diacritical marks, those characters are to converted to the corresponding Latin character.
When a name is written using a non-Latin alphabet or logogram, that name is to be transliterated into Latin characters.
These things are not currently possible in this module so are left to the editor to do.

This test allows |first= and |last= names to contain any of the letters defined in the four Unicode Latin character sets
[http://www.unicode.org/charts/PDF/U0000.pdf C0 Controls and Basic Latin] 0041–005A, 0061–007A
[http://www.unicode.org/charts/PDF/U0080.pdf C1 Controls and Latin-1 Supplement] 00C0–00D6, 00D8–00F6, 00F8–00FF
[http://www.unicode.org/charts/PDF/U0100.pdf Latin Extended-A] 0100–017F
[http://www.unicode.org/charts/PDF/U0180.pdf Latin Extended-B] 0180–01BF, 01C4–024F

|lastn= also allowed to contain hyphens, spaces, and apostrophes. (http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35029/)
|firstn= also allowed to contain hyphens, spaces, apostrophes, and periods

This original test:
if nil == mw.ustring.find (last, "^[A-Za-zÀ-ÖØ-öø-ƿǄ-ɏ%-%s%']*$") or nil == mw.ustring.find (first, "^[A-Za-zÀ-ÖØ-öø-ƿǄ-ɏ%-%s%'%.]+[2-6%a]*$") then
was written ouside of the code editor and pasted here because the code editor gets confused between character insertion point and cursor position.
The test has been rewritten to use decimal character escape sequence for the individual bytes of the unicode characters so that it is not necessary
to use an external editor to maintain this code.

\195\128-\195\150 – À-Ö (U+00C0–U+00D6 – C0 controls)
\195\152-\195\182 – Ø-ö (U+00D8-U+00F6 – C0 controls)
\195\184-\198\191 – ø-ƿ (U+00F8-U+01BF – C0 controls, Latin extended A & B)
\199\132-\201\143 – Ǆ-ɏ (U+01C4-U+024F – Latin extended B)

]]

local function is_good_vanc_name (last, first)
local first, suffix = first:match ('(.-),?%s*([%dJS][%drndth]+)%.?$') or first; -- if first has something that looks like a generational suffix, get it

if is_set (suffix) then
if not is_suffix (suffix) then
add_vanc_error ('suffix');
return false; -- not a name with an appropriate suffix
end
end
if nil == mw.ustring.find (last, "^[A-Za-z\195\128-\195\150\195\152-\195\182\195\184-\198\191\199\132-\201\143%-%s%']*$") or
nil == mw.ustring.find (first, "^[A-Za-z\195\128-\195\150\195\152-\195\182\195\184-\198\191\199\132-\201\143%-%s%'%.]*$") then
add_vanc_error ('non-Latin character');
return false; -- not a string of latin characters; Vancouver requires Romanization
end;
return true;
end

--[[--------------------------< R E D U C E _ T O _ I N I T I A L S >------------------------------------------

Attempts to convert names to initials in support of |name-list-format=vanc.

Names in |firstn= may be separated by spaces or hyphens, or for initials, a period. See http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35062/.

Vancouver style requires family rank designations (Jr, II, III, etc) to be rendered as Jr, 2nd, 3rd, etc. See http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35085/.
This code only accepts and understands generational suffix in the Vancouver format because Roman numerals look like, and can be mistaken for, initials.

This function uses ustring functions because firstname initials may be any of the unicode Latin characters accepted by is_good_vanc_name ().

]]

local function reduce_to_initials(first)
local name, suffix = mw.ustring.match(first, "^(%u+) ([%dJS][%drndth]+)$");

if not name then -- if not initials and a suffix
name = mw.ustring.match(first, "^(%u+)$"); -- is it just intials?
end

if name then -- if first is initials with or without suffix
if 3 > mw.ustring.len (name) then -- if one or two initials
if suffix then -- if there is a suffix
if is_suffix (suffix) then -- is it legitimate?
return first; -- one or two initials and a valid suffix so nothing to do
else
add_vanc_error ('suffix'); -- one or two initials with invalid suffix so error message
return first; -- and return first unmolested
end
else
return first; -- one or two initials without suffix; nothing to do
end
end
end -- if here then name has 3 or more uppercase letters so treat them as a word

local initials, names = {}, {}; -- tables to hold name parts and initials
local i = 1; -- counter for number of initials

names = mw.text.split (first, '[%s,]+'); -- split into a table of names and possible suffix

while names[i] do -- loop through the table
if 1 < i and names[i]:match ('[%dJS][%drndth]+%.?$') then -- if not the first name, and looks like a suffix (may have trailing dot)
names[i] = names[i]:gsub ('%.', ''); -- remove terminal dot if present
if is_suffix (names[i]) then -- if a legitimate suffix
table.insert (initials, ' ' .. names[i]); -- add a separator space, insert at end of initials table
break; -- and done because suffix must fall at the end of a name
end -- no error message if not a suffix; possibly because of Romanization
end
if 3 > i then
table.insert (initials, mw.ustring.sub(names[i],1,1)); -- insert the intial at end of initials table
end
i = i+1; -- bump the counter
end

return table.concat(initials) -- Vancouver format does not include spaces.
end

--[[--------------------------< L I S T _ P E O P L E >-------------------------------------------------------

Formats a list of people (e.g. authors / editors)

]]

local function list_people(control, people, etal)
local sep;
local namesep;
local format = control.format
local maximum = control.maximum
local lastauthoramp = control.lastauthoramp;
local text = {}

if 'vanc' == format then -- Vancouver-like author/editor name styling?
sep = ','; -- name-list separator between authors is a comma
namesep = ' '; -- last/first separator is a space
else
sep = ';' -- name-list separator between authors is a semicolon
namesep = ', ' -- last/first separator is <comma><space>
end

if sep:sub(-1,-1) ~= " " then sep = sep .. " " end
if is_set (maximum) and maximum < 1 then return "", 0; end -- returned 0 is for EditorCount; not used for authors

for i,person in ipairs(people) do
if is_set(person.last) then
local mask = person.mask
local one
local sep_one = sep;
if is_set (maximum) and i > maximum then
etal = true;
break;
elseif (mask ~= nil) then
local n = tonumber(mask)
if (n ~= nil) then
one = string.rep("—",n)
else
one = mask;
sep_one = " ";
end
else
one = person.last
local first = person.first
if is_set(first) then
if ( "vanc" == format ) then -- if vancouver format
one = one:gsub ('%.', ''); -- remove periods from surnames (http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35029/)
if not person.corporate and is_good_vanc_name (one, first) then -- and name is all Latin characters; corporate authors not tested
first = reduce_to_initials(first) -- attempt to convert first name(s) to initials
end
end
one = one .. namesep .. first;
end
if is_set(person.link) and person.link ~= control.page_name then
one = make_wikilink (person.link, one); -- link author/editor if this page is not the author's/editor's page
end
end
table.insert( text, one )
table.insert( text, sep_one )
end
end

local count = #text / 2; -- (number of names + number of separators) divided by 2
if count > 0 then
if count > 1 and is_set(lastauthoramp) and not etal then
text[#text-2] = " & "; -- replace last separator with ampersand text
end
text[#text] = nil; -- erase the last separator
end

local result = table.concat(text) -- construct list
if etal and is_set (result) then -- etal may be set by |display-authors=etal but we might not have a last-first list
result = result .. sep .. ' ' .. cfg.messages['et al']; -- we've go a last-first list and etal so add et al.
end

return result, count
end

--[[--------------------------< A N C H O R _ I D >------------------------------------------------------------

Generates a CITEREF anchor ID if we have at least one name or a date. Otherwise returns an empty string.

namelist is one of the contributor-, author-, or editor-name lists chosen in that order. year is Year or anchor_year.

]]
local function anchor_id (namelist, year)
local names={}; -- a table for the one to four names and year
for i,v in ipairs (namelist) do -- loop through the list and take up to the first four last names
names[i] = v.last
if i == 4 then break end -- if four then done
end
table.insert (names, year); -- add the year at the end
local id = table.concat(names); -- concatenate names and year for CITEREF id
if is_set (id) then -- if concatenation is not an empty string
return "CITEREF" .. id; -- add the CITEREF portion
else
return ''; -- return an empty string; no reason to include CITEREF id in this citation
end
end

--[[--------------------------< N A M E _ H A S _ E T A L >----------------------------------------------------

Evaluates the content of author and editor name parameters for variations on the theme of et al. If found,
the et al. is removed, a flag is set to true and the function returns the modified name and the flag.

This function never sets the flag to false but returns it's previous state because it may have been set by
previous passes through this function or by the parameters |display-authors=etal or |display-editors=etal

]]

local function name_has_etal (name, etal, nocat)

if is_set (name) then -- name can be nil in which case just return
local etal_pattern = "[;,]? *[\"']*%f[%a][Ee][Tt] *[Aa][Ll][%.\"']*$" -- variations on the 'et al' theme
local others_pattern = "[;,]? *%f[%a]and [Oo]thers"; -- and alternate to et al.

if name:match (etal_pattern) then -- variants on et al.
name = name:gsub (etal_pattern, ''); -- if found, remove
etal = true; -- set flag (may have been set previously here or by |display-authors=etal)
if not nocat then -- no categorization for |vauthors=
add_maint_cat ('etal'); -- and add a category if not already added
end
elseif name:match (others_pattern) then -- if not 'et al.', then 'and others'?
name = name:gsub (others_pattern, ''); -- if found, remove
etal = true; -- set flag (may have been set previously here or by |display-authors=etal)
if not nocat then -- no categorization for |vauthors=
add_maint_cat ('etal'); -- and add a category if not already added
end
end
end
return name, etal; --
end

--[[--------------------------< N A M E _ H A S _ E D _ M A R K U P >------------------------------------------

Evaluates the content of author and editor parameters for extranious editor annotations: ed, ed., eds, (Ed.), etc.
These annotation do not belong in author parameters and are redundant in editor parameters. If found, the function
adds the editor markup maintenance category.

]]

local function name_has_ed_markup (name, list_name)
local _, pattern;
local patterns = { -- these patterns match annotations at end of name
'%f[%(%[][%(%[]%s*[Ee][Dd][Ss]?%.?%s*[%)%]]?$', -- (ed) or (eds): leading '(', case insensitive 'ed', optional 's', '.' and/or ')'
'[,%.%s]%f[e]eds?%.?$', -- ed or eds: without '('or ')'; case sensitive (ED could be initials Ed could be name)
'%f[%(%[][%(%[]%s*[Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%.?%s*[%)%]]?$', -- (editor) or (editors): leading '(', case insensitive, optional '.' and/or ')'
'[,%.%s]%f[Ee][Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%.?$', -- editor or editors: without '('or ')'; case insensitive

-- these patterns match annotations at beginning of name
'^eds?[%.,;]', -- ed. or eds.: lower case only, optional 's', requires '.'
'^[%(%[]%s*[Ee][Dd][Ss]?%.?%s*[%)%]]', -- (ed) or (eds): also sqare brackets, case insensitive, optional 's', '.'
'^[%(%[]?%s*[Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%A', -- (editor or (editors: also sq brackets, case insensitive, optional brackets, 's'
'^[%(%[]?%s*[Ee][Dd][Ii][Tt][Ee][Dd]%A', -- (edited: also sq brackets, case insensitive, optional brackets
}

if is_set (name) then
for _, pattern in ipairs (patterns) do -- spin through patterns table and
if name:match (pattern) then
add_maint_cat ('extra_text_names', cfg.special_case_translation [list_name]); -- add a maint cat for this template
break;
end
end
end
return name; -- and done
end

--[[--------------------------< N A M E _ H A S _ M U L T _ N A M E S >----------------------------------------

Evaluates the content of author and editor (surnames only) parameters for multiple names. Multiple names are
indicated if there is more than one comma and or semicolon. If found, the function adds the multiple name
(author or editor) maintenance category.

]]

local function name_has_mult_names (name, list_name)
local count, _;
if is_set (name) then
_, count = name:gsub ('[;,]', ''); -- count the number of separator-like characters

if 1 < count then -- param could be |author= or |editor= so one separator character is acceptable
add_maint_cat ('mult_names', cfg.special_case_translation [list_name]); -- more than one separator indicates multiple names so add a maint cat for this template
end
end
return name; -- and done
end

--[[--------------------------< N A M E _ C H E C K S >--------------------------------------------------------
This function calls various name checking functions used to validate the content of the various name-holding
parameters.

]]

local function name_checks (last, first, list_name)
if is_set (last) then
if last:match ('^%(%(.*%)%)$') then -- if wrapped in doubled parentheses, accept as written
last = last:match ('^%(%((.*)%)%)$'); -- strip parens
else
last = name_has_mult_names (last, list_name); -- check for multiple names in the parameter (last only)
last = name_has_ed_markup (last, list_name); -- check for extraneous 'editor' annotation
end
end
if is_set (first) then
if first:match ('^%(%(.*%)%)$') then -- if wrapped in doubled parentheses, accept as written
first = first:match ('^%(%((.*)%)%)$'); -- strip parens
else
first = name_has_ed_markup (first, list_name); -- check for extraneous 'editor' annotation
end
end
return last, first; -- done
end

--[[--------------------------< E X T R A C T _ N A M E S >----------------------------------------------------
Gets name list from the input arguments

Searches through args in sequential order to find |lastn= and |firstn= parameters (or their aliases), and their matching link and mask parameters.
Stops searching when both |lastn= and |firstn= are not found in args after two sequential attempts: found |last1=, |last2=, and |last3= but doesn't
find |last4= and |last5= then the search is done.

This function emits an error message when there is a |firstn= without a matching |lastn=. When there are 'holes' in the list of last names, |last1= and |last3=
are present but |last2= is missing, an error message is emitted. |lastn= is not required to have a matching |firstn=.

When an author or editor parameter contains some form of 'et al.', the 'et al.' is stripped from the parameter and a flag (etal) returned
that will cause list_people() to add the static 'et al.' text from Module:Citation/CS1/Configuration. This keeps 'et al.' out of the
template's metadata. When this occurs, the page is added to a maintenance category.

]]

local function extract_names(args, list_name)
local names = {}; -- table of names
local last; -- individual name components
local first;
local link;
local mask;
local i = 1; -- loop counter/indexer
local n = 1; -- output table indexer
local count = 0; -- used to count the number of times we haven't found a |last= (or alias for authors, |editor-last or alias for editors)
local etal=false; -- return value set to true when we find some form of et al. in an author parameter

local err_msg_list_name = list_name:match ("(%w+)List") .. 's list'; -- modify AuthorList or EditorList for use in error messages if necessary
while true do
last = select_one( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i ); -- search through args for name components beginning at 1
first = select_one( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i );
link = select_one( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i );
mask = select_one( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i );

last, etal = name_has_etal (last, etal, false); -- find and remove variations on et al.
first, etal = name_has_etal (first, etal, false); -- find and remove variations on et al.
last, first= name_checks (last, first, list_name); -- multiple names, extraneous annotation, etc checks

if first and not last then -- if there is a firstn without a matching lastn
table.insert( z.message_tail, { set_error( 'first_missing_last', {err_msg_list_name, i}, true ) } ); -- add this error message
elseif not first and not last then -- if both firstn and lastn aren't found, are we done?
count = count + 1; -- number of times we haven't found last and first
if 2 <= count then -- two missing names and we give up
break; -- normal exit or there is a two-name hole in the list; can't tell which
end
else -- we have last with or without a first
link_title_ok (link, list_name:match ("(%w+)List"):lower() .. '-link' .. i, last, list_name:match ("(%w+)List"):lower() .. '-last' .. i); -- check for improper wikimarkup

names[n] = {last = last, first = first, link = link, mask = mask, corporate=false}; -- add this name to our names list (corporate for |vauthors= only)
n = n + 1; -- point to next location in the names table
if 1 == count then -- if the previous name was missing
table.insert( z.message_tail, { set_error( 'missing_name', {err_msg_list_name, i-1}, true ) } ); -- add this error message
end
count = 0; -- reset the counter, we're looking for two consecutive missing names
end
i = i + 1; -- point to next args location
end

return names, etal; -- all done, return our list of names
end

--[[--------------------------< G E T _ I S O 6 3 9 _ C O D E >------------------------------------------------

Validates language names provided in |language= parameter if not an ISO639-1 or 639-2 code.

Returns the language name and associated two- or three-character code. Because case of the source may be incorrect
or different from the case that WikiMedia uses, the name comparisons are done in lower case and when a match is
found, the Wikimedia version (assumed to be correct) is returned along with the code. When there is no match, we
return the original language name string.

mw.language.fetchLanguageNames(<local wiki language>, 'all') return a list of languages that in some cases may include
extensions. For example, code 'cbk-zam' and its associated name 'Chavacano de Zamboanga' (MediaWiki does not support
code 'cbk' or name 'Chavacano'.

Names but that are included in the list will be found if that name is provided in the |language= parameter. For example,
if |language=Chavacano de Zamboanga, that name will be found with the associated code 'cbk-zam'. When names are found
and the associated code is not two or three characters, this function returns only the Wikimedia language name.

Adapted from code taken from Module:Check ISO 639-1.

]]

local function get_iso639_code (lang, this_wiki_code)
if 'bangla' == lang:lower() then -- special case related to Wikimedia remap of code 'bn' at mw:Extension:CLDR
return 'Bengali', 'bn'; -- make sure rendered version is properly capitalized
end

local languages = mw.language.fetchLanguageNames(this_wiki_code, 'all') -- get a list of language names known to Wikimedia
-- ('all' is required for North Ndebele, South Ndebele, and Ojibwa)
local langlc = mw.ustring.lower(lang); -- lower case version for comparisons

for code, name in pairs(languages) do -- scan the list to see if we can find our language
if langlc == mw.ustring.lower(name) then
if 2 ~= code:len() and 3 ~= code:len() then -- two- or three-character codes only; extensions not supported
return name; -- so return the name but not the code
end
return name, code; -- found it, return name to ensure proper capitalization and the the code
end
end
return lang; -- not valid language; return language in original case and nil for the code
end

--[[--------------------------< L A N G U A G E _ P A R A M E T E R >------------------------------------------

Gets language name from a provided two- or three-character ISO 639 code. If a code is recognized by MediaWiki,
use the returned name; if not, then use the value that was provided with the language parameter.

When |language= contains a recognized language (either code or name), the page is assigned to the category for
that code: Category:Norwegian-language sources (no). For valid three-character code languages, the page is assigned
to the single category for '639-2' codes: Category:CS1 ISO 639-2 language sources.

Languages that are the same as the local wiki are not categorized. MediaWiki does not recognize three-character
equivalents of two-character codes: code 'ar' is recognized bit code 'ara' is not.

This function supports multiple languages in the form |language=nb, French, th where the language names or codes are
separated from each other by commas.

]]

local function language_parameter (lang)
local code; -- the two- or three-character language code
local name; -- the language name
local language_list = {}; -- table of language names to be rendered
local names_table = {}; -- table made from the value assigned to |language=

local this_wiki = mw.getContentLanguage(); -- get a language object for this wiki
local this_wiki_code = this_wiki:getCode() -- get this wiki's language code
local this_wiki_name = mw.language.fetchLanguageName(this_wiki_code, this_wiki_code); -- get this wiki's language name

names_table = mw.text.split (lang, '%s*,%s*'); -- names should be a comma separated list

for _, lang in ipairs (names_table) do -- reuse lang

if lang:match ('^%a%a%-') then -- strip ietf language tags from code; TODO: is there a need to support 3-char with tag?
lang = lang:match ('(%a%a)%-') -- keep only 639-1 code portion to lang; TODO: do something with 3166 alpha 2 country code?
end
if 2 == lang:len() or 3 == lang:len() then -- if two-or three-character code
name = mw.language.fetchLanguageName( lang:lower(), this_wiki_code); -- get language name if |language= is a proper code
end

if is_set (name) then -- if |language= specified a valid code
code = lang:lower(); -- save it
else
name, code = get_iso639_code (lang, this_wiki_code); -- attempt to get code from name (assign name here so that we are sure of proper capitalization)
end

if is_set (code) then -- only 2- or 3-character codes
if 'bn' == code then name = 'Bengali' end; -- override wikimedia when code is 'bn'
if this_wiki_code ~= code then -- when the language is not the same as this wiki's language
if 2 == code:len() then -- and is a two-character code
add_prop_cat ('foreign_lang_source' .. code, {name, code}) -- categorize it
else -- or is a recognized language (but has a three-character code)
add_prop_cat ('foreign_lang_source_2' .. code, {code}) -- categorize it differently TODO: support mutliple three-character code categories per cs1|2 template
end
end
else
add_maint_cat ('unknown_lang'); -- add maint category if not already added
end

table.insert (language_list, name);
name = ''; -- so we can reuse it
end

code = #language_list -- reuse code as number of languages in the list
if 2 >= code then
name = table.concat (language_list, ' și ') -- insert '<space>and<space>' between two language names
elseif 2 < code then
language_list[code] = 'și ' .. language_list[code]; -- prepend last name with 'and<space>'
name = table.concat (language_list, ', ') -- and concatenate with '<comma><space>' separators
end
if this_wiki_name == name then
return ''; -- if one language and that language is this wiki's return an empty string (no annotation)
end
return (" " .. wrap_msg ('language', name)); -- otherwise wrap with '(in ...)'
--[[ TODO: should only return blank or name rather than full list
so we can clean up the bunched parenthetical elements Language, Type, Format
]]
end

--[[--------------------------< S E T _ C S 1 _ S T Y L E >----------------------------------------------------

Set style settings for CS1 citation templates. Returns separator and postscript settings

]]

local function set_cs1_style (ps)
if not is_set (ps) then -- unless explicitely set to something
ps = '.'; -- terminate the rendered citation with a period
end
return '.', ps; -- separator is a full stop
end

--[[--------------------------< S E T _ C S 2 _ S T Y L E >----------------------------------------------------

Set style settings for CS2 citation templates. Returns separator, postscript, ref settings

]]

local function set_cs2_style (ps, ref)
if not is_set (ps) then -- if |postscript= has not been set, set cs2 default
ps = ''; -- make sure it isn't nil
end
if not is_set (ref) then -- if |ref= is not set
ref = "harv"; -- set default |ref=harv
end
return ',', ps, ref; -- separator is a comma
end

--[[--------------------------< G E T _ S E T T I N G S _ F R O M _ C I T E _ C L A S S >----------------------

When |mode= is not set or when its value is invalid, use config.CitationClass and parameter values to establish
rendered style.

]]

local function get_settings_from_cite_class (ps, ref, cite_class)
local sep;
if (cite_class == "citation") then -- for citation templates (CS2)
sep, ps, ref = set_cs2_style (ps, ref);
else -- not a citation template so CS1
sep, ps = set_cs1_style (ps);
end

return sep, ps, ref -- return them all
end

--[[--------------------------< S E T _ S T Y L E >------------------------------------------------------------

Establish basic style settings to be used when rendering the citation. Uses |mode= if set and valid or uses
config.CitationClass from the template's #invoke: to establish style.

]]

local function set_style (mode, ps, ref, cite_class)
local sep;
if 'cs2' == mode then -- if this template is to be rendered in CS2 (citation) style
sep, ps, ref = set_cs2_style (ps, ref);
elseif 'cs1' == mode then -- if this template is to be rendered in CS1 (cite xxx) style
sep, ps = set_cs1_style (ps);
else -- anything but cs1 or cs2
sep, ps, ref = get_settings_from_cite_class (ps, ref, cite_class); -- get settings based on the template's CitationClass
end
if 'none' == ps:lower() then -- if assigned value is 'none' then
ps = ''; -- set to empty string
end

return sep, ps, ref
end

--[=[-------------------------------------------------------------------------------------------

Determines if a url has the file extension that is one of the pdf file extensions used by [[MediaWiki:Common.css]] when
applying the pdf icon to external links.

returns true if file extension is one of the recognized extensions, else false

]=]

local function is_pdf (url)
return url:match ('%.pdf$') or url:match ('%.PDF$') or url:match ('%.pdf[%?#]') or url:match ('%.PDF[%?#]');
end

--[[--------------------------< S T Y L E _ F O R M A T >------------------------------------------------------

Applies css style to |format=, |chapter-format=, etc. Also emits an error message if the format parameter does
not have a matching url parameter. If the format parameter is not set and the url contains a file extension that
is recognized as a pdf document by MediaWiki's commons.css, this code will set the format parameter to (PDF) with
the appropriate styling.

]]

local function style_format (format, url, fmt_param, url_param)
if is_set (format) then
format = wrap_style ('format', format); -- add leading space, parentheses, resize
if not is_set (url) then
format = format .. set_error( 'format_missing_url', {fmt_param, url_param} ); -- add an error message
end
elseif is_pdf (url) then -- format is not set so if url is a pdf file then
format = wrap_style ('format', 'PDF'); -- set format to pdf
else
format = ''; -- empty string for concatenation
end
return format;
end

--[[--------------------------< G E T _ D I S P L A Y _ A U T H O R S _ E D I T O R S >------------------------

Returns a number that defines the number of names displayed for author and editor name lists and a boolean flag
to indicate when et al. should be appended to the name list.

When the value assigned to |display-xxxxors= is a number greater than or equal to zero, return the number and
the previous state of the 'etal' flag (false by default but may have been set to true if the name list contains
some variant of the text 'et al.').

When the value assigned to |display-xxxxors= is the keyword 'etal', return a number that is one greater than the
number of authors in the list and set the 'etal' flag true. This will cause the list_people() to display all of
the names in the name list followed by 'et al.'

In all other cases, returns nil and the previous state of the 'etal' flag.

inputs:
max: A['DisplayAuthors'] or A['DisplayEditors']; a number or some flavor of etal
count: #a or #e
list_name: 'authors' or 'editors'
etal: author_etal or editor_etal

]]

local function get_display_authors_editors (max, count, list_name, etal)
if is_set (max) then
if 'etal' == max:lower():gsub("[ '%.]", '') then -- the :gsub() portion makes 'etal' from a variety of 'et al.' spellings and stylings
max = count + 1; -- number of authors + 1 so display all author name plus et al.
etal = true; -- overrides value set by extract_names()
elseif max:match ('^%d+$') then -- if is a string of numbers
max = tonumber (max); -- make it a number
if max >= count then -- if |display-xxxxors= value greater than or equal to number of authors/editors
add_maint_cat ('disp_auth_ed', cfg.special_case_translation [list_name]);
end
else -- not a valid keyword or number
table.insert( z.message_tail, { set_error( 'invalid_param_val', {'display-' .. list_name, max}, true ) } ); -- add error message
max = nil; -- unset; as if |display-xxxxors= had not been set
end
end

return max, etal;
end

--[[--------------------------< E X T R A _ T E X T _ I N _ P A G E _ C H E C K >------------------------------

Adds page to Category:CS1 maint: extra text if |page= or |pages= has what appears to be some form of p. or pp.
abbreviation in the first characters of the parameter content.

check Page and Pages for extraneous p, p., pp, and pp. at start of parameter value:
good pattern: '^P[^%.P%l]' matches when |page(s)= begins PX or P# but not Px where x and X are letters and # is a dgiit
bad pattern: '^[Pp][Pp]' matches matches when |page(s)= begins pp or pP or Pp or PP

]]

local function extra_text_in_page_check (page)
local good_pattern = '^P[^%.Pp]'; -- ok to begin with uppercase P: P7 (pg 7 of section P) but not p123 (page 123) TODO: add Gg for PG or Pg?
local bad_pattern = '^[Pp]?[Pp]%.?[ %d]';

if not page:match (good_pattern) and (page:match (bad_pattern) or page:match ('^[Pp]ages?')) then
add_maint_cat ('extra_text');
end
end

--[=[-------------------------< G E T _ V _ N A M E _ T A B L E >----------------------------------------------

split apart a |vauthors= or |veditors= parameter. This function allows for corporate names, wrapped in doubled
parentheses to also have commas; in the old version of the code, the doubled parnetheses were included in the
rendered citation and in the metadata. Individual author names may be wikilinked

|vauthors=Jones AB, [[E. B. White|White EB]], ((Black, Brown, and Co.))

]=]

local function get_v_name_table (vparam, output_table, output_link_table)
local name_table = mw.text.split(vparam, "%s*,%s*"); -- names are separated by commas
local wl_type, label, link; -- wl_type not used here; just a place holder

local i = 1;

while name_table[i] do
if name_table[i]:match ('^%(%(.*[^%)][^%)]$') then -- first segment of corporate with one or more commas; this segment has the opening doubled parens
local name = name_table[i];
i=i+1; -- bump indexer to next segment
while name_table[i] do
name = name .. ', ' .. name_table[i]; -- concatenate with previous segments
if name_table[i]:match ('^.*%)%)$') then -- if this table member has the closing doubled parens
break; -- and done reassembling so
end
i=i+1; -- bump indexer
end
table.insert (output_table, name); -- and add corporate name to the output table
table.insert (output_link_table, ''); -- no wikilink
else
wl_type, label, link = is_wikilink (name_table[i]); -- wl_type is: 0, no wl (text in label variable); 1, [[D]]; 2, [[L|D]]
table.insert (output_table, label); -- add this name
if 1 == wl_type then
table.insert (output_link_table, label); -- simple wikilink [[D]]
else
table.insert (output_link_table, link); -- no wikilink or [[L|D]]; add this link if there is one, else empty string
end
end
i = i+1;
end
return output_table;
end

--[[----------------------------------------------------------

This function extracts author / editor names from |vauthors= or |veditors= and finds matching |xxxxor-maskn= and
|xxxxor-linkn= in args. It then returns a table of assembled names just as extract_names() does.

Author / editor names in |vauthors= or |veditors= must be in Vancouver system style. Corporate or institutional names
may sometimes be required and because such names will often fail the is_good_vanc_name() and other format compliance
tests, are wrapped in doubled paranethese ((corporate name)) to suppress the format tests.

Supports generational suffixes Jr, 2nd, 3rd, 4th–6th.

This function sets the vancouver error when a reqired comma is missing and when there is a space between an author's initials.

]]

local function parse_vauthors_veditors (args, vparam, list_name)
local names = {}; -- table of names assembled from |vauthors=, |author-maskn=, |author-linkn=
local v_name_table = {};
local v_link_table = {}; -- when name is wikilinked, targets go in this table
local etal = false; -- return value set to true when we find some form of et al. vauthors parameter
local last, first, link, mask, suffix;
local corporate = false;

vparam, etal = name_has_etal (vparam, etal, true); -- find and remove variations on et al. do not categorize (do it here because et al. might have a period)
v_name_table = get_v_name_table (vparam, v_name_table, v_link_table); -- names are separated by commas

for i, v_name in ipairs(v_name_table) do
if v_name:match ('^%(%(.+%)%)$') then -- corporate authors are wrapped in doubled parentheses to supress vanc formatting and error detection
first = ''; -- set to empty string for concatenation and because it may have been set for previous author/editor
last = v_name:match ('^%(%((.+)%)%)$') -- remove doubled parntheses
corporate = true; -- flag used in list_people()
elseif string.find(v_name, "%s") then
if v_name:find('[;%.]') then -- look for commonly occurring punctuation characters;
add_vanc_error ('punctuation');
end
local lastfirstTable = {}
lastfirstTable = mw.text.split(v_name, "%s")
first = table.remove(lastfirstTable); -- removes and returns value of last element in table which should be author intials
if is_suffix (first) then -- if a valid suffix
suffix = first -- save it as a suffix and
first = table.remove(lastfirstTable); -- get what should be the initials from the table
end -- no suffix error message here because letter combination may be result of Romanization; check for digits?
last = table.concat(lastfirstTable, " ") -- returns a string that is the concatenation of all other names that are not initials
if mw.ustring.match (last, '%a+%s+%u+%s+%a+') then
add_vanc_error ('missing comma'); -- matches last II last; the case when a comma is missing
end
if mw.ustring.match (v_name, ' %u %u$') then -- this test is in the wrong place TODO: move or replace with a more appropriate test
add_vanc_error ('name'); -- matches a space between two intiials
end
else
first = ''; -- set to empty string for concatenation and because it may have been set for previous author/editor
last = v_name; -- last name or single corporate name? Doesn't support multiword corporate names? do we need this?
end

if is_set (first) then
if not mw.ustring.match (first, "^%u?%u$") then -- first shall contain one or two upper-case letters, nothing else
add_vanc_error ('initials'); -- too many initials; mixed case initials (which may be ok Romanization); hyphenated initials
end
is_good_vanc_name (last, first); -- check first and last before restoring the suffix which may have a non-Latin digit
if is_set (suffix) then
first = first .. ' ' .. suffix; -- if there was a suffix concatenate with the initials
suffix = ''; -- unset so we don't add this suffix to all subsequent names
end
else
if not corporate then
is_good_vanc_name (last, '');
end
end

link = select_one( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ) or v_link_table[i];
mask = select_one( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i );
names[i] = {last = last, first = first, link = link, mask = mask, corporate=corporate}; -- add this assembled name to our names list
end
return names, etal; -- all done, return our list of names
end

--[[--------------------------< S E L E C T _ A U T H O R _ E D I T O R _ S O U R C E >------------------------

Select one of |authors=, |authorn= / |lastn / firstn=, or |vauthors= as the source of the author name list or
select one of |editors=, |editorn= / editor-lastn= / |editor-firstn= or |veditors= as the source of the editor name list.

Only one of these appropriate three will be used. The hierarchy is: |authorn= (and aliases) highest and |authors= lowest and
similarly, |editorn= (and aliases) highest and |editors= lowest

When looking for |authorn= / |editorn= parameters, test |xxxxor1= and |xxxxor2= (and all of their aliases); stops after the second
test which mimicks the test used in extract_names() when looking for a hole in the author name list. There may be a better
way to do this, I just haven't discovered what that way is.

Emits an error message when more than one xxxxor name source is provided.

In this function, vxxxxors = vauthors or veditors; xxxxors = authors or editors as appropriate.

]]

local function select_author_editor_source (vxxxxors, xxxxors, args, list_name)
local lastfirst = false;
if select_one( args, cfg.aliases[list_name .. '-Last'], 'none', 1 ) or -- do this twice incase we have a |first1= without a |last1=; this ...
select_one( args, cfg.aliases[list_name .. '-First'], 'none', 1 ) or -- ... also catches the case where |first= is used with |vauthors=
select_one( args, cfg.aliases[list_name .. '-Last'], 'none', 2 ) or
select_one( args, cfg.aliases[list_name .. '-First'], 'none', 2 ) then
lastfirst=true;
end

if (is_set (vxxxxors) and true == lastfirst) or -- these are the three error conditions
(is_set (vxxxxors) and is_set (xxxxors)) or
(true == lastfirst and is_set (xxxxors)) then
local err_name;
if 'AuthorList' == list_name then -- figure out which name should be used in error message
err_name = 'author';
else
err_name = 'editor';
end
table.insert( z.message_tail, { set_error( 'redundant_parameters',
{err_name .. '-name-list parameters'}, true ) } ); -- add error message
end

if true == lastfirst then return 1 end; -- return a number indicating which author name source to use
if is_set (vxxxxors) then return 2 end;
if is_set (xxxxors) then return 3 end;
return 1; -- no authors so return 1; this allows missing author name test to run in case there is a first without last
end

--[[--------------------------------------------------------

This function is used to validate a parameter's assigned value for those parameters that have only a limited number
of allowable values (yes, y, true, no, etc). When the parameter value has not been assigned a value (missing or empty
in the source template) the function returns true. If the parameter value is one of the list of allowed values returns
true; else, emits an error message and returns false.

]]

local function is_valid_parameter_value (value, name, possible)
if not is_set (value) then
return true; -- an empty parameter is ok
elseif in_array(value:lower(), possible) then
return true;
else
table.insert( z.message_tail, { set_error( 'invalid_param_val', {name, value}, true ) } ); -- not an allowed value so add error message
return false
end
end

--[[--------------------------< T E R M I N A T E _ N A M E _ L I S T >----------------------------------------

This function terminates a name list (author, contributor, editor) with a separator character (sepc) and a space
when the last character is not a sepc character or when the last three characters are not sepc followed by two
closing square brackets (close of a wikilink). When either of these is true, the name_list is terminated with a
single space character.

]]

local function terminate_name_list (name_list, sepc)
if (string.sub (name_list,-3,-1) == sepc .. '. ') then -- if already properly terminated
return name_list; -- just return the name list
elseif (string.sub (name_list,-1,-1) == sepc) or (string.sub (name_list,-3,-1) == sepc .. ']]') then -- if last name in list ends with sepc char
return name_list .. " "; -- don't add another
else
return name_list .. sepc .. ' '; -- otherwise terninate the name list
end
end

--[[-------------------------< F O R M A T _ V O L U M E _ I S S U E >----------------------------------------

returns the concatenation of the formatted volume and issue parameters as a single string; or formatted volume
or formatted issue, or an empty string if neither are set.

]]

local function format_volume_issue (volume, issue, cite_class, origin, sepc, lower)
if not is_set (volume) and not is_set (issue) then
return '';
end

if 'magazine' == cite_class or (in_array (cite_class, {'citation', 'map'}) and 'magazine' == origin) then
if is_set (volume) and is_set (issue) then
return wrap_msg ('vol-no', {sepc, volume, issue}, lower);
elseif is_set (volume) then
return wrap_msg ('vol', {sepc, volume}, lower);
else
return wrap_msg ('issue', {sepc, issue}, lower);
end
end

local vol = '';

if is_set (volume) then
if (4 < mw.ustring.len(volume)) then
vol = substitute (cfg.messages['j-vol'], {sepc, volume});
else
vol = substitute (cfg.presentation['vol-bold'], {sepc, hyphen_to_dash(volume)});
end
end
if is_set (issue) then
return vol .. substitute (cfg.messages['j-issue'], issue);
end
return vol;
end

--[[-------------------------< F O R M A T _ P A G E S _ S H E E T S >-----------------------------------------

adds static text to one of |page(s)= or |sheet(s)= values and returns it with all of the others set to empty strings.
The return order is:
page, pages, sheet, sheets

Singular has priority over plural when both are provided.

]]

local function format_pages_sheets (page, pages, sheet, sheets, cite_class, origin, sepc, nopp, lower)
if 'map' == cite_class then -- only cite map supports sheet(s) as in-source locators
if is_set (sheet) then
if 'journal' == origin then
return '', '', wrap_msg ('j-sheet', sheet, lower), '';
else
return '', '', wrap_msg ('sheet', {sepc, sheet}, lower), '';
end
elseif is_set (sheets) then
if 'journal' == origin then
return '', '', '', wrap_msg ('j-sheets', sheets, lower);
else
return '', '', '', wrap_msg ('sheets', {sepc, sheets}, lower);
end
end
end

local is_journal = 'journal' == cite_class or (in_array (cite_class, {'citation', 'map'}) and 'journal' == origin);

if is_set (page) then
if is_journal then
return substitute (cfg.messages['j-page(s)'], page), '', '', '';
elseif not nopp then
return substitute (cfg.messages['p-prefix'], {sepc, page}), '', '', '';
else
return substitute (cfg.messages['nopp'], {sepc, page}), '', '', '';
end
elseif is_set(pages) then
if is_journal then
return substitute (cfg.messages['j-page(s)'], pages), '', '', '';
elseif tonumber(pages) ~= nil and not nopp then -- if pages is only digits, assume a single page number
return '', substitute (cfg.messages['p-prefix'], {sepc, pages}), '', '';
elseif not nopp then
return '', substitute (cfg.messages['pp-prefix'], {sepc, pages}), '', '';
else
return '', substitute (cfg.messages['nopp'], {sepc, pages}), '', '';
end
end

return '', '', '', ''; -- return empty strings
end

--[=[-------------------------< A R C H I V E _ U R L _ C H E C K >--------------------------------------------

Check archive.org urls to make sure they at least look like they are pointing at valid archives and not to the
save snapshot url or to calendar pages. When the archive url is 'https://web.archive.org/save/' (or http://...)
archive.org saves a snapshot of the target page in the url. That is something that Wikipedia should not allow
unwitting readers to do.

When the archive.org url does not have a complete timestamp, archive.org chooses a snapshot according to its own
algorithm or provides a calendar 'search' result. [[WP:ELNO]] discourages links to search results.

This function looks at the value assigned to |archive-url= and returns empty strings for |archive-url= and
|archive-date= and an error message when:
|archive-url= holds an archive.org save command url
|archive-url= is an archive.org url that does not have a complete timestamp (YYYYMMDDhhmmss 14 digits) in the
correct place
otherwise returns |archive-url= and |archive-date=

There are two mostly compatible archive.org urls:
//web.archive.org/<timestamp>... -- the old form
//web.archive.org/web/<timestamp>... -- the new form

The old form does not support or map to the new form when it contains a display flag. There are four identified flags
('id_', 'js_', 'cs_', 'im_') but since archive.org ignores others following the same form (two letters and an underscore)
we don't check for these specific flags but we do check the form.

This function supports a preview mode. When the article is rendered in preview mode, this funct may return a modified
archive url:
for save command errors, return undated wildcard (/*/)
for timestamp errors when the timestamp has a wildcard, return the url unmodified
for timestamp errors when the timestamp does not have a wildcard, return with timestamp limited to six digits plus wildcard (/yyyymm*/)

]=]

local function archive_url_check (url, date)
local err_msg = ''; -- start with the error message empty
local path, timestamp, flag; -- portions of the archive.or url

if (not url:match('//web%.archive%.org/')) and (not url:match('//liveweb%.archive%.org/')) then -- also deprecated liveweb Wayback machine url
return url, date; -- not an archive.org archive, return ArchiveURL and ArchiveDate
end

if url:match('//web%.archive%.org/save/') then -- if a save command url, we don't want to allow saving of the target page
err_msg = 'save command';
url = url:gsub ('(//web%.archive%.org)/save/', '%1/*/', 1); -- for preview mode: modify ArchiveURL
elseif url:match('//liveweb%.archive%.org/') then
err_msg = 'liveweb';
else
path, timestamp, flag = url:match('//web%.archive%.org/([^%d]*)(%d+)([^/]*)/'); -- split out some of the url parts for evaluation

if not is_set(timestamp) or 14 ~= timestamp:len() then -- path and flag optional, must have 14-digit timestamp here
err_msg = 'timestamp';
if '*' ~= flag then
url=url:gsub ('(//web%.archive%.org/[^%d]*%d?%d?%d?%d?%d?%d?)[^/]*', '%1*', 1) -- for preview, modify ts to be yearmo* max (0-6 digits plus splat)
end
elseif is_set(path) and 'web/' ~= path then -- older archive urls do not have the extra 'web/' path element
err_msg = 'path';
elseif is_set (flag) and not is_set (path) then -- flag not allowed with the old form url (without the 'web/' path element)
err_msg = 'flag';
elseif is_set (flag) and not flag:match ('%a%a_') then -- flag if present must be two alpha characters and underscore (requires 'web/' path element)
err_msg = 'flag';
else
return url, date; -- return archiveURL and ArchiveDate
end
end
-- if here, something not right so
table.insert( z.message_tail, { set_error( 'archive_url', {err_msg}, true ) } ); -- add error message and
if is_set (mw.getCurrentFrame():preprocess('{{REVISIONID}}')) then
return '', ''; -- return empty strings for archiveURL and ArchiveDate
else
return url, date; -- preview mode so return archiveURL and ArchiveDate
end
end

--[[--------------------------< M I S S I N G _ P I P E _ C H E C K >------------------------------------------

Look at the contents of a parameter. If the content has a string of characters and digits followed by an equal
sign, compare the alphanumeric string to the list of cs1|2 parameters. If found, then the string is possibly a
parameter that is missing its pipe:
{{cite ... |title=Title access-date=2016-03-17}}

cs1|2 shares some parameter names with xml/html atributes: class=, title=, etc. To prevent false positives xml/html
tags are removed before the search.

If a missing pipe is detected, this function adds the missing pipe maintenance category.

]]

local function missing_pipe_check (value)
local capture;
value = value:gsub ('%b<>', ''); -- remove xml/html tags because attributes: class=, title=, etc

capture = value:match ('%s+(%a[%a%d]+)%s*=') or value:match ('^(%a[%a%d]+)%s*='); -- find and categorize parameters with possible missing pipes
if capture and validate (capture) then -- if the capture is a valid parameter name
add_maint_cat ('missing_pipe');
end
end

--[[--------------------------< C I T A T I O N 0 >------------------------------------------------------------

This is the main function doing the majority of the citation formatting.

]]

local function citation0( config, args)
--[[
Load Input Parameters
The argument_wrapper facilitates the mapping of multiple aliases to single internal variable.
]]
local A = argument_wrapper( args );
local i

-- Pick out the relevant fields from the arguments. Different citation templates
-- define different field names for the same underlying things.

-- set default parameter values defined by |mode= parameter.
local Mode = A['Mode'];
if not is_valid_parameter_value (Mode, 'mode', cfg.keywords['mode']) then
Mode = '';
end

local author_etal;
local a = {}; -- authors list from |lastn= / |firstn= pairs or |vauthors=
local Authors;
local NameListFormat = A['NameListFormat'];
local Collaboration = A['Collaboration'];

do -- to limit scope of selected
local selected = select_author_editor_source (A['Vauthors'], A['Authors'], args, 'AuthorList');
if 1 == selected then
a, author_etal = extract_names (args, 'AuthorList'); -- fetch author list from |authorn= / |lastn= / |firstn=, |author-linkn=, and |author-maskn=
elseif 2 == selected then
NameListFormat = 'vanc'; -- override whatever |name-list-format= might be
a, author_etal = parse_vauthors_veditors (args, args.vauthors, 'AuthorList'); -- fetch author list from |vauthors=, |author-linkn=, and |author-maskn=
elseif 3 == selected then
Authors = A['Authors']; -- use content of |authors=
if 'authors' == A:ORIGIN('Authors') then -- but add a maint cat if the parameter is |authors=
add_maint_cat ('authors'); -- because use of this parameter is discouraged; what to do about the aliases is a TODO:
end
end
if is_set (Collaboration) then
author_etal = true; -- so that |display-authors=etal not required
end
end

local Others = A['Others'];

local editor_etal;
local e = {}; -- editors list from |editor-lastn= / |editor-firstn= pairs or |veditors=
local Editors;

do -- to limit scope of selected
local selected = select_author_editor_source (A['Veditors'], A['Editors'], args, 'EditorList');
if 1 == selected then
e, editor_etal = extract_names (args, 'EditorList'); -- fetch editor list from |editorn= / |editor-lastn= / |editor-firstn=, |editor-linkn=, and |editor-maskn=
elseif 2 == selected then
NameListFormat = 'vanc'; -- override whatever |name-list-format= might be
e, editor_etal = parse_vauthors_veditors (args, args.veditors, 'EditorList'); -- fetch editor list from |veditors=, |editor-linkn=, and |editor-maskn=
elseif 3 == selected then
Editors = A['Editors']; -- use content of |editors=
add_maint_cat ('editors'); -- but add a maint cat because use of this parameter is discouraged
end
end

local t = {}; -- translators list from |translator-lastn= / translator-firstn= pairs
local Translators; -- assembled translators name list
t = extract_names (args, 'TranslatorList'); -- fetch translator list from |translatorn= / |translator-lastn=, -firstn=, -linkn=, -maskn=

local interviewers_list = {};
local Interviewers = A['Interviewers']
if is_set (Interviewers) then -- add a maint cat if the |interviewers= is used
add_maint_cat ('interviewers'); -- because use of this parameter is discouraged
else
interviewers_list = extract_names (args, 'InterviewerList'); -- else, process preferred interviewers parameters
end

local c = {}; -- contributors list from |contributor-lastn= / contributor-firstn= pairs
local Contributors; -- assembled contributors name list
local Contribution = A['Contribution'];
if in_array(config.CitationClass, {"book","citation"}) and not is_set(A['Periodical']) then -- |contributor= and |contribution= only supported in book cites
c = extract_names (args, 'ContributorList'); -- fetch contributor list from |contributorn= / |contributor-lastn=, -firstn=, -linkn=, -maskn=

if 0 < #c then
if not is_set (Contribution) then -- |contributor= requires |contribution=
table.insert( z.message_tail, { set_error( 'contributor_missing_required_param', 'contribution')}); -- add missing contribution error message
c = {}; -- blank the contributors' table; it is used as a flag later
end
if 0 == #a then -- |contributor= requires |author=
table.insert( z.message_tail, { set_error( 'contributor_missing_required_param', 'author')}); -- add missing author error message
c = {}; -- blank the contributors' table; it is used as a flag later
end
end
else -- if not a book cite
if select_one (args, cfg.aliases['ContributorList-Last'], 'redundant_parameters', 1 ) then -- are there contributor name list parameters?
table.insert( z.message_tail, { set_error( 'contributor_ignored')}); -- add contributor ignored error message
end
Contribution = nil; -- unset
end

if not is_valid_parameter_value (NameListFormat, 'name-list-format', cfg.keywords['name-list-format']) then -- only accepted value for this parameter is 'vanc'
NameListFormat = ''; -- anything else, set to empty string
end

local Year = A['Year'];
local PublicationDate = A['PublicationDate'];
local OrigYear = A['OrigYear'];
local Date = A['Date'];
local LayDate = A['LayDate'];
------------------------------------------------- Get title data
local Title = A['Title'];
local ScriptTitle = A['ScriptTitle'];
local BookTitle = A['BookTitle'];
local Conference = A['Conference'];
local TransTitle = A['TransTitle'];
local TitleNote = A['TitleNote'];
local TitleLink = A['TitleLink'];
link_title_ok (TitleLink, A:ORIGIN ('TitleLink'), Title, 'title'); -- check for wikimarkup in |title-link= or wikimarkup in |title= when |title-link= is set

local Chapter = A['Chapter'];
local ScriptChapter = A['ScriptChapter'];
local ChapterLink -- = A['ChapterLink']; -- deprecated as a parameter but still used internally by cite episode
local TransChapter = A['TransChapter'];
local TitleType = A['TitleType'];
local Degree = A['Degree'];
local Docket = A['Docket'];
local ArchiveFormat = A['ArchiveFormat'];

local ArchiveDate;
local ArchiveURL;

ArchiveURL, ArchiveDate = archive_url_check (A['ArchiveURL'], A['ArchiveDate'])

local DeadURL = A['DeadURL']
if not is_valid_parameter_value (DeadURL, 'dead-url', cfg.keywords ['deadurl']) then -- set in config.defaults to 'yes'
DeadURL = ''; -- anything else, set to empty string
end

local URL = A['URL']
local URLorigin = A:ORIGIN('URL'); -- get name of parameter that holds URL
local ChapterURL = A['ChapterURL'];
local ChapterURLorigin = A:ORIGIN('ChapterURL'); -- get name of parameter that holds ChapterURL
local ConferenceFormat = A['ConferenceFormat'];
local ConferenceURL = A['ConferenceURL'];
local ConferenceURLorigin = A:ORIGIN('ConferenceURL'); -- get name of parameter that holds ConferenceURL
local Periodical = A['Periodical'];
local Periodical_origin = A:ORIGIN('Periodical'); -- get the name of the periodical parameter

local Series = A['Series'];

local Volume;
local Issue;
local Page;
local Pages;
local At;

if in_array (config.CitationClass, cfg.templates_using_volume) then
Volume = A['Volume'];
end
-- conference & map books do not support issue
if in_array (config.CitationClass, cfg.templates_using_issue) and not (in_array (config.CitationClass, {'conference', 'map'}) and not is_set (Periodical))then
Issue = A['Issue'];
end
local Position = '';
if not in_array (config.CitationClass, cfg.templates_not_using_page) then
Page = A['Page'];
Pages = hyphen_to_dash( A['Pages'] );
At = A['At'];
end

local Edition = A['Edition'];
local PublicationPlace = A['PublicationPlace']
local Place = A['Place'];

local PublisherName = A['PublisherName'];
local RegistrationRequired = A['RegistrationRequired'];
if not is_valid_parameter_value (RegistrationRequired, 'registration', cfg.keywords ['yes_true_y']) then
RegistrationRequired=nil;
end

local SubscriptionRequired = A['SubscriptionRequired'];
if not is_valid_parameter_value (SubscriptionRequired, 'subscription', cfg.keywords ['yes_true_y']) then
SubscriptionRequired=nil;
end

local UrlAccess = A['UrlAccess'];
if not is_valid_parameter_value (UrlAccess, 'url-access', cfg.keywords ['url-access']) then
UrlAccess = nil;
end
if not is_set(URL) and is_set(UrlAccess) then
UrlAccess = nil;
table.insert( z.message_tail, { set_error( 'param_access_requires_param', {'url'}, true ) } );
end

if is_set (UrlAccess) and is_set (SubscriptionRequired) then -- while not aliases, these are much the same so if both are set
table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'url-access') .. ' și ' .. wrap_style ('parameter', 'subscription')}, true ) } ); -- add error message
SubscriptionRequired = nil; -- unset; prefer |access= over |subscription=
end
if is_set (UrlAccess) and is_set (RegistrationRequired) then -- these are not the same but contradictory so if both are set
table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'url-access') .. ' și ' .. wrap_style ('parameter', 'registration')}, true ) } ); -- add error message
RegistrationRequired = nil; -- unset; prefer |access= over |registration=
end

local ChapterUrlAccess = A['ChapterUrlAccess'];
if not is_valid_parameter_value (ChapterUrlAccess, 'chapter-url-access', cfg.keywords ['url-access']) then -- same as url-access
ChapterUrlAccess = nil;
end
if not is_set(ChapterURL) and is_set(ChapterUrlAccess) then
ChapterUrlAccess = nil;
table.insert( z.message_tail, { set_error( 'param_access_requires_param', {'chapter-url'}, true ) } );
end

local Via = A['Via'];
local AccessDate = A['AccessDate'];
local Agency = A['Agency'];

local Language = A['Language'];
local Format = A['Format'];
local ChapterFormat = A['ChapterFormat'];
local DoiBroken = A['DoiBroken'];
local ID = A['ID'];
local ASINTLD = A['ASINTLD'];
local IgnoreISBN = A['IgnoreISBN'];
if not is_valid_parameter_value (IgnoreISBN, 'ignore-isbn-error', cfg.keywords ['yes_true_y']) then
IgnoreISBN = nil; -- anything else, set to empty string
end
local ISBNLink = A['ISBNLink'];
if is_set (ISBNLink) and is_valid_parameter_value (ISBNLink, 'isbn-link', cfg.keywords ['no_false_n']) then
ISBNLink = false;
else
ISBNLink = true;
end
local ISSNLink = A['ISSNLink'];
if is_set (ISSNLink) and is_valid_parameter_value (ISSNLink, 'issn-link', cfg.keywords ['no_false_n']) then
ISSNLink = false;
else
ISSNLink = true;
end
local Embargo = A['Embargo'];
local Class = A['Class']; -- arxiv class identifier

local ID_list = extract_ids( args );
local ID_access_levels = extract_id_access_levels( args, ID_list );

local Quote = A['Quote'];

local LayFormat = A['LayFormat'];
local LayURL = A['LayURL'];
local LaySource = A['LaySource'];
local Transcript = A['Transcript'];
local TranscriptFormat = A['TranscriptFormat'];
local TranscriptURL = A['TranscriptURL']
local TranscriptURLorigin = A:ORIGIN('TranscriptURL'); -- get name of parameter that holds TranscriptURL

local LastAuthorAmp = A['LastAuthorAmp'];
if not is_valid_parameter_value (LastAuthorAmp, 'last-author-amp', cfg.keywords ['yes_true_y']) then
LastAuthorAmp = nil; -- set to empty string
end

local no_tracking_cats = A['NoTracking'];
if not is_valid_parameter_value (no_tracking_cats, 'no-tracking', cfg.keywords ['yes_true_y']) then
no_tracking_cats = nil; -- set to empty string
end

--local variables that are not cs1 parameters
local use_lowercase; -- controls capitalization of certain static text
local this_page = mw.title.getCurrentTitle(); -- also used for COinS and for language
local anchor_year; -- used in the CITEREF identifier
local COinS_date = {}; -- holds date info extracted from |date= for the COinS metadata by Module:Date verification

local DF = A['DF']; -- date format set in cs1|2 template
if not is_valid_parameter_value (DF, 'df', cfg.keywords['date-format']) then -- validate reformatting keyword
DF = ''; -- not valid, set to empty string
end

local sepc; -- separator between citation elements for CS1 a period, for CS2, a comma
local PostScript;
local Ref;
sepc, PostScript, Ref = set_style (Mode:lower(), A['PostScript'], A['Ref'], config.CitationClass);
use_lowercase = ( sepc == ',' ); -- used to control capitalization for certain static text

--check this page to see if it is in one of the namespaces that cs1 is not supposed to add to the error categories
if not is_set (no_tracking_cats) then -- ignore if we are already not going to categorize this page
if in_array (this_page.nsText, cfg.uncategorized_namespaces) then
no_tracking_cats = "true"; -- set no_tracking_cats
end
for _,v in ipairs (cfg.uncategorized_subpages) do -- cycle through page name patterns
if this_page.text:match (v) then -- test page name against each pattern
no_tracking_cats = "true"; -- set no_tracking_cats
break; -- bail out if one is found
end
end
end

-- check for extra |page=, |pages= or |at= parameters. (also sheet and sheets while we're at it)
select_one( args, {'page', 'p', 'pp', 'pages', 'at', 'sheet', 'sheets'}, 'redundant_parameters' ); -- this is a dummy call simply to get the error message and category

local NoPP = A['NoPP']
if is_set (NoPP) and is_valid_parameter_value (NoPP, 'nopp', cfg.keywords ['yes_true_y']) then
NoPP = true;
else
NoPP = nil; -- unset, used as a flag later
end

if is_set(Page) then
if is_set(Pages) or is_set(At) then
Pages = ''; -- unset the others
At = '';
end
extra_text_in_page_check (Page); -- add this page to maint cat if |page= value begins with what looks like p. or pp.
elseif is_set(Pages) then
if is_set(At) then
At = ''; -- unset
end
extra_text_in_page_check (Pages); -- add this page to maint cat if |pages= value begins with what looks like p. or pp.
end

-- both |publication-place= and |place= (|location=) allowed if different
if not is_set(PublicationPlace) and is_set(Place) then
PublicationPlace = Place; -- promote |place= (|location=) to |publication-place
end

if PublicationPlace == Place then Place = ''; end -- don't need both if they are the same

--[[
Parameter remapping for cite encyclopedia:
When the citation has these parameters:
|encyclopedia and |title then map |title to |article and |encyclopedia to |title
|encyclopedia and |article then map |encyclopedia to |title
|encyclopedia then map |encyclopedia to |title

|trans_title maps to |trans_chapter when |title is re-mapped
|url maps to |chapterurl when |title is remapped

All other combinations of |encyclopedia, |title, and |article are not modified

]]

local Encyclopedia = A['Encyclopedia'];

if ( config.CitationClass == "encyclopaedia" ) or ( config.CitationClass == "citation" and is_set (Encyclopedia)) then -- test code for citation
if is_set(Periodical) then -- Periodical is set when |encyclopedia is set
if is_set(Title) or is_set (ScriptTitle) then
if not is_set(Chapter) then
Chapter = Title; -- |encyclopedia and |title are set so map |title to |article and |encyclopedia to |title
ScriptChapter = ScriptTitle;
TransChapter = TransTitle;
ChapterURL = URL;
ChapterUrlAccess = UrlAccess;

if not is_set (ChapterURL) and is_set (TitleLink) then
Chapter = make_wikilink (TitleLink, Chapter);
end
Title = Periodical;
ChapterFormat = Format;
Periodical = ''; -- redundant so unset
TransTitle = '';
URL = '';
Format = '';
TitleLink = '';
ScriptTitle = '';
end
else -- |title not set
Title = Periodical; -- |encyclopedia set and |article set or not set so map |encyclopedia to |title
Periodical = ''; -- redundant so unset
end
end
end

-- Special case for cite techreport.
if (config.CitationClass == "techreport") then -- special case for cite techreport
if is_set(A['Number']) then -- cite techreport uses 'number', which other citations alias to 'issue'
if not is_set(ID) then -- can we use ID for the "number"?
ID = A['Number']; -- yes, use it
else -- ID has a value so emit error message
table.insert( z.message_tail, { set_error('redundant_parameters', {wrap_style ('parameter', 'id') .. ' și ' .. wrap_style ('parameter', 'number')}, true )});
end
end
end

-- special case for cite mailing list
if (config.CitationClass == "mailinglist") then
Periodical = A ['MailingList'];
elseif 'mailinglist' == A:ORIGIN('Periodical') then
Periodical = ''; -- unset because mailing list is only used for cite mailing list
end

-- Account for the oddity that is {{cite conference}}, before generation of COinS data.
if 'conference' == config.CitationClass then
if is_set(BookTitle) then
Chapter = Title;
-- ChapterLink = TitleLink; -- |chapterlink= is deprecated
ChapterURL = URL;
ChapterUrlAccess = UrlAccess;
ChapterURLorigin = URLorigin;
URLorigin = '';
ChapterFormat = Format;
TransChapter = TransTitle;
Title = BookTitle;
Format = '';
-- TitleLink = '';
TransTitle = '';
URL = '';
end
elseif 'speech' ~= config.CitationClass then
Conference = ''; -- not cite conference or cite speech so make sure this is empty string
end

-- cite map oddities
local Cartography = "";
local Scale = "";
local Sheet = A['Sheet'] or '';
local Sheets = A['Sheets'] or '';
if config.CitationClass == "map" then
Chapter = A['Map'];
ChapterURL = A['MapURL'];
ChapterUrlAccess = UrlAccess;
TransChapter = A['TransMap'];
ChapterURLorigin = A:ORIGIN('MapURL');
ChapterFormat = A['MapFormat'];

Cartography = A['Cartography'];
if is_set( Cartography ) then
Cartography = sepc .. " " .. wrap_msg ('cartography', Cartography, use_lowercase);
end
Scale = A['Scale'];
if is_set( Scale ) then
Scale = sepc .. " " .. Scale;
end
end

-- Account for the oddities that are {{cite episode}} and {{cite serial}}, before generation of COinS data.
if 'episode' == config.CitationClass or 'serial' == config.CitationClass then
local AirDate = A['AirDate'];
local SeriesLink = A['SeriesLink'];

link_title_ok (SeriesLink, A:ORIGIN ('SeriesLink'), Series, 'series'); -- check for wikimarkup in |series-link= or wikimarkup in |series= when |series-link= is set

local Network = A['Network'];
local Station = A['Station'];
local s, n = {}, {};
-- do common parameters first
if is_set(Network) then table.insert(n, Network); end
if is_set(Station) then table.insert(n, Station); end
ID = table.concat(n, sepc .. ' ');

if not is_set (Date) and is_set (AirDate) then -- promote airdate to date
Date = AirDate;
end

if 'episode' == config.CitationClass then -- handle the oddities that are strictly {{cite episode}}
local Season = A['Season'];
local SeriesNumber = A['SeriesNumber'];

if is_set (Season) and is_set (SeriesNumber) then -- these are mutually exclusive so if both are set
table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'season') .. ' și ' .. wrap_style ('parameter', 'seriesno')}, true ) } ); -- add error message
SeriesNumber = ''; -- unset; prefer |season= over |seriesno=
end
-- assemble a table of parts concatenated later into Series
if is_set(Season) then table.insert(s, wrap_msg ('season', Season, use_lowercase)); end
if is_set(SeriesNumber) then table.insert(s, wrap_msg ('series', SeriesNumber, use_lowercase)); end
if is_set(Issue) then table.insert(s, wrap_msg ('episode', Issue, use_lowercase)); end
Issue = ''; -- unset because this is not a unique parameter

Chapter = Title; -- promote title parameters to chapter
ScriptChapter = ScriptTitle;
ChapterLink = TitleLink; -- alias episodelink
TransChapter = TransTitle;
ChapterURL = URL;
ChapterUrlAccess = UrlAccess;
ChapterURLorigin = A:ORIGIN('URL');

Title = Series; -- promote series to title
TitleLink = SeriesLink;
Series = table.concat(s, sepc .. ' '); -- this is concatenation of season, seriesno, episode number

if is_set (ChapterLink) and not is_set (ChapterURL) then -- link but not URL
Chapter = make_wikilink (ChapterLink, Chapter);
elseif is_set (ChapterLink) and is_set (ChapterURL) then -- if both are set, URL links episode;
Series = make_wikilink (ChapterLink, Series);
end
URL = ''; -- unset
TransTitle = '';
ScriptTitle = '';

else -- now oddities that are cite serial
Issue = ''; -- unset because this parameter no longer supported by the citation/core version of cite serial
Chapter = A['Episode']; -- TODO: make |episode= available to cite episode someday?
if is_set (Series) and is_set (SeriesLink) then
Series = make_wikilink (SeriesLink, Series);
end
Series = wrap_style ('italic-title', Series); -- series is italicized
end
end
-- end of {{cite episode}} stuff

-- Account for the oddities that are {{cite arxiv}}, {{cite biorxiv}}, {{cite citeseerx}}, before generation of COinS data.
do
if in_array (config.CitationClass, {'arxiv', 'biorxiv', 'citeseerx'}) then
if not is_set (ID_list[config.CitationClass:upper()]) then -- |arxiv= or |eprint= required for cite arxiv; |biorxiv= & |citeseerx= required for their templates
table.insert( z.message_tail, { set_error( config.CitationClass .. '_missing', {}, true ) } ); -- add error message
end

if 'arxiv' == config.CitationClass then
Periodical = 'arXiv'; -- set to arXiv for COinS; after that, must be set to empty string
end

if 'biorxiv' == config.CitationClass then
Periodical = 'bioRxiv'; -- set to bioRxiv for COinS; after that, must be set to empty string
end

if 'citeseerx' == config.CitationClass then
Periodical = 'CiteSeerX'; -- set to CiteSeerX for COinS; after that, must be set to empty string
end
end
end

-- handle type parameter for those CS1 citations that have default values
if in_array(config.CitationClass, {"AV-media-notes", "interview", "mailinglist", "map", "podcast", "pressrelease", "report", "techreport", "thesis"}) then
TitleType = set_titletype (config.CitationClass, TitleType);
if is_set(Degree) and "Thesis" == TitleType then -- special case for cite thesis
TitleType = cfg.title_types ['thesis']:lower() .. ' de ' .. Degree;
end
end

if is_set(TitleType) then -- if type parameter is specified
TitleType = substitute( cfg.messages['type'], TitleType); -- display it in parentheses
-- TODO: Hack on TitleType to fix bunched parentheses problem
end

-- legacy: promote PublicationDate to Date if neither Date nor Year are set.
if not is_set (Date) then
Date = Year; -- promote Year to Date
Year = nil; -- make nil so Year as empty string isn't used for CITEREF
if not is_set (Date) and is_set(PublicationDate) then -- use PublicationDate when |date= and |year= are not set
Date = PublicationDate; -- promote PublicationDate to Date
PublicationDate = ''; -- unset, no longer needed
end
end

if PublicationDate == Date then PublicationDate = ''; end -- if PublicationDate is same as Date, don't display in rendered citation

--[[
Go test all of the date-holding parameters for valid MOS:DATE format and make sure that dates are real dates. This must be done before we do COinS because here is where
we get the date used in the metadata.

Date validation supporting code is in Module:Citation/CS1/Date_validation
]]
do -- create defined block to contain local variables error_message, date_parameters_list, mismatch
local error_message = '';
-- AirDate has been promoted to Date so not necessary to check it
local date_parameters_list = {['access-date']=AccessDate, ['archive-date']=ArchiveDate, ['date']=Date, ['doi-broken-date']=DoiBroken,
['embargo']=Embargo, ['lay-date']=LayDate, ['publication-date']=PublicationDate, ['year']=Year};

anchor_year, Embargo, error_message = dates(date_parameters_list, COinS_date);

if is_set (Year) and is_set (Date) then -- both |date= and |year= not normally needed;
local mismatch = year_date_check (Year, Date)
if 0 == mismatch then -- |year= does not match a year-value in |date=
if is_set (error_message) then -- if there is already an error message
error_message = error_message .. ', '; -- tack on this additional message
end
error_message = error_message .. '|year= / |date= mismatch';
elseif 1 == mismatch then -- |year= matches year-value in |date=
add_maint_cat ('date_year');
end
end

if not is_set(error_message) then -- error free dates only
local modified = false; -- flag

modified = reformat_dates (date_parameters_list, DF, false); -- reformat to DF format, use long month names if appropriate

if true == date_hyphen_to_dash (date_parameters_list) then -- convert hyphens to dashes where appropriate
modified = true;
add_maint_cat ('date_format'); -- hyphens were converted so add maint category
end

-- for those wikis that can and want to have English date names translated to the local language,
-- uncomment these three lines. Not supported by en.wiki (for obvious reasons)
-- if date_name_xlate (date_parameters_list) then
-- modified = true;
-- end

if modified then -- if the date_parameters_list values were modified
AccessDate = date_parameters_list['access-date']; -- overwrite date holding parameters with modified values
ArchiveDate = date_parameters_list['archive-date'];
Date = date_parameters_list['date'];
DoiBroken = date_parameters_list['doi-broken-date'];
LayDate = date_parameters_list['lay-date'];
PublicationDate = date_parameters_list['publication-date'];
end
else
table.insert( z.message_tail, { set_error( 'bad_date', {error_message}, true ) } ); -- add this error message
end
end -- end of do

-- Account for the oddity that is {{cite journal}} with |pmc= set and |url= not set. Do this after date check but before COInS.
-- Here we unset Embargo if PMC not embargoed (|embargo= not set in the citation) or if the embargo time has expired. Otherwise, holds embargo date
Embargo = is_embargoed (Embargo);

if config.CitationClass == "journal" and not is_set(URL) and is_set(ID_list['PMC']) then
if not is_set (Embargo) then -- if not embargoed or embargo has expired
URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC']; -- set url to be the same as the PMC external link if not embargoed
URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=
if is_set(AccessDate) then -- access date requires |url=; pmc created url is not |url=
table.insert( z.message_tail, { set_error( 'accessdate_missing_url', {}, true ) } );
AccessDate = ''; -- unset
end

end
end

-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.
-- Test if citation has no title
if not is_set(Title) and
not is_set(TransTitle) and
not is_set(ScriptTitle) then
if 'episode' == config.CitationClass then -- special case for cite episode; TODO: is there a better way to do this?
table.insert( z.message_tail, { set_error( 'citation_missing_title', {'series'}, true ) } );
else
table.insert( z.message_tail, { set_error( 'citation_missing_title', {'title'}, true ) } );
end
end

if 'none' == Title and in_array (config.CitationClass, {'journal', 'citation'}) and is_set (Periodical) and 'journal' == A:ORIGIN('Periodical') then -- special case for journal cites
Title = ''; -- set title to empty string
add_maint_cat ('untitled');
end

check_for_url ({ -- add error message when any of these parameters contains a URL
['title']=Title,
[A:ORIGIN('Chapter')]=Chapter,
[A:ORIGIN('Periodical')]=Periodical,
[A:ORIGIN('PublisherName')] = PublisherName
});

-- COinS metadata (see <http://ocoins.info/>) for automated parsing of citation information.
-- handle the oddity that is cite encyclopedia and {{citation |encyclopedia=something}}. Here we presume that
-- when Periodical, Title, and Chapter are all set, then Periodical is the book (encyclopedia) title, Title
-- is the article title, and Chapter is a section within the article. So, we remap

local coins_chapter = Chapter; -- default assuming that remapping not required
local coins_title = Title; -- et tu
if 'encyclopaedia' == config.CitationClass or ('citation' == config.CitationClass and is_set (Encyclopedia)) then
if is_set (Chapter) and is_set (Title) and is_set (Periodical) then -- if all are used then
coins_chapter = Title; -- remap
coins_title = Periodical;
end
end
local coins_author = a; -- default for coins rft.au
if 0 < #c then -- but if contributor list
coins_author = c; -- use that instead
end

-- this is the function call to COinS()
local OCinSoutput = COinS({
['Periodical'] = Periodical,
['Encyclopedia'] = Encyclopedia,
['Chapter'] = make_coins_title (coins_chapter, ScriptChapter), -- Chapter and ScriptChapter stripped of bold / italic wikimarkup
['Degree'] = Degree; -- cite thesis only
['Title'] = make_coins_title (coins_title, ScriptTitle), -- Title and ScriptTitle stripped of bold / italic wikimarkup
['PublicationPlace'] = PublicationPlace,
['Date'] = COinS_date.rftdate, -- COinS_date has correctly formatted date if Date is valid;
['Season'] = COinS_date.rftssn,
['Chron'] = COinS_date.rftchron or (not COinS_date.rftdate and Date) or '', -- chron but if not set and invalid date format use Date; keep this last bit?
['Series'] = Series,
['Volume'] = Volume,
['Issue'] = Issue,
['Pages'] = get_coins_pages (first_set ({Sheet, Sheets, Page, Pages, At}, 5)), -- pages stripped of external links
['Edition'] = Edition,
['PublisherName'] = PublisherName,
['URL'] = first_set ({ChapterURL, URL}, 2),
['Authors'] = coins_author,
['ID_list'] = ID_list,
['RawPage'] = this_page.prefixedText,
}, config.CitationClass);

-- Account for the oddities that are {{cite arxiv}}, {{cite biorxiv}}, and {{cite citeseerx}} AFTER generation of COinS data.
if in_array (config.CitationClass, {'arxiv', 'biorxiv', 'citeseerx'}) then -- we have set rft.jtitle in COinS to arXiv, bioRxiv, or CiteSeerX now unset so it isn't displayed
Periodical = ''; -- periodical not allowed in these templates; if article has been published, use cite journal
end

-- special case for cite newsgroup. Do this after COinS because we are modifying Publishername to include some static text
if 'newsgroup' == config.CitationClass then
if is_set (PublisherName) then
PublisherName = substitute (cfg.messages['newsgroup'], external_link( 'news:' .. PublisherName, PublisherName, A:ORIGIN('PublisherName'), nil ));
end
end

-- Now perform various field substitutions.
-- We also add leading spaces and surrounding markup and punctuation to the
-- various parts of the citation, but only when they are non-nil.
local EditorCount; -- used only for choosing {ed.) or (eds.) annotation at end of editor name-list
do
local last_first_list;
local control = {
format = NameListFormat, -- empty string or 'vanc'
maximum = nil, -- as if display-authors or display-editors not set
lastauthoramp = LastAuthorAmp,
page_name = this_page.text, -- get current page name so that we don't wikilink to it via editorlinkn
mode = Mode
};

do -- do editor name list first because the now unsupported coauthors used to modify control table
control.maximum , editor_etal = get_display_authors_editors (A['DisplayEditors'], #e, 'editors', editor_etal);
last_first_list, EditorCount = list_people(control, e, editor_etal);

if is_set (Editors) then
if editor_etal then
Editors = Editors .. ' ' .. cfg.messages['et al']; -- add et al. to editors parameter beause |display-editors=etal
EditorCount = 2; -- with et al., |editors= is multiple names; spoof to display (eds.) annotation
else
EditorCount = 2; -- we don't know but assume |editors= is multiple names; spoof to display (eds.) annotation
end
else
Editors = last_first_list; -- either an author name list or an empty string
end

if 1 == EditorCount and (true == editor_etal or 1 < #e) then -- only one editor displayed but includes etal then
EditorCount = 2; -- spoof to display (eds.) annotation
end
end
do -- now do interviewers
control.maximum = #interviewers_list; -- number of interviewerss
Interviewers = list_people(control, interviewers_list, false); -- et al not currently supported
end
do -- now do translators
control.maximum = #t; -- number of translators
Translators = list_people(control, t, false); -- et al not currently supported
end
do -- now do contributors
control.maximum = #c; -- number of contributors
Contributors = list_people(control, c, false); -- et al not currently supported
end
do -- now do authors
control.maximum , author_etal = get_display_authors_editors (A['DisplayAuthors'], #a, 'authors', author_etal);

last_first_list = list_people(control, a, author_etal);

if is_set (Authors) then
Authors, author_etal = name_has_etal (Authors, author_etal, false); -- find and remove variations on et al.
if author_etal then
Authors = Authors .. ' ' .. cfg.messages['et al']; -- add et al. to authors parameter
end
else
Authors = last_first_list; -- either an author name list or an empty string
end
end -- end of do

if is_set (Authors) and is_set (Collaboration) then
Authors = Authors .. ' (' .. Collaboration .. ')'; -- add collaboration after et al.
end

end

-- apply |[xx-]format= styling; at the end, these parameters hold correctly styled format annotation,
-- an error message if the associated url is not set, or an empty string for concatenation
ArchiveFormat = style_format (ArchiveFormat, ArchiveURL, 'archive-format', 'archive-url');
ConferenceFormat = style_format (ConferenceFormat, ConferenceURL, 'conference-format', 'conference-url');
Format = style_format (Format, URL, 'format', 'url');
LayFormat = style_format (LayFormat, LayURL, 'lay-format', 'lay-url');
TranscriptFormat = style_format (TranscriptFormat, TranscriptURL, 'transcript-format', 'transcripturl');

-- special case for chapter format so no error message or cat when chapter not supported
if not (in_array(config.CitationClass, {'web', 'news', 'journal', 'magazine', 'pressrelease', 'podcast', 'newsgroup', 'arxiv', 'biorxiv', 'citeseerx'}) or
('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia))) then
ChapterFormat = style_format (ChapterFormat, ChapterURL, 'chapter-format', 'chapter-url');
end

if not is_set(URL) then
if in_array(config.CitationClass, {"web","podcast", "mailinglist"}) then -- |url= required for cite web, cite podcast, and cite mailinglist
table.insert( z.message_tail, { set_error( 'cite_web_url', {}, true ) } );
end

-- do we have |accessdate= without either |url= or |chapter-url=?
if is_set(AccessDate) and not is_set(ChapterURL)then -- ChapterURL may be set when URL is not set;
table.insert( z.message_tail, { set_error( 'accessdate_missing_url', {}, true ) } );
AccessDate = '';
end
end

local OriginalURL, OriginalURLorigin, OriginalFormat, OriginalAccess;
DeadURL = DeadURL:lower(); -- used later when assembling archived text
if is_set( ArchiveURL ) then
if is_set (ChapterURL) then -- URL not set so if chapter-url is set apply archive url to it
OriginalURL = ChapterURL; -- save copy of source chapter's url for archive text
OriginalURLorigin = ChapterURLorigin; -- name of chapter-url parameter for error messages
OriginalFormat = ChapterFormat; -- and original |format=
if 'no' ~= DeadURL then
ChapterURL = ArchiveURL -- swap-in the archive's url
ChapterURLorigin = A:ORIGIN('ArchiveURL') -- name of archive-url parameter for error messages
ChapterFormat = ArchiveFormat or ''; -- swap in archive's format
end
elseif is_set (URL) then
OriginalURL = URL; -- save copy of original source URL
OriginalURLorigin = URLorigin; -- name of url parameter for error messages
OriginalFormat = Format; -- and original |format=
OriginalAccess = UrlAccess;
if 'no' ~= DeadURL then -- if URL set then archive-url applies to it
URL = ArchiveURL -- swap-in the archive's url
URLorigin = A:ORIGIN('ArchiveURL') -- name of archive url parameter for error messages
Format = ArchiveFormat or ''; -- swap in archive's format
UrlAccess = nil; -- restricted access levels do not make sense for archived urls
end
end
end

if in_array(config.CitationClass, {'web','news','journal', 'magazine', 'pressrelease', 'podcast', 'newsgroup', 'arxiv', 'biorxiv', 'citeseerx'}) or -- if any of the 'periodical' cites except encyclopedia
('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia)) then
local chap_param;
if is_set (Chapter) then -- get a parameter name from one of these chapter related meta-parameters
chap_param = A:ORIGIN ('Chapter')
elseif is_set (TransChapter) then
chap_param = A:ORIGIN ('TransChapter')
elseif is_set (ChapterURL) then
chap_param = A:ORIGIN ('ChapterURL')
elseif is_set (ScriptChapter) then
chap_param = A:ORIGIN ('ScriptChapter')
else is_set (ChapterFormat)
chap_param = A:ORIGIN ('ChapterFormat')
end

if is_set (chap_param) then -- if we found one
table.insert( z.message_tail, { set_error( 'chapter_ignored', {chap_param}, true ) } ); -- add error message
Chapter = ''; -- and set them to empty string to be safe with concatenation
TransChapter = '';
ChapterURL = '';
ScriptChapter = '';
ChapterFormat = '';
end
else -- otherwise, format chapter / article title
local no_quotes = false; -- default assume that we will be quoting the chapter parameter value
if is_set (Contribution) and 0 < #c then -- if this is a contribution with contributor(s)
if in_array (Contribution:lower(), cfg.keywords.contribution) then -- and a generic contribution title
no_quotes = true; -- then render it unquoted
end
end

Chapter = format_chapter_title (ScriptChapter, Chapter, TransChapter, ChapterURL, ChapterURLorigin, no_quotes, ChapterUrlAccess); -- Contribution is also in Chapter
if is_set (Chapter) then
Chapter = Chapter .. ChapterFormat ;
if 'map' == config.CitationClass and is_set (TitleType) then
Chapter = Chapter .. ' ' .. TitleType; -- map annotation here; not after title
end
Chapter = Chapter.. sepc .. ' ';
elseif is_set (ChapterFormat) then -- |chapter= not set but |chapter-format= is so ...
Chapter = ChapterFormat .. sepc .. ' '; -- ... ChapterFormat has error message, we want to see it
end
end

-- Format main title.
Title = mw.ustring.gsub(Title, '%'..sepc..'$', ''); -- remove any trailing separator character
if is_set(TitleLink) and is_set(Title) then
Title = make_wikilink (TitleLink, Title);
end

if in_array(config.CitationClass, {'web', 'news', 'journal', 'magazine', 'pressrelease', 'podcast', 'newsgroup', 'mailinglist', 'interview', 'arxiv', 'biorxiv', 'citeseerx'}) or
('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia)) or
('map' == config.CitationClass and is_set (Periodical)) then -- special case for cite map when the map is in a periodical treat as an article
Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
Title = wrap_style ('quoted-title', Title);
Title = script_concatenate (Title, ScriptTitle); -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
TransTitle= wrap_style ('trans-quoted-title', TransTitle );
elseif 'report' == config.CitationClass then -- no styling for cite report
Title = script_concatenate (Title, ScriptTitle); -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
TransTitle= wrap_style ('trans-quoted-title', TransTitle ); -- for cite report, use this form for trans-title
else
Title = wrap_style ('italic-title', Title);
Title = script_concatenate (Title, ScriptTitle); -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
TransTitle = wrap_style ('trans-italic-title', TransTitle);
end

local TransError = "";
if is_set(TransTitle) then
if is_set(Title) then
TransTitle = " " .. TransTitle;
else
TransError = " " .. set_error( 'trans_missing_title', {'title'} );
end
end

if is_set(Title) then
if not is_set(TitleLink) and is_set(URL) then

Title = external_link( URL, Title, URLorigin, UrlAccess ) .. TransTitle .. TransError .. Format;
URL = ''; -- unset these because no longer needed
Format = "";
else
Title = Title .. TransTitle .. TransError;
end
else
Title = TransTitle .. TransError;
end

if is_set(Place) then
Place = " " .. wrap_msg ('written', Place, use_lowercase) .. sepc .. " ";
end

if is_set (Conference) then
if is_set (ConferenceURL) then
Conference = external_link( ConferenceURL, Conference, ConferenceURLorigin, nil );
end
Conference = sepc .. " " .. Conference .. ConferenceFormat;
elseif is_set(ConferenceURL) then
Conference = sepc .. " " .. external_link( ConferenceURL, nil, ConferenceURLorigin, nil );
end

if not is_set(Position) then
local Minutes = A['Minutes'];
local Time = A['Time'];

if is_set(Minutes) then
if is_set (Time) then
table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'minutes') .. ' și ' .. wrap_style ('parameter', 'time')}, true ) } );
end
Position = " " .. Minutes .. " " .. cfg.messages['minutes'];
else
if is_set(Time) then
local TimeCaption = A['TimeCaption']
if not is_set(TimeCaption) then
TimeCaption = cfg.messages['event'];
if sepc ~= '.' then
TimeCaption = TimeCaption:lower();
end
end
Position = " " .. TimeCaption .. " " .. Time;
end
end
else
Position = " " .. Position;
At = '';
end

Page, Pages, Sheet, Sheets = format_pages_sheets (Page, Pages, Sheet, Sheets, config.CitationClass, Periodical_origin, sepc, NoPP, use_lowercase);

At = is_set(At) and (sepc .. " " .. At) or "";
Position = is_set(Position) and (sepc .. " " .. Position) or "";
if config.CitationClass == 'map' then
local Section = A['Section'];
local Sections = A['Sections'];
local Inset = A['Inset'];

if is_set( Inset ) then
Inset = sepc .. " " .. wrap_msg ('inset', Inset, use_lowercase);
end

if is_set( Sections ) then
Section = sepc .. " " .. wrap_msg ('sections', Sections, use_lowercase);
elseif is_set( Section ) then
Section = sepc .. " " .. wrap_msg ('section', Section, use_lowercase);
end
At = At .. Inset .. Section;
end

if is_set (Language) then
Language = language_parameter (Language); -- format, categories, name from ISO639-1, etc
else
Language=""; -- language not specified so make sure this is an empty string;
--[[ TODO: need to extract the wrap_msg from language_parameter
so that we can solve parentheses bunching problem with Format/Language/TitleType
]]
end

Others = is_set(Others) and (sepc .. " " .. Others) or "";

if is_set (Translators) then
Others = sepc .. ' ' .. wrap_msg ('translated', Translators, use_lowercase) .. Others;
end
if is_set (Interviewers) then
Others = sepc .. ' ' .. wrap_msg ('interview', Interviewers, use_lowercase) .. Others;
end

TitleNote = is_set(TitleNote) and (sepc .. " " .. TitleNote) or "";
if is_set (Edition) then
if Edition:match ('%f[%a][Ee]d%.?$') or Edition:match ('%f[%a][Ee]dition$') then
add_maint_cat ('extra_text', 'edition');
end
Edition = " " .. wrap_msg ('edition', Edition);
else
Edition = '';
end

Series = is_set(Series) and (sepc .. " " .. Series) or "";
OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or ""; -- TODO: presentation

Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";

Volume = format_volume_issue (Volume, Issue, config.CitationClass, Periodical_origin, sepc, use_lowercase);

------------------------------------ totally unrelated data
if is_set(Via) then
Via = " " .. wrap_msg ('via', Via);
end

--[[
Subscription implies paywall; Registration does not. If both are used in a citation, the subscription required link
note is displayed. There are no error messages for this condition.

]]
if is_set (SubscriptionRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['subscription']; -- subscription required message
elseif is_set (RegistrationRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['registration']; -- registration required message
else
SubscriptionRequired = ''; -- either or both might be set to something other than yes true y
end

if is_set(AccessDate) then
local retrv_text = " " .. cfg.messages['retrieved']
AccessDate = mw.getCurrentFrame():preprocess("{{#iferror:{{#time:j F Y|" .. AccessDate .. "}}|" .. AccessDate .. "}}")
AccessDate = nowrap_date (AccessDate); -- wrap in nowrap span if date in appropriate format
if (sepc ~= ".") then retrv_text = retrv_text:lower() end -- if mode is cs2, lower case
AccessDate = substitute (retrv_text, AccessDate); -- add retrieved text

AccessDate = substitute (cfg.presentation['accessdate'], {sepc, AccessDate}); -- allow editors to hide accessdates
end

if is_set(ID) then ID = sepc .." ".. ID; end
if "thesis" == config.CitationClass and is_set(Docket) then
ID = sepc .." Docket ".. Docket .. ID;
end
if "report" == config.CitationClass and is_set(Docket) then -- for cite report when |docket= is set
ID = sepc .. ' ' .. Docket; -- overwrite ID even if |id= is set
end

ID_list = build_id_list( ID_list, {IdAccessLevels=ID_access_levels, DoiBroken = DoiBroken, ASINTLD = ASINTLD, IgnoreISBN = IgnoreISBN, Embargo=Embargo, Class = Class, ISBNLink = ISBNLink, ISSNLink = ISSNLink} );

if is_set(URL) then
URL = " " .. external_link( URL, nil, URLorigin, UrlAccess );
end

if is_set(Quote) then
if Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"' then -- if first and last characters of quote are quote marks
Quote = Quote:sub(2,-2); -- strip them off
end
Quote = sepc .." " .. wrap_style ('quoted-text', Quote ); -- wrap in <q>...</q> tags
PostScript = ""; -- cs1|2 does not supply terminal punctuation when |quote= is set
end

local Archived
if is_set(ArchiveURL) then
if not is_set(ArchiveDate) then
ArchiveDate = set_error('archive_missing_date');
end
if "no" == DeadURL then
local arch_text = cfg.messages['archived'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( cfg.messages['archived-not-dead'],
{ external_link( ArchiveURL, arch_text, A:ORIGIN('ArchiveURL'), nil ) .. ArchiveFormat, ArchiveDate } );
if not is_set(OriginalURL) then
Archived = Archived .. " " .. set_error('archive_missing_url');
end
elseif is_set(OriginalURL) then -- DeadURL is empty, 'yes', 'true', 'y', 'unfit', 'usurped'
local arch_text = cfg.messages['archived-dead'];
if sepc ~= "." then arch_text = arch_text:lower() end
if in_array (DeadURL, {'unfit', 'usurped', 'bot: unknown'}) then
Archived = sepc .. " " .. 'Arhivat din original în ' .. ArchiveDate; -- format already styled
if 'bot: unknown' == DeadURL then
add_maint_cat ('bot:_unknown'); -- and add a category if not already added
else
add_maint_cat ('unfit'); -- and add a category if not already added
end
else -- DeadURL is empty, 'yes', 'true', or 'y'
Archived = sepc .. " " .. substitute( arch_text,
{ external_link( OriginalURL, cfg.messages['original'], OriginalURLorigin, OriginalAccess ) .. OriginalFormat, ArchiveDate } ); -- format already styled
end
else
local arch_text = cfg.messages['archived-missing'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( arch_text,
{ set_error('archive_missing_url'), ArchiveDate } );
end
elseif is_set (ArchiveFormat) then
Archived = ArchiveFormat; -- if set and ArchiveURL not set ArchiveFormat has error message
else
Archived = ""
end

local Lay = '';
if is_set(LayURL) then
if is_set(LayDate) then LayDate = " (" .. LayDate .. ")" end
if is_set(LaySource) then
LaySource = " – ''" .. safe_for_italics(LaySource) .. "''";
else
LaySource = "";
end
if sepc == '.' then
Lay = sepc .. " " .. external_link( LayURL, cfg.messages['lay summary'], A:ORIGIN('LayURL'), nil ) .. LayFormat .. LaySource .. LayDate
else
Lay = sepc .. " " .. external_link( LayURL, cfg.messages['lay summary']:lower(), A:ORIGIN('LayURL'), nil ) .. LayFormat .. LaySource .. LayDate
end
elseif is_set (LayFormat) then -- Test if |lay-format= is given without giving a |lay-url=
Lay = sepc .. LayFormat; -- if set and LayURL not set, then LayFormat has error message
end

if is_set(Transcript) then
if is_set(TranscriptURL) then
Transcript = external_link( TranscriptURL, Transcript, TranscriptURLorigin, nil );
end
Transcript = sepc .. ' ' .. Transcript .. TranscriptFormat;
elseif is_set(TranscriptURL) then
Transcript = external_link( TranscriptURL, nil, TranscriptURLorigin, nil );
end

local Publisher;
if is_set(PublicationDate) then
PublicationDate = wrap_msg ('published', PublicationDate);
end
if is_set(PublisherName) then
if is_set(PublicationPlace) then
Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;
else
Publisher = sepc .. " " .. PublisherName .. PublicationDate;
end
elseif is_set(PublicationPlace) then
Publisher= sepc .. " " .. PublicationPlace .. PublicationDate;
else
Publisher = PublicationDate;
end

-- Several of the above rely upon detecting this as nil, so do it last.
if is_set(Periodical) then
if is_set(Title) or is_set(TitleNote) then
Periodical = sepc .. " " .. wrap_style ('italic-title', Periodical)
else
Periodical = wrap_style ('italic-title', Periodical)
end
end

--[[
Handle the oddity that is cite speech. This code overrides whatever may be the value assigned to TitleNote (through |department=) and forces it to be " (Speech)" so that
the annotation directly follows the |title= parameter value in the citation rather than the |event= parameter value (if provided).
]]
if "speech" == config.CitationClass then -- cite speech only
TitleNote = " (Discurs)"; -- annotate the citation
if is_set (Periodical) then -- if Periodical, perhaps because of an included |website= or |journal= parameter
if is_set (Conference) then -- and if |event= is set
Conference = Conference .. sepc .. " "; -- then add appropriate punctuation to the end of the Conference variable before rendering
end
end
end

-- Piece all bits together at last. Here, all should be non-nil.
-- We build things this way because it is more efficient in LUA
-- not to keep reassigning to the same string variable over and over.

local tcommon;
local tcommon2; -- used for book cite when |contributor= is set

if in_array(config.CitationClass, {"journal","citation"}) and is_set(Periodical) then
if is_set(Others) then Others = Others .. sepc .. " " end
tcommon = safe_join( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language, Edition, Publisher, Agency, Volume}, sepc );
elseif in_array(config.CitationClass, {"book","citation"}) and not is_set(Periodical) then -- special cases for book cites
if is_set (Contributors) then -- when we are citing foreword, preface, introduction, etc
tcommon = safe_join( {Title, TitleNote}, sepc ); -- author and other stuff will come after this and before tcommon2
tcommon2 = safe_join( {Conference, Periodical, Format, TitleType, Series, Language, Volume, Others, Edition, Publisher, Agency}, sepc );
else
tcommon = safe_join( {Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language, Volume, Others, Edition, Publisher, Agency}, sepc );
end

elseif 'map' == config.CitationClass then -- special cases for cite map
if is_set (Chapter) then -- map in a book; TitleType is part of Chapter
tcommon = safe_join( {Title, Format, Edition, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );
elseif is_set (Periodical) then -- map in a periodical
tcommon = safe_join( {Title, TitleType, Format, Periodical, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );
else -- a sheet or stand-alone map
tcommon = safe_join( {Title, TitleType, Format, Edition, Scale, Series, Language, Cartography, Others, Publisher}, sepc );
end

elseif 'episode' == config.CitationClass then -- special case for cite episode
tcommon = safe_join( {Title, TitleNote, TitleType, Series, Transcript, Language, Edition, Publisher}, sepc );

else -- all other CS1 templates
tcommon = safe_join( {Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language,
Volume, Others, Edition, Publisher, Agency}, sepc );
end

if #ID_list > 0 then
ID_list = safe_join( { sepc .. " ", table.concat( ID_list, sepc .. " " ), ID }, sepc );
else
ID_list = ID;
end

local idcommon = safe_join( { ID_list, URL, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote }, sepc );
local text;
local pgtext = Position .. Sheet .. Sheets .. Page .. Pages .. At;

if is_set(Date) then
if is_set (Authors) or is_set (Editors) then -- date follows authors or editors when authors not set
Date = " (" .. Date ..")" .. OrigYear .. sepc .. " "; -- in paranetheses
else -- neither of authors and editors set
if (string.sub(tcommon,-1,-1) == sepc) then -- if the last character of tcommon is sepc
Date = " " .. Date .. OrigYear; -- Date does not begin with sepc
else
Date = sepc .. " " .. Date .. OrigYear; -- Date begins with sepc
end
end
end
if is_set(Authors) then
if (not is_set (Date)) then -- when date is set it's in parentheses; no Authors termination
Authors = terminate_name_list (Authors, sepc); -- when no date, terminate with 0 or 1 sepc and a space
end
if is_set(Editors) then
local in_text = " ";
local post_text = "";
if is_set(Chapter) and 0 == #c then
in_text = in_text .. cfg.messages['in'] .. " "
if (sepc ~= '.') then
in_text = in_text:lower() -- lowercase for cs2
end
else
if EditorCount <= 1 then
post_text = ", " .. cfg.messages['editor'];
else
post_text = ", " .. cfg.messages['editors'];
end
end
Editors = terminate_name_list (in_text .. Editors .. post_text, sepc); -- terminate with 0 or 1 sepc and a space
end
if is_set (Contributors) then -- book cite and we're citing the intro, preface, etc
local by_text = sepc .. ' ' .. cfg.messages['by'] .. ' ';
if (sepc ~= '.') then by_text = by_text:lower() end -- lowercase for cs2
Authors = by_text .. Authors; -- author follows title so tweak it here
if is_set (Editors) and is_set (Date) then -- when Editors make sure that Authors gets terminated
Authors = terminate_name_list (Authors, sepc); -- terminate with 0 or 1 sepc and a space
end
if (not is_set (Date)) then -- when date is set it's in parentheses; no Contributors termination
Contributors = terminate_name_list (Contributors, sepc); -- terminate with 0 or 1 sepc and a space
end
text = safe_join( {Contributors, Date, Chapter, tcommon, Authors, Place, Editors, tcommon2, pgtext, idcommon }, sepc );
else
text = safe_join( {Authors, Date, Chapter, Place, Editors, tcommon, pgtext, idcommon }, sepc );
end
elseif is_set(Editors) then
if is_set(Date) then
if EditorCount <= 1 then
Editors = Editors .. ", " .. cfg.messages['editor'];
else
Editors = Editors .. ", " .. cfg.messages['editors'];
end
else
if EditorCount <= 1 then
Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
else
Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
end
end
text = safe_join( {Editors, Date, Chapter, Place, tcommon, pgtext, idcommon}, sepc );
else
if in_array(config.CitationClass, {"journal","citation"}) and is_set(Periodical) then
text = safe_join( {Chapter, Place, tcommon, pgtext, Date, idcommon}, sepc );
else
text = safe_join( {Chapter, Place, tcommon, Date, pgtext, idcommon}, sepc );
end
end

if is_set(PostScript) and PostScript ~= sepc then
text = safe_join( {text, sepc}, sepc ); --Deals with italics, spaces, etc.
text = text:sub(1,-sepc:len()-1);
end

text = safe_join( {text, PostScript}, sepc );

-- Now enclose the whole thing in a <cite/> element
local options = {};

if is_set(config.CitationClass) and config.CitationClass ~= "citation" then
options.class = config.CitationClass;
options.class = "citation " .. config.CitationClass; -- class=citation required for blue highlight when used with |ref=
else
options.class = "citation";
end

if is_set(Ref) and Ref:lower() ~= "none" then -- set reference anchor if appropriate
local id = Ref
if ('harv' == Ref ) then
local namelist = {}; -- holds selected contributor, author, editor name list
local year = first_set ({Year, anchor_year}, 2); -- Year first for legacy citations and for YMD dates that require disambiguation

if #c > 0 then -- if there is a contributor list
namelist = c; -- select it
elseif #a > 0 then -- or an author list
namelist = a;
elseif #e > 0 then -- or an editor list
namelist = e;
end
if #namelist > 0 then -- if there are names in namelist
id = anchor_id (namelist, year); -- go make the CITEREF anchor
else
id = ''; -- unset
end
end
options.id = id;
end

if string.len(text:gsub("<span[^>/]*>(.-)", "%1"):gsub("%b<>","")) <= 2 then -- remove tags and other html-like markup; then get length of what remains
z.error_categories = {};
text = set_error('empty_citation');
z.message_tail = {};
end

local render = {}; -- here we collect the final bits for concatenation into the rendered citation

if is_set(options.id) then -- here we wrap the rendered citation in <cite ...>...</cite> tags
table.insert (render, substitute (cfg.presentation['cite-id'], {mw.uri.anchorEncode(options.id), mw.text.nowiki(options.class), text})); -- when |ref= is set
else
table.insert (render, substitute (cfg.presentation['cite'], {mw.text.nowiki(options.class), text})); -- all other cases
end

table.insert (render, substitute (cfg.presentation['ocins'], {OCinSoutput})); -- append metadata to the citation

if #z.message_tail ~= 0 then
table.insert (render, ' ');
for i,v in ipairs( z.message_tail ) do
if is_set(v[1]) then
if i == #z.message_tail then
table.insert (render, error_comment( v[1], v[2] ));
else
table.insert (render, error_comment( v[1] .. "; ", v[2] ));
end
end
end
end

if #z.maintenance_cats ~= 0 then
table.insert (render, '');
for _, v in ipairs( z.maintenance_cats ) do -- append maintenance categories
table.insert (render, v);
table.insert (render, ' (');
table.insert (render, make_wikilink (':Categorie:' .. v, 'link'));
table.insert (render, ') ');
end
table.insert (render, '');
end

no_tracking_cats = no_tracking_cats:lower();
if in_array(no_tracking_cats, {"", "no", "false", "n"}) then
for _, v in ipairs( z.error_categories ) do
table.insert (render, make_wikilink ('Categorie:' .. v));
end
for _, v in ipairs( z.maintenance_cats ) do -- append maintenance categories
table.insert (render, make_wikilink ('Categorie:' .. v));
end
for _, v in ipairs( z.properties_cats ) do -- append properties categories
table.insert (render, make_wikilink ('Categorie:' .. v));
end
end

return table.concat (render);
end

function cs1.citationTemplateFromArgs(parentArgs)
local template = "{{citation\n"
for k,v in pairs(parentArgs) do
template = template .. "| " .. k .. " = " .. v .. "\n"
end
template = template .. "}}"
return template
end

--[[--------------------------< C S 1 . C I T A T I O N >------------------------------------------------------

This is used by templates such as {{cite book}} to create the actual citation text.

]]

function cs1.citation(frame)
local pframe = frame:getParent()
local sandboxed = nil ~= string.find (frame:getTitle(), 'sandbox', 1, true)

local citation, tstyle = cs1.citationFromArgs(pframe and pframe.args or {}, frame and frame.args or {}, sandboxed)
return table.concat({citation, tstyle})
end

-- returns both the citation and the templatedata
function cs1.citationFromArgs(parentArgs, citationArgs, sandboxed)
local validation, utilities, identifiers, metadata, styles;

if sandboxed then -- did the {{#invoke:}} use sandbox version?
cfg = mw.loadData ('Module:Citation/CS1/Configuration/sandbox'); -- load sandbox versions of support modules
whitelist = mw.loadData ('Module:Citation/CS1/Whitelist/sandbox');
utilities = require ('Module:Citation/CS1/Utilities/sandbox');
validation = require ('Module:Citation/CS1/Date_validation/sandbox');
identifiers = require ('Module:Citation/CS1/Identifiers/sandbox');
metadata = require ('Module:Citation/CS1/COinS/sandbox');
styles = 'Module:Citation/CS1/sandbox/styles.css';
else -- otherwise
cfg = mw.loadData ('Module:Citation/CS1/Configuration'); -- load live versions of support modules
whitelist = mw.loadData ('Module:Citation/CS1/Whitelist');
utilities = require ('Module:Citation/CS1/Utilities');
utilities.initZ()
validation = require ('Module:Citation/CS1/Date_validation');
identifiers = require ('Module:Citation/CS1/Identifiers');
metadata = require ('Module:Citation/CS1/COinS');
styles = 'Module:Citation/CS1/styles.css';
end

utilities.set_selected_modules (cfg); -- so that functions in Utilities can see the cfg tables
identifiers.set_selected_modules (cfg, utilities); -- so that functions in Identifiers can see the selected cfg tables and selected Utilities module
validation.set_selected_modules (cfg, utilities); -- so that functions in Date validataion can see selected cfg tables and the selected Utilities module
metadata.set_selected_modules (cfg, utilities); -- so that functions in COinS can see the selected cfg tables and selected Utilities module

dates = validation.dates; -- imported functions from Module:Citation/CS1/Date validation
year_date_check = validation.year_date_check;
reformat_dates = validation.reformat_dates;
date_hyphen_to_dash = validation.date_hyphen_to_dash;
date_name_xlate = validation.date_name_xlate;

is_set = utilities.is_set; -- imported functions from Module:Citation/CS1/Utilities
in_array = utilities.in_array;
substitute = utilities.substitute;
error_comment = utilities.error_comment;
set_error = utilities.set_error;
select_one = utilities.select_one;
add_maint_cat = utilities.add_maint_cat;
wrap_style = utilities.wrap_style;
safe_for_italics = utilities.safe_for_italics;
is_wikilink = utilities.is_wikilink;
make_wikilink = utilities.make_wikilink;

z = utilities.z; -- table of error and category tables in Module:Citation/CS1/Utilities

extract_ids = identifiers.extract_ids; -- imported functions from Module:Citation/CS1/Identifiers
build_id_list = identifiers.build_id_list;
is_embargoed = identifiers.is_embargoed;
extract_id_access_levels = identifiers.extract_id_access_levels;

make_coins_title = metadata.make_coins_title; -- imported functions from Module:Citation/CS1/COinS
get_coins_pages = metadata.get_coins_pages;
COinS = metadata.COinS;

local args = {}; -- table where we store all of the template's arguments
local suggestions = {}; -- table where we store suggestions if we need to loadData them
local error_text, error_state;

local config = {}; -- table to store parameters from the module {{#invoke:}}
for k, v in pairs( citationArgs ) do
config[k] = v;
-- args[k] = v; -- debug tool that allows us to render a citation from module {{#invoke:}}
end

local capture; -- the single supported capture when matching unknown parameters using patterns
for k, v in pairs( parentArgs ) do
if v ~= '' then
if not validate( k, config.CitationClass ) then
error_text = "";
if type( k ) ~= 'string' then
-- Exclude empty numbered parameters
if v:match("%S+") ~= nil then
error_text, error_state = set_error( 'text_ignored', {v}, true );
end
elseif validate( k:lower(), config.CitationClass ) then
error_text, error_state = set_error( 'parameter_ignored_suggest', {k, k:lower()}, true );
else
if nil == suggestions.suggestions then -- if this table is nil then we need to load it
if sandboxed then -- did the {{#invoke:}} use sandbox version?
suggestions = mw.loadData( 'Module:Citation/CS1/Suggestions/sandbox' ); -- use the sandbox version
else
suggestions = mw.loadData( 'Module:Citation/CS1/Suggestions' ); -- use the live version
end
end
for pattern, param in pairs (suggestions.patterns) do -- loop through the patterns to see if we can suggest a proper parameter
capture = k:match (pattern); -- the whole match if no caputre in pattern else the capture if a match
if capture then -- if the pattern matches
param = substitute( param, capture ); -- add the capture to the suggested parameter (typically the enumerator)
error_text, error_state = set_error( 'parameter_ignored_suggest', {k, param}, true ); -- set the error message
end
end
if not is_set (error_text) then -- couldn't match with a pattern, is there an expicit suggestion?
if suggestions.suggestions[ k:lower() ] ~= nil then
error_text, error_state = set_error( 'parameter_ignored_suggest', {k, suggestions.suggestions[ k:lower() ]}, true );
else
error_text, error_state = set_error( 'parameter_ignored', {k}, true );
v = ''; -- unset value assigned to unrecognized parameters (this for the limited parameter lists)
end
end
end
if error_text ~= '' then
table.insert( z.message_tail, {error_text, error_state} );
end
end
missing_pipe_check (v); -- do we think that there is a parameter that is missing a pipe?

args[k] = v;
elseif args[k] ~= nil or (k == 'postscript') then
args[k] = v;
end
end

for k, v in pairs( args ) do
if 'string' == type (k) then -- don't evaluate positional parameters
has_invisible_chars (k, v);
end
end
return citation0( config, args), mw.getCurrentFrame():extensionTag ('templatestyles', '', {src=styles});
end

return cs1;

Modul:GregorianDate/data

2024-07-14T20:16:50Z

Sergiu: Pagină nouă: local limitDates = { {year = 4, month = 3, day = 3, calendar = 'julian' }, {year = 100, month = 3, day = 2, calendar = 'julian' }, {year = 200, month = 3, day = 1, calendar = 'julian' }, {year = 300, month = 2, day = 29, calendar = 'julian' }, {year = 500, month = 2, day = 28, calendar = 'julian' }, {year = 600, month = 2, day = 27, calendar = 'julian' }, {year = 700, month = 2, day = 26, calendar = 'julian' }, {year = 900, month = 2, day = 25, calendar = 'julian' },...

local limitDates = {
{year = 4, month = 3, day = 3, calendar = 'julian' },
{year = 100, month = 3, day = 2, calendar = 'julian' },
{year = 200, month = 3, day = 1, calendar = 'julian' },
{year = 300, month = 2, day = 29, calendar = 'julian' },
{year = 500, month = 2, day = 28, calendar = 'julian' },
{year = 600, month = 2, day = 27, calendar = 'julian' },
{year = 700, month = 2, day = 26, calendar = 'julian' },
{year = 900, month = 2, day = 25, calendar = 'julian' },
{year = 1000, month = 2, day = 24, calendar = 'julian' },
{year = 1100, month = 2, day = 23, calendar = 'julian' },
{year = 1300, month = 2, day = 22, calendar = 'julian' },
{year = 1400, month = 2, day = 21, calendar = 'julian' },
{year = 1500, month = 2, day = 20, calendar = 'julian' },
{year = 1700, month = 2, day = 19, calendar = 'julian' },
{year = 1800, month = 2, day = 18, calendar = 'julian' },
{year = 1900, month = 2, day = 17, calendar = 'julian' },
{year = 2100, month = 2, day = 16, calendar = 'julian' },
{year = 2200, month = 2, day = 15, calendar = 'julian' },
{year = 2300, month = 2, day = 14, calendar = 'julian' }
}

return {
limitDates = limitDates,
limitDatesSize = 19,
julianDateOfGregorianStart = {year = 1582, month = 10, day = 5}
}

Modul:GregorianDate

2024-07-14T20:16:07Z

Sergiu: Pagină nouă: local p = {} local DateUtils = require('Modul:DateUtils') local getArgs = require('Modul:Arguments').getArgs local data = mw.loadData('Modul:GregorianDate/data') local compareDates = function(date1, date2) if date1.year < date2.year then return 1 end if date2.year < date1.year then return -1 end if date1.month < date2.month then return 1 end if date2.month < date1.month then return -1 end if date1.day < date2.day then return 1 end if date2.day < date1.day then retur...

local p = {}

local DateUtils = require('Modul:DateUtils')
local getArgs = require('Modul:Arguments').getArgs
local data = mw.loadData('Modul:GregorianDate/data')

local compareDates = function(date1, date2)
if date1.year < date2.year then return 1 end
if date2.year < date1.year then return -1 end

if date1.month < date2.month then return 1 end
if date2.month < date1.month then return -1 end

if date1.day < date2.day then return 1 end
if date2.day < date1.day then return -1 end

return 0
end

local initialOffset = -3
local limitDates = data.limitDates
local julianDateOfGregorianStart = data.julianDateOfGregorianStart

p.julianToGregorian = function(indate)
if indate.calendarmodel ~= 'http://www.wikidata.org/entity/Q1985786' and indate.calendarmodel ~= 'http://www.wikidata.org/entity/Q11184'
and indate.calendar ~= 'julian' then
return indate
end
local offset = initialOffset
local limitDateIdx = 1
while limitDateIdx < data.limitDatesSize and compareDates(limitDates[limitDateIdx], indate) >= 0 do
limitDateIdx = limitDateIdx + 1
offset = offset + 1
end

local outputDate = DateUtils.addDaysToDate(indate, offset)
outputDate.calendar = 'gregorian'
outputDate.calendarmodel = 'http://www.wikidata.org/entity/Q1985727'

return outputDate
end

local function extractDateFromFrame(frame)
local outdate = {}
local frameargs = getArgs(frame)
outdate.year = tonumber(frameargs[1] or frameargs['year'] or 1)
outdate.month = tonumber(frameargs[2] or frameargs['month'] or 1)
outdate.day = tonumber(frameargs[3] or frameargs['day'] or 1)
outdate.precision = 8
if frameargs[1] or frameargs['year'] then
if frameargs[2] or frameargs['month'] then
if frameargs[3] or frameargs['day'] then
outdate.precision = outdate.precision + 1
end
outdate.precision = outdate.precision + 1
end
outdate.precision = outdate.precision + 1
end
outdate.calendar = mw.ustring.lower(mw.text.trim(frameargs['calendar'] or 'gregorian'))
return outdate
end

p.julianToGregorianFromFrame = function(frame)
local indate = extractDateFromFrame(frame)
indate.calendar = 'julian'
return DateUtils.formatDate(p.julianToGregorian(indate))
end

p.convertToGregorianIfInInterval = function(indate)
local outdate = indate
if compareDates(julianDateOfGregorianStart, indate) >= 0 then
outdate = p.julianToGregorian(indate)
end
return outdate
end

p.displayDualDateIfInInterval = function(indate, link, dateFormat, julianFormat)
local outdate = p.convertToGregorianIfInInterval(indate)
local gregoriandate = compareDates(julianDateOfGregorianStart, indate) < 0 and p.julianToGregorian(indate) or outdate
local linkstat = { old = false, new = false }
if (type(link) == 'boolean') and link or link == 'both' or link == 'ambele' then
linkstat.old = true
linkstat.new = true
elseif link == 'old' then
linkstat.old = true
elseif link == 'new' then
linkstat.new = true
end

local fullDate
if outdate.year ~= indate.year then
fullDate = DateUtils.formatDate(indate, linkstat.old, true, julianFormat or dateFormat) .. '/' .. DateUtils.formatDate(outdate, linkstat.new, true, dateFormat)
elseif outdate.month ~= indate.month then
fullDate = DateUtils.formatDate(indate, linkstat.old, true, julianFormat or dateFormat or linkstat.old and '[[j F]]' or 'j F') .. '/' .. DateUtils.formatDate(outdate, linkstat.new, true, dateFormat)
elseif outdate.day ~= indate.day then
fullDate = DateUtils.formatDate(indate, linkstat.old, true, julianFormat or dateFormat or linkstat.old and '[[j F|j]]' or 'j') .. '/' .. DateUtils.formatDate(outdate, linkstat.new, true, dateFormat)
else
fullDate = DateUtils.formatDate(outdate, linkstat.new or linkstat.old, true, dateFormat)
end

return indate.precision >= 11 and DateUtils.surroundWithTimeTag(fullDate, gregoriandate) or fullDate
end

p.displayDualDateIfInIntervalFromFrame = function(frame)
local indate = extractDateFromFrame(frame)
local args = getArgs(frame)
indate.calendar = indate.calendar or (frame.args['julian'] and 'julian' or 'gregorian')
local link = args['link']
local argslink = args['link']
if argslink == 'yes' or argslink == 'y' or argslink == 'da' or argslink == 'true' or argslink == 'd' then link = 'both' end

local dateFormat = args['format'] or args['date_format'] or args['dateFormat']

return p.displayDualDateIfInInterval(indate, link, dateFormat)
end

return p

Modul:DateUtils/data

2024-07-14T20:15:25Z

Sergiu: Pagină nouă: local months = { ['ianuarie'] = 1, ['februarie'] = 2, ['martie'] = 3, ['aprilie'] = 4, ['mai'] = 5, ['iunie'] = 6, ['iulie'] = 7, ['august'] = 8, ['septembrie'] = 9, ['octombrie'] = 10, ['noiembrie'] = 11, ['decembrie'] = 12, ['January'] = 1, ['February'] = 2, ['March'] = 3, ['April'] = 4, ['May'] = 5, ['June'] = 6, ['July'] = 7, ['August'] = 8, ['September'] = 9, ['October'] = 10, ['November'] = 11, ['December'] = 12, ['janvier'] = 1, ['février'] = 2, ['mars'] = 3, [...

local months = {
['ianuarie'] = 1, ['februarie'] = 2, ['martie'] = 3, ['aprilie'] = 4, ['mai'] = 5, ['iunie'] = 6, ['iulie'] = 7, ['august'] = 8, ['septembrie'] = 9, ['octombrie'] = 10, ['noiembrie'] = 11, ['decembrie'] = 12,
['January'] = 1, ['February'] = 2, ['March'] = 3, ['April'] = 4, ['May'] = 5, ['June'] = 6, ['July'] = 7, ['August'] = 8, ['September'] = 9, ['October'] = 10, ['November'] = 11, ['December'] = 12,
['janvier'] = 1, ['février'] = 2, ['mars'] = 3, ['avril'] = 4, ['juin'] = 6, ['juillet'] = 7, ['août'] = 8, ['septembre'] = 9, ['octobre'] = 10, ['novembre'] = 11, ['décembre'] = 12,
}

return {
months = months
}

Modul:Roman

2024-07-14T20:09:41Z

Sergiu: Pagină nouă: -- This module implements {{Roman}}. local p = {} -- This function implements the {{overline}} template. local function overline(s) return mw.ustring.format( '%s', s ) end -- Gets the Roman numerals for a given numeral table. Returns both the string of -- numerals and the value of the number after it is finished being processed. local function getLetters(num, t) local ret = {} for _, v in ipairs(t) do local...

-- This module implements {{Roman}}.

local p = {}

-- This function implements the {{overline}} template.
local function overline(s)
return mw.ustring.format( '%s', s )
end

-- Gets the Roman numerals for a given numeral table. Returns both the string of
-- numerals and the value of the number after it is finished being processed.
local function getLetters(num, t)
local ret = {}
for _, v in ipairs(t) do
local val, letter = unpack(v)
while num >= val do
num = num - val
table.insert(ret, letter)
end
end

return table.concat(ret), num
end

-- The main control flow of the module.
function p._main(args)
-- Get input and exit displaying nothing if the input is empty.
if args[1] == nil then return end
local num = tonumber(args[1])
if not num or num < 0 or num == math.huge then
error('Invalid number ' .. args[1], 2)
elseif num == 0 then
return 'N'
end

-- Return a message for numbers too big to be expressed in Roman numerals.
if num >= 5000000 then
return args[2] or 'N/A'
end

local ret = ''
-- Find the Roman numerals for the large part of numbers.
-- 23 April 2016 - tweaked to >= 4000 to accept big Roman 'IV'
-- The if statement is not strictly necessary, but makes the algorithm
-- more efficient for smaller numbers.
if num >= 4000 then
local bigRomans = {
{ 1000000, 'M' },
{ 900000, 'CM' }, { 500000, 'D' }, { 400000, 'CD' }, { 100000, 'C' },
{ 90000, 'XC' }, { 50000, 'L' }, { 40000, 'XL' }, { 10000, 'X' },
{ 9000, 'IX' }, { 5000, 'V' }, { 4000, 'IV' },
}
local bigLetters
bigLetters, num = getLetters(num, bigRomans)
ret = overline(bigLetters)
end

-- Find the Roman numerals for numbers less than the big Roman threshold.
local smallRomans = {
{ 1000, 'M' },
{ 900, 'CM' }, { 500, 'D' }, { 400, 'CD' }, { 100, 'C' },
{ 90, 'XC' }, { 50, 'L' }, { 40, 'XL' }, { 10, 'X' },
{ 9, 'IX' }, { 5, 'V' }, { 4, 'IV' }, { 1, 'I' }
}
local smallLetters = getLetters( num, smallRomans )
ret = ret .. smallLetters

if args.fraction == 'yes' then
-- Find the Roman numerals for the fractional parts of numbers.
-- If num is not a whole number, add half of 1/1728 (the smallest unit) to equate to rounding.
-- Ensure we're not less than the smallest unit or larger than 1 - smallest unit
-- to avoid getting two "half" symbols or no symbols at all
num = num - math.floor(num)
if num ~= 0 then
num = math.max(1.1/1728, math.min(1727.1/1728, num + 1/3456))
end
local fractionalRomans = {
{ 1/2, 'S' }, { 5/12, "''':'''•''':'''" }, { 1/3, "'''::'''" },
{ 1/4, "''':'''•" }, { 1/6, "''':'''" }, { 1/12, '•' },
{ 1/24, 'Є' }, { 1/36, 'ƧƧ' }, { 1/48, 'Ɔ' }, { 1/72, 'Ƨ' }, { 1/144, 'ƻ' },
{ 1/288, '℈' }, { 1/1728, '»' },
}
local fractionalLetters = getLetters(num, fractionalRomans)

ret = ret .. fractionalLetters
end

return ret
end

function p.main(frame)
-- If called via #invoke, use the args passed into the invoking
-- template, or the args passed to #invoke if any exist. Otherwise
-- assume args are being passed directly in from the debug console
-- or from another Lua module.
local origArgs
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
for k, v in pairs(frame.args) do
origArgs = frame.args
break
end
else
origArgs = frame
end
-- Trim whitespace and remove blank arguments.
local args = {}
for k, v in pairs(origArgs) do
if type( v ) == 'string' then
v = mw.text.trim(v)
end
if v ~= '' then
args[k] = v
end
end

-- exit if not given anything
if args == nil or args == {} then return end
-- Given mathematical expression, simplify to a number
if type(args[1]) == 'string' then
args[1] = mw.ext.ParserFunctions.expr(args[1])
end
return p._main(args)
end

return p

Modul:DateUtils

2024-07-14T20:08:59Z

Sergiu: Pagină nouă: local p = {} local maxDaysInMonth = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} local roman = require('Modul:Roman') local getArgs = require('Modul:Arguments').getArgs local defaultPostfixYear = { bc = 'î.Hr.', ad = 'd.Hr.' } local linkingPostfixYear = { bc = 'î.Hr.', ad = 'd.Hr.' } local months = mw.loadData('Modul:DateUtils/data').months local suffixFormatYear = function(y, postFixYear) local postFixYear = postFixYear or defaultPostfixYear return (y < 0 and (' ' ....

local p = {}
local maxDaysInMonth = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
local roman = require('Modul:Roman')
local getArgs = require('Modul:Arguments').getArgs
local defaultPostfixYear = { bc = 'î.Hr.', ad = 'd.Hr.' }
local linkingPostfixYear = { bc = 'î.Hr.', ad = 'd.Hr.' }
local months = mw.loadData('Modul:DateUtils/data').months

local suffixFormatYear = function(y, postFixYear)
local postFixYear = postFixYear or defaultPostfixYear
return (y < 0 and (' ' .. postFixYear.bc) or (y < 1000 and (' ' .. postFixYear.ad) or ''))
end

p.formatYear = function(y, link)
local out = ''
local yearLink = tostring(math.abs(y)) .. (y < 0 and suffixFormatYear(y, linkingPostfixYear) or '')
local yearLabel = tostring(math.abs(y)) .. suffixFormatYear(y, defaultPostfixYear)
if link then
out = out .. '[['
if yearLabel == yearLink then out = out .. yearLink
else out = out .. yearLink .. '|' .. yearLabel end
out = out .. ']]'
else
out = yearLabel
end
return out
end

p.surroundWithTimeTag = function(out, tagDate)
local timeTag = mw.html.create('time')
if tagDate.year > 0 then
local datetimeFormat = 'Y-m-d'
if tagDate.precision == 10 then
datetimeFormat = 'Y-m'
tagDate.day = 1
end
local intermediateFormatDate = os.date('%d %B %Y', os.time(tagDate))
timeTag:attr('datetime', mw.language.getContentLanguage():formatDate(datetimeFormat, intermediateFormatDate))
end
timeTag:wikitext(out)

return tostring(timeTag)
end

p.formatDate = function(indate, link, notimetag, dateFormat)
if not indate then return nil end
if indate.precision == 6 then
local out = 'mileniul '
if indate.year >= 2000 or indate.year <= -2000 then out = out .. 'al ' end
out = out .. roman.main({tostring(1 + math.floor((math.abs(indate.year) - 1) / 1000))})
if indate.year >= 2000 or indate.year <= -2000 then out = out .. '-lea' end
out = out .. suffixFormatYear(indate.year)
return out
end
if indate.precision == 7 then
local out = 'secolul '
if indate.year >= 200 or indate.year <= -200 then out = out .. 'al ' end
out = out .. roman.main({tostring(1 + math.floor((math.abs(indate.year) - 1) / 100))})
if indate.year >= 200 or indate.year <= -200 then out = out .. '-lea' end
out = out .. suffixFormatYear(indate.year)
return out
end
if indate.precision == 8 then
return 'anii ' .. tostring(math.floor(math.abs(indate.year) / 10) * 10) .. suffixFormatYear(indate.year)
end
if indate.precision == 9 then
if notimetag then return p.formatYear(indate.year, link) end
local timeTag = mw.html.create('time')
if indate.year > 0 then timeTag:attr('datetime', tostring(indate.year)) end
timeTag:wikitext(p.formatYear(indate.year, link))
return tostring(timeTag)
end
if indate.precision and indate.precision > 9 then
local d1 = {}
d1.day = indate.day
if not d1.day or d1.day == 0 then d1.day = 1 end
d1.month = indate.month
if not d1.month or d1.month == 0 then d1.month = 1 end
d1.year = math.abs(indate.year)
local out = ''
local intermediateFormatDate = os.date('%d %B %Y', os.time(d1))
if dateFormat then
out = out .. mw.language.getContentLanguage():formatDate(dateFormat, intermediateFormatDate)
else
out = out .. mw.language.getContentLanguage():formatDate((indate.precision >= 11) and (link and '[[j F]]' or 'j F') or (link and '[[F]]' or 'F'), intermediateFormatDate)
out = out .. ' ' .. p.formatYear(indate.year, link)
end

if notimetag or indate.precision < 11 then return out end

return p.surroundWithTimeTag(out, indate)
end
end

p.formatDateFromFrame = function(frame)
local args = getArgs(frame)
local dateObj = {}
if args[1] then
dateObj = p.parseDate(args[1])
end
if args[2] then
dateObj.month = tonumber(months[args[2]] or args[2])
if args[3] then dateObj.day = tonumber(args[3]) end
end
dateObj.calendar = 'gregorian'
if not dateObj.precision then
dateObj.precision = 9
end
if args[2] ~= nil then
dateObj.precision = 10
if args[3] ~= nil then
dateObj.precision = 11
end
end
return p.formatDate(dateObj, args['link'] ~= nil, args['notimetag'] ~= nil)
end

p.isDateGregorian = function(indate)
return indate.calendarmodel == 'http://www.wikidata.org/entity/Q1985727' or indate.calendarmodel == 'http://www.wikidata.org/entity/Q12138' or indate.calendar == 'gregorian'
end

p.isDateJulian = function(indate)
return indate.calendarmodel == 'http://www.wikidata.org/entity/Q1985786' or indate.calendarmodel == 'http://www.wikidata.org/entity/Q11184' or indate.calendar == 'julian'
end

p.isLeapYearGregorian = function(year)
if (year % 4 ~= 0) then return false
elseif (year % 100 ~= 0) then return true
elseif (year % 400 ~= 0) then return false
end
return true
end

p.isDateInLeapYear = function(indate)
if p.isDateJulian(indate) then
return 0 == indate.year % 4
end
return p.isLeapYearGregorian(indate.year)
end

p.addDaysToDate = function(indate, days)
local outdate = mw.clone(indate)

if outdate.day == nil then return outdate end -- incompletely specified dates
outdate.day = outdate.day + days
local lastDayOfMonth = maxDaysInMonth[math.fmod(outdate.month-1, 12)+1]
while outdate.day > lastDayOfMonth do
mw.logObject(outdate, "outdate")
lastDayOfMonth = maxDaysInMonth[math.fmod(outdate.month-1, 12)+1]
if outdate.month == 2 and p.isDateInLeapYear(outdate) then lastDayOfMonth = 29 end
outdate.month = outdate.month + 1
outdate.day = outdate.day - lastDayOfMonth
end
while outdate.month > 12 do
outdate.year = outdate.year + 1
outdate.month = outdate.month - 12
end
return outdate
end

p.parseCentury = function(datetext)
if datetext and mw.ustring.len(datetext) < 9 then return nil end
local centuryPrefixExpected = mw.ustring.sub(mw.ustring.lower(datetext), 1, 7)
if centuryPrefixExpected == 'secolul' then
local alLeaMatcherFunction = mw.ustring.gmatch(mw.ustring.lower(datetext), '%s+al%s+([xivlcm]+)%-lea')
local centNum = nil
local centStr = nil
if alLeaMatcherFunction then
centStr = alLeaMatcherFunction()
end
if not centStr then
local nonAlLEaMatcherFunction = mw.ustring.gmatch(mw.ustring.lower(datetext), '%s+([xivlcm]+)%s*')
if nonAlLEaMatcherFunction then
centStr = nonAlLEaMatcherFunction()
end
end
if not centStr then return nil end
local romanTestIdx = 1
while romanTestIdx < 30 do
if mw.ustring.lower(roman.main({tostring(romanTestIdx)})) == mw.ustring.lower(centStr) then
centNum = romanTestIdx
break
end
romanTestIdx = romanTestIdx + 1
end
if not centNum then return nil end
local bcPatterns = {}
table.insert(bcPatterns, 'î%.e%.n%.?')
table.insert(bcPatterns, 'î%.%s*Hr%.')
for _,eachBCPattern in ipairs(bcPatterns) do
local eraMatchFunction = mw.ustring.gmatch(datetext, eachBCPattern)
if eraMatchFunction then
local eraMatch = eraMatchFunction()
if eraMatch and eraMatch ~= '' then
if centNum > 0 then centNum = -centNum end
end
end
end
return centNum
end
return nil
end
p.parseYear = function(datetxt)
if (not mw.ustring.gmatch(datetxt, '^[%d%sîd%.HrenADBC]+$')) then
return nil
end
local yearPattern = '%d+'
local bcPatterns = {'î%.e%.n%.?', 'î%.%s*Hr%.', 'BC'}

local yearMatchFunction = mw.ustring.gmatch(datetxt, yearPattern)
if not yearMatchFunction then return nil end
local d = {}
local yearMatch = yearMatchFunction()
if not yearMatch or yearMatch == '' then return nil end
d.year = tonumber(yearMatch)
d.precision = 9
for _,eachBCPattern in ipairs(bcPatterns) do
local eraMatchFunction = mw.ustring.gmatch(datetxt, eachBCPattern)
if eraMatchFunction then
local eraMatch = eraMatchFunction()
if eraMatch and eraMatch ~= '' then
if d.year > 0 then d.year = -d.year end
end
end
end
return d
end

p.parseDate = function(datetxt)
if not datetxt then return nil end

local parsers = {}
local stdDateParser = {
pattern = '((%d%d%d%d)-(%d%d?)-(%d%d?))',
patternIsMatched = function(matchArray)
return tonumber(matchArray[2]) < 13 and tonumber(matchArray[3]) < 32
end,
extractDateFromText = function(matchArray)
local d = {}
d.day = tonumber(matchArray[3])
d.month = tonumber(matchArray[2])
d.year = tonumber(matchArray[1])
d.precision = 11
return d
end
}
table.insert(parsers, stdDateParser)

local noHyphensStdDateParser = {
pattern = '((%d%d%d%d)(%d%d)(%d%d))',
patternIsMatched = stdDateParser.patternIsMatched,
extractDateFromText = stdDateParser.extractDateFromText
}
table.insert(parsers, noHyphensStdDateParser)

local roDateParser = {
pattern = '((%d+)%s+(%a+)%s+(%d+))',
patternIsMatched = function(matchArray)
return matchArray[1] and mw.ustring.len(mw.text.trim(matchArray[1])) > 0 and matchArray[2] and months[matchArray[2]] ~= nil
end,
extractDateFromText = function(matchArray)
local d = {}
d.day = tonumber(matchArray[1])
d.month = tonumber(months[matchArray[2]])
d.year = tonumber(matchArray[3])
d.precision = 11
return d
end
}
table.insert(parsers, roDateParser)

local slashedDateParser = {
pattern = '((%d%d)/(%d%d)/(%d%d%d%d))',
patternIsMatched = function(matchArray)
return matchArray[1] and tonumber(matchArray[1]) < 32 and matchArray[2] and tonumber(matchArray[2]) < 13
end,
extractDateFromText = function(matchArray)
local d = {}
d.day = tonumber(matchArray[1])
d.month = tonumber(matchArray[2])
d.year = tonumber(matchArray[3])
d.precision = 11
return d
end
}
table.insert(parsers, slashedDateParser)

local enDateParser = {
pattern = '((%a+)%s+(%d+),%s+(%d+))',
patternIsMatched = function(matchArray)
return matchArray[2] and mw.ustring.len(mw.text.trim(matchArray[2])) > 0 and matchArray[1] and months[matchArray[1]] ~= nil
end,
extractDateFromText = function(matchArray)
local d = {}
d.day = tonumber(matchArray[2])
d.month = tonumber(months[matchArray[1]])
d.year = tonumber(matchArray[3])
d.precision = 11
return d
end
}
table.insert(parsers, enDateParser)

local monthOnlyParser = {
pattern = '((%a+)%s+(%d+))',
patternIsMatched = function(matchArray)
return matchArray[1] and months[matchArray[1]] ~= nil
end,
extractDateFromText = function(matchArray)
local d = {}
d.month = tonumber(months[matchArray[1]])
d.year = tonumber(matchArray[2])
d.precision = 10
return d
end
}
table.insert(parsers, monthOnlyParser)

local monthOnlyNumericParser = {
pattern = '((%d+)-(%d+))',
patternIsMatched = function(matchArray)
return matchArray[1] and matchArray[2]
end,
extractDateFromText = function(matchArray)
local d = {}
d.month = tonumber(matchArray[2])
d.year = tonumber(matchArray[1])
d.precision = 10
return d
end
}
table.insert(parsers, monthOnlyNumericParser)

for _,eachParser in ipairs(parsers) do
local eachMatchSet = {mw.ustring.gmatch(datetxt, eachParser.pattern)()}
if eachMatchSet[1] == datetxt then
table.remove(eachMatchSet, 1)
if eachParser.patternIsMatched(eachMatchSet) then
local d = eachParser.extractDateFromText(eachMatchSet)
if d ~= nil then
return d
end
end
end
end

local yr = p.parseYear(datetxt)
if yr ~= nil then
return yr
end
local cent = p.parseCentury(datetxt)
if cent ~= nil then
local d = {}
d.year = tonumber(cent * 100)
d.precision = 7
return d
end
return nil
end

p.parseWikidataDate = function(datetxt, precision)
if not datetxt then return nil end
if precision == nil then precision = 11 end
local iSOTimeSign = mw.ustring.sub(datetxt, 1, 1)
local datePattern = '(%d+)-(%d+)-(%d+)'
local matchesIterator = mw.ustring.gmatch(mw.ustring.sub(datetxt, 2), datePattern)
local yearSign = 1
--local timePattern = '(%d+):(%d+):(%d+)'
--local matchestimeIterator = mw.ustring.gmatch(datetxt, timePattern)

local yearStr, monthStr, dayStr = matchesIterator()
if dayStr and tonumber(dayStr) == 0 then dayStr = "01" end
if monthStr and tonumber(monthStr) == 0 then monthStr = "01" end
if iSOTimeSign == "-" then yearSign = -1 end

if precision >= 11 and dayStr and monthStr and yearStr then
local d = {}
d.day = tonumber(dayStr)
d.month = tonumber(monthStr)
d.year = tonumber(yearStr) * yearSign
d.precision = precision
return d
end
if precision == 10 and monthStr and yearStr then
local d = {}
d.day = 1 --this is a "valid 0"
d.month = tonumber(monthStr)
d.year = tonumber(yearStr) * yearSign
d.precision = precision
return d
end
if precision <= 9 and yearStr then
local d = {}
d.day = 1 --this is a "valid 0"
d.month = 1 --this is a "valid 0"
d.year = tonumber(yearStr) * yearSign
d.precision = precision
return d
end
return nil
end

p.compare = function(d1, d2)
if not d1.year and d2.year then return 1 end
if not d2.year and d1.year then return -1 end
if not d1.month and d2.month then
if d1.year == d2.year then
return 1
else
return d1.year - d2.year
end
end
if not d2.month and d1.month then
if d1.year == d2.year then
return -1
else
return d1.year - d2.year
end
end
if not d1.day and d2.day then
if d1.year == d2.year then
if d1.month == d2.month then
return 1
else
return d1.month - d2.month
end
else
return d1.year - d2.year
end
end
if not d2.day and d1.day then
if d1.year == d2.year then
if d1.month == d2.month then
return -1
else
return d1.month - d2.month
end
else
return d1.year - d2.year
end
end
if d1.year == d2.year then
if d1.month == d2.month then
if d1.day == d2.day then
return 0
else return (d1.day - d2.day) / math.abs(d1.day - d2.day)
end
else return (d1.month - d2.month) / math.abs(d1.month - d2.month)
end
else return (d1.year - d2.year) / math.abs(d1.year - d2.year)
end
end

p.extractDateFromWikidataSnak = function(snak)
if snak.snaktype ~= 'value' or not snak.datavalue then return nil end
local timestamp = snak.datavalue.value.time
local precision = snak.datavalue.value.precision
return p.parseWikidataDate(timestamp, precision)
end

p.toISO8601 = function(s)
if not s then return nil end
local d = type(s) == 'string' and p.parseDate(s) or s
return mw.language.getContentLanguage():formatDate('Y-m-d', os.date('%d %B %Y', os.time(d)))
end

p.addDaysToDateFromFrame = function(frame)
local args = getArgs(frame)
local days = args.delta and tonumber(args.delta) or 1
local today
if args.referenceDate then
today = p.parseDate(args.referenceDate)
else
today = os.date("*t")
today.precision = 11
end
local tomorrow = p.addDaysToDate(today, days)
return p.formatDate(tomorrow, false, args.notimetag ~= nil, args.dateFormat)
end

function p.daysBetween(d1, d2)
if d1.precision < 10 then
d1.month = 1
end
if d1.precision < 11 then
d1.day = 1
end
if d2.precision < 10 then
d2.month = 12
end
if d2.precision < 11 then
d2.day = maxDaysInMonth[d1.month]
end

local time1 = os.time(d1)
local time2 = os.time(d2)
local secsdiff = os.difftime(time2, time1)
return secsdiff / 3600 / 24
end
return p

Modul:StringUtils

2024-07-14T19:55:51Z

Sergiu: Pagină nouă: local p = {} local arguments = require('Modul:Arguments') local TableTools = require('Modul:TableTools') local function makeInvokeFunc(funcName) return function (frame) local args = arguments.getArgs(frame, { wrappers = 'Format:Ifempty' }) local firstRet,secondRet = p[funcName](args) return firstRet end end -- Adaugă la începutul unui șir un prefix, dacă nu există deja acolo el sau unul dintre cele listate în ultimul argument function p._prependIfMissing(...)...

local p = {}
local arguments = require('Modul:Arguments')
local TableTools = require('Modul:TableTools')

local function makeInvokeFunc(funcName)
return function (frame)
local args = arguments.getArgs(frame, { wrappers = 'Format:Ifempty' })
local firstRet,secondRet = p[funcName](args)
return firstRet
end
end

-- Adaugă la începutul unui șir un prefix, dacă nu există deja acolo el sau unul dintre cele listate în ultimul argument
function p._prependIfMissing(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1] and tostring(args[1]) or nil
local prefix = args[2]
local others = {}
for argIdx = 2, TableTools.size(args) do
table.insert(others, args[argIdx])
end
if str == nil then return nil end
if prefix == nil then return str end

for i, eachPrefix in pairs(others) do
if mw.ustring.find(str, eachPrefix, 1, true) == 1 then return str end
end

return prefix .. str
end
p.prependIfMissing = makeInvokeFunc('_prependIfMissing')

-- Adaugă la sfârșitul unui șir un sufix, dacă nu există deja acolo el sau unul dintre cele listate în ultimul argument
function p._appendIfMissing(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = tostring(args[1])
local suffix = args[2]
local others = {}
for argK,argV in pairs(args) do
if argK > 1 then
table.insert(others, argV)
end
end
if str == nil then return nil end
if suffix == nil then return str end

for i, eachSuffix in pairs(others) do
local suffixStart
local suffixEnd
suffixStart, suffixEnd = mw.ustring.find(str, eachSuffix, 1, true)
if suffixEnd == mw.ustring.len(str) then return str end
end
return str .. suffix
end
p.appendIfMissing = makeInvokeFunc('_appendIfMissing')

function p._emptyToNil(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if str == '' then return nil end
return str
end
p.emptyToNil = makeInvokeFunc('_emptyToNil')

function p._capitalize(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if str == nil then return nil end
return mw.ustring.upper(mw.ustring.sub(str, 1, 1)) .. mw.ustring.sub(str,2);
end
p.capitalize = makeInvokeFunc('_capitalize')

function p._removeStart(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if str == nil then return nil end
for pfIdx = 2,TableTools.size(args) do
local prefix = args[pfIdx]
if prefix == nil then return str end
if mw.ustring.sub(str, 1, mw.ustring.len(prefix)) == prefix then return mw.ustring.sub(str, mw.ustring.len(prefix) + 1, mw.ustring.len(str)) end
end
return str
end
p.removeStart = makeInvokeFunc('_removeStart')

function p._removeEnd(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if str == nil then return nil end
for sfIdx = 2,TableTools.size(args) do
local suffix = args[sfIdx]
if suffix == nil then return str end
if mw.ustring.sub(str, -mw.ustring.len(suffix)) == suffix then return mw.ustring.sub(str, 1, -mw.ustring.len(suffix) - 1) end
end
return str
end
p.removeEnd = makeInvokeFunc('_removeEnd')

function p.__isEmpty(str)
return str == nil or (type(str) == 'string' and mw.ustring.len(str) == 0)
end
function p._isEmpty(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
return p.__isEmpty(str)
end
p.isEmpty = makeInvokeFunc('_isEmpty')

function p._trim(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if not str then return nil end
return mw.text.trim(str)
end
p.trim = makeInvokeFunc('_trim')

function p._startsWithAny(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if not str then return false end
local idx = 2
while idx <= TableTools.size(args) do
if args[idx] and mw.ustring.sub(str, 1, mw.ustring.len(args[idx])) == args[idx] then
return true
end
idx = idx + 1
end
return false
end
p.startsWithAny = makeInvokeFunc('_startsWithAny')
p._startsWith = p._startsWithAny
p.startsWith = makeInvokeFunc('_startsWith')

function p._endsWithAny(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if not str then return false end
local idx = 2
while idx <= TableTools.size(args) do
if args[idx] and mw.ustring.sub(str, mw.ustring.len(str) - mw.ustring.len(args[idx]) + 1, mw.ustring.len(str)) == args[idx] then
return true
end
idx = idx + 1
end
return false
end
p.endsWithAny = makeInvokeFunc('_endsWith')
p._endsWith = p._endsWithAny
p.endsWith = makeInvokeFunc('_endsWith')

function p._substringBefore(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if not str then return nil end
local idx = 2
local substringEndPos = 1 + mw.ustring.len(str)
local firstSep = ''
while idx <= TableTools.size(args) do
if args[idx] then
local substringStart = mw.ustring.find(str, args[idx], 1, true)
if substringStart and substringStart < substringEndPos then
substringEndPos = substringStart
firstSep = args[idx]
end
end
idx = idx + 1
end
return mw.ustring.sub(str, 1, substringEndPos-1), firstSep
end
p.substringBefore = makeInvokeFunc('_substringBefore')

function p._substringAfter(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
if not str then return nil end
local idx = 2
local substringStartPos = 1 + mw.ustring.len(str)
local firstSep = ''
while args[idx] ~= nil do
local substringStart = mw.ustring.find(str, args[idx], 1, true)
if substringStart and substringStart < substringStartPos then
substringStartPos = substringStart + mw.ustring.len(args[idx])
firstSep = args[idx]
end
idx = idx + 1
end
if substringStartPos > mw.ustring.len(str) then return str end
return mw.ustring.sub(str, substringStartPos), firstSep
end
p.substringAfter = makeInvokeFunc('_substringAfter')

function p._defaultString(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local compressedArgs = TableTools.compressSparseArray(args)

if #compressedArgs == 0 then return '' end
return compressedArgs[1]
end
p.defaultString = makeInvokeFunc('_defaultString')

function p._appendToString(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
local suffix = args[2]
if str then
return tostring(str) .. tostring(suffix or '')
end
return ''
end
p.appendToString = makeInvokeFunc('_appendToString')

function p._prependToString(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]
local prefix = args[2]
if str then
return tostring(prefix or '') .. tostring(str)
end
return ''
end
p.prependToString = makeInvokeFunc('_prependToString')

function p._encloseString(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
return p._prependToString({p._emptyToNil({p._appendToString({args[1], args[3]})}), args[2]})
end
p.encloseString = makeInvokeFunc('_encloseString')

function p._stripNamespace(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
s,_ = p._substringAfter({args[1],':'})
return s
end
p.stripNamespace = makeInvokeFunc('_stripNamespace')

-- Determină dacă o secvență de text conține o legătură spre un articol anume.
function p._findLinkByTitle(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local str = args[1]:gsub('_', ' ')
local pattern = '%[%[%s*' .. p._trim({(args[2] or ''):gsub('_', ' ')}):gsub('([+*?%-%(%)%%%.])', '%%%1') .. '%s*[%]|]'
if str then
return str:find(pattern, 1, false) or 0
end
return 0
end
p.findLinkByTitle = makeInvokeFunc('_findLinkByTitle')

function p._firstValue(...)
local args = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local compactedArgs = TableTools.compressSparseArray(args)
return #compactedArgs > 0 and compactedArgs[1] or ''
end
p.firstValue = makeInvokeFunc('_firstValue')

function p.isNilOrEmpty(argument)
return argument == nil or argument == {} or mw.text.trim(argument) == ''
end

return p

Modul:Wikidata

2024-07-14T19:54:48Z

Sergiu: Pagină nouă: local getArgs = require('Module:Arguments').getArgs local SepEntries = require('Module:Separated entries') local StringUtils = require('Modul:StringUtils') local DateUtils = require('Modul:DateUtils') local GregorianDate = require('Modul:GregorianDate') local Citation = require('Modul:Citation/CS1') local TableTools = require('Modul:TableTools') local LangUtils = require('Modul:LangUtils') local plural = require('Modul:Plural').build_plural local Transliteration = require('M...

local getArgs = require('Module:Arguments').getArgs
local SepEntries = require('Module:Separated entries')
local StringUtils = require('Modul:StringUtils')
local DateUtils = require('Modul:DateUtils')
local GregorianDate = require('Modul:GregorianDate')
local Citation = require('Modul:Citation/CS1')
local TableTools = require('Modul:TableTools')
local LangUtils = require('Modul:LangUtils')
local plural = require('Modul:Plural').build_plural
local Transliteration = require('Modul:Transliteration')
local Set = require('Modul:Set')
local p = {}
local lang = mw.language.getContentLanguage()
local libraryUtil = require('libraryUtil')

local wdReferences = {}

-- internationalisation
local i18n = {
["errors"] = {
["property-not-found"] = "Proprietatea nu a fost găsită.",
["entity-not-found"] = "Itfemul Wikidata nu a fost găsit.",
["unknown-claim-type"] = "Tip de afirmație negăsit.",
["unknown-snak-type"] = "Tip de Snak negăsit.",
["unknown-datavalue-type"] = "Tip de date negăsit.",
["unknown-entity-type"] = "Tip de item negăsit.",
["qualifier-not-found"] = "Calificator negăsit.",
["site-not-found"] = "Proiect Wikimedia negăsit.",
},
["somevalue"] = "O valoare",
["novalue"] = "Nicio valoare",
["datetime"] =
{
-- $1 is a placeholder for the actual number
[0] = "$1 miliarde de ani", -- precision: billion years
[1] = "$100 milioane de ani", -- precision: hundred million years
[2] = "$10 milioane de ani", -- precision: ten million years
[3] = "$1 milioane de ani", -- precision: million years
[4] = "$100.000 de ani", -- precision: hundred thousand years
[5] = "$10.000 de ani", -- precision: ten thousand years
[6] = "mileniul $1", -- precision: millennium
[7] = "secolul $1", -- precision: century
[8] = "deceniul anilor $1", -- precision: decade
-- the following use the format of #time parser function
[9] = "Y", -- precision: year,
[10] = "F Y", -- precision: month
[11] = "j F Y", -- precision: day
[12] = 'j F Y, "orele" G', -- precision: hour
[13] = "j F Y G:i", -- precision: minute
[14] = "j F Y G:i:s", -- precision: second
["beforenow"] = "acum $1", -- how to format negative numbers for precisions 0 to 5
["afternow"] = "peste $1", -- how to format positive numbers for precisions 0 to 5
["bc"] = '$1 "î.e.n."', -- how print negative years
["ad"] = "$1" -- how print positive years
},
["monolingualtext"] = '%text',
["warnDump"] = "[[Categorie:Apel de funcție 'Dump' din modulul Wikidata]]"
}

local function propAndEntity(arg1, arg2)
local propId, entId
for _,eachArg in ipairs({arg1, arg2}) do
if mw.ustring.match(eachArg, 'Q%d+') == eachArg then
entId = eachArg
elseif mw.ustring.match(eachArg, 'P%d+') == eachArg then
propId = eachArg
end
end
return propId, entId
end

local function wrapInLangSpan(text, lang)
if not text then return nil end
if not lang or lang == 'ro' then return text end
local langSpan = mw.html.create('span'):attr('lang', lang):wikitext(text)
return tostring(langSpan)
end

local function isClaimTrue(claim)
return mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(claim.rank)] >= mw.wikibase.entity.claimRanks.RANK_NORMAL
end
p.isClaimTrue = isClaimTrue

--- returns true if the claim has a better (or equal) rank than the threshhold specified
--- threshholdRank can be "normal", "preferred" etc.
local function hasBetterRank(claim, threshholdRank)
return (not threshholdRank
or mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(claim.rank)] >= mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(threshholdRank)])
and isClaimTrue(claim)
end
p.hasBetterRank = hasBetterRank

function p.descriptionIn(frame)
local langcode = frame.args[1]
local id = frame.args[2]
-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
local entity = mw.wikibase.getEntityObject(id)
if entity then
return entity.descriptions[langcode or lang.code].value
end
return ""
end

function p.getEntityId(frame)
return mw.wikibase.getEntityIdForCurrentPage()
end

function p.labelIn(frame)
local langcode = frame.args[1]
local id = frame.args[2] or mw.wikibase.getEntityIdForCurrentPage()
-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
local entity
if id then
return mw.wikibase.getLabelByLang(id, langcode or lang.code)
end
return ""
end

local function isValueSnak(snak)
return snak and snak.snaktype == 'value'
end
p.isValueSnak = isValueSnak

local function hasValueSnak(claim)
return claim and claim.type == 'statement' and isValueSnak(claim.mainsnak)
end
p.hasValueSnak = hasValueSnak

local function hasRankAtLeastNormal(claim)
return claim and claim.rank and mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(claim.rank)] > mw.wikibase.entity.claimRanks.RANK_DEPRECATED
end
p.claimHasRankAtLeastNormal = hasRankAtLeastNormal

local function isWritingSystemLatn(lId)
local writingSystems = { lId }

local loopIdx = 1
repeat
local crtWritingSystemId = table.remove(writingSystems, 1)
local writingSystemInstanceOfClaims = p.findBestClaimsForProperty(crtWritingSystemId, 'P31')
if writingSystemInstanceOfClaims then for _,eachScriptInstanceOfClaim in ipairs(writingSystemInstanceOfClaims) do
if p.hasValueSnak(eachScriptInstanceOfClaim) and eachScriptInstanceOfClaim.mainsnak.datavalue.value.id == 'Q29575627' then
return true
end
end end
local writingSystemClaims = p.findBestClaimsForProperty(crtWritingSystemId, 'P282')
if writingSystemClaims then for _,eachWritingSystemClaim in ipairs(writingSystemClaims) do
if p.hasValueSnak(eachWritingSystemClaim) then
if eachWritingSystemClaim.mainsnak.datavalue.value.id == 'Q8229' then
return true
end
table.insert(writingSystems, eachWritingSystemClaim.mainsnak.datavalue.value.id)
end
end end
loopIdx = loopIdx + 1
until #writingSystems == 0 or loopIdx >= 20

return false
end

local function findNativeOrEnglishLabel(entityId, capitalize)
local label
local labelLang
if not entityId then
entityId = mw.wikibase.getEntityIdForCurrentPage()
end
if not entityId then return nil end
local langIds = {}
for _,eachLangProp in ipairs({'P103', 'P407', 'P37', 'P364'}) do
for __,eachLangClaim in ipairs(mw.wikibase.getBestStatements(entityId, eachLangProp)) do
if hasValueSnak(eachLangClaim) then
table.insert(langIds, eachLangClaim.mainsnak.datavalue.value.id)
end
end
end
for _,eachCountryProp in ipairs({'P17', 'P27'}) do
for __,eachCountry in ipairs(mw.wikibase.getBestStatements(entityId, eachCountryProp)) do
if hasValueSnak(eachCountry) then
for ___,eachOffLang in ipairs(mw.wikibase.getBestStatements(eachCountry.mainsnak.datavalue.value.id, 'P37')) do
if hasValueSnak(eachOffLang) then
table.insert(langIds, eachOffLang.mainsnak.datavalue.value.id)
end
end
end
end
end

table.insert(langIds, 'Q1860')
langIds = TableTools.mergeSort(langIds, function(l1, l2)
if l2 and not l1 then return 1 end
if l1 and not l2 then return -1 end
if l1 == l2 then return 0 end

local l1IsLatn = isWritingSystemLatn(l1) or Transliteration.isTransliterationSupported(p.loadOneValueInChain({l1, 'P218'}))
local l2IsLatn = isWritingSystemLatn(l2) or Transliteration.isTransliterationSupported(p.loadOneValueInChain({l2, 'P218'}))
if l1IsLatn and not l2IsLatn then
return -1
elseif not l1IsLatn and l2IsLatn then
return 1
else
return 0
end
end)
local langsToTry = {}
for _,eachLangId in ipairs(langIds) do
for __,eachLangCodeClaim in ipairs(mw.wikibase.getBestStatements(eachLangId, 'P424')) do
if not labelLang and hasValueSnak(eachLangCodeClaim) then
table.insert(langsToTry, eachLangCodeClaim.mainsnak.datavalue.value)
end
end
end

local simplifiedLangsToTry = {}
for _,eachLangToTry in ipairs(langsToTry) do
local simplifiedLang = StringUtils._substringBefore({StringUtils._substringBefore({eachLangToTry, '_'}), '-'})
table.insert(simplifiedLangsToTry, simplifiedLang)
end
langsToTry = simplifiedLangsToTry
for _,eachLang in ipairs(langsToTry) do
if label == nil then
label = mw.wikibase.getLabelByLang(entityId, eachLang)
labelLang = eachLang
end
if label then break end
end
if label then
if labelLang and labelLang ~= 'ro' and not Transliteration.isTransliterationSupported(labelLang) then
label = wrapInLangSpan(label, labelLang)
end
if Transliteration.isTransliterationSupported(labelLang) then
label = wrapInLangSpan(Transliteration.transliterate(label, labelLang), labelLang .. '-Latn')
end
if capitalize then
label = lang:ucfirst(label)
end
end
return label, labelLang
end
p.findNativeOrEnglishLabel = findNativeOrEnglishLabel

p.getNativeOrEnglishLabel = function(frame)
local args = getArgs(frame)
local label, lang = findNativeOrEnglishLabel(args[1], args[2])
if label then return label else return nil end
end

local function invisibleLinkTrail(label, description, out)

if mw.isSubsting() then return "" end
return mw.getCurrentFrame():preprocess("{{invizibil|1=[[" .. label .." " .. description .. "|]]}}") .. out
end

local function computeWikidataLinkText(qIfiedEntityId, label, description, out)
return "[[:d:" .. qIfiedEntityId .. "|" .. label .. "]]<abbr title='Articolul încă nu există în acest wiki'>[*]</abbr>" .. invisibleLinkTrail(label, description, out)
end

local function computeWikidataLinkWithIll(qIfiedEntityId, label, description, out)
return mw.getCurrentFrame():preprocess("{{ill-wd|" .. qIfiedEntityId .. "||3=" .. label .. "}}") .. invisibleLinkTrail(label, description, out)
end

-- Handle unit snaks by possibly converting to SI
-- return multiplier, unitQ
local function computeUnitInfo(unit)
return 1, mw.ustring.match(unit, 'Q%d+')
end

-- return the SI conversion and unit corresponding to the unit
local function computeSIUnitInfo(unit)
local unitQ = mw.ustring.match(unit, 'Q%d+')
if unitQ ~= nil then
claims = mw.wikibase.getBestStatements(unitQ, 'P2370')
if claims and 0 < #claims then
for _,eachClaim in ipairs(claims) do
if hasValueSnak(eachClaim) and eachClaim.mainsnak.datavalue.type == "quantity" and mw.ustring.match(eachClaim.mainsnak.datavalue.value.unit, 'Q%d+') ~= nil then
return eachClaim.mainsnak.datavalue.value.amount, mw.ustring.match(eachClaim.mainsnak.datavalue.value.unit, 'Q%d+')
end
end
end
end
return 1, unitQ
end

local function parseTopLevelArgs(args)
if args['ill'] ~= nil then computeWikidataLinkText = computeWikidataLinkWithIll end
if args['si'] ~= nil then computeUnitInfo = computeSIUnitInfo end
end

local function computeLinkToItem(entityId, capitalize, callFunction, plainCallFunction)
local qIfiedEntityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'})
local sitelink = mw.wikibase.sitelink(qIfiedEntityId)
local label = nil
local labelLang = nil
local object = nil
local out = ""
local description = nil
if plainCallFunction and type(plainCallFunction) == 'function' then
label, labelLang = plainCallFunction(qIfiedEntityId)
elseif callFunction and type(callFunction) == 'function' then
object = mw.wikibase.getEntityObject(qIfiedEntityId)
label, labelLang = callFunction(object)
end

if label == nil or (labelLang and labelLang ~= lang.code) then
label = mw.wikibase.getLabelByLang(qIfiedEntityId, 'ro')
if label then labelLang = 'ro' end
description = mw.wikibase.getDescription(qIfiedEntityId)
end

if not label then
label, labelLang = findNativeOrEnglishLabel(qIfiedEntityId, capitalize)
elseif capitalize then
label = lang:ucfirst(label)
end

if not label then
label = qIfiedEntityId
labelLang = nil
end
if description then description = "(" .. description .. ")" end
if label == qIfiedEntityId then
out = "[[Categorie:Articole cu legături către elemente fără etichetă]]"
elseif labelLang ~= 'ro' then
out = "[[Categorie:Articole cu legături către elemente fără etichetă în limba română]]"
end

description = description or ""
if sitelink then
return "[[:" .. sitelink .. "|" .. label .. "]]" .. out
else
local coextensiveWithPageId = p.loadOneValueInChain({qIfiedEntityId, 'P3403', 'raw'})
local listPageId = p.loadOneValueInChain({qIfiedEntityId, 'P2354', 'raw'})
local listPageSitelink = listPageId and mw.wikibase.sitelink(listPageId) or coextensiveWithPageId and mw.wikibase.sitelink(coextensiveWithPageId)
if listPageSitelink then return "[[:" .. listPageSitelink .. "|" .. label .. "]]" end
return computeWikidataLinkText(qIfiedEntityId, label, description, out)
end
end

p.findLinkToItemWithLabel = function(entityId, label)
local sitelink = mw.wikibase.sitelink(StringUtils._prependIfMissing({tostring(entityId), 'Q'}))
if sitelink then
return "[[:" .. sitelink .. "|" .. label .. "]]"
else
return computeLinkToItem(entityId, false, nil, function() return label end)
end
end

p.findLinkToItemWithCallback = function(entityId, capitalize, callBack, plainCallBack)
return computeLinkToItem(entityId, capitalize, callBack, plainCallBack)
end

p.findLinkToItemWithLabelFromAnyClaim = function(entityId, capitalize, propertyIdsTable)
local callFunction = nil
if propertyIdsTable then
callFunction = function(object)
local returnValue = nil
for propIdIdx,propertyId in pairs(propertyIdsTable) do
if object and object.claims and object.claims[propertyId] and returnValue == nil then
for eachClaimIdx, eachClaim in pairs(object.claims[propertyId]) do
if hasValueSnak(eachClaim) and eachClaim.mainsnak.datavalue then
if eachClaim.mainsnak.datavalue.type == 'monolingualtext' then
if eachClaim.mainsnak.datavalue.value.language == 'ro' then returnValue = eachClaim.mainsnak.datavalue.value.text end
elseif eachClaim.mainsnak.datavalue.type == 'wikibase-entityid' then
returnValue = mw.wikibase.label(StringUtils._prependIfMissing({tostring(eachClaim.mainsnak.datavalue.value['numeric-id']), 'Q'}))
elseif eachClaim.mainsnak.datavalue.type == 'string' then
returnValue = eachClaim.mainsnak.datavalue.value
end
end
end
end
end
return returnValue
end
end
return computeLinkToItem(entityId, capitalize, callFunction)
end

p.findLinkToItemWithLabelFromClaim = function(entityId, capitalize, propertyId)
return p.findLinkToItemWithLabelFromAnyClaim(entityId, capitalize, { propertyId })
end

p.findLinkToItem = function(entityId, capitalize, feminine, shortestAlias)
if type(entityId) == 'number' then entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'}) end
if capitalize == nil then capitalize = false end
local label
local returnedLang = nil
local bestRanks = { ["ro"] = nil, ["en"] = nil }

if shortestAlias then
local returnedAlias = nil
local bestShortNameClaims = mw.wikibase.getAllStatements(entityId, 'P1813')
if bestShortNameClaims then
local shortNameEn = nil
for shortNameIdx,shortNameClaim in pairs(bestShortNameClaims) do
if shortNameClaim.mainsnak.datavalue.value.language == 'en' and hasBetterRank(shortNameClaim, bestRanks["en"]) then
shortNameEn = shortNameClaim.mainsnak.datavalue.value.text
bestRanks["en"] = shortNameClaim.rank
end
if shortNameClaim.mainsnak.datavalue.value.language == 'ro' and hasBetterRank(shortNameClaim, bestRanks["ro"]) then
returnedAlias = shortNameClaim.mainsnak.datavalue.value.text
bestRanks["ro"] = shortNameClaim.rank
end
end
if returnedAlias then
returnedLang = 'ro'
elseif shortNameEn then
returnedAlias = shortNameEn
returnedLang = 'en'
end
returnedAlias = capitalize and StringUtils._capitalize(returnedAlias) or returnedAlias
end
label = wrapInLangSpan(returnedAlias, returnedLang)
end
if feminine then
local feminineForms = mw.wikibase.getBestStatements(entityId, 'P2521')
if feminineForms then
for _idx, eachFForm in pairs(feminineForms) do
if hasValueSnak(eachFForm) and eachFForm.mainsnak.datatype == 'monolingualtext' and eachFForm.mainsnak.datavalue.type == 'monolingualtext' and eachFForm.mainsnak.datavalue.value and eachFForm.mainsnak.datavalue.value.language == 'ro' then
label = eachFForm.mainsnak.datavalue.value.text
returnedLang = eachFForm.mainsnak.datavalue.value.language
end
end
end
end
return computeLinkToItem(entityId, capitalize, nil, function() return label, returnedLang end)
end

p.getLinkToItem = function(frame)
local args = getArgs(frame, {frameOnly=true})
local entityId = args[1]
return p.findLinkToItem(entityId, false, false, false)
end

local function printRawValue(snak)
if (isValueSnak(snak)) then
if snak.datavalue.type == "wikibase-entityid" then
return snak.datavalue.value.id
elseif snak.datavalue.type == "time" then
return snak.datavalue.value.time
elseif snak.datavalue.type == "monolingualtext" then
return snak.datavalue.value.text
elseif snak.datavalue.type == "quantity" then
return snak.datavalue.value.amount .. ' ' .. snak.datavalue.value.unit
else
return snak.datavalue.value
end
end
return ''
end
-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
local function normalizeDate(date)
date = mw.text.trim(date, "+")
-- extract year
local yearstr = mw.ustring.match(date, "^\-?%d+")
local year = tonumber(yearstr)
-- remove leading zeros of year
return year .. mw.ustring.sub(date, #yearstr + 1), year
end

local function formatDate(indate, precision, timezone)
precision = precision or 11
local date, year = normalizeDate(indate)
if year == 0 and precision <= 9 then return "" end

-- precision is 10000 years or more
if precision <= 5 then
local factor = 10 ^ ((5 - precision) + 4)
local y2 = math.ceil(math.abs(year) / factor)
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
if year < 0 then
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
else
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
end
return relative
end

-- precision is decades, centuries and millennia
local era
if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
if era then
if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
return era
end

if precision >= 7 then
return DateUtils.formatDate(DateUtils.parseWikidataDate(indate, precision))
end
end

local function snakToString(snak, feminine)
if (isValueSnak(snak)) then
if (snak.datavalue.type == "wikibase-entityid") then
return p.findLinkToItem(snak.datavalue.value["numeric-id"], nil, feminine)
end
if (snak.datavalue.type == "time") then
return formatDate(snak.datavalue.value.time, snak.datavalue.value.precision, snak.datavalue.value.timezone)
end
if (snak.datavalue.type == "monolingualtext") then
return snak.datavalue.value.text
end
if (snak.datavalue.type == "quantity") then
local unit = '1'
local amount = snak.datavalue.value.amount
local ret = nil
local multiplier, unitQ = computeUnitInfo(snak.datavalue.value.unit)
if unitQ ~= nil then
-- possible conversion
amount = amount * multiplier
-- rounding
local iamount = math.floor(amount)
if math.abs(amount - iamount) < 0.5 then amount = iamount else amount = iamount + 1 end
unit = p.findLanguageText('P5061', 'ro', unitQ) or p.findLanguageText('P5061', 'ro', unitQ)
if not unit or mw.ustring.len(unit) == 0 then
unit = p.findLabel(unitQ, nil)
if tonumber(amount) > 1 and unit then
mw.incrementExpensiveFunctionCount()
ret = plural(tonumber(amount), unit)
end
end
unit = unit or '1'
end
if tonumber(amount) ~= nil then
amount = mw.language.new(lang.code):formatNum(tonumber(amount))
end
if ret == nil then
ret = amount .. (unit ~= '1' and (mw.text.decode(' ') .. unit) or '')
end
return ret
end
return snak.datavalue.value
end
return ""
end

p.printSnak = function(snak)
return snakToString(snak)
end

p.outputReferences = function (claim)
local refMapping = {}
local authorityPropertiesMap = {}
local frame = mw.getCurrentFrame()

refMapping["P1433"] = "publisher"
refMapping["P123"] = "publisher"
refMapping["P143"] = "publisher"
refMapping["P1476"] = "contribution"
refMapping["P854"] = "url"
refMapping["P813"] = "accessdate"
refMapping["P50"] = "author"
refMapping["P2093"] = "author"
refMapping["P577"] = "date"
refMapping["P248"] = "title"
refMapping["P304"] = "page"
refMapping["P958"] = "contribution"
refMapping["P1810"] = "contribution"
refMapping["P212"] = "isbn"

authorityPropertiesMap['Q20666306'] = 'P268' -- BnF identifier
authorityPropertiesMap['Q15241312'] = 'P646' -- Freebase identifier
authorityPropertiesMap['Q36578'] = 'P227' -- GND identifier
authorityPropertiesMap['Q37312'] = 'P345' -- IMDb identifier
authorityPropertiesMap['Q278487'] = 'P662' -- PubChem identifier
authorityPropertiesMap['Q1139587'] = 'P2334' -- Swedish film database identifier

local primaryProperties = {}
primaryProperties["P1433"] = "publisher"
primaryProperties["P123"] = "publisher"
primaryProperties["P1476"] = "contribution"
primaryProperties["P248"] = "title"
primaryProperties["P854"] = "url"
primaryProperties["P50"] = "author"
local out = ""
local referencesCount = 0

if claim then
for ref in pairs(claim.references or {}) do
local citationArguments = {}
local citationArgumentsFound = false
local refname = ""
for snakkey, snakval in pairs(claim.references[ref].snaks) do
if refMapping[snakkey] ~= nil then
local snakData = {}
for snakIndex,snakValElement in ipairs(snakval) do
local formattedSnakValElement = snakToString(snakValElement)
if isValueSnak(snakValElement) and snakValElement.datatype == 'time' then
formattedSnakValElement = DateUtils.formatDate(DateUtils.parseWikidataDate(snakValElement.datavalue.value.time, snakValElement.datavalue.value.precision), false , true)
elseif isValueSnak(snakValElement) and snakkey == 'P1476' and snakValElement.datatype == 'monolingualtext' and snakValElement.datavalue.value.language ~= 'ro' then
citationArguments['language'] = snakValElement.datavalue.value.language
end

table.insert(snakData, formattedSnakValElement)
end
citationArguments[refMapping[snakkey]] = table.concat(snakData, ", ", 1, #snakData)
refname = refname .. '_' .. refMapping[snakkey] .. '_' .. mw.ustring.gsub(mw.ustring.gsub(mw.text.nowiki(citationArguments[refMapping[snakkey]]), '&#%d+;', ''), ' ', '')
if primaryProperties[snakkey] then
citationArgumentsFound = true
end

if snakkey == 'P248' or snakkey == 'P143' then -- "stated in" or "imported from", can be an authority file
if snakval[1].datavalue and snakval[1].datavalue.type == 'wikibase-entityid' then
local statedInWbId = snakval[1].datavalue.value.id

-- if Wikimedia project, ignore
for _idx, eachStatedInInstanceOfClaim in pairs(mw.wikibase.getAllStatements(statedInWbId, 'P31')) do
if eachStatedInInstanceOfClaim.mainsnak and eachStatedInInstanceOfClaim.mainsnak.datavalue and eachStatedInInstanceOfClaim.mainsnak.datavalue.type == 'wikibase-entityid' and
(eachStatedInInstanceOfClaim.mainsnak.datavalue.value['numeric-id'] == 10876391 or eachStatedInInstanceOfClaim.mainsnak.datavalue.value['numeric-id'] == 14827288) then
citationArgumentsFound = false
break
end
end
for _idx, eachStatedInInstanceOfClaim in pairs(mw.wikibase.getAllStatements(statedInWbId, 'P1269')) do
if eachStatedInInstanceOfClaim.mainsnak and eachStatedInInstanceOfClaim.mainsnak.datavalue and eachStatedInInstanceOfClaim.mainsnak.datavalue.type == 'wikibase-entityid' and
eachStatedInInstanceOfClaim.mainsnak.datavalue.value['numeric-id'] == 16222597 then
citationArgumentsFound = false
break
end
end
-- extract data about authority file
local authorityWbEntityId = authorityPropertiesMap[StringUtils._prependIfMissing({statedInWbId, 'Q'})]
if authorityWbEntityId then
local authorityUrlFormatClaims = mw.wikibase.getBestStatements(authorityWbEntityId, 'P1630')
if authorityUrlFormatClaims and 0 < #authorityUrlFormatClaims then
local formatterUrl = snakToString(authorityUrlFormatClaims[1].mainsnak)
local crtEntityId = mw.wikibase.getEntityIdForCurrentPage()
if crtEntityId then
local entityAuthIdClaims = mw.wikibase.getBestStatements(crtEntityId, authorityWbEntityId)
if entityAuthIdClaims and 0 < #entityAuthIdClaims and hasValueSnak(entityAuthIdClaims[1]) then
citationArguments['chapterurl'] = mw.ustring.gsub(formatterUrl, '%$1', entityAuthIdClaims[1].mainsnak.datavalue.value)
citationArguments['chapter'] = p.labelIn({args = {'ro'}}) or p.labelIn({args = {'en'}})
end
end
end
elseif citationArgumentsFound == true then
--extract URL from target entity
local statedInUrl = nil
-- the order of the array is important, as we only search the first occurence
local onlinelinksprops = {'P953', 'P854', 'P856', 'P1581', 'P2397','P1065'}
for _,eachOnlineLinkProp in ipairs(onlinelinksprops) do
local linkId = p.findOneValueNoRef(eachOnlineLinkProp, statedInWbId)

if linkId then
local linkFormatter = p.findOneValueNoRef('P1630', eachOnlineLinkProp) or '$1'
if linkFormatter then
linkId = mw.ustring.gsub(linkId, '%%', '%%%%')
statedInUrl = mw.ustring.gsub(linkFormatter, '$1', linkId)
break
else
statedInUrl = linkId
break
end
end
end
if statedInUrl then
citationArguments[refMapping[snakkey]] = StringUtils._capitalize(p.findTitleOfWork(statedInWbId))
citationArguments['url'] = statedInUrl
else
local props = p.getEntityIdsList(statedInWbId, 'P1687')
if props then for _,eachOnlineLinkProp in ipairs(onlinelinksprops) do
for _,prop in ipairs(props) do
if eachOnlineLinkProp == 'P' .. prop then
citationArguments[refMapping[snakkey]] = StringUtils._capitalize(p.findTitleOfWork(statedInWbId))
citationArguments['url'] = p.findOneValueNoRef(eachOnlineLinkProp)
end
break
end
end end
end
end
end
end
end
end
if citationArgumentsFound then

--post-process citation arguments:
--1. if publisher is missing and contribution and title are present, change title to publisher and contribution to title
if citationArguments['publisher'] == nil and citationArguments['contribution'] and citationArguments['title'] then
citationArguments['publisher'] = citationArguments['title']
citationArguments['title'] = citationArguments['contribution']
citationArguments['contribution'] = nil
end
--2. if contribution is present but title is not, change contribution to title
if citationArguments['contribution'] and citationArguments['title'] == nil then
citationArguments['title'] = citationArguments['contribution']
citationArguments['contribution'] = nil
end
--3. if title is a wikilink, break it down and assign article link separately
if citationArguments['title'] then
local titlink, titplain = mw.ustring.match(citationArguments['title'], '%[%[(.*)|(.*)%]%]')
if titlink and titplain then
if not citationArguments['url'] then citationArguments['titlelink'] = titlink end
citationArguments['title'] = titplain
end
end

local citationHash = mw.hash.hashValue('md5', refname)
if referencesCount < 4 then
if wdReferences[citationHash] then
out = out .. frame:extensionTag{name="ref", args={name = citationHash}}
else
local refText = ""
local tstyle = ""
-- when substituting, use the wikitext template
if mw.isSubsting() then
refText = Citation.citationTemplateFromArgs(citationArguments)
citationHash = citationHash .. '-subst'
else
refText, tstyle = Citation.citationFromArgs(citationArguments, {CitationClass = 'citation'}, false)
end
out = out .. frame:extensionTag("ref", refText, { name = citationHash }) .. tstyle
wdReferences[citationHash] = true
end
referencesCount = referencesCount + 1
end
end
end
end
return out
end

p.getValueListLimited = function(entityId, propertyId, limitVal, best)
if limitVal == nil or limitVal <= 0 then limitVal = math.huge end
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if propertyId == nil or entityId == nil then return nil,0 end
local claims = best and mw.wikibase.getBestStatements(entityId, propertyId) or mw.wikibase.getAllStatements(entityId, propertyId)
if not claims then return nil,0 end
if #claims == 0 then return {},0 end
local rez = {}
local feminine = false
local genders = mw.wikibase.getBestStatements(entityId, 'P21')
if genders and #genders > 0 and genders[1] and hasValueSnak(genders[1]) and genders[1].mainsnak.datatype == 'wikibase-item' and genders[1].mainsnak.datavalue.type == 'wikibase-entityid' and genders[1].mainsnak.datavalue.value['numeric-id'] == 6581072 then
feminine = true
end
local count = 0
for k, v in pairs(claims) do
if hasValueSnak(v) and hasRankAtLeastNormal(v) then
count = count+1
if count <= limitVal then
table.insert(rez, snakToString(v.mainsnak, feminine) .. p.outputReferences(v))
end
end
end
return rez, count
end

p.getValueList = function(entityId, propertyId)
local rez, _ = p.getValueListLimited(entityId, propertyId, nil)
return rez
end

local function findTimestampInTable(tbl)
local crtEntry = ''
local crtProp = nil
if tbl then
if tbl['P585'] then
crtEntry = crtEntry .. snakToString(tbl['P585'][1].mainsnak or tbl['P585'][1])
crtProp = 'P585'
elseif tbl['P580'] then
if tbl['P582'] then
local starttime = snakToString(tbl['P580'][1].mainsnak or tbl['P580'][1])
local endtime = snakToString(tbl['P582'][1].mainsnak or tbl['P582'][1])
if starttime == endtime then
crtEntry = crtEntry .. starttime
else
crtEntry = crtEntry .. starttime .. mw.text.decode('–', true) .. endtime
end
crtProp = 'P582'
else
crtEntry = crtEntry .. 'din ' .. snakToString(tbl['P580'][1].mainsnak or tbl['P580'][1])
crtProp = 'P580'
end
elseif tbl['P582'] then
local endtime = DateUtils.extractDateFromWikidataSnak(tbl['P582'][1].mainsnak or tbl['P582'][1])
if endtime then
crtEntry = crtEntry .. 'până ' .. ((endtime.precision == 9 or endtime.precision == 10) and 'în' or 'la') .. ' ' .. DateUtils.formatDate(endtime)
end
crtProp = 'P582'
end
end
return crtEntry, crtProp
end

p.printTimestampForClaim = function(claim)
if claim and claim.qualifiers then
local tblTimestamp = findTimestampInTable(claim.qualifiers)
return tostring(mw.html.create('small'):wikitext(' (' .. tblTimestamp .. ')'))
end
return ''
end

p.findTimestamp = function(entityId)
if type(entityId) == 'number' then entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'}) end
if type(entityId) == 'table' then entityId = entityId.id end
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()

if entityId then
local tbl = {}
for _,propId in ipairs({'P580', 'P582', 'P585'}) do
local propClaims = mw.wikibase.getAllStatements(entityId, propId)
if propClaims and #propClaims > 0 then
tbl[propId] = propClaims
end
end
local tblTstamp, tblProp = findTimestampInTable(tbl)
return tblTstamp, tblProp
end
return ''
end

p.getTimestamp = function(frame)
return p.findTimestamp(frame and frame.args and frame.args[1] or nil)
end

p.getValueListWithDecoratedQualifiers = function(frame)
local args = getArgs(frame, {wrappers = {'Format:Listă decorată de la Wikidata'}, frameOnly = false, parentOnly = false})
local entityId = args['q'] or mw.wikibase.getEntityIdForCurrentPage()
local propertyId = args['p']
local best = (args['best'] ~= nil)
local bracketTemplates = nil
local limitVal = args['limit'] and tonumber(args['limit']) or -1
local bracketTemplatesIdces = TableTools.affixNums(args, 'bracketTemplate')
if bracketTemplatesIdces and #bracketTemplatesIdces > 0 then
bracketTemplates = {}
for _, bracketTemplatesIdx in ipairs(bracketTemplatesIdces) do
table.insert(bracketTemplates, args['bracketTemplate' .. tostring(bracketTemplatesIdx)])
end
end
local pictureSize = args['pictureSize'] or '40px'
local pictureProp = args['picturePid'] or nil
local seps = nil
local sepsIdces = TableTools.affixNums(args, 'sep')
if sepsIdces and #sepsIdces > 0 then
seps = {}
for _, sepsIdx in ipairs(sepsIdces) do
table.insert(seps, args['sep' .. tostring(sepsIdx)])
end
end

local rezList, rezCount = p.findValueListWithDecoratedQualifiers(entityId, propertyId, best, bracketTemplates, seps, pictureProp, pictureSize, limitVal)
if 0 < limitVal and rezCount > limitVal + 1 then
local hiddenVals = rezCount - limitVal
extraSpec = '[[:d:' .. entityId .. '#' .. propertyId .. "|...''încă " .. tostring(hiddenVals) .. "'']]"
table.insert(rezList, extraSpec)
end

return table.concat(rezList or {}, tostring(mw.html.create('br')))
end
p.getValueListWithQualifiersInBrackets = p.getValueListWithDecoratedQualifiers

p.findValueListWithDecoratedQualifiers = function(entityId, propertyId, best, bracketTemplates, seps, pictureProp, pictureSize, limit)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if not limit or type(limit) ~= 'number' then limit = -1 end
if (type(bracketTemplates) == 'string') then
bracketTemplates = { bracketTemplates }
elseif not bracketTemplates then
bracketTemplates = {}
end
seps = seps or {}
table.insert(seps, 1, '')
if #seps < #bracketTemplates then for idx=#seps + 1,#bracketTemplates do table.insert(seps, ', ') end end
if propertyId == nil or entityId == nil then return nil end
local claims

local qualProps = {}
for _,bracketTemplate in ipairs(bracketTemplates) do
mw.ustring.gsub(bracketTemplate, '%$(P%d+)', function(qualProp)
table.insert(qualProps, qualProp)
return nil
end)
end

if best then
claims = mw.wikibase.getBestStatements(entityId, propertyId)
else
claims = mw.wikibase.getAllStatements(entityId, propertyId)
end
local rez = {}
local allcount = 0
if claims and claims[1] then
local rawclaims = {}
for k, v in pairs(claims) do
if hasValueSnak(v) and hasRankAtLeastNormal(v) then
table.insert(rawclaims, v)
end
end
allcount = #rawclaims
for k, v in pairs(rawclaims) do
local crtEntry = snakToString(v.mainsnak)
if pictureProp then
local ts
local picture
if v.qualifiers and v.qualifiers['P582'] then for _,endTimeQual in ipairs(v.qualifiers['P582']) do
ts = DateUtils.extractDateFromWikidataSnak(endTimeQual)
end end
if ts then
local pictureClaim = p.findClaimForTimestamp(v.mainsnak.datavalue.value.id, pictureProp, ts)
if (p.hasValueSnak(pictureClaim)) then
picture = pictureClaim.mainsnak.datavalue.value
end
else
picture = p.loadOneValueInChain({v.mainsnak.datavalue.value.id, pictureProp, 'raw'})
end
if picture and picture ~= '' then
crtEntry = StringUtils._prependToString({crtEntry, '[[Fișier:' .. picture .. '|' .. pictureSize .. ']]' .. mw.text.decode(' ')})
end
end
if v.qualifiers and #qualProps > 0 then
local qualPropValues = {}
for _,eachQualProp in pairs(qualProps) do
if v.qualifiers[eachQualProp] then
local qualPropValuesList = {}
for __,eachQualSnak in ipairs(v.qualifiers[eachQualProp]) do
if isValueSnak(eachQualSnak) then
table.insert(qualPropValuesList, snakToString(eachQualSnak))
end
end
qualPropValues[eachQualProp] = mw.text.listToText(qualPropValuesList, ', ', ' și ')
else
qualPropValues[eachQualProp] = ''
end
end

local bracketData = {}
local usedSeps = {}
for bracketTemplateIdx,bracketTemplate in ipairs(bracketTemplates) do
local substedBracketTemplate = mw.ustring.gsub(bracketTemplate, '%$(P%d+)', function(qualProp)
return qualPropValues[qualProp]
end)
if substedBracketTemplate ~= bracketTemplate and substedBracketTemplate ~= "" then
bracketData[bracketTemplateIdx] = substedBracketTemplate
usedSeps[bracketTemplateIdx] = seps[bracketTemplateIdx]
end
end
bracketData = TableTools.compressSparseArray(bracketData)
usedSeps = TableTools.compressSparseArray(usedSeps)

local bracketText = ''
for bracketDatumIdx=1,#bracketData do
bracketText = bracketText .. (bracketDatumIdx == 1 and '' or usedSeps[bracketDatumIdx])
bracketText = bracketText .. bracketData[bracketDatumIdx]
end
if mw.ustring.len(bracketText) > 0 then
crtEntry = StringUtils._appendToString({crtEntry, tostring(mw.html.create('small'):wikitext(StringUtils._encloseString({bracketText, ' (', ')'})))})
end
end

crtEntry = crtEntry .. p.outputReferences(v)
if 0 < limit and limit <= #rez then
break
end
table.insert(rez, crtEntry)
end
end
return rez, allcount
end
p.findValueListWithQualifiersInBrackets = p.findValueListWithDecoratedQualifiers

p.getTimestampedValueList = function(entityId, propertyId, best)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if propertyId == nil or entityId == nil then return nil end
local claims
if best then
claims = mw.wikibase.getBestStatements(entityId, propertyId)
else
claims = mw.wikibase.getAllStatements(entityId, propertyId)
end
local rez = {}
if claims and claims[1] then
local rawclaims = {}
for k, v in pairs(claims) do
if hasValueSnak(v) then
table.insert(rawclaims, v)
end
end
for k, v in pairs(rawclaims) do
local crtEntry = snakToString(v.mainsnak)
crtEntry = crtEntry .. p.printTimestampForClaim(v)
crtEntry = crtEntry .. p.outputReferences(v)
table.insert(rez, crtEntry)
end
end
return rez
end

p._getValueListWithSeparator = function(...)
if arg.n == 0 then return nil end
local funcArgs = type(arg[1]) == 'table' and arg[1] or arg
local separator = ", "
if funcArgs[1] ~= nil then separator = mw.text.trim(funcArgs[1]) end
local conjunction = separator
if funcArgs['conj'] ~= nil then conjunction = ' ' .. mw.text.trim(funcArgs['conj']) .. ' ' end
local propertyId
local entityId
propertyId, entityId = propAndEntity(funcArgs[2], funcArgs[3])
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
local limit = funcArgs[4] or funcArgs['limit']
local best = funcArgs[5] or funcArgs['best']
if not best or best == 'false' or best == 'no' then best = false else best = true end
local limitVal = 0
if limit and (limit == mw.ustring.match(limit, '%d+') or type(limit) == 'number') then
limitVal = tonumber(limit)
end
local values, vcount = p.getValueListLimited(entityId, propertyId, limitVal, best)
if not values then return nil end
local extraSpec = nil
if 0 < limitVal and vcount > limitVal + 1 then
local hiddenVals = vcount - limitVal
extraSpec = '[[:d:' .. entityId .. '#' .. propertyId .. "|...''încă " .. tostring(hiddenVals) .. "'']]"
table.insert(values, extraSpec)
end
return #values > 0 and mw.text.listToText(values, separator, conjunction) or nil
end

p.getValueListWithSeparator = function(frame)
local funcArgs = getArgs(frame, {frameOnly = true})
parseTopLevelArgs(funcArgs)
return p._getValueListWithSeparator(funcArgs)
end

p.getValue = function(frame)
local args = getArgs(frame)
return p._getValueListWithSeparator({', ', args[1], mw.wikibase.getEntityIdForCurrentPage()})
end

p._getTimestampedValueListWithSeparator = function(funcArgs)
local separator = funcArgs[1] or ", "
local propertyId = funcArgs[2]
local entityId = funcArgs[3]
local best = funcArgs['best'] == 'y' or funcArgs['best'] == 'yes'
local values = p.getTimestampedValueList(entityId, propertyId, best)
return values and table.concat(values, separator)
end

p.getTimestampedValueListWithSeparator = function(frame)
local funcArgs = getArgs(frame, {frameOnly = true})
return p._getTimestampedValueListWithSeparator(funcArgs)
end

local function extractWikidataIdsFromClaimList(claims)
local rez = {}
if claims and #claims > 0 then
for k, v in pairs(claims) do
if hasValueSnak(v) and v.mainsnak.datavalue.type == 'wikibase-entityid' then
table.insert(rez, v.mainsnak.datavalue.value['numeric-id'])
end
end
end
return rez
end

p.getEntityIdsList = function(entityId, propertyId)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if propertyId == nil or entityId == nil then return nil end
local claims = nil
if entityId then
claims = mw.wikibase.getAllStatements(entityId, propertyId)
end
local trueClaims = {}
for _,claim in ipairs(claims) do
if hasRankAtLeastNormal(claim) then table.insert(trueClaims, claim) end
end
return extractWikidataIdsFromClaimList(trueClaims)
end

p.getBestEntityIdsList = function(entityId, propertyId)
local claims = nil
if propertyId == nil then return nil end
if type(entityId) == 'table' then
claims = entityId:getBestStatements(propertyId)
else
if type(entityId) == 'number' then entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'}) end
if type(propertyId) == 'number' then propertyId = StringUtils._prependIfMissing({tostring(propertyId), 'P'}) end
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if propertyId == nil or entityId == nil then return nil end
claims = mw.wikibase.getBestStatements(entityId, propertyId)
end
if not claims then return nil end
return extractWikidataIdsFromClaimList(claims)
end

local timestampComparator = function(p1, p2)
if p1 and p2 then
local q1 = p1.qualifiers
local q2 = p2.qualifiers
local d1 = nil
local d2 = nil
if q1 and q2 then
if q1['P580'] and q1['P580'][1] and q1['P580'][1].datavalue then
d1 = p.extractDateFromClaim(q1['P580'][1])
elseif q1['P585'] and q1['P585'][1] and q1['P585'][1].datavalue then
d1 = p.extractDateFromClaim(q1['P585'][1])
end
if q2['P580'] and q2['P580'][1] and q2['P580'][1].datavalue then
d2 = p.extractDateFromClaim(q2['P580'][1])
elseif q2['P585'] and q2['P585'][1] and q2['P585'][1].datavalue then
d2 = p.extractDateFromClaim(q2['P585'][1])
end
if d1 and d2 then return DateUtils.compare(d1, d2) > 0
elseif d1 then return true
elseif d2 then return false end
elseif q1 then return true
elseif q2 then return false
end
else
if p1 then return true end
if p2 then return false end
end
return false
end

p.findBestClaimsForProperty = function(entity, propertyId)
if propertyId == nil then return nil end
if entity == nil then entity = mw.wikibase.getEntityIdForCurrentPage() end
if type(entity) == 'table' then return entity:getBestStatements(propertyId) end
if type(entity) == 'number' then entity = StringUtils._prependIfMissing({tostring(entity), 'Q'}) end
if entity == nil then return nil end
return mw.wikibase.getBestStatements(entity, propertyId)
end

p.findClaimsForProperty = function(entity, propertyId)
if propertyId == nil then return nil end
if entity == nil then entity = mw.wikibase.getEntityIdForCurrentPage() end
if type(entity) == 'table' and entity.claims then return entity.claims[propertyId] end
if type(entity) == 'number' then entity = StringUtils._prependIfMissing({tostring(entity), 'Q'}) end
if entity == nil then return nil end
return mw.wikibase.getAllStatements(entity, propertyId)
end

p.findClaimsForPropertyByType = function(entity, propertyId, typeIds)
local ret = {}
if propertyId == nil then return nil end
if entity == nil then entity = mw.wikibase.getEntityIdForCurrentPage() end
local claims = {}
if type(entity) == 'table' and entity.claims then
claims = entity.claims[propertyId]
else
if type(entity) == 'number' then entity = StringUtils._prependIfMissing({tostring(entity), 'Q'}) end
if entity == nil then return nil end
claims = mw.wikibase.getBestStatements(entity, propertyId)
end

for k, v in pairs(claims) do
local snak = v.mainsnak
local end_date = p.findQualifierValueListForClaim(v, "P582")
if #end_date == 0 and isValueSnak(snak) and snak.datavalue.type == "wikibase-entityid" then
value = snak.datavalue.value.id
if p.isA(value, typeIds) then
table.insert(ret, v)
end
end
end
return ret
end

p.getClaimsForPropertyByType = function(frame)
local args = getArgs(frame)
local propertyID, entityID, typeId
local raw = false
local ret = {}
propertyID, entityID = propAndEntity(args[1] or '', args[2] or '')
typeId = {args[3]}
if args['raw'] then raw = true end
local entity = nil
if entityID ~= "" then entity = mw.wikibase.getEntityObject(entityID) end
if entity == nil then entity = mw.wikibase.getEntityObject() end
if entity == nil then return "" end

local claims = p.findClaimsForPropertyByType(entity, propertyID, typeId)
if not claims then return "" end
for _,eachClaim in ipairs(claims) do
if hasValueSnak(eachClaim) then
if raw then
table.insert(ret, printRawValue(eachClaim.mainsnak))
else
table.insert(ret, snakToString(eachClaim.mainsnak))
end
end
end

return table.concat(ret, ", ")
end

p.findSortedClaimsForProperty = function(entity, propertyId)
local rawClaims = p.findClaimsForProperty(entity, propertyId)
if rawClaims == nil then return {} end

table.sort(rawClaims, timestampComparator)
return rawClaims
end

p.findQualifierValueListForClaim = function(claim, qualifierId)
if claim == nil or claim.qualifiers == nil or qualifierId == nil then return {} end
local quals = {}
local wikidataQualifiers = claim.qualifiers[qualifierId]
if wikidataQualifiers then
for qualK, qualV in pairs(wikidataQualifiers) do
if isValueSnak(qualV) then
table.insert(quals, snakToString(qualV))
end
end
end
return quals
end

p.getQualifierValue = function(frame)
local propertyID = mw.text.trim(frame.args[1] or "")
local qualifierID = mw.text.trim(frame.args[2] or "")
local entityID = mw.wikibase.getEntityIdForCurrentPage()

if entityID then
local claims = mw.wikibase.getBestStatements(entityID, propertyID)
local out = {}
if claims and #claims > 0 then
for k, v in pairs(claims) do
if p.isValueSnak(v.mainsnak) then
if v.qualifiers and v.qualifiers[qualifierID] then
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
if p.isValueSnak(v2) then
table.insert(out, snakToString(v2))
end
end
end
end
end
end
return table.concat(out, ", ")
else
return ""
end
end

-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
p.getRawValue = function(frame)
local propertyID = mw.text.trim(frame.args[1] or "")
local input_parm = mw.text.trim(frame.args[2] or "")
local entity = mw.wikibase.getEntityObject()
local claims = nil
if entity and entity.claims then
claims = entity.claims[propertyID]
end
if claims then
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value

-- if number type: remove thousand separators
if (hasValueSnak(claims[1]) and claims[1].mainsnak.datavalue.type == "quantity") then
result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
end
return result
else
return ""
end
end

p.getRawQualifierValue = function(frame)
local propertyID = mw.text.trim(frame.args[1] or "")
local qualifierID = mw.text.trim(frame.args[2] or "")
local input_parm = mw.text.trim(frame.args[3] or "")
if input_parm == "FETCH_WIKIDATA" then
local entity = mw.wikibase.getEntity()
if entity.claims[propertyID] ~= nil then
local out = {}
for k, v in pairs(entity.claims[propertyID]) do
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
if isValueSnak(v2) then
if v2.datavalue.value["numeric-id"] then
out[#out + 1] = mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"])
else
out[#out + 1] = v2.datavalue.value
end
end
end
end
local ret = table.concat(out, ", ")
return string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
else
return ""
end
else
return input_parm
end
end

p.extractDateFromClaim = function(claimOrSnak)
local claim
if claimOrSnak.mainsnak then claim = claimOrSnak.mainsnak else claim = claimOrSnak end
if claim.datatype == 'time' and isValueSnak(claim) then
local d = {}
local iSOTimeSign = mw.ustring.sub(claim.datavalue.value.time, 1, 1)
d.precision = tonumber(claim.datavalue.value.precision)
d.calendarmodel = claim.datavalue.value.calendarmodel
wdDate = DateUtils.parseWikidataDate(claim.datavalue.value.time, d.precision)
if wdDate ~= nil then
d.month = wdDate.month
d.day = wdDate.day
else
d.month = 1
d.day = 1
end
if d.precision <= 9 then
d.year = tonumber(mw.ustring.match(claim.datavalue.value.time, "%d+"))
if iSOTimeSign == '-' then d.year = -d.year end
elseif wdDate ~= nil then
d.year = wdDate.year
else
d.year = 1
end
d.claim = claimOrSnak
return d
end
return nil
end

p.findDateValues = function(propertyId, entityId)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()

if entityId then
local bestclaims = mw.wikibase.getBestStatements(entityId, propertyId)
local bestdates = {}

if bestclaims then for k, v in pairs(bestclaims) do
if hasValueSnak(v) and v.mainsnak.datatype == 'time' then
local d = p.extractDateFromClaim(v)
table.insert(bestdates, d)
elseif hasValueSnak(v) then
local d = {}
d.claim = v
table.insert(bestdates, d)
end
end end
return bestdates
end
end

-- This is used to get a date value for date_of_birth (p569), etc. which won't be linked -- consolidate by testing if entity.claims[propertyID].mainsnak.datavalue.type is "time"
-- Dates are stored as 28 characters if the year >99 -- e.g. +00000002014-01-01T00:00:00Z for 2014
-- Dates are stored as 26 characters if the year =<99 -- e.g. +000000050-01-01T00:00:00Z for 50 CE
p.getDateValue = function(frame)
local args = getArgs(frame, { frameOnly = true })
local propertyId = args[1]
local entityId = args[2] or mw.wikibase.getEntityIdForCurrentPage()
if entityId then
local claims = mw.wikibase.getAllStatements(entityId, propertyId)
local out = {}
if claims then for _,eachClaim in pairs(claims) do
if hasValueSnak(eachClaim) then
local extractedDate = p.extractDateFromClaim(eachClaim)
table.insert(out, GregorianDate.displayDualDateIfInInterval(extractedDate, true))
end
end end
return table.concat(out, ", ")
else
return ""
end
end

p.getQualifierDateValue = function(frame)
local propertyID = mw.text.trim(frame.args[1] or "")
local qualifierID = mw.text.trim(frame.args[2] or "")
local input_parm = mw.text.trim(frame.args[3] or "")
local date_format = mw.text.trim(frame.args[4] or "dmy")
if input_parm == "FETCH_WIKIDATA" then
local entity = mw.wikibase.getEntity()
if entity.claims[propertyID] ~= nil then
local out = {}
local dt = {}
for k, v in pairs(entity.claims[propertyID]) do
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
if isValueSnak(v2) then
local d = v2.datavalue.value.time
if #d > 26 then
dt.year = string.sub(d, 9, 12)
dt.month = string.sub(d, 14, 15)
dt.day = string.sub(d, 17, 18)
else
dt.year = string.sub(d, 9, 10)
dt.month = string.sub(d, 12, 13)
dt.day = string.sub(d, 15, 16)
end
if date_format == "mdy" then
out[#out + 1] = os.date("%B %e, %Y", os.time(dt))
elseif date_format == "my" then
out[#out + 1] = os.date("%B %Y", os.time(dt))
elseif date_format == "y" then
out[#out + 1] = os.date("%Y", os.time(dt))
else
out[#out + 1] = os.date("%e %B %Y", os.time(dt))
end
end
end
end
return table.concat(out, ", ")
else
return ""
end
else
return input_parm
end
end

-- returns the value of the specified qualifier for the specified preferred value of the property of the specified entity (or the current entity)
p.findQualifierForPreferredPropertyValue = function(entityId, propertyId, qualifierId, separator)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if entityId == nil then return nil end
local claims = mw.wikibase.getAllStatements(entityId, propertyId)
local out = {}
if claims and claims[1] then
for claimK, claimV in pairs(claims) do
if claimV.rank == 'preferred' then
local qual = claimV.qualifiers[qualifierId]
if qual and qual.mainsnak then table.insert(out, snakToString(qual)) end
end
end
end
return table.concat(out, separator)
end

p.getQualifierForPreferredPropertyValue = function(frame)
local args = getArgs(frame)
local entityId = args['entityId'] or args[1]
local propertyId = args['propertyId'] or args[2]
local qualifierId = args['qualifierId'] or args[3]
local separator = args['separator'] or args[4] or ', '

return p.findQualifierForPreferredPropertyValue(entityId, propertyId, qualifierId, separator)
end

-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
-- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm
-- uses the newer mw.wikibase calls instead of directly using the snaks
-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
p.getTAValue = function(frame)
local ent = mw.wikibase.getEntityObject()
local props = ent:formatPropertyValues('P1323')
local out = {}
local t = {}
for k, v in pairs(props) do
if k == 'value' then
t = mw.text.split( v, ", ")
for k2, v2 in pairs(t) do
out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
end
end
end
ret = table.concat(out, " ")
if #ret == 0 then
ret = "Invalid TA"
end
return ret
end

-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
p.pageId = p.getEntityId

-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
-- use these as the second parameter and this function instead of the built-in "pairs" function
-- to iterate over all qualifiers and snaks in the intended order.
local function orderedpairs(array, order)
if not order then return pairs(array) end

-- return iterator function
local i = 0
return function()
i = i + 1
if order[i] then
return order[i], array[order[i]]
end
end
end

local function printDatavalueEntity(data, parameter)
-- data fields: entity-type [string], numeric-id [int, Wikidata id]
local id = "Q" .. data["numeric-id"]
if parameter then
if parameter == "link" then
return "[[" .. (mw.wikibase.sitelink(id) or (":d:" .. id)) .. "|" .. (mw.wikibase.label(id) or id) .. "]]"
else
return data[parameter]
end
else
if data["entity-type"] == "item" then return mw.wikibase.label("Q" .. data["numeric-id"]) or id else printError("unknown-entity-type") end
end
end

local function printDatavalueTime(data, parameter)
-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
-- calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]
if parameter then
if parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URI
elseif parameter == "time" then data.time = normalizeDate(data.time) end
return data[parameter]
else
return formatDate(data.time, data.precision, data.timezone)
end
end

local function findClaims(entity, property)
if not property or not entity or not entity.claims then return end

if mw.ustring.match(property, "^P%d+$") then
-- if the property is given by an id (P..) access the claim list by this id
return entity.claims[property]
else
property = mw.wikibase.resolvePropertyId(property)
if not property then return end

return entity.claims[property]
end
end

local function getSnakValue(snak, parameter)
-- snaks have three types: "novalue" for null/nil, "somevalue" for not null/not nil, or "value" for actual data
if snak.snaktype == "novalue" then return i18n["novalue"]
elseif snak.snaktype == "somevalue" then return i18n["somevalue"]
elseif snak.snaktype ~= "value" then return nil, printError("unknown-snak-type")
end

-- call the respective snak parser
if snak.datavalue.type == "string" then return snak.datavalue.value
elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter)
elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
else return nil, printError("unknown-datavalue-type")
end
end

local function getQualifierSnak(claim, qualifierId)
-- a "snak" is Wikidata terminology for a typed key/value pair
-- a claim consists of a main snak holding the main information of this claim,
-- as well as a list of attribute snaks and a list of references snaks
if qualifierId then
-- search the attribute snak with the given qualifier as key
if claim.qualifiers then
local qualifier = claim.qualifiers[qualifierId]
if qualifier then return qualifier[1] end
end
return nil, printError("qualifier-not-found")
else
-- otherwise return the main snak
return claim.mainsnak
end
end

local function getValueOfClaim(claim, qualifierId, parameter)
local error
local snak
snak, error = getQualifierSnak(claim, qualifierId)
if snak then
return getSnakValue(snak, parameter)
else
return nil, error
end
end

p.claim = function(frame)
local property = frame.args[1] or ""
local id = frame.args["id"] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
local qualifierId = frame.args["qualifier"]
local parameter = frame.args["parameter"]
local list = frame.args["list"]
local references = frame.args["references"]
local showerrors = frame.args["showerrors"]
local default = frame.args["default"]
if default then showerrors = nil end

-- get wikidata entity
local entity = mw.wikibase.getEntityObject(id)
if not entity then
if showerrors then return printError("entity-not-found") else return default end
end
-- fetch the first claim of satisfying the given property
local claims = findClaims(entity, property)
if not claims or not claims[1] then
if showerrors then return printError("property-not-found") else return default end
end

-- get initial sort indices
local sortindices = {}
for idx in pairs(claims) do
sortindices[#sortindices + 1] = idx
end
-- sort by claim rank
local comparator = function(a, b)
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
return ranka < rankb
end
table.sort(sortindices, comparator)

local result
local error
if list then
local value
-- iterate over all elements and return their value (if existing)
result = {}
for idx in pairs(claims) do
local claim = claims[sortindices[idx]]
value, error = getValueOfClaim(claim, qualifierId, parameter)
if not value and showerrors then value = error end
if value and references then value = value .. p.outputReferences(claim) end
result[#result + 1] = value
end
result = table.concat(result, list)
else
-- return first element
local claim = claims[sortindices[1]]
result, error = getValueOfClaim(claim, qualifierId, parameter)
if result and references then result = result .. p.outputReferences(claim) end
end

if result then return result else
if showerrors then return error else return default end
end
end

p.getPreferredValue = function(frame)
local args = getArgs(frame)
local propertyID = args[1] or args['propertyId'] or args['pid']
local entityID = args[2] or args['entityId'] or args['qid'] or mw.wikibase.getEntityIdForCurrentPage()
if entityID == nil or propertyID == nil then return nil end
local claims = mw.wikibase.getAllStatements(entityID, propertyID)
if claims then
-- if wiki-linked value output as link if possible
if hasValueSnak(claims[1]) then
local out = {}
for k, v in pairs(claims) do
if (v.rank == 'preferred') then
local snakText = snakToString(v.mainsnak) .. p.outputReferences(v)

if snakText ~= "" then
out[#out + 1] = snakText
end
end
end
return table.concat(out, ", ")
end
else
return ""
end
return ""
end

-- look into entity object
p.ViewSomething = function(frame)
local data = mw.wikibase.getEntityObject()
if not data then
return nil
end

local f = frame.args[1] and frame or frame:getParent()

local i = 1
while true do
local index = f.args[i]
if not index then
return tostring(data)
end

data = data[index] or data[tonumber(index)]
if not data then
return
end

i = i + 1
end
end

p.Dump = function(frame)
local data = mw.wikibase.getEntityObject()
if not data then
return i18n.warnDump
end

local f = frame.args[1] and frame or frame:getParent()

local i = 1
while true do
local index = f.args[i]
if not index then
return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump
end

data = data[index] or data[tonumber(index)]
if not data then
return i18n.warnDump
end

i = i + 1
end
end

-- Returnează o singură valoare din cele cu rangul cel mai înalt cu referințele corespunzătoare pentru o proprietate specificată
-- De apelat din alte module
p.findOneValue = function(propertyID, entity)
local entityId = nil
if type(entity) == 'table' then entityId = entity.id
elseif type(entity) == 'number' then entityId = StringUtils._prependIfMissing({tostring(entity), 'Q'})
elseif type(entity) == 'string' then entityId = entity
end

entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if not entityId then return nil end
local claims = mw.wikibase.getBestStatements(entityId, propertyID)
if claims and 0 < #claims then
for _,eachClaim in ipairs(claims) do
if hasValueSnak(eachClaim) then
return snakToString(eachClaim.mainsnak) .. p.outputReferences(eachClaim)
end
end
end
return nil
end

-- Returnează o singură valoare din cele cu rangul cel mai înalt pentru o proprietate specificată
-- De apelat din alte module
p.findOneValueNoRef = function(propertyID, entity)
local claims = nil
if type(entity) == 'table' then
claims = entity:getBestStatements(propertyID)
else
if type(entity) == 'number' then entity = 'Q' .. tostring(entity) end
entity = entity or mw.wikibase.getEntityIdForCurrentPage()
if not entity then return nil end
claims = mw.wikibase.getBestStatements(entity, propertyID)
end
if claims and 0 < #claims then
for _,eachClaim in ipairs(claims) do
if hasValueSnak(eachClaim) then
return snakToString(eachClaim.mainsnak)
end
end
end
return nil
end

-- Returnează o singură valoare din cele cu rangul cel mai înalt pentru o proprietate specificată
-- De apelat din formate
p.getOneValueNoRef = function(frame)
local propertyID, entityID
propertyID, entityID = propAndEntity(frame.args[1], frame.args[2])
local entity = nil
if entityID ~= "" then entity = mw.wikibase.getEntityObject(entityID) end
if entity == nil then entity = mw.wikibase.getEntityObject() end

if entity == nil then return nil end
return p.findOneValueNoRef(propertyID, entity)
end

-- Returnează o singură valoare din cele cu rangul cel mai înalt și cu referințele corespunzătoare pentru o proprietate specificată
-- De apelat din formate
p.getOneValue = function(frame)
local args = getArgs(frame)
parseTopLevelArgs(args)
local propertyID, entityID
propertyID, entityID = propAndEntity(args[1], args[2])
local entity = nil
if entityID ~= "" then entity = mw.wikibase.getEntityObject(entityID) end
if entity == nil then entity = mw.wikibase.getEntityObject() end

if entity == nil then return nil end
return p.findOneValue(propertyID, entity)
end

local function findLatestQualifierValueForOnePropertyOfAnEntity(entity, propertyId, qualifierId)
if entity == nil then
entity = mw.wikibase.getEntityObject()
end
if entity == nil then return '' end
local claims = entity:getBestStatements(propertyId)
if claims then
if claims[1] then
if claims[1].qualifiers then
if claims[1].qualifiers[qualifierId] then
local allQualifiers = {}
for qk, qv in pairs(claims[1].qualifiers[qualifierId]) do
table.insert(allQualifiers, qv)
end
local qIndex = 1
local maxQTime = nil
while maxQTime == nil and qIndex <= #allQualifiers do
if allQualifiers[qIndex].datatype == 'time' then
maxQTime = allQualifiers[qIndex]
end
qIndex = qIndex + 1
end
if maxQTime ~= nil then
for i=qIndex,#allQualifiers do
local msCrtQTime = tonumber(mw.language.new(lang.code):formatDate('U', allQualifiers[i].datavalue.value.time, nil))
local msMaxQTime = tonumber(mw.language.new(lang.code):formatDate('U', maxQTime.datavalue.value.time, nil))
if msCrtQTime > msMaxQTime then
maxQTime = allQualifiers[i]
end
end
if isValueSnak(maxQTime) then
return formatDate(maxQTime.datavalue.value.time, maxQTime.datavalue.value.precision, maxQTime.datavalue.value.timezone)
end
end
return ""
else
return ""
end
else
return ""
end
else
return ""
end
else
return ""
end
end

-- Returnează valoarea cea mai recentă a qualifierului specificat pentru proprietea specificată a entității curente
-- De apelat din alte module
p.getLatestQualifierDateValueForOneProperty = function(frame)
local propertyId = mw.text.trim(frame.args[1] or "")
local qualifierId = mw.text.trim(frame.args[2] or "")
local entity = mw.wikibase.getEntityObject()

return findLatestQualifierValueForOnePropertyOfAnEntity(entity, propertyId, qualifierId)
end

-- Returnează valoarea cea mai recentă a qualifierului specificat pentru proprietea specificată a entității curente
-- De apelat din formate
p.findLatestQualifierDateValueForOneProperty = function(propertyId, qualifierId)
local entity = mw.wikibase.getEntityObject()
return entity ~= nil and findLatestQualifierValueForOnePropertyOfAnEntity(entity, propertyId, qualifierId) or ''
end

-- Returnează un text ce conține referința pentru o proprietate; de apelat din formate
p.getReferenceForOneProperty = function(frame)
local entity = mw.wikibase.getEntityObject()
local propertyId = mw.text.trim(frame.args[1])
local claims = entity:getBestStatements(propertyId)

return p.outputReferences(claims[1])
end

-- Returnează o listă cu obiecte value asociate unei proprietăți a unei entități
-- Creată pentru a obține lista de coordonate a unui oraș în formă pură (listă cu obiectele value asociate)
-- Funcționează pentru: coordonate
-- TODO - de extins la mai multe tipuri de date, de exemplu texte multilingve, date calendaristice, itemuri wikibase
p.findDataValueObjects = function(entityId, propertyId)
if propertyId == nil then return {} end
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if entityId == nil then return {} end
local ret = {}
local claims = mw.wikibase.getAllStatements(entityId, propertyId)
if claims == nil then return ret end
for claimIdx = 1, #claims do
local snak = claims[claimIdx].mainsnak
if isValueSnak(snak) then
if snak.datatype == 'globe-coordinate' then
table.insert(ret, snak.datavalue.value)
end
end
end

return ret
end

p.findRoLabel = function(entityId)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if entityId then
return mw.wikibase.getLabelByLang(entityId, lang.code)
end
return nil
end
p.getRoLabel = function(frame)
local args = getArgs(frame)
return p.findRoLabel(args[1])
end

-- Returnează labelul unei entități în limba specificată; dacă nu se găsește, atunci se încearcă în limba wikiului și apoi în limba engleză
p.findLabel = function(entityId, languageCode, default)
local entity, ret
if entityId == nil then
entityId = mw.wikibase.getEntityIdForCurrentPage()
if not entityId then return default or '' end
end
if type(entityId) == 'number' then
entityId = 'Q' .. tostring(entityId)
end
if type(entityId) == 'string' then
if languageCode then
ret = mw.wikibase.getLabelByLang(entityId, languageCode)
end
if not ret then
ret = mw.wikibase.getLabel(entityId)
end
return ret or default or mw.wikibase.getLabelByLang(entityId, 'en') or entityId
end
if type(entityId) == 'table' then
local entity = entityId
if not languageCode or languageCode == '' then languageCode = lang.code end
ret = entity:getLabel(languageCode) or entity:getLabel(lang.code) or default or entity:getLabel('en')
return ret
end
return default or ''
end

p.getLabel = function(frame)
local args = getArgs(frame, {frameOnly=true})
local entityId = args[1]
local languageCode = args[2] or lang.code
local default = args['default']
return p.findLabel(entityId, languageCode, default)
end

local function formatCoordinates(entityId, args)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if entityId == nil then return '' end
local coordClaims = mw.wikibase.getAllStatements(entityId, 'P625')
local formattedCoordsList = {}
if coordClaims and coordClaims[1] then
for coordIdx=1,#coordClaims do
if coordClaims[coordIdx].mainsnak.datatype == 'globe-coordinate' and
coordClaims[coordIdx].mainsnak.datavalue ~= nil then
local latDir = coordClaims[coordIdx].mainsnak.datavalue.value.latitude < 0 and 'S' or 'N'
local lonDir = coordClaims[coordIdx].mainsnak.datavalue.value.longitude < 0 and 'V' or 'E'
local coordArgs = {tostring(math.abs(coordClaims[coordIdx].mainsnak.datavalue.value.latitude)), latDir, tostring(math.abs(coordClaims[coordIdx].mainsnak.datavalue.value.longitude)), lonDir}
if args['display'] ~= nul then coordArgs['display'] = args['display'] end
if args['format'] ~= nul then coordArgs['format'] = args['format'] end
local coordsText = mw.getCurrentFrame():expandTemplate{title='Coord', args=coordArgs}

table.insert(formattedCoordsList, coordsText)
end
end
end
return table.concat(formattedCoordsList, ', ')
end

p.getFormattedCoordinates = function(frame)
local origArgs = getArgs(frame)
return formatCoordinates(origArgs[1] or origArgs['entityId'], origArgs)
end

-- Returnează o numărul de valori cu cel mai mare rang pentru o proprietate specificată
-- De apelat din alte module
p.countBestValues = function(propertyID, entity)
if type(entity) == 'table' then
entity = entity.id
elseif type(entity) == 'number' then
entity = 'Q' .. tostring(entity)
elseif entity == nil then
entity = mw.wikibase.getEntityIdForCurrentPage()
if entity == nil then return 0 end
end
local claims = mw.wikibase.getBestStatements(entity, propertyID)
local outList = {}
if not claims then return 0 end
return #claims
end

p.getBestValuesCount = function(frame)
local origArgs = getArgs(frame)
local entity = mw.wikibase.getEntityObject()
return p.countBestValues(origArgs[1], entity)
end

-- Returnează o singură valoare din cele cu rangul cel mai înalt cu referințele corespunzătoare pentru o proprietate specificată
-- De apelat din alte module
p.findBestValues = function(propertyID, entity)
if type(entity) == 'table' then
entity = entity.id
elseif type(entity) == 'number' then
entity = 'Q' .. tostring(entity)
end
if entity == nil then
entity = mw.wikibase.getEntityIdForCurrentPage()
if entity == nil then return {} end
end
if not StringUtils._emptyToNil({propertyID}) then return nil end
local claims = mw.wikibase.getBestStatements(entity, propertyID)
local outList = {}
if claims then for claimIdx, actualClaim in pairs(claims) do
if hasValueSnak(actualClaim) then
table.insert(outList, snakToString(actualClaim.mainsnak) .. p.outputReferences(actualClaim))
end
end end
return outList
end

p._getBestValuesWithSeparator = function(entity, propertyID, sep)
if propertyID == nil then return '' end
local valueList = p.findBestValues(propertyID, entity)
return valueList and table.concat(valueList, sep)
end

-- Returnează o listă a valorilor cu rangul cel mai înalt și cu referințele corespunzătoare pentru o proprietate specificată
-- De apelat din formate
p.getBestValuesWithSeparator = function(frame)
local sep = frame.args[1]
if sep == nil or sep == '' then sep = ', ' end
local propertyID = mw.text.trim(frame.args[2] or "")
local entityID = mw.text.trim(frame.args[3] or "")
local entity = nil
if entityID ~= "" then entity = mw.wikibase.getEntityObject(entityID) end
if entity == nil then entity = mw.wikibase.getEntityObject() end

return p._getBestValuesWithSeparator(entity, propertyID, sep)
end

p.findLanguageText = function(propertyId, langcode, entityId)
-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if not entityId then return nil end
local returnValue = nil
langcode = langcode or 'ro'
for eachClaimIdx, eachClaim in pairs(mw.wikibase.getAllStatements(entityId, propertyId)) do
if hasValueSnak(eachClaim) and eachClaim.mainsnak.datavalue then
if eachClaim.mainsnak.datavalue.type == 'monolingualtext' then
if eachClaim.mainsnak.datavalue.value.language == langcode then returnValue = eachClaim.mainsnak.datavalue.value.text end
elseif eachClaim.mainsnak.datavalue.type == 'string' then
returnValue = eachClaim.mainsnak.datavalue.value
elseif eachClaim.mainsnak.datavalue.type == 'wikibase-entityid' then
returnValue = p.findLabel(eachClaim.mainsnak.datavalue.value.id, langcode)
end
end
end

return returnValue
end

p.getLanguageText = function(frame)
return p.findLanguageText(frame.args[1], frame.args[2] or 'ro', frame.args[3]) or ''
end

p.findBestValuesForLocalLanguage = function(propertyId, entityId)
entityId = entityId or mw.wikibase.getEntityIdForCurrentPage()
if not entityId then return nil end
local bestValues = {}
local bestRank = nil
for eachClaimIdx, eachClaim in pairs(mw.wikibase.getAllStatements(entityId, propertyId)) do
if (hasValueSnak(eachClaim) and eachClaim.qualifiers and eachClaim.qualifiers['P407'] and 0 < #(eachClaim.qualifiers['P407'])) then
if hasBetterRank(eachClaim, bestRank) then
for _,eachLangQual in ipairs(eachClaim.qualifiers['P655'] or {}) do
if isValueSnak(eachLangQual) and eachLangQual.datavalue.value.id == 'Q7913' then
bestRank = eachLangQual.rank
if not bestRank or mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(eachClaim.rank)] > mw.wikibase.entity.claimRanks['RANK_' .. mw.ustring.upper(bestRank)] then
bestValues = {}
end
table.insert(bestValues, snakToString(eachClaim.mainsnak))
end
end
end
end
end
return bestValues
end

p.getBestValuesForLocalLanguageWithSeparator = function(frame)
return table.concat(p.findBestValuesForLocalLanguage(frame.args[2], frame.args[3]) or {}, frame.args[1])
end

p.findShortestAlias = function(entityId)
return p.findLinkToItem(entityId, false, false, true)
end

p.findImageAndCaption = function(entityId, props)
local wikidataImages = nil
props = props or {'P2716', 'P18', 'P10'}
-- order is important, we will only retrieve one property
for _,prop in ipairs(props) do
wikidataImages = p.findBestClaimsForProperty(entityId, prop)
-- stop on the first match
if wikidataImages and #wikidataImages > 0 then break end
end
local imageName, imageCaption
if wikidataImages and #wikidataImages > 0 then
local wikidataImage = wikidataImages[1]
if hasValueSnak(wikidataImage) and wikidataImage.mainsnak.datavalue then
imageName = wikidataImage.mainsnak.datavalue.value
local roDescr = ''
if wikidataImage.qualifiers and wikidataImage.qualifiers['P2096'] then
for _,eachImageDescrLangString in pairs(wikidataImage.qualifiers['P2096']) do
if isValueSnak(eachImageDescrLangString) and eachImageDescrLangString.datavalue and eachImageDescrLangString.datavalue.value.language == 'ro' then
roDescr = eachImageDescrLangString.datavalue.value.text or roDescr
end
end
end
imageCaption = roDescr
end
end
return imageName, imageCaption
end

p.findLinkToWikidataItem = function(itemId, prefix)
libraryUtil.checkType('findLinkToWikidataItem', 2, prefix, 'string', false)
local qId = StringUtils._prependIfMissing({itemId, prefix})
local itemLabel = p.findLabel(qId)
return '[[:d:' .. (prefix == 'P' and 'Property:' or '') .. qId .. '|' .. (itemLabel or '') .. ' ' .. tostring(mw.html.create('small'):wikitext('(' .. qId .. ')')) .. ']]'
end

p.getLinkToWikidataItem = function(frame)
local args = getArgs(frame)
local prefix = args['prefix'] or 'Q'
if not args[1] then return "''id de " .. (prefix == 'P' and 'proprietate' or 'item') .. " Wikidata nespecificat''" end
return p.findLinkToWikidataItem(args[1], prefix)
end

p.formatExternalLink = function(pId, qId, text)
local formatterUrl = p.findOneValueNoRef('P1630', pId) or '$1'
local urlComponent = text or p.findOneValueNoRef(pId, qId)
if not urlComponent then return nil end
local formattedLink = mw.ustring.gsub(formatterUrl, '%$1', text or urlComponent)
return formattedLink
end

p.getFormattedExternalLink = function(frame)
local args = getArgs(frame)
local pId = args['pid'] or args[1]
local qId = args['qid'] or args[2]
local text = args['text']

return p.formatExternalLink(pId, qId, text)
end
p.isFemale = function(qId)
local entityId = qId or mw.wikibase.getEntityIdForCurrentPage()
if not entityId then return false end
local genders = mw.wikibase.getBestStatements(entityId, 'P21')
local feminineIds = { 6581072, 1052281, 43445 }

if genders then for genderIdx,eachGender in ipairs(genders) do
if hasValueSnak(eachGender) then for _,eachFemId in ipairs(feminineIds) do
if eachFemId == eachGender.mainsnak.datavalue.value['numeric-id'] then return true end
end end
end end
return false
end

p.findClaimForTimestamp = function(entityId, propertyId, timestamp, lang)
local propClaims = p.findSortedClaimsForProperty(entityId, propertyId)

local bestClaim = nil
if propClaims then for _,eachPropClaim in ipairs(propClaims) do
if hasValueSnak(eachPropClaim) and isClaimTrue(eachPropClaim) then

if eachPropClaim.mainsnak.datavalue.type ~= 'monolingualtext' or StringUtils._substringBefore({eachPropClaim.mainsnak.datavalue.value.language, '-'}) == StringUtils._substringBefore({lang or 'ro', '-'}) then
local before = nil
local after = nil
if eachPropClaim.qualifiers then
if eachPropClaim.qualifiers['P580'] and eachPropClaim.qualifiers['P580'][1] and isValueSnak(eachPropClaim.qualifiers['P580'][1]) then
after = GregorianDate.convertToGregorianIfInInterval(DateUtils.extractDateFromWikidataSnak(eachPropClaim.qualifiers['P580'][1]))
end
if eachPropClaim.qualifiers['P582'] and eachPropClaim.qualifiers['P582'][1] and isValueSnak(eachPropClaim.qualifiers['P582'][1]) then
before = GregorianDate.convertToGregorianIfInInterval(DateUtils.extractDateFromWikidataSnak(eachPropClaim.qualifiers['P582'][1]))
end
end

if timestamp then
--if before and DateUtils.compare(timestamp, before) > 0 then --the claim list is sorted by before
-- break
--else
if after == nil and before and DateUtils.compare(timestamp, before) < 0 then
return eachPropClaim
elseif after and before and DateUtils.compare(timestamp, before) < 0 and DateUtils.compare(timestamp, after) > 0 then
return eachPropClaim
elseif after and before == nil and DateUtils.compare(timestamp, after) > 0 then
return eachPropClaim
end
--end
end
if not before then
if not bestClaim and hasBetterRank(eachPropClaim, 'normal') or (bestClaim and hasBetterRank(eachPropClaim, bestClaim.rank)) then
bestClaim = eachPropClaim
end
end
end
end
end end

if bestClaim then
return bestClaim
else
return nil
end
end

p.formatOnlineLink = function(linkProp, entityId)
local linkId = p.findOneValueNoRef(linkProp, entityId)
if linkId then
local linkFormatter = p.findOneValueNoRef('P1630', linkProp) or '$1'
if linkFormatter then
linkId = mw.ustring.gsub(linkId, '%%', '%%%%')
local link = mw.ustring.gsub(linkFormatter, '$1', linkId)
return link
end
end
return nil
end

p.getFormattedOnlineLink = function(frame)
local args = getArgs(frame)
return p.formatOnlineLink(args[1], args[2] or mw.wikibase.getEntityIdForCurrentPage())
end

p.findOnlineLinks = function(onlinelinksprops, entityId, extraProps)
local onlinelinks = {}
local onlinelinksprops = onlinelinksprops and #onlinelinksprops > 0 and onlinelinksprops or {'P856', 'P1581', 'P2013', 'P2002', 'P2847', 'P345', 'P3265', 'P3579', 'P3435', 'P2003', 'P2471', 'P2397', 'P953', 'P1065', 'P4173', 'P4431', 'P1968', 'P6634', 'P4264', 'P2572', 'P7085', 'P3789'}
if extraProps and type(extraProps) == 'table' then onlinelinksprops = Set.valueUnion(onlinelinksprops, extraProps) end
for _,eachOnlineLinkProp in ipairs(onlinelinksprops) do
local link = p.formatOnlineLink(eachOnlineLinkProp)
if link then
local linkentities = p.getBestEntityIdsList(eachOnlineLinkProp, 'P1629')
if linkentities and #linkentities > 0 then
local linklabel = p.findLabel(StringUtils._prependIfMissing({linkentities[1], 'Q'}))
table.insert(onlinelinks, '[' .. link .. ' ' .. linklabel .. ']')
end
end
end
return onlinelinks
end

p.getOnlineLinks = function(frame)
local args = getArgs(frame)
local _,entityId = propAndEntity(StringUtils._prependIfMissing({args['qid'], 'Q'}))
local extraPropsStr = args['extras']
local extraProps = nil
if extraPropsStr then extraProps = mw.text.split(extraPropsStr, ',', true) end
local onlinelinksprops = {}
local passedProps = TableTools.compressSparseArray(args)
for __,eachProp in ipairs(passedProps) do
if mw.ustring.match(eachProp, 'P%d+') == eachProp then
table.insert(onlinelinksprops, eachProp)
end
end

return table.concat(p.findOnlineLinks(onlinelinksprops, entityId, extraProps), tostring(mw.html.create('br')))
end

p.findLanguageIndexedLabelsFromProperty = function(entityId, propertyId)
local entity = nil
if entityId then
entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'})
else
entityId = mw.wikibase.getEntityIdForCurrentPage()
end
local titles = {}
for _,eachTitleClaim in ipairs(mw.wikibase.getAllStatements(entityId, propertyId)) do
if hasValueSnak(eachTitleClaim) then
titles[eachTitleClaim.mainsnak.datavalue.value.language] = eachTitleClaim.mainsnak.datavalue.value.text
end
end
return titles
end

p.findTitleOfWork = function(entityId)
local entity = nil
if entityId then
entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'})
else
entityId = mw.wikibase.getEntityIdForCurrentPage()
end

--- this comes first just for performance reasons
if entityId then
local localLabel, localLang = mw.wikibase.getLabelWithLang(entityId)
if localLabel and localLang == 'ro' then
return localLabel
end
else
return nil
end

local langs = {}
for _,eachProperty in ipairs({'P364', 'P407'}) do
for __,eachLangClaim in ipairs(mw.wikibase.getAllStatements(entityId, eachProperty)) do

if hasValueSnak(eachLangClaim) then
local langEntityId = eachLangClaim.mainsnak.datavalue.value.id
if LangUtils[langEntityId] then
table.insert(langs, { qid = langEntityId, code = LangUtils[langEntityId] })
elseif langEntityId then
for ___,eachLangCodeClaim in ipairs(mw.wikibase.getAllStatements(langEntityId, 'P424')) do
if hasValueSnak(eachLangCodeClaim) and isClaimTrue(eachLangCodeClaim) then
local sanitizedLangCode = StringUtils._substringBefore({eachLangCodeClaim.mainsnak.datavalue.value, '-'})
sanitizedLangCode = StringUtils._substringBefore({sanitizedLangCode, '_'})
table.insert(langs, { qid = langEntityId, code = sanitizedLangCode} )
end
end
end
end
end
end
table.insert(langs, {qid = 'Q1860', code = 'en'})

local titles = p.findLanguageIndexedLabelsFromProperty(entityId, 'P1476')
if titles['ro'] then return titles['ro'] end
local nonLatinLangs = {}
for _,eachlanguage in ipairs(langs) do
local langText = nil
if isWritingSystemLatn(eachlanguage.qid) then
langText = wrapInLangSpan(titles[eachlanguage.code] or mw.wikibase.getLabelByLang(entityId, eachlanguage.code), eachlanguage.code)
elseif Transliteration.isTransliterationSupported(eachlanguage.code) then
langText = wrapInLangSpan(Transliteration.transliterate(titles[eachlanguage.code] or mw.wikibase.getLabelByLang(entityId, eachlanguage.code), eachlanguage.code), eachlanguage.code)
else
table.insert(nonLatinLangs, eachlanguage.code)
end
if langText then return langText end
end
for _,langCode in ipairs(nonLatinLangs) do
langText = wrapInLangSpan(titles[langCode] or mw.wikibase.getLabelByLang(entityId, langCode), langCode)
if langText then return langText end
end
return entityId
end

p.findTitlesOfWorksFromProperty = function(propertyId, entityId, limit)
if limit == nil then limit = 10 end
if entityId then entityId = StringUtils._prependIfMissing({tostring(entityId), 'Q'})
else entityId = mw.wikibase.getEntityIdForCurrentPage() end

if not entityId then return nil end

local ret = {}
local bestWorksClaims = mw.wikibase.getBestStatements(entityId, propertyId)
for workIdx = 1,math.min(limit, #bestWorksClaims) do
local eachWorkClaim = bestWorksClaims[workIdx]
if hasValueSnak(eachWorkClaim) then
local workId = eachWorkClaim.mainsnak.datavalue.value.id
table.insert(ret, computeLinkToItem(workId, true, nil, function() return p.findTitleOfWork(workId) end))
end
end
return ret
end

p.getTitleOfWorkFromPropertyWithSeparator = function(frame)
local args = getArgs(frame)
local sep = args[1]
local propertyId, entityId = propAndEntity(args[2], args[3])
local limitStr = args['limit']
local limit = tonumber(limitStr or '10')
local retListRaw = p.findTitlesOfWorksFromProperty(propertyId, entityId, limit) or {}
local retList = {}
for _,eachRetVal in ipairs(retListRaw) do
table.insert(retList, "''" .. eachRetVal .. "''")
end
return table.concat(retList, sep)
end

p.loadOneValueInChain = function(...)
local chain = arg.n == 0 and {} or type(arg[1]) == 'table' and arg[1] or arg
local crtChainElementId = mw.wikibase.getEntityIdForCurrentPage()
local crtChainClaim = nil
local crtChainSnak = nil
local coordComponent = nil
local raw = false
local label = false
local ref = false
for _,eachChainRing in ipairs(chain) do
if mw.ustring.match(eachChainRing, 'Q%d+') == eachChainRing then
crtChainElementId = eachChainRing
elseif mw.ustring.match(eachChainRing, '_P%d+') and crtChainSnak then
local qualPropertyId = mw.ustring.sub(eachChainRing, 2, mw.ustring.len(eachChainRing))
if crtChainClaim.qualifiers and crtChainClaim.qualifiers[qualPropertyId] and #(crtChainClaim.qualifiers[qualPropertyId]) > 0 then
local qualIdx = 1
local propertyQuals = crtChainClaim.qualifiers[qualPropertyId]
while qualIdx <= #propertyQuals and not isValueSnak(propertyQuals[qualIdx]) do
qualIdx = qualIdx + 1
end
if qualIdx <= #propertyQuals and isValueSnak(propertyQuals[qualIdx]) then
local firstValueSnakIdx = qualIdx
if propertyQuals[qualIdx].datavalue.type == 'monolingualtext' then
while qualIdx <= #propertyQuals and (not isValueSnak(propertyQuals[qualIdx]) or propertyQuals[qualIdx].datavalue.value.language ~= 'ro') do
qualIdx = qualIdx + 1
end
end
crtChainSnak = qualIdx <= #propertyQuals and isValueSnak(propertyQuals[qualIdx]) and propertyQuals[qualIdx] or propertyQuals[firstValueSnakIdx]
else
return nil
end
else
return nil
end
elseif mw.ustring.match(eachChainRing, 'P%d+') ~= nil then
local pid = mw.ustring.match(eachChainRing, 'P%d+')
if isValueSnak(crtChainSnak) and crtChainSnak.datavalue.type == 'wikibase-entityid' then
crtChainElementId = crtChainSnak.datavalue.value.id
crtChainClaim = nil
crtChainSnak = nil
end
if crtChainElementId and not crtChainSnak then
local propertyClaims = nil
-- get latest property
if mw.ustring.match(eachChainRing, '@P%d+') == eachChainRing then
propertyClaims = p.findSortedClaimsForProperty(crtChainElementId, pid)

-- get one random property
elseif mw.ustring.match(eachChainRing, 'P%d+') == eachChainRing then
propertyClaims = mw.wikibase.getBestStatements(crtChainElementId, eachChainRing)
else
return nil;
end
if #propertyClaims < 1 then return nil end
local claimIdx = 1

if propertyClaims[claimIdx].mainsnak.datavalue and propertyClaims[claimIdx].mainsnak.datavalue.type == 'monolingualtext' then
while claimIdx <= #propertyClaims and (not hasValueSnak(propertyClaims[claimIdx]) or propertyClaims[claimIdx].mainsnak.datavalue.value.language ~= 'ro') do
claimIdx = claimIdx + 1
end
else
while claimIdx <= #propertyClaims and not hasValueSnak(propertyClaims[claimIdx]) do
claimIdx = claimIdx + 1
end
end
if claimIdx <= #propertyClaims and hasValueSnak(propertyClaims[claimIdx]) then
crtChainClaim = propertyClaims[claimIdx]
crtChainSnak = crtChainClaim.mainsnak
else
return nil
end
end
elseif eachChainRing == 'lat' or eachChainRing == 'long' then
coordComponent = eachChainRing .. 'itude'
elseif eachChainRing == 'raw' then
raw = true
elseif eachChainRing == 'label' then
if crtChainSnak then crtChainElementId = crtChainSnak.datavalue.value.id end
crtChainClaim = nil
crtChainSnak = nil
label = true
elseif eachChainRing == 'ref' then
ref = true
end
end
if ref and crtChainClaim then
return p.outputReferences(crtChainClaim)
end
if crtChainSnak then
if coordComponent and crtChainSnak.datavalue.value[coordComponent] then return crtChainSnak.datavalue.value[coordComponent] end
return raw and printRawValue(crtChainSnak) or snakToString(crtChainSnak)
end
if crtChainElementId then
if raw then return crtChainElementId
elseif label then return p.findLabel(crtChainElementId)
else return p.findLinkToItem(crtChainElementId) end
end
return nil
end

p.getOneValueInChain = function(frame)
local args = getArgs(frame)
return p.loadOneValueInChain(args)
end

local function isA(entityId, typeIds)
local entityTypes = p.findClaimsForProperty(entityId, 'P31')
entityId = type(entityId) == 'number' and ('Q' .. tostring(entityId)) or entityId
if entityTypes then for _,eachEntityType in ipairs(entityTypes) do
if isClaimTrue(eachEntityType) and hasValueSnak(eachEntityType) then
if TableTools.contains(typeIds, eachEntityType.mainsnak.datavalue.value.id) then
return true
end
local recurseSuccess, recursivelyFoundType = pcall(mw.wikibase.getReferencedEntityId, eachEntityType.mainsnak.datavalue.value.id, 'P279', typeIds)
if recurseSuccess and recursivelyFoundType then
return true
end
if not recurseSuccess then
--manually recurse one level
local superTypeClaims = mw.wikibase.getBestStatements(eachEntityType.mainsnak.datavalue.value.id, 'P279')
if superTypeClaims then for __,eachSuperTypeClaim in ipairs(superTypeClaims) do
if hasValueSnak(eachSuperTypeClaim) and TableTools.contains(typeIds, eachSuperTypeClaim.mainsnak.datavalue.value.id) then
return true
end
end end
end
end
end end
return false
end
p.isA = isA

p.findAnniversary = function(propertyId, entityId, step)
local _date = p.findDateValues(propertyId, entityId)
if _date and _date[1] then
-- no year 0
if _date[1].year < 0 then _date[1].year = _date[1].year + 1 end
if (os.date("*t").year - _date[1].year) % step == 0 then
return (os.date("*t").year - _date[1].year)
end
else
return 0
end
end

p.getAnniversary = function(frame)
local args = getArgs(frame)
return p.findAnniversary(args[1], args[2], args[3])
end

p.findLocationChain = function(entity)
local q = entity or mw.wikibase.getEntityIdForCurrentPage()
if not q then return nil end
local countryQId = p.loadOneValueInChain({q, 'P17', 'raw'})
local adminUnitQId = p.loadOneValueInChain({q, 'P131', 'raw'})
if not adminUnitQId or adminUnitQId == countryQId then return p.findLinkToItem(countryQId, true, false, false) end
return p.findLinkToItem(adminUnitQId, true, false, false) .. ', ' .. p.findLocationChain(adminUnitQId)
end

p.getLocationChain = function(frame)
local args = getArgs(frame)
parseTopLevelArgs(args)
return p.findLocationChain(args.q)
end

p.findAddress = function(qId)
local q = qId or mw.wikibase.getEntityIdForCurrentPage()
if not q then return nil,nil end

p159claims = p.findBestClaimsForProperty(q, 'P159')
addrs = {}
if p159claims then for _,eachP159claim in ipairs(p159claims) do
if hasValueSnak(eachP159claim) then
local addrParts = { p.printSnak(eachP159claim.mainsnak) }
if eachP159claim.qualifiers then
for __,qual in ipairs({'P6375', 'P669', 'P670', 'P281', 'P17'}) do
if eachP159claim.qualifiers[qual] then for ___,eachP159ClaimQual in ipairs(eachP159claim.qualifiers[qual]) do
if isValueSnak(eachP159ClaimQual) then
table.insert(addrParts, p.printSnak(eachP159ClaimQual))
end
end end
end
end
table.insert(addrs, table.concat(addrParts, ', '))
end
end end
if #addrs > 0 then
return table.concat(addrs, tostring(mw.html.create('br'))), 'P159'
end

p6375 = p.findOneValue('P6375', q)
if p6375 then return p6375, 'P6375' end

p669claims = p.findBestClaimsForProperty(q, 'P669')
local addrs = {}
if p669claims then for _,eachP669Claim in ipairs(p669claims) do
if hasValueSnak(eachP669Claim) then
local thisAddr = p.printSnak(eachP669Claim.mainsnak)
if eachP669Claim.qualifiers and eachP669Claim.qualifiers['P670'] then
local streetNumbers = {}
for __,eachP669ClaimP670Qual in ipairs(eachP669Claim.qualifiers['P670']) do
if isValueSnak(eachP669ClaimP670Qual) then
table.insert(streetNumbers, eachP669ClaimP670Qual.datavalue.value)
end
end
if #streetNumbers > 0 then
thisAddr = thisAddr .. ' nr. ' .. table.concat(streetNumbers, ', ')
end
end
table.insert(addrs, thisAddr)
end
end end
if #addrs > 0 then
table.insert(addrs, 1, p.findLocationChain(q))
return table.concat(addrs, '; ')
end

local p2795text = p.loadOneValueInChain({'P2795'})
if p2795text then return p2795text end
return nil
end

p.getAddress = function(frame)
local args = getArgs(frame)
local addr, srcProp = p.findAddress(args[1])
return addr
end

p.hasValueSnak = hasValueSnak

return p

Modul:InfoboxBiography

2024-07-14T19:52:30Z

Sergiu: Pagină nouă: local p = {} local getArgs = require('Modul:Arguments').getArgs local wikidata = require('Modul:Wikidata') local lc = require('Modul:LocationAndCountry') local bda = require('Modul:BirthDateAndAge') local infobox = require('Modul:Infobox') local infoboxImage = require('Modul:InfoboxImage').InfoboxImage local join = require('Modul:Separated entries')._main local StringUtils = require('Modul:StringUtils') local DateUtils = require('Modul:DateUtils') local Lang = require('Modul:...

local p = {}
local getArgs = require('Modul:Arguments').getArgs
local wikidata = require('Modul:Wikidata')
local lc = require('Modul:LocationAndCountry')
local bda = require('Modul:BirthDateAndAge')
local infobox = require('Modul:Infobox')
local infoboxImage = require('Modul:InfoboxImage').InfoboxImage
local join = require('Modul:Separated entries')._main
local StringUtils = require('Modul:StringUtils')
local DateUtils = require('Modul:DateUtils')
local Lang = require('Modul:Lang')
local TableTools = require('Modul:TableTools')
local toWdLinkGenerator = require('Modul:EditAtWikidata')
local NameAndImage = require('Modul:NameAndImage')
local libraryUtil = require( 'libraryUtil' )
local plural = require('Modul:Plural')
local wdu_b = require('Modul:WikidataUtils/Biography')
local Transliteration = require('Modul:Transliteration')

local MIN_YEAR_TO_DISPLAY_CITIZENSHIP = 1800

local _br_ = tostring(mw.html.create('br'))
local appendToString = StringUtils._appendToString
local prependToString = StringUtils._prependToString
local encloseString = StringUtils._encloseString

local function extractDedicatedArgFromInputArgs(retainedInputArgs, args, argNames, wikidataCallback)
libraryUtil.checkType('extractDedicatedArgFromInputArgs', 1, retainedInputArgs, 'table', true)
libraryUtil.checkType('extractDedicatedArgFromInputArgs', 2, args, 'table', false)
libraryUtil.checkType('extractDedicatedArgFromInputArgs', 3, argNames, 'table', true)
libraryUtil.checkType('extractDedicatedArgFromInputArgs', 4, wikidataCallback, 'function', true)

if argNames == nil then return nil end
local foundValue = nil
for argNameIdx,argName in pairs(argNames) do
local argv = args[argName]
if argv and foundValue == nil then
foundValue = argv
break
end
end

if foundValue then
for argNameIdx,argName in pairs(argNames) do
table.insert(retainedInputArgs, argName)
end
return foundValue
end

if args['embed'] ~= 'yes' and args['embed'] ~= 'y' and args['embed'] ~= 'da' then
local wikidataValue, wikidataId, wikidataEntId = wikidataCallback()
if wikidataValue and mw.ustring.len(mw.text.trim(wikidataValue)) > 0 then return wikidataValue .. toWdLinkGenerator.displayMessage(wikidataId, wikidataEntId) end
end
return nil
end

local function copyProperty(outputTable, inputTable, propName)
libraryUtil.checkType('copyProperty', 1, outputTable, 'table', false)
libraryUtil.checkType('copyProperty', 2, inputTable, 'table', false)
libraryUtil.checkTypeMulti('copyProperty', 3, propName, {'string', 'number'})
outputTable[propName] = inputTable[propName]
end

local function tableContains(haystackTable, needle)
libraryUtil.checkType('tableContains', 1, haystackTable, 'table', true)
if haystackTable == nil or needle == nil then return false end
for k, v in pairs(haystackTable) do
if v == needle then return true end
end
return false
end

local function processArgs(args)
local processedArgs = {}
local retainedInputArgs = {}
local labeldatacount = 2

processedArgs['child'] = (args['embed'] == 'yes' or args['embed'] == 'da' or args['embed'] == 'y') and 'yes' or nil
if args['culoare cadru'] then processedArgs['culoare cadru'] = args['culoare cadru'] end
if args['culoare text'] then processedArgs['culoare text'] = args['culoare text'] end
copyProperty(processedArgs, args, 'aboveclass')
processedArgs['navbar'] = 'false'

if (processedArgs['child'] == nil) then
processedArgs['header1'] = 'Date personale'
local genderSuffix = wdu_b.isFemale() and 'ă' or ''

local imageName = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'image', 'Imagine', 'imagine', 'foto'}, function() return nil, nil, nil end)
if imageName then
if StringUtils._startsWithAny({mw.text.trim(imageName), '[['}) then
imageName = StringUtils._substringBefore({mw.text.trim(imageName), ']]', '|'})
imageName = StringUtils._removeStart({imageName, '[['})
end
imageName = StringUtils._removeStart({mw.text.trim(imageName), 'File:'})
imageName = StringUtils._removeStart({imageName, 'Fișier:'})
imageName = StringUtils._removeStart({imageName, 'Fişier:'})
imageName = StringUtils._removeStart({imageName, 'Image:'})
imageName = StringUtils._removeStart({imageName, 'Imagine:'})
imageName = StringUtils._removeStart({imageName, 'Media:'})
local imgTitle = mw.title.new(imageName, 6)
if not imgTitle or not imgTitle.file or not imgTitle.file.exists then
imageName = nil
end
end
local imageCaption = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'caption', 'descriere', 'comentariu', 'Descriere'}, function() return nil, nil, nil end)

local wdImageName, wdImageCaption
if imageName == nil then
wdImageName, wdImageCaption = wikidata.findImageAndCaption()
imageName = wdImageName
imageCaption = wdImageCaption
end
if imageName and mw.ustring.len(imageName) > 0 then
local imageSize = args['imagesize'] or args['image_size'] or args['Lățime']
processedArgs['image'] = infoboxImage{image=imageName, size=imageSize, sizedefault='frameless', upright='1', suppressplaceholder='yes'}
processedArgs['caption'] = imageCaption
end

local birthName = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'nume_naștere', 'birth_name'}, function()
local birthNameClaims = wikidata.findClaimsForProperty(nil, 'P1477')
local roVal = nil
local otherLangVals = {}
if birthNameClaims then for _,eachBirthNameClaim in ipairs(birthNameClaims) do
if wikidata.isClaimTrue(eachBirthNameClaim) and wikidata.hasValueSnak(eachBirthNameClaim) then
if eachBirthNameClaim.mainsnak.datavalue.value.language == 'ro' then
roVal = eachBirthNameClaim.mainsnak.datavalue.value.text
else
local thisName = nil
if Transliteration.isTransliterationSupported(eachBirthNameClaim.mainsnak.datavalue.value.language) then
thisName = Lang.fromArgs(eachBirthNameClaim.mainsnak.datavalue.value.language .. '-Latn', nil, Transliteration.transliterate(eachBirthNameClaim.mainsnak.datavalue.value.text, eachBirthNameClaim.mainsnak.datavalue.value.language), false)
else
thisName = Lang.fromArgs(eachBirthNameClaim.mainsnak.datavalue.value.language, nil, eachBirthNameClaim.mainsnak.datavalue.value.text, false)
end
table.insert(otherLangVals, thisName)
end
end
end end
if roVal then return roVal, 'P1477', nil
elseif #otherLangVals then return mw.text.listToText(otherLangVals, tostring(mw.html.create('br'))), 'P1449', nil
else return nil
end
end)
if birthName and mw.ustring.len(birthName) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Nume la naștere'
processedArgs['data' .. tostring(labeldatacount)] = birthName
labeldatacount = labeldatacount + 1
end

local nickname = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'porecla', 'poreclă', 'nickname'}, function()
local birthNameClaims = wikidata.findClaimsForProperty(nil, 'P1449')
local roVals = {}
local otherLangVals = {}
if birthNameClaims then for _,eachBirthNameClaim in ipairs(birthNameClaims) do
if wikidata.hasValueSnak(eachBirthNameClaim) and wikidata.claimHasRankAtLeastNormal(eachBirthNameClaim) then
if eachBirthNameClaim.mainsnak.datavalue.value.language == 'ro' then
table.insert(roVals, eachBirthNameClaim.mainsnak.datavalue.value.text)
else
table.insert(otherLangVals, Lang.fromArgs(eachBirthNameClaim.mainsnak.datavalue.value.language, nil, eachBirthNameClaim.mainsnak.datavalue.value.text, false))
end
end
end end
if #roVals == 0 and #otherLangVals == 0 then return nil end
return mw.text.listToText(#roVals > 0 and roVals or otherLangVals, ', ', ', '), 'P1449', nil
end)
if nickname and mw.ustring.len(nickname) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Poreclă'
processedArgs['data' .. tostring(labeldatacount)] = nickname
labeldatacount = labeldatacount + 1
end

local birthDate = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'data_nașterii', 'data_nasterii', 'birth_date', 'Născut'}, function() return bda._getBdaByWikidata{link = 'yes'}, 'P569', nil end)
local birthPlace = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'locul_nașterii', 'locul_nasterii', 'birth_place', 'Loc naștere'}, function() return lc.displayFromParams('P19', nil, 'P569', 1, '; ', true), 'P19', nil end)
if birthDate and mw.ustring.len(birthDate) > 0 or birthPlace and mw.ustring.len(birthPlace) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Născut' .. genderSuffix
processedArgs['data' .. tostring(labeldatacount)] = join({birthDate, birthPlace, separator = _br_})
labeldatacount = labeldatacount + 1
end

local deathDate = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'data_deces', 'data_decesului', 'death_date', 'Decedat'}, function() return bda._getDdaByWikidata{link = 'yes'}, 'P570', nil end)
local deathPlace = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'locul_decesului', 'death_place', 'Loc deces' }, function() return lc.displayFromParams('P20', nil, 'P570', 1, '; ', true), 'P20', nil end)
if deathDate and mw.ustring.len(deathDate) > 0 or deathPlace and mw.ustring.len(deathPlace) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Decedat' .. genderSuffix
processedArgs['data' .. tostring(labeldatacount)] = join({deathDate, deathPlace, separator = _br_})
labeldatacount = labeldatacount + 1
end

local burialSite = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'loc_odihna', 'locodihna', 'burial_place', 'final_resting_place'}, function() return table.concat(wikidata.findValueListWithDecoratedQualifiers(nil, 'P119', false, {'$P580', '$P582'}, {'–'}) or {}, tostring(mw.html.create('br'))), 'P119', nil end)
if burialSite and mw.ustring.len(mw.text.trim(burialSite)) > 0 or args['burial_date'] then
processedArgs['label' .. tostring(labeldatacount)] = 'Înmormântat' .. genderSuffix
processedArgs['data' .. tostring(labeldatacount)] = table.concat(TableTools.compressSparseArray({args['burial_date'], burialSite}), tostring(mw.html.create('br')))
labeldatacount = labeldatacount + 1
end

local causeOfDeath = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'cauza_decesului', 'death cause', 'death_cause'}, function()
local mOD = wikidata.findOneValue('P1196')
local cOD = wikidata.findOneValue('P509')
local cODTbl = {}
local cODPropTbl = {}
if mOD then
table.insert(cODTbl, mOD)
table.insert(cODPropTbl, 'P1196')
end
if cOD then
table.insert(cODTbl, cOD)
table.insert(cODPropTbl, 'P509')
end
if #cODTbl == 2 then
return appendToString({cODTbl[1], prependToString({encloseString({cODTbl[2], '(', ')'}), ' '})}), 'P509', nil
elseif #cODTbl == 1 then
return cODTbl[1], cODPropTbl[1], nil
end
return nil
end)

if causeOfDeath and mw.ustring.len(mw.text.trim(causeOfDeath)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Cauza decesului'
processedArgs['data' .. tostring(labeldatacount)] = causeOfDeath
labeldatacount = labeldatacount + 1
end

local parents = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'părinți', 'parents', 'parinti'}, function() return join({wikidata.findOneValue('P22'), wikidata.findOneValue('P25'), separator = _br_}), 'P22', nil end)
if parents and mw.ustring.len(mw.text.trim(parents)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Părinți'
processedArgs['data' .. tostring(labeldatacount)] = parents
labeldatacount = labeldatacount + 1
end

local siblings = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'frați', 'frati', 'siblings'}, function()
local tbl = {}
local props = {'P7', 'P9', 'P3373'}
local actualProp = nil
local wdTbl = {wikidata.getValueList(nil, 'P7'), wikidata.getValueList(nil, 'P9'), wikidata.getValueList(nil, 'P3373')}
for _i,lst in ipairs(wdTbl) do
for _i1,v in ipairs(lst or {}) do
table.insert(tbl, v)
actualProp = props[_i]
end
end
tbl.separator = _br_
return join(tbl), actualProp, nil
end)
if siblings and mw.ustring.len(mw.text.trim(siblings)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Frați și surori'
processedArgs['data' .. tostring(labeldatacount)] = siblings
labeldatacount = labeldatacount + 1
end

local partners = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'partener', 'partners'}, function() return nil, nil, nil end)
if partners and mw.ustring.len(mw.text.trim(partners)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Partener(i)'
processedArgs['data' .. tostring(labeldatacount)] = partners
labeldatacount = labeldatacount + 1
end

local spouse = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'soț', 'soție', 'sot', 'sotie', 'spouse', 'căsătorit'}, function() return wikidata._getTimestampedValueListWithSeparator({_br_, 'P26'}), 'P26', nil end)
if spouse and mw.ustring.len(mw.text.trim(spouse)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = args['spouse-type'] or ('Căsătorit' .. genderSuffix .. ' cu')
processedArgs['data' .. tostring(labeldatacount)] = spouse
labeldatacount = labeldatacount + 1
end

local numberChildren = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'număr_copii', 'numărcopii', 'number_children', 'childrennumber'}, function() return wikidata._getValueListWithSeparator({_br_, 'P1971'}), 'P1971', nil end)
if numberChildren and mw.ustring.len(mw.text.trim(numberChildren)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Număr de copii'
processedArgs['data' .. tostring(labeldatacount)] = numberChildren
labeldatacount = labeldatacount + 1
end

local children = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'copii', 'children'}, function() return wikidata._getValueListWithSeparator({_br_, 'P40', nil, '10'}), 'P40', nil end)
if children and mw.ustring.len(mw.text.trim(children)) > 0 then
processedArgs['label' .. tostring(labeldatacount)] = 'Copii'
processedArgs['data' .. tostring(labeldatacount)] = children
labeldatacount = labeldatacount + 1
end

local rude = processedArgs['rude'] or processedArgs['relations']
if rude then
processedArgs['label' .. tostring(crtLineIndex)] = 'Rude'
processedArgs['data' .. tostring(crtLineIndex)] = rude
labeldatacount = labeldatacount + 1
end

local citizenship = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'cetatenie', 'cetățenie', 'citizenship'}, function()
if wdu_b.isDead() then
local dateOfDeathClaims = wikidata.findBestClaimsForProperty(nil, 'P570')
for _,eachDateOfDeathClaim in ipairs(dateOfDeathClaims) do
local dateOfDeath = DateUtils.extractDateFromWikidataSnak(eachDateOfDeathClaim.mainsnak)
if dateOfDeath and dateOfDeath.year < MIN_YEAR_TO_DISPLAY_CITIZENSHIP then return nil end
end
end
local endOfCitizenship = wikidata.loadOneValueInChain({'P27', '_P582'})
if not endOfCitizenship or endOfCitizenship == '' then endOfCitizenship = wikidata.loadOneValueInChain({'P570', 'raw'}) end
local list = wikidata.findValueListWithDecoratedQualifiers(nil, 'P27', false, {'$P580–$P582'}, {}, 'P41', '20px')
if list then return mw.text.listToText(list, _br_, _br_) else return nil end
--return NameAndImage._nameAndFlagFromPropOfEntity('P27', nil, DateUtils.parseWikidataDate(endOfCitizenship))
end)
if citizenship then
processedArgs['label' .. tostring(labeldatacount)] = 'Cetățenie'
processedArgs['data' .. tostring(labeldatacount)] = citizenship
labeldatacount = labeldatacount + 1
end

local ethnicityWdRetriever = function(entity)
local ethnicityClaims = wikidata.findBestClaimsForProperty(entity, 'P172') -- ethnic group
local retList = {}
local female = wdu_b.isFemale(entity)

if ethnicityClaims then
for _,eachEthnicityClaim in pairs(ethnicityClaims) do
if wikidata.hasValueSnak(eachEthnicityClaim) then
local callFunction = function(objectId, female)
local returnValue = nil
if objectId then
local demonymClaims = wikidata.findClaimsForProperty(objectId, 'P1549')
for eachClaimIdx, eachClaim in pairs(demonymClaims) do
if wikidata.isClaimTrue(eachClaim) and wikidata.hasValueSnak(eachClaim) then
if eachClaim.mainsnak.datavalue.value.language == 'ro' then
local qualifierIsFeminine = eachClaim.qualifiers and ( ( eachClaim.qualifiers['P21'] and eachClaim.qualifiers['P21'][1] and eachClaim.qualifiers['P21'][1].snaktype == 'value' and eachClaim.qualifiers['P21'][1].datavalue.value['numeric-id'] == 1775415 )
or ( eachClaim.qualifiers['P21'] and eachClaim.qualifiers['P21'][1] and eachClaim.qualifiers['P21'][1].snaktype == 'value' and eachClaim.qualifiers['P21'][1].datavalue.value['numeric-id'] == 6581072 )
or (eachClaim.qualifiers['P518'] and eachClaim.qualifiers['P518'][1] and eachClaim.qualifiers['P518'][1].snaktype == 'value' and eachClaim.qualifiers['P518'][1].datavalue.value['numeric-id'] == 1775415) )
if (qualifierIsFeminine and female) or (not qualifierIsFeminine and not female) then
returnValue = eachClaim.mainsnak.datavalue.value.text
end
end
end
end
end
return returnValue
end
local callFunctionWithGender = function(object) return callFunction(object, false) end

if female then callFunctionWithGender = function(object) return callFunction(object, true) end end
table.insert(retList, wikidata.findLinkToItemWithCallback(eachEthnicityClaim.mainsnak.datavalue.value['numeric-id'], false, nil, callFunctionWithGender))
end
end
end
if #retList > 0 then
retList.separator = tostring(mw.html.create('br'))
return join(retList), 'P172', nil
end
return nil, nil, nil
end
local ethnicity = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'etnie', 'ethnicity'}, ethnicityWdRetriever)
if ethnicity then
processedArgs['label' .. tostring(labeldatacount)] = 'Etnie'
processedArgs['data' .. tostring(labeldatacount)] = ethnicity
labeldatacount = labeldatacount + 1
end

local nationality = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'nationalitate', 'nationality', 'naționalitate', 'Naționalitate'}, function() return nil end)
if not ethnicity and not citizenship and nationality then
processedArgs['label' .. tostring(labeldatacount)] = 'Naționalitate'
processedArgs['data' .. tostring(labeldatacount)] = nationality
labeldatacount = labeldatacount + 1
end

local religion = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'religie', 'religion', 'confesiune'}, function() return wikidata._getValueListWithSeparator({_br_, 'P140'}), 'P140', nil end)
if religion then
processedArgs['label' .. tostring(labeldatacount)] = 'Religie'
processedArgs['data' .. tostring(labeldatacount)] = religion
labeldatacount = labeldatacount + 1
end

local occupation = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'ocupație', 'occupation', 'ocupatie', 'profesiune', 'profesie'}, function()
local occupationClaims = wikidata.findBestClaimsForProperty(nil, 'P106')
local fem = wdu_b.isFemale()
local occupationList = {}
if occupationClaims then for _,eachOccupationClaim in ipairs(occupationClaims) do
if eachOccupationClaim.mainsnak.snaktype == 'value' then
table.insert(occupationList, wikidata.findLinkToItem(eachOccupationClaim.mainsnak.datavalue.value['numeric-id'], false, fem))
end
end end
return table.concat(occupationList, tostring(mw.html.create('br'))), 'P106', nil
end)

if occupation then
processedArgs['label' .. tostring(labeldatacount)] = 'Ocupație'
processedArgs['data' .. tostring(labeldatacount)] = occupation
labeldatacount = labeldatacount + 1
end

local work_location = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'loc_activitate', 'work_location'}, function()
local workLocations = wikidata.findValueListWithQualifiersInBrackets(nil, 'P937', false, {'$P580', '$P582'}, {'–'})
if workLocations then return mw.text.listToText(workLocations, _br_, _br_), 'P937', nil end
end)
if work_location then
processedArgs['label' .. tostring(labeldatacount)] = 'Locul desfășurării activității'
processedArgs['data' .. tostring(labeldatacount)] = work_location
labeldatacount = labeldatacount + 1
end

local spoken_langs = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'limbi_vorbite', 'limba_vorbita'}, function()
local spokenLangs = wikidata.findValueListWithQualifiersInBrackets(nil, 'P1412', false, {'$P3831'}, {', '})
if spokenLangs then return mw.text.listToText(spokenLangs, _br_, _br_), 'P1412', nil end
end)
if spoken_langs then
processedArgs['label' .. tostring(labeldatacount)] = 'Limbi vorbite'
processedArgs['data' .. tostring(labeldatacount)] = spoken_langs
labeldatacount = labeldatacount + 1
end

local net_worth = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'avere', 'net_worth'}, function()
return wikidata.findOneValue('P2218')
end)
if net_worth then
processedArgs['label' .. tostring(labeldatacount)] = 'Avere'
processedArgs['data' .. tostring(labeldatacount)] = net_worth
labeldatacount = labeldatacount + 1
end

index = 1
processedArgs['subheaderstyle'] = args['stilsubtitlu'] or args['subheaderstyle'] or 'font-weight: bold; font-size: 110%'
if args['aniversare_naștere'] then
local by = wikidata.findAnniversary('P569', mw.wikibase.getEntityIdForCurrentPage(), args['aniversare_naștere'])
if by and by > 0 then
processedArgs['subheader' .. tostring(index)] = plural.build_plural(by, "an", "ani") .. ' de la naștere'
index = index + 1
end
end
if args['aniversare_deces'] then
local dy = wikidata.findAnniversary('P570', mw.wikibase.getEntityIdForCurrentPage(), args['aniversare_deces'])
if dy and dy > 0 then
processedArgs['subheader' .. tostring(index)] = plural.build_plural(dy, "an", "ani") .. ' de la moarte'
index = index + 1
end
end
processedArgs['title'] = args['Nume'] or args['nume'] or args['name'] or wikidata.findRoLabel() or wikidata.findNativeOrEnglishLabel()
processedArgs['doc'] = args['doc']
processedArgs['wikidata'] = args['wikidata']
else
processedArgs['title'] = args['default_title']
processedArgs['parent_colspan'] = args['parent_colspan'] or '2'
end
table.insert(retainedInputArgs, 'title')

labeldatacount = labeldatacount + 1

local earliestHeaderNumberAfterGeneralLabels = 0
local earliestDataNumberAfterGeneralLabels = 0

local largestIndex = labeldatacount

for argN, argV in pairs(args) do
local headerStart
local headerEnd
local labelStart
local labelEnd
local dataStart
local dataEnd
headerStart, headerEnd = mw.ustring.find(argN, "header")
labelStart, labelEnd = mw.ustring.find(argN, "label")
dataStart, dataEnd = mw.ustring.find(argN, "data")
styleStart, styleEnd = mw.ustring.find(argN, "style")
classStart, classEnd = mw.ustring.find(argN, "class")

local nr = ""
local argumentName = nil
if dataStart == 1 then
nr = mw.ustring.sub(argN, 1 + dataEnd, mw.ustring.len(argN))
argumentName = 'data'
if argV and mw.ustring.len(mw.text.trim(argV)) > 0 and nr ~= nil and mw.ustring.match(nr, '%d+') then
if earliestDataNumberAfterGeneralLabels == 0 or earliestDataNumberAfterGeneralLabels < tonumber(nr) then
earliestDataNumberAfterGeneralLabels = tonumber(nr)
end
end
elseif labelStart == 1 then
nr = mw.ustring.sub(argN, 1 + labelEnd, mw.ustring.len(argN))
argumentName = 'label'
elseif headerStart == 1 then
nr = mw.ustring.sub(argN, 1 + headerEnd, mw.ustring.len(argN))
argumentName = 'header'
if argV and mw.ustring.len(mw.text.trim(argV)) > 0 and nr ~= nil and mw.ustring.match(nr, '%d+') then
if earliestHeaderNumberAfterGeneralLabels == 0 or earliestHeaderNumberAfterGeneralLabels < tonumber(nr) then
earliestHeaderNumberAfterGeneralLabels = tonumber(nr)
end
end
elseif styleStart == 1 then
nr = mw.ustring.sub(argN, 1 + styleEnd, mw.ustring.len(argN))
argumentName = 'style'
elseif classStart == 1 then
nr = mw.ustring.sub(argN, 1 + classEnd, mw.ustring.len(argN))
argumentName = 'class'
end
if argumentName and nr and mw.ustring.len(mw.text.trim(nr)) > 0 and mw.ustring.gsub(nr, '%d+', '') == '' then
local argumentidx = labeldatacount + tonumber(nr)
processedArgs[argumentName .. tostring(argumentidx)] = argV
largestIndex = math.max(largestIndex, argumentidx)
elseif not tableContains(retainedInputArgs, argN) then
processedArgs[argN] = argV
end
end
if earliestDataNumberAfterGeneralLabels > 0 and (earliestHeaderNumberAfterGeneralLabels > earliestDataNumberAfterGeneralLabels or earliestHeaderNumberAfterGeneralLabels == 0) then
processedArgs['header' .. tostring(labeldatacount - 1)] = args['bio_header'] or 'Activitate'
end

if not processedArgs['child'] then
local crtLineIndex = largestIndex + 1
local signature = args['semnătură'] or args['semnatura'] or args['signature'] or wikidata.findOneValueNoRef('P109', nil)
if signature and signature ~= '' then
processedArgs['header' .. tostring(crtLineIndex)] = 'Semnătură'
crtLineIndex = crtLineIndex + 1
processedArgs['data' .. tostring(crtLineIndex)] = infoboxImage{image=signature, size='150', sizedefault='frameless', suppressplaceholder='yes'}
crtLineIndex = crtLineIndex + 1
end

local onlinelinks = {}
local linkstopullfromwd = {'P2013', 'P2002', 'P2035', 'P2847', 'P345', 'P3265', 'P3579', 'P3435', 'P2003', 'P2471', 'P2397', 'P6634', 'P2572', 'P7085', 'P3789'}
local webaddr = extractDedicatedArgFromInputArgs(retainedInputArgs, args, {'sit', 'site', 'web', 'website', 'sit-web', 'site-web', 'sit-adresă', 'URL', 'url'}, function() return nil end)
if webaddr then
if mw.ustring.find(webaddr, '[', 1, true) then
webaddr = StringUtils._substringBefore({StringUtils._substringAfter({webaddr, '['}), ' '})
end
end
if webaddr and mw.ustring.len(mw.text.trim(webaddr)) > 0 then
table.insert(onlinelinks, '[' .. webaddr .. ' Site web]')
else
table.insert(linkstopullfromwd, 1, 'P856')
end
local wdonlinelinks = wikidata.findOnlineLinks(linkstopullfromwd)
for _,eachWdOnlineLink in ipairs(wdonlinelinks) do
table.insert(onlinelinks, eachWdOnlineLink)
end

if #onlinelinks > 0 then
processedArgs['header' .. tostring(crtLineIndex)] = 'Prezență online'
crtLineIndex = crtLineIndex + 1
processedArgs['data' .. tostring(crtLineIndex)] = tostring(
mw.html.create('div')
:css('text-align', 'center')
:wikitext(table.concat(onlinelinks, tostring(mw.html.create('br'))))
)
crtLineIndex = crtLineIndex + 1
end
end
return processedArgs
end

p.displayInfoboxFromArgs = function(args)
local processedArgs = processArgs(args)
local outtext = infobox._infobox(processedArgs)
local maintcats = {}
if not processedArgs.image then
table.insert(maintcats, 'Articole biografice fără fotografii')
end

for _,eachMaintCat in ipairs(maintcats) do
outtext = outtext .. '[[Categorie:' .. eachMaintCat .. ']]'
end

return outtext
end

p.displayInfobox = function(frame)
local args = getArgs(frame, {parentFirst = true})
return p.displayInfoboxFromArgs(args)
end

return p

Pagina principală

2024-07-14T19:50:21Z

Sergiu: /* Enciclopedia Populară Moldovenească */

= Enciclopedia Moldovenească =
Bine ați venit pe pagina Enciclopediei Moldovenești.

Site-ul este în dezvoltare. Doritorii de a participa la crearea de articole, pot să ne contacteze pe [https://t.me/miscareapatriotica canalul nostru de telegram].

Format:Infocaseta Scriitor

2024-07-13T23:03:52Z

Sergiu: Created page with "<includeonly>{{#invoke:InfoboxBiography|displayInfobox |aboveclass=autor |default_title=Cariera literară |culoare cadru=4C6099 |culoare text=FFFFFF |doc=Infocaseta Scriitor |child={{{embed|}}} |title={{#ifeq:{{{embed|}}}|yes|Cariera de scriitor|{{{nume|{{{name|{{PAGENAME}}}}}}}} {{#if:{{{nume_nativ|{{{native_name|}}}}}} | {{{nume_nativ|{{{native_name|}}}}}} }}}} |label1=Pseudonim |data1={{{pseudonim|{{Listă de la Wikidata|sep=,{{spaces|1}}|pid=P742}}}}} |birth_name..."

<includeonly>{{#invoke:InfoboxBiography|displayInfobox
|aboveclass=autor
|default_title=Cariera literară
|culoare cadru=4C6099
|culoare text=FFFFFF
|doc=Infocaseta Scriitor
|child={{{embed|}}}
|title={{#ifeq:{{{embed|}}}|yes|Cariera de scriitor|{{{nume|{{{name|{{PAGENAME}}}}}}}} {{#if:{{{nume_nativ|{{{native_name|}}}}}} | {{{nume_nativ|{{{native_name|}}}}}} }}}}
|label1=Pseudonim
|data1={{{pseudonim|{{Listă de la Wikidata|sep=,{{spaces|1}}|pid=P742}}}}}
|birth_name={{{nume_naștere|{{{birth_name|}}}}}}
|birth_date={{{data_nașterii|{{{birth_date|}}}}}}
|birth_place={{{locul_nașterii|{{{birth_place|}}}}}}
|death_date={{{data_decesului|{{{death_date|}}}}}}
|death_place={{{locul_decesului|{{{death_place|}}}}}}
|religion={{{confesiune|{{{religie|{{{religion|}}}}}}}}}
|label7=Partid politic
|data7={{{partid|{{Listă de la Wikidata|sep=,{{spaces|1}}|pid=P102}}}}}
|nationality={{{naționalitate|{{{nationality|}}}}}}
|citizenship={{{cetățenie|{{{citizenship|}}}}}}
|label11=Studii
|data11={{{educație|{{{education|{{{alma_mater|{{#ifeq:{{{embed|}}}|yes||{{#invoke:Wikidata|getValueListWithQualifiersInBrackets|p=P69|bracketTemplate1=$P512|bracketTemplate2=$P812|bracketTemplate3=$P582|sep1= în |sep2=, }} }} }}} }}} }}}
|label12=Pregătire
|data12={{{pregătire|{{Listă de la Wikidata|pid=P1066}}}}}
|label13=Profesor pentru
|data13={{{profesor_pentru|{{Listă de la Wikidata|sep=, |pid=P802}}}}}
|parents={{{părinți|{{{parents|}}}}}}
|siblings={{{frați|{{Listă de la Wikidata|pid=P3373}}}}}
|spouse={{{căsătorit|{{{spouse|}}}}}}
|partner={{{partner|{{{partener|}}}}}}
|copii={{{copii|{{{children|}}}}}}
|header20={{#if: {{{perioadă|{{{period|}}}}}} {{{gen|{{{genre|}}}}}}{{{mișcare|{{{movement|}}}}}} {{{subiect|{{{subject|}}}}}} {{{operă_de_debut|}}} {{{opere_semnificative|{{{notableworks|}}}}}} {{{influențe|{{{influences|}}}}}} {{{influențat|{{{influenced|}}}}}}|Activitatea literară}}
|label22={{#ifeq:{{#invoke:Wikidata|getRawValue|P21}}|femeie|Activă ca scriitoare|Activ ca scriitor}}
|data22={{{perioadă|{{{period|}}}}}}
|label24=Limbi
|data24={{{limbă|{{{limbi|{{{language|{{Listă de la Wikidata|pid=P6886}}}}}}}}}}}
|label26=[[Mișcare literară|Mișcare/curent literar]]
|data26={{{mișcare|{{{movement|{{Listă de la Wikidata|sep=, |pid=P135}}}}}}}}
|label28=Patronaj
|data28={{{patron|{{{patron|{{{employer|{{Listă de la Wikidata|pid=P108}}}}}}}}}}}
|label32=Subiecte
|data32={{{subiect|{{{subject|}}}}}}
|label34=[[Specie (literatură)|Specie literară]]
|data34={{{gen|{{{genre|{{Listă de la Wikidata|sep=, |pid=P136}}}}}}}}
|label36=Operă de debut
|data36={{{operă_de_debut|}}}
|label38=Opere semnificative
|data38={{{opere_semnificative|{{{notableworks|{{Listă de opere de la Wikidata|pid=P800}}}}}}}}
|data42={{#if:{{{influențe|{{#property:P737}}}}}|{{Collapsible list
|title = '''Influențe'''
|frame_style = 
|title_style = 
|list_style = 
|1 = {{{influențe|{{{influences|{{Listă de la Wikidata|pid=P737}}}}}}}}
}} }}
|data44={{#if:{{{influențat|{{{influenced|}}}}}}|{{Collapsible list
|title = '''A influențat pe'''
|frame_style = 
|title_style = 
|list_style = 
|1 = {{{influențat|{{{influenced|}}}}}}
}} }}
|header50={{#if: {{{premii|{{{awards|{{#ifeq:{{{embed|}}}|yes||{{#property:P166}}}}}}}}}} {{{note|}}} | Note}}
|label52=Premii
|data52={{{premii|{{{awards|{{#ifeq:{{{embed|}}}|yes||{{Listă de la Wikidata|pid=P166}}}}}}}}}}
|semnătură={{{semnătură|{{{signature|}}}}}}
|data89={{{note|}}}
|data97={{{embedded1|}}}
|data98={{{embedded2|}}}
|data99={{{embedded3|}}}
|wikidata=y
}}</includeonly><noinclude>{{doc}}<templatedata>
{
"params": {
"embed": {},
"nume": {
"aliases": [
"name"
]
},
"nume_nativ": {
"aliases": [
"native_name"
]
},
"pseudonim": {},
"nume_naștere": {
"aliases": [
"birth_name"
]
},
"data_nașterii": {
"aliases": [
"birth_date"
]
},
"locul_nașterii": {
"aliases": [
"birth_place"
]
},
"data_decesului": {
"aliases": [
"death_date"
]
},
"locul_decesului": {
"aliases": [
"death_place"
]
},
"religie": {
"aliases": [
"religion",
"confesiune"
]
},
"partid": {},
"naționalitate": {
"aliases": [
"nationality"
]
},
"cetățenie": {
"aliases": [
"citizenship"
]
},
"limbă": {
"aliases": [
"language",
"limbi"
]
},
"educație": {
"aliases": [
"education",
"pregătire"
]
},
"profesor_pentru": {},
"părinți": {
"aliases": [
"parents"
]
},
"frați": {},
"căsătorit": {
"aliases": [
"spouse"
]
},
"partener": {
"aliases": [
"partner"
]
},
"copii": {
"aliases": [
"children"
]
},
"perioadă": {
"aliases": [
"period"
]
},
"gen": {
"aliases": [
"genre"
]
},
"mișcare": {
"aliases": [
"movement"
]
},
"subiect": {
"aliases": [
"subject"
]
},
"operă_de_debut": {},
"opere_semnificative": {
"aliases": [
"notableworks"
]
},
"influențe": {
"aliases": [
"influences"
]
},
"influențat": {
"aliases": [
"influenced"
]
},
"patron": {
"aliases": [
"employer"
]
},
"premii": {
"aliases": [
"awards"
]
},
"note": {},
"semnătură": {
"aliases": [
"signature"
]
},
"embedded1": {},
"embedded2": {},
"embedded3": {},
"imagine": {
"aliases": [
"image",
"foto"
],
"label": "Imagine",
"description": "O fotografie reprezentativă cu subiectul articolului."
}
},
"paramOrder": [
"embed",
"nume",
"nume_nativ",
"pseudonim",
"nume_naștere",
"imagine",
"data_nașterii",
"locul_nașterii",
"data_decesului",
"locul_decesului",
"religie",
"partid",
"naționalitate",
"cetățenie",
"limbă",
"educație",
"profesor_pentru",
"părinți",
"frați",
"căsătorit",
"partener",
"copii",
"perioadă",
"gen",
"mișcare",
"subiect",
"operă_de_debut",
"opere_semnificative",
"influențe",
"influențat",
"patron",
"premii",
"note",
"semnătură",
"embedded1",
"embedded2",
"embedded3"
],
"format": "block"
}
</templatedata>
</noinclude>

Alexei Mateevici

2024-07-13T23:01:59Z

Sergiu:

{{infobox writer
| name = Alexei Mateevici
| image = Alexei Mateevici - Foto01.jpg
| resting_place = [[Cimitirul Central din Chișinău]]
| alma_mater = Academia Teologică din [[Kiev]]
| notableworks = ''[[Limba noastră]]''
| religion = Ortodox
}}
'''Alexie''' (sau '''Alexei''') '''Mateevici''' (n. [[27 martie]] [[1888]], [[Căinari]] – d. [[24 august]] [[1917]], [[Chișinău]]) a fost unul din cei mai reprezentativi scriitori moldoveni din Basarabia. Născut în [[Basarabia|Gubernia Basarabia]], actualmente [[Republica Moldova]].
== Cronologie ==
:La 27 martie (stil vechi) se naște la [[Căinari]], fostul județ Bender, Alexei Mateevici, primul copil al preotului [[Mihail Mateevici]], originar de prin părțile județului Soroca, căsătorit cu [[Nadejda Mateevici]] (1863-1930), fiica protopopului Ioan Neaga din Căușeni.Părinții se mută cu traiul în satul Zaim, localitate situată pe drumul dintre Căușeni și Cimișlia. Aici micul Alexei învață la școala primară și se familiarizează cu frumoasele povești și balade, pe care le aude de la părinții săi, precum și de la țăranii de prin partea locului. A fost înscris de părinți la școala teologică din Chișinău, pe care o termină (conform adeverinței de absolvire) în 1902, „cu privilegii”(cu laude). Își urmează studiile la seminarul teologic. Face cunoștință și se împrietenește cu viitorul sculptor Alexandru Plămădeală (1880 - 1940), care studia și el la seminar în aceeași perioadă. La 24 iunie, la numai 43 de ani, încetează din viață tatăl lui, Alexei Mateevici.
:În 1907, în primele numere ale ziarului „Basarabia” (din 1907) publică poeziile „Ţăranii”, „Eu cînt”, „Ţara”, precum şi articolele „Sfîntul Vasile – Anul Nou în obiceiurile moldovenilor basarabeni” şi „Din cîntecele poporane ale Basarabiei”.

:Devine student la Academia teologică din Kiev, pe care a absolvit-o în 1914. În aceiași ani, după mărturisirea unui coleg, „Mateevici trăia ca într-o beție a cititului”. Traduce mult din literatura rusă clasică și studiază trecutul istoric și cultural al poporului său.[[File:Alexei Mateevici - Foto01.jpg|322x322px|thumb|Alexei Mateevici (1910) student la Academia din Kiev, anul III.]]

:Între 1910 - 1911 publică în „Chisineovschie eparhialinie vedomosti” (nr.45, 49, 52 din 1910 și nr.42 din 1911) studiul lingvistic „''Momente ale influenței bisericești asupra originii și dezvoltării istorice a limbii moldovenești''”, precum și articolele “''Motive religioase în credințele și obiceiurile moldovenilor basarabeni''” (nr.9, 13, 14), “''Bocetele funerare moldovenești''” (nr.38, 39, 40, 41). Vede lumina tiparului (Chisineovschie eparhialinie vedomosti, nr. 12, 13, 19, 22, 23) articolul „''Schiță a traducerilor'' moldovenești ''religioase și de trai''”. Apare în revista „Luminatorul” (nr. 8, 9, 10, 11) studiul „''Mitropolitul Gavril Bănulescu - Bodoni''”. Se căsătorește cu Teodora Borisovna Novitschi, absolvă Academia Teologică cu teza de licență Concepția religioasă și filosofică la Fechneenner și se întoarce la Chișinău. La 22 septembrie e numit provizoriu profesor de limba greacă la seminarul unde învățase. Ține o cuvîntare în fața absolvenților seminarului din Chișinău. La 23 iunie vizitează străvechea biserică din Căușeni, pe care o găsește „uimitor de bine păstrată”. În anul 1915 se înrolează în armata rusă ca preot militar, iar în 1916 este trimis pe frontul din Romînia. În vara anului 1916 scrie poeziile: „''Văd prăbușirea''”, „''Cîntec de leagăn''”, „''Basarabenilor''”, „''Frunza nucului''”, „''Unora''” ș.a. La 17 iulie creează poezia ''Limba noastră'', publicată în Cuvînt moldovenesc. La 13 august (stil vechi), bolnav de tifos exantematic, se stinge din viață la spitalul nr.1 din Chișinău și este înmormîntat la Cimitirul Central din Chișinău. 

:În anul 1994, versurile poeziei ''Limba noastră'' au fost alese ca text al Imnului de Stat al Republicii Moldova. Poezia Limba noastră se fixează definitiv în registrul marii arte, fiind superioară versurilor pe aceeași temă ale lui George Coșbuc sau George Sion
:În lirica sa, poezia religioasă, uneori remarcabilă (''Roagă-te''), alternează cu poezia revoltei sociale, expresie a durerii poetului pentru soarta țăranilor moldoveni, apăsați de nevoi și suferințe. Poeziile ''Eu cînt, Țăranii, Cântecul zorilor, Țara'' împletesc nota elegiacă cu tonalitatea energică și credința în „ivirea zorilor” dreptății și devin profund definitorii pentru profilul poetului militant.

:A colaborat la revista Luminătorul, Viața Basarabiei, Cuvînt moldovenesc etc. cu versuri originale și traduse (din Al. K. Tolstoi, S. I. Nadson, Gavrila Derjavin, Mihail Lermontov, Alexandr Sergheevici Pușkin).

== Scrieri ==

*''Poezii'', publicate cu o prefață de P. V. Haneș. București, 1926 (ed. II, București, 1936)
*''Poezii'', cu o prefață de L.T. Boga, Chișinău, 1937
*''Scrieri alese'', ediție îngrijită și prefațată de I. Vartician și F. Levit, Chișinău, 1966 (ed. II 1971, ed. III 1977)
*''Pagini alese'', tabel cronologic, note și comentarii de V. Nazar, prefață de A. Hropotinski, Chișinău, 1985
*''Scrieri'', ed. îngrijită, studiu introductiv, note, variante și bibliografie de I. Nuță, Iași, 1989
*''Limba noastră'', Chișinău, 1989

Alexei Mateevici

2024-07-13T23:00:16Z

Sergiu:

{{infobox writer
| name = Alexei Mateevici
| image = Alexei Mateevici - Foto02.jpg
| resting_place = [[Cimitirul Central din Chișinău]]
| alma_mater = Academia Teologică din [[Kiev]]
| notableworks = ''[[Limba noastră]]''
| religion = Ortodox
}}
'''Alexie''' (sau '''Alexei''') '''Mateevici''' (n. [[27 martie]] [[1888]], [[Căinari]] – d. [[24 august]] [[1917]], [[Chișinău]]) a fost unul din cei mai reprezentativi scriitori moldoveni din Basarabia. Născut în [[Basarabia|Gubernia Basarabia]], actualmente [[Republica Moldova]].
== Cronologie ==
:La 27 martie (stil vechi) se naște la [[Căinari]], fostul județ Bender, Alexei Mateevici, primul copil al preotului [[Mihail Mateevici]], originar de prin părțile județului Soroca, căsătorit cu [[Nadejda Mateevici]] (1863-1930), fiica protopopului Ioan Neaga din Căușeni.Părinții se mută cu traiul în satul Zaim, localitate situată pe drumul dintre Căușeni și Cimișlia. Aici micul Alexei învață la școala primară și se familiarizează cu frumoasele povești și balade, pe care le aude de la părinții săi, precum și de la țăranii de prin partea locului. A fost înscris de părinți la școala teologică din Chișinău, pe care o termină (conform adeverinței de absolvire) în 1902, „cu privilegii”(cu laude). Își urmează studiile la seminarul teologic. Face cunoștință și se împrietenește cu viitorul sculptor Alexandru Plămădeală (1880 - 1940), care studia și el la seminar în aceeași perioadă. La 24 iunie, la numai 43 de ani, încetează din viață tatăl lui, Alexei Mateevici.
:În 1907, în primele numere ale ziarului „Basarabia” (din 1907) publică poeziile „Ţăranii”, „Eu cînt”, „Ţara”, precum şi articolele „Sfîntul Vasile – Anul Nou în obiceiurile moldovenilor basarabeni” şi „Din cîntecele poporane ale Basarabiei”.

:Devine student la Academia teologică din Kiev, pe care a absolvit-o în 1914. În aceiași ani, după mărturisirea unui coleg, „Mateevici trăia ca într-o beție a cititului”. Traduce mult din literatura rusă clasică și studiază trecutul istoric și cultural al poporului său.[[File:Alexei Mateevici - Foto01.jpg|322x322px|thumb|Alexei Mateevici (1910) student la Academia din Kiev, anul III.]]

:Între 1910 - 1911 publică în „Chisineovschie eparhialinie vedomosti” (nr.45, 49, 52 din 1910 și nr.42 din 1911) studiul lingvistic „''Momente ale influenței bisericești asupra originii și dezvoltării istorice a limbii moldovenești''”, precum și articolele “''Motive religioase în credințele și obiceiurile moldovenilor basarabeni''” (nr.9, 13, 14), “''Bocetele funerare moldovenești''” (nr.38, 39, 40, 41). Vede lumina tiparului (Chisineovschie eparhialinie vedomosti, nr. 12, 13, 19, 22, 23) articolul „''Schiță a traducerilor'' moldovenești ''religioase și de trai''”. Apare în revista „Luminatorul” (nr. 8, 9, 10, 11) studiul „''Mitropolitul Gavril Bănulescu - Bodoni''”. Se căsătorește cu Teodora Borisovna Novitschi, absolvă Academia Teologică cu teza de licență Concepția religioasă și filosofică la Fechneenner și se întoarce la Chișinău. La 22 septembrie e numit provizoriu profesor de limba greacă la seminarul unde învățase. Ține o cuvîntare în fața absolvenților seminarului din Chișinău. La 23 iunie vizitează străvechea biserică din Căușeni, pe care o găsește „uimitor de bine păstrată”. În anul 1915 se înrolează în armata rusă ca preot militar, iar în 1916 este trimis pe frontul din Romînia. În vara anului 1916 scrie poeziile: „''Văd prăbușirea''”, „''Cîntec de leagăn''”, „''Basarabenilor''”, „''Frunza nucului''”, „''Unora''” ș.a. La 17 iulie creează poezia ''Limba noastră'', publicată în Cuvînt moldovenesc. La 13 august (stil vechi), bolnav de tifos exantematic, se stinge din viață la spitalul nr.1 din Chișinău și este înmormîntat la Cimitirul Central din Chișinău. 

:În anul 1994, versurile poeziei ''Limba noastră'' au fost alese ca text al Imnului de Stat al Republicii Moldova. Poezia Limba noastră se fixează definitiv în registrul marii arte, fiind superioară versurilor pe aceeași temă ale lui George Coșbuc sau George Sion
:În lirica sa, poezia religioasă, uneori remarcabilă (''Roagă-te''), alternează cu poezia revoltei sociale, expresie a durerii poetului pentru soarta țăranilor moldoveni, apăsați de nevoi și suferințe. Poeziile ''Eu cînt, Țăranii, Cântecul zorilor, Țara'' împletesc nota elegiacă cu tonalitatea energică și credința în „ivirea zorilor” dreptății și devin profund definitorii pentru profilul poetului militant.

:A colaborat la revista Luminătorul, Viața Basarabiei, Cuvînt moldovenesc etc. cu versuri originale și traduse (din Al. K. Tolstoi, S. I. Nadson, Gavrila Derjavin, Mihail Lermontov, Alexandr Sergheevici Pușkin).

== Scrieri ==

*''Poezii'', publicate cu o prefață de P. V. Haneș. București, 1926 (ed. II, București, 1936)
*''Poezii'', cu o prefață de L.T. Boga, Chișinău, 1937
*''Scrieri alese'', ediție îngrijită și prefațată de I. Vartician și F. Levit, Chișinău, 1966 (ed. II 1971, ed. III 1977)
*''Pagini alese'', tabel cronologic, note și comentarii de V. Nazar, prefață de A. Hropotinski, Chișinău, 1985
*''Scrieri'', ed. îngrijită, studiu introductiv, note, variante și bibliografie de I. Nuță, Iași, 1989
*''Limba noastră'', Chișinău, 1989

Alexei Mateevici

2024-07-13T22:58:05Z

Sergiu:

'''Alexie''' (sau '''Alexei''') '''Mateevici''' (n. [[27 martie]] [[1888]], [[Căinari]] – d. [[24 august]] [[1917]], [[Chișinău]]) a fost unul din cei mai reprezentativi scriitori moldoveni din Basarabia. Născut în [[Basarabia|Gubernia Basarabia]], actualmente [[Republica Moldova]].
== Cronologie ==
:La 27 martie (stil vechi) se naște la [[Căinari]], fostul județ Bender, Alexei Mateevici, primul copil al preotului [[Mihail Mateevici]], originar de prin părțile județului Soroca, căsătorit cu [[Nadejda Mateevici]] (1863-1930), fiica protopopului Ioan Neaga din Căușeni.Părinții se mută cu traiul în satul Zaim, localitate situată pe drumul dintre Căușeni și Cimișlia. Aici micul Alexei învață la școala primară și se familiarizează cu frumoasele povești și balade, pe care le aude de la părinții săi, precum și de la țăranii de prin partea locului. A fost înscris de părinți la școala teologică din Chișinău, pe care o termină (conform adeverinței de absolvire) în 1902, „cu privilegii”(cu laude). Își urmează studiile la seminarul teologic. Face cunoștință și se împrietenește cu viitorul sculptor Alexandru Plămădeală (1880 - 1940), care studia și el la seminar în aceeași perioadă. La 24 iunie, la numai 43 de ani, încetează din viață tatăl lui, Alexei Mateevici.
:În 1907, în primele numere ale ziarului „Basarabia” (din 1907) publică poeziile „Ţăranii”, „Eu cînt”, „Ţara”, precum şi articolele „Sfîntul Vasile – Anul Nou în obiceiurile moldovenilor basarabeni” şi „Din cîntecele poporane ale Basarabiei”.

:Devine student la Academia teologică din Kiev, pe care a absolvit-o în 1914. În aceiași ani, după mărturisirea unui coleg, „Mateevici trăia ca într-o beție a cititului”. Traduce mult din literatura rusă clasică și studiază trecutul istoric și cultural al poporului său.[[File:Alexei Mateevici - Foto01.jpg|322x322px|thumb|Alexei Mateevici (1910) student la Academia din Kiev, anul III.]]

:Între 1910 - 1911 publică în „Chisineovschie eparhialinie vedomosti” (nr.45, 49, 52 din 1910 și nr.42 din 1911) studiul lingvistic „''Momente ale influenței bisericești asupra originii și dezvoltării istorice a limbii moldovenești''”, precum și articolele “''Motive religioase în credințele și obiceiurile moldovenilor basarabeni''” (nr.9, 13, 14), “''Bocetele funerare moldovenești''” (nr.38, 39, 40, 41). Vede lumina tiparului (Chisineovschie eparhialinie vedomosti, nr. 12, 13, 19, 22, 23) articolul „''Schiță a traducerilor'' moldovenești ''religioase și de trai''”. Apare în revista „Luminatorul” (nr. 8, 9, 10, 11) studiul „''Mitropolitul Gavril Bănulescu - Bodoni''”. Se căsătorește cu Teodora Borisovna Novitschi, absolvă Academia Teologică cu teza de licență Concepția religioasă și filosofică la Fechneenner și se întoarce la Chișinău. La 22 septembrie e numit provizoriu profesor de limba greacă la seminarul unde învățase. Ține o cuvîntare în fața absolvenților seminarului din Chișinău. La 23 iunie vizitează străvechea biserică din Căușeni, pe care o găsește „uimitor de bine păstrată”. În anul 1915 se înrolează în armata rusă ca preot militar, iar în 1916 este trimis pe frontul din Romînia. În vara anului 1916 scrie poeziile: „''Văd prăbușirea''”, „''Cîntec de leagăn''”, „''Basarabenilor''”, „''Frunza nucului''”, „''Unora''” ș.a. La 17 iulie creează poezia ''Limba noastră'', publicată în Cuvînt moldovenesc. La 13 august (stil vechi), bolnav de tifos exantematic, se stinge din viață la spitalul nr.1 din Chișinău și este înmormîntat la Cimitirul Central din Chișinău. 

:În anul 1994, versurile poeziei ''Limba noastră'' au fost alese ca text al Imnului de Stat al Republicii Moldova. Poezia Limba noastră se fixează definitiv în registrul marii arte, fiind superioară versurilor pe aceeași temă ale lui George Coșbuc sau George Sion
:În lirica sa, poezia religioasă, uneori remarcabilă (''Roagă-te''), alternează cu poezia revoltei sociale, expresie a durerii poetului pentru soarta țăranilor moldoveni, apăsați de nevoi și suferințe. Poeziile ''Eu cînt, Țăranii, Cântecul zorilor, Țara'' împletesc nota elegiacă cu tonalitatea energică și credința în „ivirea zorilor” dreptății și devin profund definitorii pentru profilul poetului militant.

:A colaborat la revista Luminătorul, Viața Basarabiei, Cuvînt moldovenesc etc. cu versuri originale și traduse (din Al. K. Tolstoi, S. I. Nadson, Gavrila Derjavin, Mihail Lermontov, Alexandr Sergheevici Pușkin).

== Scrieri ==

*''Poezii'', publicate cu o prefață de P. V. Haneș. București, 1926 (ed. II, București, 1936)
*''Poezii'', cu o prefață de L.T. Boga, Chișinău, 1937
*''Scrieri alese'', ediție îngrijită și prefațată de I. Vartician și F. Levit, Chișinău, 1966 (ed. II 1971, ed. III 1977)
*''Pagini alese'', tabel cronologic, note și comentarii de V. Nazar, prefață de A. Hropotinski, Chișinău, 1985
*''Scrieri'', ed. îngrijită, studiu introductiv, note, variante și bibliografie de I. Nuță, Iași, 1989
*''Limba noastră'', Chișinău, 1989

Alexei Mateevici

2024-07-13T22:52:10Z

Sergiu:

Alexei Mateevici

2024-07-13T22:51:52Z

Sergiu:

2024-07-13T20:56:14Z

Sergiu: 1 versiune importată

-- This module implements {{parameter names example}}.

local p = {}

local function makeParam(s)
local lb = '{'
local rb = '}'
return lb:rep(3) .. s .. rb:rep(3)
end

local function italicize(s)
return "''" .. s .. "''"
end

local function plain(s)
return s
end

function p._main(args, frame)
-- Find how we want to format the arguments to the template.
local formatFunc
if args._display == 'italics' or args._display == 'italic' then
formatFunc = italicize
elseif args._display == 'plain' then
formatFunc = plain
else
formatFunc = makeParam
end

-- Build the table of template arguments.
local targs = {}
for k, v in pairs(args) do
if type(k) == 'number' then
targs[v] = formatFunc(v)
elseif not k:find('^_') then
targs[k] = v
end
end

--targs['nocat'] = 'yes';
--targs['categories'] = 'no';
--targs['demo'] = 'yes';

-- Find the template name.
local template
if args._template then
template = args._template
else
local currentTitle = mw.title.getCurrentTitle()
if currentTitle.prefixedText:find('/sandbox$') then
template = currentTitle.prefixedText
else
template = currentTitle.basePageTitle.prefixedText
end
end

-- Call the template with the arguments.
frame = frame or mw.getCurrentFrame()
local success, result = pcall(
frame.expandTemplate,
frame,
{title = template, args = targs}
)
if success then
return result
else
return ''
end
end

function p.main(frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = 'Template:Parameter names example'
})
return p._main(args, frame)
end

return p