יחידה:עלטער

דער דאזיגער בלאט באדינט דעם מוסטער:עלטער

---

local dateParser = require( "Module:דאטום" )
local Arguments = require( "Module:Arguments" )

local Errors = {
	['future-date'] = '[[קאטעגאריע:אומריכטיגע לעבן דאטומען]]'
}

function len1(s)
	if (s == nil) then
		return 0 end
	return mw.ustring.len(s)
end

function find1(str, what, where)
	return mw.ustring.find(str, what, where, true) or 0
end

function hebnum(s)
	numberstable = {
	["א"] = 1, ["ב"] = 2, ["ג"] = 3, ["ד"] = 4, ["ה"] = 5,
	["ו"] = 6, ["ז"] = 7, ["ח"] = 8, ["ט"] = 9, ["י"] = 10, 
	["כ"] = 20, ["ך"] = 20, ["ל"] = 30, ["מ"] = 40, ["ם"] = 40, 
	["נ"] = 50, ["ן"] = 50, ["ס"] = 60, ["ע"] = 70, ["פ"] = 80, 
	["ף"] = 80, ["צ"] = 90, ["ץ"] = 90, ["ק"] = 100, ["ר"] = 200, 
	["ש"] = 300, ["ת"] = 400, ["'"] = 0, ["\""] = 0,}
	local ans = 0
	local str = s
	while len1(str) > 0 do
		ans = ans + numberstable[mw.ustring.sub(str, 1, 1)]
		str = mw.ustring.sub(str, 2, len1(str))
	end
	return ans
end

function takeyear(year)
	local new
	if 0 < find1(year, "אלפים")
		then new = hebnum(mw.ustring.sub(year, 1, 2)) * 1000
		else new = hebnum(mw.ustring.sub(year, 3, len1(year))) + 1000
		* hebnum(mw.ustring.sub((year), 1, 2)) end
	return frame:callParserFunction("padleft", {new - 3761, 4})
end


function ToDate(frame, Date, ApproxDate)
	local isValidDate, res = pcall(dateParser.newFromWikitext, Date)
	local errors = ''
	if isValidDate and dateParser.age(res).year<0 then
		-- date is in the future
		isValidDate = false
		local title = mw.title.getCurrentTitle()
		if title.namespace==0 then
			errors = Errors['future-date']
		else
			errors = '<!--' .. Errors['future-date'] .. '-->'
		end
	elseif not isValidDate or res.precision < dateParser.PRECISION.YEAR then
		-- date is either invalid or is imprecise
		isValidDate = false -- mark as invalid anyway, even if "only" imprecise
		errors = frame:expandTemplate{ title = 'עלטער/בעיה', args = { 
			['מקורב']=ApproxDate,
			['נוסף']=Date,
			['מחרוזת']=Date
			} }
	end
	return isValidDate, res, errors
end

function consistentWithWikidata(localDate, wikidataClaim)
	local possibleDate, possibleDateValue, isConsistent
	if not  wikidataClaim then
		return true
	end
	isConsistent = true
	for i,possibleDate in ipairs(wikidataClaim) do
		if possibleDate.mainsnak and possibleDate.mainsnak.datavalue and possibleDate.mainsnak.datavalue.value then
			possibleDateValue = possibleDate.mainsnak.datavalue.value
			local iswikidataValid, wikidataDate = pcall(dateParser.newFromWikidataValue, possibleDateValue)
			if iswikidataValid and localDate.calendar == wikidataDate.calendar then
				if (localDate.year ~= wikidataDate.year and possibleDateValue.precision>=dateParser.PRECISION.YEAR) or 
				   (localDate.month ~= wikidataDate.month and possibleDateValue.precision>=dateParser.PRECISION.MONTH) or 
				   (localDate.day ~= wikidataDate.day and possibleDateValue.precision>=dateParser.PRECISION.DAY)  then
					isConsistent = false
				else
					isConsistent = true
					break
				end
	 		end
 		end
	end

 	return isConsistent
end

