پرش به محتوا

ماژول:Wikidata2/time

ویکی‌پدیا، آزادِ دانشنومه، جه

توضیحات این پودمان می‌تواند در ماژول:Wikidata2/time/توضیحات قرار گیرد.

local p = {}
------------------------------------------------------------------------------
-- module local variables and functions

local wiki = 
{
	langcode = mw.language.getContentLanguage().code
}

-- internationalisation
local i18n =
{    ["errors"] = {
        ["property-param-not-provided"] = "Property parameter not provided.",
        ["entity-not-found"] = "Entity not found.",
        ["unknown-claim-type"] = "Unknown claim type.",
        ["unknown-snak-type"] = "Unknown snak type.",
        ["unknown-datatype"] = "Unknown datatype.",
        ["unknown-entity-type"] = "Unknown entity type.",
        ["unknown-value-module"] = "You must set both value-module and value-function parameters.",
        ["value-module-not-found"] = "The module pointed by value-module not found.",
        ["value-function-not-found"] = "The function pointed by value-function not found."
    },
    ["datetime"] =
	{
		-- $1 is a placeholder for the actual number
		[0] = "$1 میلیارد سال",	--a الدقة:میلیارد سال
		[1] = "$100 میلیون سال",	--a الدقة: میلیون سال
		[2] = "$10 میلیون سال",	--a الدقة: عشرة ملايين سنة
		[3] = "$1 میلیون سال",	--a الدقة: مليون سنة
		[4] = "$100,000 سال",	--a الدقة: مئات آلاف السنين
		[5] = "$10,000 سال",	--a الدقة: عشرة آلاف سنة
		[6] = "$1 هزاره",	 	--a الدقة: ألفية
		[7] = "قرن $1",		--a الدقة: قرن
		[8] = "دهه $1",		--a الدقة: عقد
		-- the following use the format of #time parser function
		[9]  = "Y",		-- الدقة: سنة, 
		[10] = "F Y",		-- الدقة: شهر
		[11] = "j F Y",		-- الدقة: يوم
		[12] = "j F Y ga",		-- الدقة: ساعة
		[13] = "j F Y g:ia",		-- الدقة: دقائق
		[14] = "j F Y g:i:sa",	-- الدقة: ثواني
		["beforenow"] = "$1 پ‌م",	-- how to format negative numbers for precisions 0 to 5
		["afternow"] = "$1",		-- how to format positive numbers for precisions 0 to 5
		["bc"] = '$1 "پ‌م"',		-- كيف طباعة السنوات السلبية
		["ad"] = "$1",				-- كيف طباعة سنوات الإيجابية
		-- the following are for function getDateValue()
		["default-format"] = "dmy", -- القيمة الافتراضية ل #3 (getDateValue)
		["default-addon"] = "پ‌م",   -- default value of the #4 (getDateValue)
		["prefix-addon"] = false,   -- set to true for languages put "BC" in front of the
									-- datetime string; or the addon will be suffixed
		["addon-sep"] = " ",		-- separator between datetime string and addon (or inverse)
		["format"] =				-- options of the 3rd argument
		{
			["j F Y"] = "j F Y",
			["dmy"] = "j F Y",
			["dmY"] = "dmY",
			["j F"] = "j F",
			["longdate"] = "j F Y",
			["my"] = "F Y",
			["y"] = "Y",
			["Y"] = "Y",
			["F"] = "F",
			["n"] = "n",
			["m"] = "F",
			["j"] = "j",
			["d"] = "j",
			["ymd"] = "Y-m-d",
			["ym"] = "Y-m"
		}
	},
	["ordinal"] = 
	{
		[1] = "", --st
		[2] = "", --nd
		[3] = "", --rd
		["default"] = "" --th
	}
}
local categorywikidatadata = '[[رج:صفحه‌ئونی که ویکی دیتا ره کار زننه]]';

-- this function needs to be internationalised along with the above:
-- we need three exceptions in English for 1st, 2nd, 3rd
-- takes cardinal numer as a numeric and returns the ordinal as a string
local function makeOrdinal(cardinal)
	local ordsuffix = i18n.ordinal.default
	if cardinal % 10 == 1 then
		ordsuffix = i18n.ordinal[1]
	elseif cardinal % 10 == 2 then
		ordsuffix = i18n.ordinal[2]
	elseif cardinal % 10 == 3 then
		ordsuffix = i18n.ordinal[3]
	end
	return tostring(cardinal) .. ordsuffix
end

local function formatError(code)
	return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
end

