Moodul:Aega tagasi

Selle mooduli dokumentatsiooni saab kirjutada asukohta Moodul:Aega tagasi/doc.

-- Implementeerib [[Mall:Aega tagasi]]

local numberSpell, yesno  -- lazy load

function numberSpell(arg)
	numberSpell = require('Moodul:NumberSpell')._main
	return numberSpell(arg)
end

function yesno(arg)
	yesno = require('Moodul:Yesno')
	return yesno(arg)
end

local p = {}

-- Konverdib teksti arvuks.
local timeText = {
	['sekundit'] = 1,
	['minutit'] = 60,
	['tundi'] = 3600,
	['päeva'] = 86400,
	['nädalat'] = 604800,
	['kuud'] = 2629800,  -- 365.25 * 24 * 60 * 60 / 12
	['aastat'] = 31557600
}

-- Table containing tables of possible units to use in output.
local timeUnits = {
	[1] = { 'sekund', 'sekundit', 'sekundi' },
	[60] = { 'minut', 'minutit', 'minuti' },
	[3600] = { 'tund', 'tundi', 'tunni' },
	[86400] = { 'päev', 'päeva', 'päeva' },
	[604800] = { 'nädal', 'nädalat', 'nädala' },
	[2629800] = { 'kuu', 'kuud', 'kuu' },
	[31557600] = { 'aasta', 'aastat', 'aasta' }
}

function p._main( args )
	-- Loo muutujad
	local lang = mw.language.getContentLanguage()
	local auto_magnitude_num
	local min_magnitude_num
	local magnitude = args.magnitude
	local min_magnitude = args.min_magnitude
	local purge = args.purge

	-- Add a purge link if something (usually "yes") is entered into the purge parameter
	if purge then
		purge = ' <span class="plainlinks">([' .. mw.title.getCurrentTitle():fullUrl('action=purge') .. ' purge])</span>'
	else
		purge = ''
	end

	-- Kontrolli, et aeg oleks õiges vormingus, muidu viska veateade.
	local success, inputTime = pcall( lang.formatDate, lang, 'xnU', args[1] )
	if not success then
		return '<strong class="error">Viga: esimene parameeter pole kuupäev ega aeg.</strong>'
	end

	-- Salvesta sisestatud aja ja tänase vahe absoluudina.
	local timeDiff = lang:formatDate( 'xnU' ) - inputTime
	local absTimeDiff = math.abs( timeDiff )

	if magnitude then
		auto_magnitude_num = 0
		min_magnitude_num = timeText[magnitude]
	else
		-- Arvutab sobiva ajavormi, kui pole ette antud.
		local autoMagnitudeData = {
			{ factor = 2, amn = 31557600 },
			{ factor = 2, amn = 2629800 },
			{ factor = 2, amn = 86400 },
			{ factor = 2, amn = 3600 },
			{ factor = 2, amn = 60 }
		}
		for _, t in ipairs( autoMagnitudeData ) do
			if absTimeDiff / t.amn >= t.factor then
				auto_magnitude_num = t.amn
				break
			end
		end
		auto_magnitude_num = auto_magnitude_num or 1
		if min_magnitude then
			min_magnitude_num = timeText[min_magnitude]
		else
			min_magnitude_num = -1
		end
	end

	if not min_magnitude_num then
		-- Sekundid on vaikimis, kui magnituud on vigane.
		min_magnitude_num = 1
	end

	local result_num
	local magnitude_num = math.max( min_magnitude_num, auto_magnitude_num )
	local unit = timeUnits[magnitude_num].unit
	if unit and absTimeDiff >= 864000 then
		local Date = require('Moodul:Date')._Date
		local input = lang:formatDate('Y-m-d H:i:s', args[1])
		input = Date(input)
		if input then
			local id
			if input.hour == 0 and input.minute == 0 then
				id = 'currentdate'
			else
				id = 'currentdatetime'
			end
			result_num = (Date(id) - input):age(unit)
		end
	end
	result_num = result_num or math.floor ( absTimeDiff / magnitude_num )

	local punctuation_key, suffix
	if timeDiff >= 0 then -- Minevik
		if result_num == 1 then
			punctuation_key = 1
		else
			punctuation_key = 2
		end
		if args.ago == '' then
			suffix = ''
		else
			suffix = ' ' .. (args.ago or 'tagasi')
		end
	else -- tulevik
		if args.ago == '' then
			suffix = ''
			if result_num == 1 then
				punctuation_key = 1
			else
				punctuation_key = 2
			end
		else
			suffix = ' pärast'
			if result_num == 1 then
				punctuation_key = 1
			else
				punctuation_key = 3
			end
		end
	end
	local result_unit = timeUnits[ magnitude_num ][ punctuation_key ]

	-- Konverdi järgarvud sõnadeks, kui vaja..
	local spell_out = args.spellout
	local spell_out_max = tonumber(args.spelloutmax)
	local result_num_text
	if spell_out and (
		( spell_out == 'auto' and 1 <= result_num and result_num <= 9 and result_num <= ( spell_out_max or 9 ) ) or
		( yesno( spell_out ) and 1 <= result_num and result_num <= 100 and result_num <= ( spell_out_max or 100 ) )
		)
	then
		result_num_text = numberSpell( result_num )
	else
		result_num_text = tostring( result_num )
	end
	
	-- arvuna või sõnena
	local numeric_out = args.numeric
	local result = ""
	if numeric_out then
		result = tostring( result_num )
	else
		result = result_num_text .. ' ' .. result_unit .. suffix -- Eesliite tühikud on lisatud eelnevalt.
	end

	return result .. purge
end

function p.main( frame )
	local args = require( 'Moodul:Arguments' ).getArgs( frame, {
		valueFunc = function( k, v )
			if v then
				v = v:match( '^%s*(.-)%s*$' ) -- Eemalda tühikud eest ja järel.
				if k == 'tagasi' or v ~= '' then
					return v
				end
			end
			return nil
		end,
		wrappers = 'Mall:Aega tagasi'
	})
	return p._main( args )
end

return p