function ageCalcFromFrame(frame)
	local args = Arguments.getArgs(frame, { ['trim'] = true, ['removeBlanks'] = true })
	--local age_string = args['מציין']
	local BirthDateStr = args['געבורט דאטום'] or args['תאריך לידה עברי']
    if args['געבורט דאטום'] == nil and #mw.text.split( args['תאריך לידה עברי'], '%s' ) == 1 then --most probably just year
		local BirthDateNum = takeyear(args['תאריך לידה עברי']) - 3760
		BirthDateStr = tostring(BirthDateNum)
		if BirthDateNum < 1 then
			BirthDateStr = BirthDateStr .. " לפנה\"ס"
		end
	end
	local DeathDateStr = args['פטירה דאטום'] or args['תאריך פטירה עברי']
	if args['פטירה דאטום'] == nil and #mw.text.split( args['תאריך פטירה עברי'], '%s' ) == 1 then --most probably just year
		local DeathDateNum = takeyear(args['תאריך פטירה עברי']) - 3760
		DeathDateStr = tostring(DeathDateNum)
		if DeathDateNum < 1 then
			DeathDateStr = DeathDateStr .. " לפנה\"ס"
		end
	end
	local DisplayForAlive = args['הצג אם בחיים']
	local DisplayForDead = args['הצג אם נפטר']
	local Brackets = args['סוגריים']
	local ApproxDate = args['מקורב']
	
	DisplayForAlive = (DisplayForAlive=='כן')
	DisplayForDead = (DisplayForDead=='כן')
	Brackets = (Brackets~='לא')
	return ageCalc(BirthDateStr, DeathDateStr, DisplayForAlive, DisplayForDead, Brackets, ApproxDate)
end	