local function parseDateValue(timestamp, date_format, date_addon)
	local prefix_addon = i18n["datetime"]["prefix-addon"]
	local addon_sep = i18n["datetime"]["addon-sep"]
	local addon = ""

	-- check for negative date
	if string.sub(timestamp, 1, 1) == '-' then
		timestamp = '+' .. string.sub(timestamp, 2)
		addon = date_addon
	end
	local function d(f)
		local year_suffix
		local tstr = ""
		local lang_obj = mw.language.new(wiki.langcode)
		local f_parts = mw.text.split(f, 'Y', true)
		for idx, f_part in pairs(f_parts) do
			year_suffix = ''
			if string.match(f_part, "x[mijkot]$") then
				-- for non-Gregorian year
				f_part = f_part .. 'Y'
			elseif idx < #f_parts then
				-- supress leading zeros in year
				year_suffix = lang_obj:formatDate('Y', timestamp)
				year_suffix = string.gsub(year_suffix, '^0+', '', 1)
			end
			tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
		end
		if addon ~= "" and prefix_addon then
			return addon .. addon_sep .. tstr
		elseif addon ~= "" then
			return tstr .. addon_sep .. addon
		else
			return tstr
		end
	end
	local _date_format = i18n["datetime"]["format"][date_format]
	if _date_format ~= nil then
		return d(_date_format)
	else
		return formatError("unknown-datetime-format")
	end
end

-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
-- with the millennium/century/decade handling of formatDate()
local function parseDateFull(timestamp, precision, date_format, date_addon)
	local prefix_addon = i18n["datetime"]["prefix-addon"]
	local addon_sep = i18n["datetime"]["addon-sep"]
	local addon = ""

	-- check for negative date
	if string.sub(timestamp, 1, 1) == '-' then
		timestamp = '+' .. string.sub(timestamp, 2)
		addon = date_addon
	end
	-- get the next four characters after the + (should be the year now in all cases)
	-- ok, so this is dirty, but let's get it working first
	local intyear = tonumber(string.sub(timestamp, 2, 5))
	if intyear == 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(intyear) / factor)
		if precision == 2 then y2 = intyear  / 10 end
		if precision == 3 then y2 = intyear  / 100 end
		local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
		--mw.log("وحدة:Wikidata2/time:" .. i18n.datetime[precision] .. " timestamp: " .. timestamp  .. " intyear: " .. intyear )
		if addon ~= "" then
			-- negative date
			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 (8), centuries (7) and millennia (6)
	local era, card
	if precision == 6 then
		card = math.floor((intyear - 1) / 1000) + 1
		era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))
	end
	if precision == 7 then
		card = math.floor((intyear - 1) / 100) + 1
		era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card))
	end
	if precision == 8 then
		era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10))
	end
	if era then
		if addon ~= "" then
			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
		else
			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)
		end
		return era
	end
	
	local _date_format = i18n["datetime"]["format"][date_format]
	if _date_format ~= nil then
		 -- check for precision is year and override supplied date_format
 		if precision == 9 then
 			_date_format = i18n["datetime"][9]
 		end
 		if precision == 10 then
 			_date_format = i18n["datetime"][10]
 		end
		local year_suffix
		local tstr = ""
		local lang_obj = mw.language.new(wiki.langcode)
		local f_parts = mw.text.split(_date_format, 'Y', true)
		for idx, f_part in pairs(f_parts) do
			year_suffix = ''
			if string.match(f_part, "x[mijkot]$") then
				-- for non-Gregorian year
				f_part = f_part .. 'Y'
			elseif idx < #f_parts then
				-- supress leading zeros in year
				year_suffix = lang_obj:formatDate('Y', timestamp)
				year_suffix = string.gsub(year_suffix, '^0+', '', 1)
			end
			tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
		end
		local fdate
		if addon ~= "" and prefix_addon then
			fdate = addon .. addon_sep .. tstr
		elseif addon ~= "" then
			fdate = tstr .. addon_sep .. addon
		else
			fdate = tstr
		end
		
		--mw.log("وحدة:Wikidata2/time:" .. timestamp .. " precision: " .. precision .. " fdate: " .. fdate )
		return fdate
	else
		return formatError("unknown-datetime-format")
	end
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

function p.getdate(time1, options)
		if options.modifytime and options.modifytime ~= ""
		then 
			formatd = options.modifytime
		else 
			formatd = i18n["datetime"]["default-format"]
		end
		local date_format = mw.text.trim(formatd)
		local timestamp = time1.time
		local dateprecision = time1.precision
		if dateprecision >5 then
		timestamp = mw.ustring.gsub(timestamp ,'%-00%-','-01-')
	end
       if dateprecision == 9 or dateprecision == 10 then
    	timestamp = mw.ustring.gsub(timestamp ,'%-00T','-01T') end

		local date_addon = mw.text.trim(options.date_addon or i18n["datetime"]["default-addon"])
		local tid = parseDateFull(timestamp, dateprecision, date_format, date_addon)
	return tid

end


function p.getdate1(time1, modifytime )
		if modifytime  and modifytime  ~= '' 
		then 
			formatd = modifytime 
		else 
			formatd = i18n["datetime"]["default-format"]
		end
		local date_format = mw.text.trim(formatd)
		local timestamp = time1.time
		local dateprecision = time1.precision
		timestamp = string.gsub(timestamp ,'-00-','-01-')
		
       if dateprecision == 9 or dateprecision == 10 then
    	timestamp = string.gsub(timestamp ,'-00T','-01T') 
		end
		local date_addon = mw.text.trim(i18n["datetime"]["default-addon"])
		local tid = parseDateFull(timestamp, dateprecision, date_format, date_addon)
	return tid

end

-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
function p.pageId(frame)
	local entity = mw.wikibase.getEntityObject()
	if not entity then return nil else return entity.id end
end



return p