Модуль:Infocards

local infocards = {}local calculateAge = truelocal dateCat = require( 'Module:Infocards/dateCat' )local moduleDates = require( 'Module:Dates' )--[[Helper function that populates the argument list given that user may need to use a mix ofnamed and unnamed parameters.  This is relevant because named parameters are notidentical to unnamed parameters due to string trimming, and when dealing with stringswe sometimes want to either preserve or remove that whitespace depending on the application.]]function infocards._getParameters( frame_args, arg_list )local new_args = {}local index = 1local value for i,arg in ipairs( arg_list ) dovalue = frame_args[arg]if value == nil thenvalue = frame_args[index]index = index + 1endnew_args[arg] = valueend return new_argsend        function infocards.isBlank( someString )return someString == nil or mw.ustring.match(someString, '^%s*$') ~= nilendfunction infocards.isDate ( frame )local new_args = infocards._getParameters( frame.args, {'s', 't', 'f'} )local s = new_args['s'] or ''local t = new_args['t'] or ''local f = new_args['f'] or ''local result = infocards.isDateImpl ( s )if (result) thenreturn telsereturn fendendfunction infocards.isDateImpl ( s )local converted = infocards.convertToDate ( s )return converted ~= nilendfunction infocards.dateOfBirth( frame )local new_args = infocards._getParameters( frame.args, {'dateOfBirth', 'dateOfDeath', 'suppressAge', 'nocat'} )local dateOfBirth = new_args['dateOfBirth'] or ''local dateOfDeath = new_args['dateOfDeath'] or ''local suppressAge = new_args['suppressAge'] or ''local nocat = new_args['nocat'] or mw.title.getCurrentTitle().nsTextreturn infocards.dateOfBirthImpl( dateOfBirth, dateOfDeath, suppressAge, nocat )endfunction infocards.dateOfBirthImpl( dateOfBirth, dateOfDeath, suppressAge, nocat )local appendToCategory = infocards.isBlank( nocat )if ( infocards.isBlank( dateOfBirth ) ) thenif ( appendToCategory ) thenreturn dateCat.categoryNoBirthDateelsereturn ''endendif ( mw.ustring.match( dateOfBirth, '^%s*неизвестн.%s*$' ) ~= nilor mw.ustring.match( dateOfBirth, '^%s*%?%s*$' ) ~= nil ) thenif ( appendToCategory ) thenreturn "''неизвестно''" .. dateCat.categoryUnknownBirthDateelsereturn "''неизвестно''"endendlocal appendAge = not (suppressAge ~= '' or not calculateAge) and infocards.isBlank( dateOfDeath )local parsedDate = infocards.convertToDate ( dateOfBirth )if ( parsedDate == nil ) then--[[ Temporary hack in order to enable export dates to wikidata ]]local bDateStart = '<span class="no-wikidata" data-wikidata-property-id="P569">'local bDateEnd = '</span>'if ( appendToCategory ) thenreturn bDateStart .. dateOfBirth .. bDateEnd .. dateCat.categoryManualWikificationelsereturn bDateStart .. dateOfBirth .. bDateEndendendlocal result = infocards.formatDateImpl ( parsedDate, 'bday', appendToCategory and 'Родившиеся' or nil )if ( appendAge ) then-- TODO: месяцы и дни для (нескольких) новорождённых (см. новейшие [[Категория:Родившиеся в ГГГГ году]])local age = infocards.age ( parsedDate,  os.date("*t") )if ( age and age < 125) thenresult = result .. ' <span class="nowrap">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'endif ( appendToCategory ) thenif (not age and parsedDate and parsedDate.year ) thenage = os.date('*t').year - parsedDate.year -- при неточной дате endif ( age ) then if ( age > 115 ) thenresult = result .. dateCat.categoryBigCurrentAgeelseif ( age >= 0 ) then result = result .. dateCat.categoryBiographiesOfLivingPersonselseresult = result .. dateCat.categoryNegativeAgeendendendendreturn resultendfunction infocards.dateOfDeath( frame )local new_args = infocards._getParameters( frame.args, {'dateOfBirth', 'dateOfDeath', 'nocat'} )local dateOfBirth = new_args['dateOfBirth'] or ''local dateOfDeath = new_args['dateOfDeath'] or ''local nocat = new_args['nocat'] or mw.title.getCurrentTitle().nsTextreturn infocards.dateOfDeathImpl( dateOfBirth, dateOfDeath, nocat )endfunction infocards.dateOfDeathImpl( dateOfBirth, dateOfDeath, nocat )if ( infocards.isBlank( dateOfDeath ) ) thenreturn ''endlocal appendToCategory = infocards.isBlank( nocat )if ( mw.ustring.match( dateOfDeath, '^%s*неизвестн.%s*$' ) ~= nilor mw.ustring.match( dateOfDeath, '^%s*%?%s*$' ) ~= nil ) thenif ( appendToCategory ) thenreturn "''неизвестно''" .. dateCat.categoryUnknownDeathDateelsereturn "''неизвестно''"endendlocal parsedDateOfBirth = infocards.convertToDate ( dateOfBirth )local parsedDateOfDeath = infocards.convertToDate ( dateOfDeath )if ( parsedDateOfDeath == nil ) then--[[ Temporary hack in order to enable export dates to wikidata ]]local dDateStart = '<span class="no-wikidata" data-wikidata-property-id="P570">'local dDateEnd = '</span>'if ( appendToCategory ) thenreturn dDateStart .. dateOfDeath .. dDateEnd .. dateCat.categoryManualWikificationelsereturn dDateStart .. dateOfDeath .. dDateEndendendlocal result = infocards.formatDateImpl ( parsedDateOfDeath, 'dday', appendToCategory and 'Умершие' or nil )if ( calculateAge ) thenlocal age = infocards.age ( parsedDateOfBirth, parsedDateOfDeath )if ( age and age > 0 ) thenresult = result .. ' <span class="nowrap">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'end-- returns category to recently deceased personslocal unixAvailable, unixDateOfDeath = pcall(function()local r = os.time(parsedDateOfDeath)if ( r ~= os.time() ) thenreturn renderror()end)if (appendToCategory) thenif ( unixAvailable and os.time() - unixDateOfDeath < 31536000 ) thenresult = result .. dateCat.categoryRecentlyDeceasedelseif (age and age < 0) thenresult = result .. dateCat.categoryNegativeAgeendendendreturn resultendfunction infocards.age( parsedBirthDate, parsedFinishDate ) if ( parsedBirthDate == nil or parsedFinishDate == nil ) thenreturn nilendlocal bd = parsedBirthDate["day"]local bm = parsedBirthDate["month"]local by = parsedBirthDate["year"]local dd = parsedFinishDate["day"]local dm = parsedFinishDate["month"]local dy = parsedFinishDate["year"]if ( bd and bm and by and dd and dm and dy ) thenif ( dm > bm or ( dm == bm and dd >= bd ) ) thenreturn dy - byelsereturn dy - by - 1endelsereturn nilendendfunction infocards.formatDateImpl( parsedDate, infocardClass, categoryNamePrefix )local datePart = '<span class="nowrap">'--Temporary hack in order to enable export dates to wikidataif infocardClass == "bday" thendatePart = '<span class="no-wikidata" data-wikidata-property-id="P569">'elseif infocardClass == "dday" thendatePart = '<span class="no-wikidata" data-wikidata-property-id="P570">'endlocal t1 = { day = parsedDate.osday, month = parsedDate.osmonth, year = parsedDate.osyear }local t2 = { day = parsedDate.day, month = parsedDate.month, year = parsedDate.year }datePart = datePart .. moduleDates.formatWikiImpl( t1, t2, infocardClass, categoryNamePrefix )datePart = datePart .. '</span>'return datePartendfunction infocards.convertToDate( possibleDateString )possibleDateString = mw.ustring.gsub( possibleDateString, '−', '-')local simpleDate = mw.ustring.match(possibleDateString, '^%s*([%-%d%.]+)%s*$', 0)if ( simpleDate ) thenreturn infocards.convertToDateNewStylePart( simpleDate )endlocal complexDate1, complexDate2 = mw.ustring.match(possibleDateString, '^%s*([%-%d%.]+)%s*%(([%-%d%.]+)%)%s*$', 0)if ( complexDate1 and complexDate2) thenlocal table1 = infocards.convertToDateNewStylePart( complexDate1 )local table2 = infocards.convertToDateOldStylePart( complexDate2 )if ( table1 and table2 ) thenreturn {year = table1["year"], month = table1["month"], day = table1["day"], osyear = table2["year"], osmonth = table2["month"], osday = table2["day"]}elsereturn nilendendreturn nilendfunction infocards.convertToDateNewStylePart( possibleDateString )local ny = mw.ustring.match(possibleDateString, '^(%-?%d+)$', 0)if (ny ~= nil) thenreturn {year = tonumber(ny)}endreturn infocards.convertToDateCommonPart( possibleDateString )endfunction infocards.convertToDateOldStylePart( possibleDateString )local nd = mw.ustring.match(possibleDateString, '^(%-?%d+)$', 0)if (nd ~= nil) thenreturn {day = tonumber(nd)}endreturn infocards.convertToDateCommonPart( possibleDateString )endfunction infocards.convertToDateCommonPart( possibleDateString )local sDay, sMonth, sYearlocal day, month, yearsDay, sMonth, sYear = mw.ustring.match( possibleDateString, '^(%d?%d)%.(%d?%d)%.(%-?%d+)$', 0 )if sDay ~= nil and sMonth ~= nil and sYear ~= nil thenday = tonumber( sDay )month = tonumber( sMonth )year = tonumber( sYear )if day >= 1 and day <= 32 and month >= 1 and month <= 12 thenreturn { day = day, month = month, year = year }endendsDay, sMonth = mw.ustring.match( possibleDateString, '^(%d?%d)%.(%d?%d+)$', 0 )if sDay ~= nil and sMonth ~= nil thenday = tonumber( sDay )month = tonumber( sMonth )if day >= 1 and day <= 32 and month >= 1 and month <= 12 thenreturn { day = day, month = month }endendsMonth, sYear = mw.ustring.match( possibleDateString, '^(%d?%d)%.(%-?%d+)$', 0 )    if sMonth ~= nil and sYear ~= nil then    month = tonumber( sMonth )    year = tonumber( sYear )    if month >= 1 and month <= 12 then        return { month = month, year = year }        end    endreturn nilendreturn infocards