function ageCalc(BirthDateStr, DeathDateStr, DisplayForAlive, DisplayForDead, Brackets, ApproxDate, gender)
	local frame = mw.getCurrentFrame()
	local warnings = {}
	local dateRangeStr
	local wikidataBirth, wikidataDeath
	if BirthDateStr == '' then BirthDateStr = nil end
	if DeathDateStr == '' then DeathDateStr = nil end	
	wikidataBirth = entityId and mw.wikibase.getBestStatements( entityId, 'P569' )
	wikidataDeath = entityId and wikidataBirth and mw.wikibase.getBestStatements( entityId, 'P570' )

	BirthDateStr = BirthDateStr or ((wikidataBirth and #wikidataBirth>0 and mw.wikibase.renderSnak( wikidataBirth[1].mainsnak ) or nil))
	-- validate dates are valid
	if not BirthDateStr then
		return -- missing date, nothing to do
	end
	DeathDateStr = DeathDateStr or ((wikidataDeath and #wikidataDeath>0 and mw.wikibase.renderSnak( wikidataDeath[1].mainsnak ) or nil))
	if DeathDateStr =='' then DeathDateStr = nil end
	local IsDead = (DeathDateStr~=nil)
	
	-- early termination
	if (DisplayForDead~=IsDead) and (DisplayForAlive==IsDead) then
		return ''
	end

	local isValidDate, BirthDate, errDate = ToDate(frame, BirthDateStr, ApproxDate)
	if not isValidDate  then
		return errDate
	end
	if wikidataBirth and wikidataBirth[1] and wikidataBirth[1].mainsnak  then
		if not consistentWithWikidata(BirthDate, wikidataBirth) then
				table.insert(warnings, '[[קאטעגאריע:דפים עם שנות חיים שלא תואמים את ויקינתונים]]')
		 end
	end
	
	-- skip age calculation if we dont have enough precision
	if BirthDate.precision < dateParser.PRECISION.YEAR then return nil end
	
	local DeathDate
	if IsDead then 
		isValidDate, DeathDate, errDate =  ToDate(frame, DeathDateStr, ApproxDate)
		if not isValidDate then
			return errDate-- invalid death date
		end
	
		if not consistentWithWikidata(DeathDate, wikidataDeath) then
				table.insert(warnings, '[[קאטעגאריע:דפים עם שנות חיים שלא תואמים את ויקינתונים]]')
		 end
		prefix = 'אלט: ' 
		
	else
		if gender == nil and entityId~=nil then
			local PropertyLink = require('Module:PropertyLink')
			gender = PropertyLink.getItem( 'P21', entityId )
			if (gender == "Q6581097") then		-- male
				gender = 'זכר'
			elseif (gender == "Q2449503") then	-- transgender male
				gender = 'זכר'
			elseif (gender == "Q15145778") then	-- cisgender male
				gender = 'זכר'
			elseif (gender == "Q6581072") then	-- female
				gender = 'נקבה'
			elseif (gender == "Q1052281") then	-- transgender female
				gender = 'נקבה'
			elseif (gender == "Q15145779") then	-- cisgender female
				gender = 'נקבה'
			end
		end
		
		prefix = 'יארגאנג:&nbsp;'

		if gender == 'נקבה' then
			prefix = 'בת&nbsp;'
		elseif gender == 'זכר' then
			prefix = 'בן&nbsp;'
		end
	end
	-- skip age calculation if we dont have enough precision
	if DeathDate and DeathDate.precision and DeathDate.precision < dateParser.PRECISION.YEAR then return nil end
	
	local success, Age	 = pcall(dateParser.age, BirthDate , DeathDate)
	
	if success then
	AgeYears = Age.year
		if Age.year <= 0 then
			if Age.month == 1 then
				result = prefix..'חודש'
			elseif Age.month == 2 then
				result  = prefix..'חודשיים'
			else
				result = prefix..tostring(Age.month)..' חודשים'
			end
			if Age.day > 0 then
				if Age.day == 1 then
					result = result..' ויום'
				elseif Age.day == 2 then
					result = result..' ויומיים'
				else
					result = result..'  ו־'..tostring(Age.day)..' ימים'
				end
			end
		elseif Age.year < 3 then
			if Age.year == 1 then
				result = prefix..'שנה'
			elseif Age.year == 2 then
				result = prefix..'שנתיים'
			end
			if Age.month == 0 then
				if Age.day > 0 then
					if Age.day == 1 then
						result = result..' ויום'
					elseif Age.day == 2 then
						result = result..' ויומיים'
					else
						result = result..'  ו־'..tostring(Age.day)..' ימים'
					end
				end
			elseif Age.month == 1 then
				result = result..' וחודש'
			elseif Age.month == 2 then
				result  = result..' וחודשיים'
			else
				result = result..' ו־'..tostring(Age.month)..' חודשים'
			end
		else
			result = prefix..tostring(Age.year)
		end

		
		if BirthDate.precision < dateParser.PRECISION.MONTH or (DeathDate and DeathDate.precision < dateParser.PRECISION.MONTH) then
			result = result .. ' בערך'
		end
		
		-- ignore warning in specific template
		local noAgeWarning = false
		if mw.getCurrentFrame():getParent():getTitle() == 'מוסטער:תנ"ך פערזענליכקייט' or mw.getCurrentFrame():getParent():getTitle() == 'מוסטער:בעל חיים מפורסם' then
			noAgeWarning = true
		end
		local title = mw.title.getCurrentTitle()
		-- ignore warning in other namespace except the main NS
		if title.namespace==0 and not noAgeWarning then
			if AgeYears > 139 then 
				local instanceOf = entityId and mw.wikibase.getBestStatements( entityId, 'P31' )
				local isHuman = instanceOf and instanceOf[1].mainsnak and instanceOf[1].mainsnak.datavalue.value.id=='Q5'
				if isHuman then
					table.insert(warnings, Errors['future-date'])
				end
			elseif AgeYears>109 then 
				table.insert(warnings, '[[קאטעגאריע:מענטשן וואס זענען אנגעקומען צו די 110]]')
			elseif AgeYears>99 then
				table.insert(warnings, '[[קאטעגאריע:מענטשן וואס זענען אנגעקומען צו די הונדערט]]')
			end
		end
	else
		result = '?' .. frame:expandTemplate{ title = 'עלטער/בעיה', args = { 
			['מקורב']=ApproxDate,
			['נוסף']=DeathDate,
			['מחרוזת']=dateRangeStr
			} }
	end
	
	warnings = table.concat( warnings, '')
	if #warnings > 0 then
		warnings = string.format('%s ', warnings)
	end
	if Brackets then
		result = string.format(' (%s)', result)
	end
	return string.format('%s<span style="white-space: nowrap;">%s</span>', warnings, result)
end


return {
	['עלטער'] = ageCalcFromFrame,
	ageCalc = ageCalc,
	hebnum = hebnum
}