Направо към съдържанието

Модул:Person

от Уикипедия, свободната енциклопедия

Този модул позволява добавянето на години на раждане и смърт в статии за личности. Заедно с това се добавя и информация за възрастта на личността. Съответните статии, в които се използва този модул, се причисляват към категориите „Родени/Починали през X г.“ и „Родени/Починали на X“.

Модулът се използва по следния начин:

Дата на раждане: {{#invoke:Person|birth_date|ИДЕНТИФИКАТОР}} или {{#invoke:Person|birth_date}}

Дата на смърт: {{#invoke:Person|death_date|ИДЕНТИФИКАТОР}} или {{#invoke:Person|death_date}}

С параметъра ИДЕНТИФИКАТОР може да се укаже идентификатор в Уикиданни на страница за личност. Той е незадължителен - по подразбиране се използва идентификаторът на текущата страница.

Например:

Дата на раждане: {{#invoke:Person|birth_date}} или {{#invoke:Person|birth_date|Q347118}}

Дата на смърт: {{#invoke:Person|death_date}} или {{#invoke:Person|death_date|Q347118}}



local p = {}
local wd = require('Модул:Wd')

function isEmpty(var)
	return var == nil or var == ""
end

Date = {
	-- _ = nil, -- save here the original date string, e.g. "31 май 2000"
	-- day = nil,
	-- month = nil,
	-- monthName = nil,
	-- year = nil,
	-- bce = nil, -- is it in the BCE epoch
	-- julian = nil, -- is the date in Julian calendar
}

function Date.currentDate()
	return os.date("*t")
end

function Date:isEmpty()
	return isEmpty(self._)
end
function Date:monthNameToNumber(monthName)
	local map = {
		["януари"] = 1,
		["февруари"] = 2,
		["март"]  = 3,
		["април"] = 4,
		["май"] = 5,
		["юни"] = 6,
		["юли"] = 7,
		["август"] = 8,
		["септември"] = 9,
		["октомври"] = 10,
		["ноември"] = 11,
		["декември"] = 12
	}
	return map[monthName] or nil
end
function Date:set(year, monthName, day)
	self.year = year
	self.monthName = monthName
	self.month = self:monthNameToNumber(monthName)
	self.day = day
	return self
end

function Date:fromWikidata(eid, property)
	local dateString = wd._property({eid, property})
	dateString = mw.ustring.gsub(dateString, '<!%-%-%s*', '')
	dateString = mw.ustring.gsub(dateString, '%-%->', '')

	d = { _ = dateString, q = eid, p = property }
	setmetatable(d, self)
	self.__index = self
	if isEmpty(dateString) or (dateString == 'няма') then
		return d
	end
	if (dateString == 'неизвестна') then
		d.unknown = true
		return d
	end

	if string.match(dateString, 'пр.н.е.') then
		d.bce = true
	end
	if string.match(dateString, 'стар стил') then
		d.julian = true
	end

	local day, monthName, year = mw.ustring.match(dateString, "^(%d+)%s+(%a+)%s+(%d+)")
	if day and monthName and year then
		return d:set(year, monthName, day)
	end
	monthName, year = mw.ustring.match(dateString, "^(%a+)%s+(%d+)")
	if monthName and year then
		return d:set(year, monthName)
	end

	millennium = mw.ustring.match(dateString, "^(%d+)%s+хилядолетие")
	if millennium then
		d.millennium = millennium
		return d
	end
	century = mw.ustring.match(dateString, "^(%d+)%s+век")
	if century then
		d.century = century
		return d
	end
	decade = mw.ustring.match(dateString, "^(%d+)%-те")
	if decade then
		d.decade = decade
		return d
	end
	year = mw.ustring.match(dateString, "^(%d+)")
	if year then
		return d:set(year)
	end

	return d
end

function age(dateOfBirth, dateOfDeath)
	if not dateOfBirth.year then
		return nil
	end
	if isEmpty(dateOfDeath) or dateOfDeath:isEmpty() then
		dateOfDeath = Date.currentDate()
	elseif dateOfDeath.unknown then
		return nil
	end
	local startDate = dateForCalc(dateOfBirth)
	local endDate = dateForCalc(dateOfDeath)
	if dateOfBirth.bce and not dateOfDeath.bce then
		-- reverse the sign and subtract one year
		startDate = startDate * -1 + 10000
	end
	local age = math.abs(math.floor((endDate - startDate) / 10000))
	if age > 125 then -- put a max age
		return nil
	end
	return age
end

function dateForCalc(date)
	return string.format("%d%02d%02d", date.year or 0, date.month or 0, date.day or 0)
end

function bceSuffix(isBce)
	if isBce then return " пр.н.е." else return "" end
end

function birthCategories(date)
	local cats = {}
	if date.millennium then
		table.insert(cats, "Родени през " .. date.millennium .. " хилядолетие" .. bceSuffix(date.bce))
	end
	if date.century then
		table.insert(cats, "Родени през " .. date.century .. " век" .. bceSuffix(date.bce))
	end
	if date.decade then
		table.insert(cats, "Родени през " .. date.decade .. "-те години" .. bceSuffix(date.bce))
	end
	if date.year then
		table.insert(cats, "Родени през " .. date.year .. " година" .. bceSuffix(date.bce))
	end
	if date.day and date.monthName then
		table.insert(cats, "Родени на " ..  date.day .. " " .. date.monthName)
	end
	if date.unknown then
		table.insert(cats, "Статии за личности с неизвестна година на раждане")
	end
	if date.julian and isAfterGregorianIntroduced(date) then
		table.insert(cats, "Статии с дати на раждане или смърт по стар стил")
	end
	return cats
end

function deathCategories(date)
	local cats = {}
	if date.millennium then
		table.insert(cats, "Починали през " ..  date.millennium .. " хилядолетие" .. bceSuffix(date.bce))
	end
	if date.century then
		table.insert(cats, "Починали през " ..  date.century .. " век" .. bceSuffix(date.bce))
	end
	if date.decade then
		table.insert(cats, "Починали през " ..  date.decade .. "-те години" .. bceSuffix(date.bce))
	end
	if date.year then
		table.insert(cats, "Починали през " ..  date.year .. " година" .. bceSuffix(date.bce))
	end
	if date.day and date.monthName then
		table.insert(cats, "Починали на " ..  date.day .. " " .. date.monthName)
	end
	if date.unknown then
		table.insert(cats, "Статии за личности с неизвестна година на смърт")
	end
	if date.julian and isAfterGregorianIntroduced(date) then
		table.insert(cats, "Статии с дати на раждане или смърт по стар стил")
	end
	return cats
end

function prepareBirthDateVarsWikidata(eid)
	local vars = {}
	vars.date = Date:fromWikidata(eid, 'P569')

	if isEmpty(wd._property({eid, 'P570'})) then 
		vars.age = age(vars.date)
	end
	vars.cats = birthCategories(vars.date)

	return vars
end

function prepareDeathDateVarsWikidata(eid)
	local vars = {}
	vars.date = Date:fromWikidata(eid, 'P570')
	if isEmpty(vars.date._) then
		return nil
	end

	local birthDate = Date:fromWikidata(eid, 'P569')
	if not isEmpty(birthDate._) then
		vars.age = age(birthDate, vars.date)
	end
	vars.cats = deathCategories(vars.date)

	return vars
end

function formatAgeSuffix(age)
	return '<span class="noprint"> <small>('.. age .. ' г.)</small></span>'
end

function isJulian(calendar)
	-- The "Q" things are calendarmodels as returned by Wikidata queries.
	-- For more information, see [[:wikidata:Help:Dates]].
	local julian_items = {
		["Q11184"] = true,
		["Q1985786"] = true,
		["юлиански"] = true,
	}
	-- Equivalent to Python's "if calendar in julian_items".
	return julian_items[calendar]
end

function isAfterGregorianIntroduced(date)
	-- Shouldn't be possible if calendarmodel is defined, but best be safe.
	if date.unknown then
		return false
	end
	-- All dates BC are definitely before Gregorian has been introduced.
	if date.bce then
		return false
	end
	-- Not sure what comparison with nil would return so check if defined first.
	-- Feel free to simplify if you know it's an overkill.
	if date.year and tonumber(date.year) < 1583 then
		return false
	end
	if date.decade and tonumber(date.decade) < 1580 then
		return false
	end
	if date.century and tonumber(date.century) < 16 then
		return false
	end
	-- The calendar makes very little sense with millennium level accuracy.
	if date.millennium then
		return false
	end
	
	-- After or in 1583, the 1580s, or the 16th century.
	return true
end

function formatDate(vars, calendar)
	if vars == nil then return '' end

	local output = ''
	local earliest = ''
	local latest = ''
	local sourcing = ''
	local str = wd._property({'linked', 'qualifier', 'qualifier', 'qualifier', vars.date.q, vars.date.p, 'P1319', 'P1326', 'P1480', format='o=%p[\ne=%q1][\nl=%q2][\ns=%q3]'})
	for m in mw.ustring.gmatch(str, '[^\n]+') do
		m = mw.text.trim(m)
		output = mw.ustring.match(m, '^o=(.+)$') or output
		earliest = mw.ustring.match(m, '^e=(.+)$') or earliest
		latest = mw.ustring.match(m, '^l=(.+)$') or latest
		sourcing = mw.ustring.match(m, '^s=(.+)$') or sourcing
	end
	if output == '' then return '' end

	if output == 'неизв.' then
		if (earliest ~= '') and (latest ~= '') then
			output = 'между ' .. earliest .. ' и ' .. latest
		elseif (earliest ~= '') then
			output = 'не по-рано от ' .. earliest
		elseif (latest ~= '') then
			output = 'не по-късно от ' .. latest
		else
			output = 'неизв.'
		end
	else
		if sourcing ~= '' then
			output = sourcing .. ' ' .. output
		end
	end

	if vars.age then
		output = output .. formatAgeSuffix(vars.age)
	end
	output = '<span class="oneline">' .. output .. '</span>'
	for k, category in pairs(vars.cats) do
		output = output .. '[[Категория:' .. category .. ']]'
	end
	return output
end

function inArray (array, value)
    for index, v in ipairs(array) do
        if v == value then
            return true
        end
    end

    return false
end

function isCountry(qid)
        if isSettlement(qid, 0) then
                return false
        end

        local countries = {'Q6256', 'Q3624078', 'Q1151405', 'Q161243', 'Q15239622', 'Q2577883', 'Q3024240', 'Q6726158', 'Q15634554'}
        local s = wd._properties ({ 'raw', qid, 'P31', sep='', ["sep%s"]='\t' })

        for token in string.gmatch(s, "[^\t]+") do
                if inArray(countries, token) then
                        return true
                end
        end
        return false
end

function isSettlement(qid, iterate)
        local notsettlements = {'Q123705'}
        local settlements = {'Q486972', 'Q3957', 'Q7930989', 'Q10354598', 'Q498162', 'Q17343829', 'Q22674925', 'Q1529096', 'Q515', 'Q484170', 'Q15630849', 'Q89487741', 'Q562061', 'Q667509', 'Q2039348', 'Q5084', 'Q1802801', 'Q494721', 'Q493522', 'Q51049922'}
        local s = wd._properties ({ 'raw', qid, 'P31', sep='', ["sep%s"]='\t' })
        if s == '' then
                s = wd._properties ({ 'raw', qid, 'P279', sep='', ["sep%s"]='\t' })
        end
        local t = false

        for token in string.gmatch(s, "[^\t]+") do
                if inArray(notsettlements, token) then
                        return false
                end
                if inArray(settlements, token) then
                        return true
                end
                if iterate > 0 then
                        t = isSettlement(token, iterate - 1)
                        if t then
                                return true
                        end
                end
        end
        return false
end

function findSettlement(qid, date, iterate)
        local s = wd._properties ({ 'raw', qid, 'P131', sep='', ["sep%s"]='\t' , ["date"]=date })
        local t = ''
        for token in string.gmatch(s, "[^\t]+") do
                if isSettlement(token, 1) then
                        return token
                end
                if iterate > 0 then
                        t = findSettlement(token, date, iterate - 1)
                        if t ~= '' then
                                return t
                        end
                end
        end
        return ''
end

function joinStrings(strings, separator)
        local res = ''
        for i, s in ipairs(strings) do
                if (s ~= '') and (s ~= nil) then
                        res = res .. s .. separator
                end
        end
        if res ~= '' then
                res = string.sub (res, 1, string.len(res) - string.len(separator))
        end
        return res
end

function relabel(link, newlabel)
	if newlabel ~= '' then
		if link:find("]]") ~= nil then
			if link:find("|") ~= nil then
				link = link:gsub("|.*]]", "|" .. newlabel .. "]]")
			else
				link = link:gsub("]]", "|" .. newlabel .. "]]")
			end
		else
			link = newlabel
		end
	end
	return link
end

function lsc(location, defcountry, date, earliestdate, latestdate)
	local s = ''
	local d = ''

	if location == '' or location == ' ' then
		return ''
	end

	local settlement = ''
	local lstr = wd._label({ 'linked', location })
	local sstr = ''
	local cstr = defcountry or ''

	if isCountry(location) then
		return lstr
	end

    d = mw.text.trim(date or '')

    if d == '' then
      d = mw.text.trim(latestdate or '')   -- tries with latest date
    end
    if d == '' then
      d = mw.text.trim(earliestdate or '')   -- tries with earliest date
    end
	if isSettlement(location, 1) then
		if cstr == '' then
			country = wd._property({'raw', 'deprecated+', location, 'P17', date=d})
			if country ~= '' then
				cstr = wd._label({ 'linked', country})
				cstr = relabel(cstr, wd._property({'linked', 'deprecated+', country, 'P1448', date=d}))
			end
		end
		lstr = relabel(lstr, wd._property({'linked', 'deprecated+', location, 'P1448', date=d}))
	else
		settlement = findSettlement(location, date, 3)
		if settlement ~= '' then
			if cstr == '' then
				country = wd._property({'raw', 'deprecated+', settlement, 'P17', date=d})
				if country ~= '' then
					cstr = wd._label({ 'linked', country})
					cstr = relabel(cstr, wd._property({'linked', 'deprecated+', country, 'P1448', date=d}))
				end
			end
			sstr = wd._label({ 'linked', settlement})
			sstr = relabel(sstr, wd._property({'linked', 'deprecated+', settlement, 'P1448', date=d}))
		else
			if cstr == '' then
				country = wd._property({'raw', 'deprecated+', location, 'P17', date=d})
				if country ~= '' then
					cstr = wd._label({ 'linked', country})
					cstr = relabel(cstr, wd._property({'linked', 'deprecated+', country, 'P1448', date=d}))
				end
			end
		end
	end
	if lstr == sstr then sstr = '' end
	if lstr == cstr then cstr = '' end
	if sstr == cstr then cstr = '' end
	return joinStrings({lstr, sstr, cstr}, ', ')
end

function p.lsc(frame)
    return lsc(frame.args[1], frame.args[3], frame.args[2], frame.args[4], frame.args[5])
end

function p.birth_date(frame)
	local eid = frame.args[1] or ''
	return formatDate(prepareBirthDateVarsWikidata(eid))
end

function p.death_date(frame)
	local eid = frame.args[1] or ''
	return formatDate(prepareDeathDateVarsWikidata(eid))
end

function p.service_years(frame)
	local eid = frame.args[1] or ''
	local occupation = 'P106'
	local militaryPersonnel = 'Q47064'
	local startTime = 'P580'
	local endTime = 'P582'
	local serviceStart = wd._qualifier({'raw', eid, occupation, militaryPersonnel, startTime}) or ''
	local serviceEnd = wd._qualifier({'raw', eid, occupation, militaryPersonnel,  endTime}) or ''

	if serviceStart == '' and serviceEnd == '' then
		return ''
	end

	local yearStart = string.match(serviceStart, "%d+") or ''
	local yearEnd = string.match(serviceEnd, "%d+") or ''

	if yearStart == '' then
		serviceYears = 'до ' .. yearEnd
	elseif yearEnd == '' then
		serviceYears = 'от ' .. yearStart
	else
		serviceYears = yearStart .. ' – ' .. yearEnd
	end

	return serviceYears .. ' г.'
end

return p