انتقل إلى المحتوى

وحدة:Hijri/core

من ويكي مصدر، المكتبة الحرة
--[[--------------- luaHijri---------------------
by hubaishan
v0.5
locate at https://github.com/hubaishan/luaHijri

]]
--[[ ------------ C O N F I G U R A T I O N S ----------------------]]
--[[ As
local adjust_data = { [1443] = 
	[5] = {2021,12,6},
	[7] = 1 }
	this means ad just start of month 5 of 1443 to 2021-12-06, and add one day to month 7 of 1443  

]]
--local adjust_data = {} --adjust data in separate module
-- Gregorian Calender epoch used only for wertern calendar default value are in Italy some countries may differ
local gregorian_epoch = { jd = 2299161, y = 1582 , m = 10, d = 15}
-- sunday index can be 0 or 1
local wday_sunday = 0
-- day of year (1-1) index
local yday_1_1 = 0
-- @var int 1 to use adjusted Um Al-Qura algorithm, 2 to use Um Al-Qura algorithm, 0 use Hijri Tabular Algorithm
local hijri_mode = mw.loadData('Module:Hijri/Configuration').hijri_mode
--[[ ------------ C O N S T A N T S ----------------]]
--  the Um Al-Qura Calendar start year
local umstartyear = 1318
--  the Um Al-Qura Calendar end year
local umendyear = 1500
--  the Um Al-Qura Calendar start Julian day
local umstartjd = 2415140
-- the Um Al-Qura Calendar end  Julian day
local umendjd = 2479960
local UMDATA_COUNT = 2196
--[[ ------------ V A R S ----------------]]
local adjusted_umdata
local raw_umdata
--[[------------------- U T I L T Y   U S E F U L   F U N C T I O N S------------------------]]
local floor = math.floor

local function round(number)
	return floor(number + 0.5)
end

local function in_array( needle, haystack )
	if needle == nil then
		return false;
	end
	for n,v in ipairs( haystack ) do
		if v == needle then
			return n;
		end
	end
	return false;
end

--[[------------------- C A L E N D A R   F U N C T I O N S------------------------]]

--[[--- Data ---]]
local function gregorian2jd(year, month, day)
	-- from postgresql source
	local jd, century
	mw.logObject(year,'year')
	if year < 1 then
		year = year + 1
	end
	
	if month > 2 then
		month = month + 1
		year = year + 4800
	else
		month = month + 13
		year = year + 4799
	end

	century = floor(year / 100)

	return (year * 365 - 32167 + floor(year / 4) - century + floor(century / 4) + floor(7834 * month / 256) + day)
end

-- load Umm al-Qura Calendar Data
-- Modified for MediaWiki
local function get_umdata(mode)
	mode = mode or hijri_mode

	if mode==2 then
		if raw_umdata==nil or #raw_umdata==0 then		
			raw_umdata = mw.loadData('Module:Hijri/umalqura data')	
		end
		return raw_umdata
	elseif mode==1 then
		if adjusted_umdata == nil or #adjusted_umdata==0 then
			adjusted_umdata = mw.loadData('Module:Hijri/adjusted data')
		end
		return adjusted_umdata 
	end
end

--[[--- Hijri ---]]

local function jd2hijri(julianday, mode)
    local mjd, ii, n, y, i
	local j, j1
	local hy, hm, hd, hz
	mode = mode or hijri_mode
	if (mode>0 and (julianday > umstartjd) and (julianday < umendjd)) then
		local umdata = get_umdata(mode)
		i = floor((julianday - 1948438) / 29.53056) - ((umstartyear - 1) * 12)
        mjd = julianday - 2400000
        if i<0 then i = 0 end
        for c = i, UMDATA_COUNT do
            if (umdata[c] > mjd) then
				i = c
                break
            end
		end
		ii = floor((i - 1) / 12) 
		hy = umstartyear + ii
		hm = i - 12 * ii 
		hd = mjd - umdata[i - 1] + 1
		hz = mjd - umdata[12 * ii]
	else
		j = julianday + 7666
		n = floor(j / 10631)
		j = j - (n * 10631)
		j1 = j
		y = floor(j / 354.36667)
		j = j - round(y * 354.36667)
		if j == 0 then
			y=y-1
			j = j1 - round(y * 354.36667)
			hz = j
			hd = j - 325
			hm = 12
		else
			hz = j - 1
			j = j + 29
			hm = floor((24 * j) / 709)
			hd = j -  floor(((709 * hm) / 24))
		end
		hy = (n * 30) + y + 1
		hy = hy - 5520
		if hy <= 0 then
			hy = hy - 1
		end
    end
	hz = hz + yday_1_1
    return hy, hm, hd, hz
end


local function hijri2jd(hy, hm, hd, mode)
	mode = mode or hijri_mode
	local ii, i, n
	local j
	if (mode > 0 and hy >= umstartyear and hy <= umendyear) then
		local umdata = get_umdata(mode)
		ii = hy - umstartyear
		i = hm + 12 * ii
		j = hd + umdata[i - 1] - 1
		j = j + 2400000
	elseif (hy < -5499 or (hy == -5499 and hm < 8) or (hy == -5499 and hm == 8 and hd < 18)) then
		j = 0
	else
		hy = hy < 0 and (hy + 5520) or (hy + 5519)
		n = floor(hy / 30)
		j = (n * 10631) + round((hy - (n * 30)) * 354.36667)
		hm = hm - 1
		j = j + (hm * 29) + floor((hm + 1) / 2) + hd
		j = j- 7666
	end
	return j
end

local function hijri_days_in_month(year, month, mode)
	mode = mode or hijri_mode
	local t = 29
	if mode>0 and year >= umstartyear and year <= umendyear then
		local i = (year-umstartyear)*12 + month -1
		local umdata = get_umdata(mode)
		t = umdata[i + 1] - umdata[i]
	else
		if month == 12 then
			if year < 0 then
				year = year + 5521
			end

			if round((year % 30) * 0.36667) > round(((year - 1) % 30) * 0.36667) then
				t = 30
			end
		else
			t = 29 + (month % 2);
		end
	end
	return t
end

local function hijri_isleap(year, mode)
	mode = mode or hijri_mode
	local l
	if mode>0 and year >= umstartyear and year <= umendyear then
		local umdata = get_umdata(mode)
		local ii = year - umstartyear
		l = ((umdata[12 * (ii + 1)] - umdata[12 * ii]) > 354) and true or false
	else
		if year < 0 then
			year = year + 5521;
		end
		l = (round((year % 30) * 0.36667) > round(((year - 1) % 30) * 0.36667)) and true or false
	end
	return l
end

local function hijri_yday(year,month,day,mode)
    local ii
	mode = mode or hijri_mode
	if (mode>0 and year >= umstartyear and year <= umendyear) then
		local umdata = get_umdata(mode)
		ii = year - umstartyear
		return umdata[(12 * ii) + month -1] - umdata[12 * ii] + day - 1 + yday_1_1
	else
		return select(month, 0,30,59,89,118,148,177,207,236,266,295,325) + day - 1 + yday_1_1 
	end
end

local function hijri_check(year,month,day,mode,may_adjusted)
	if month < 1 or month > 12 then
		return false
	end

	if day < 1 or day > 30 then
		return false
	end

	if not may_adjusted and day > hijri_days_in_month(year,month,mode) then
		return false
	end

	return true
end
--[[--- Unix and wday---]]

local function jd2unix(jd)
	-- 2440588 -- J.D. of 1.1.1970
	if jd == nil then
		return nil
	end
	return ((jd - 2440588) * 24 * 3600)
end

local function unix2jd(unix)
	if unix == nil then
		return nil
	end
	return floor(unix/(24 * 3600)) + 2440588
end

--returns wday number sunday=wday_sunday
local function jd2wday(jd)
	jd = jd + 1
	jd = jd % 7
	if (jd<0) then
		jd = jd + 7
	end
	return jd + wday_sunday
end

--[[--- Gregorian ---]]

local function jd2gregorian(jd)
	-- inspired by postgresql function
	local julian, quad, extra, y
	local year,month,day
	julian = jd + 32044
	
	quad = floor(julian / 146097)
	
	extra = (julian - quad * 146097) * 4 + 3
	julian = julian + 60 + quad * 3 + floor(extra / 146097)
	quad = floor(julian / 1461)
	julian = julian - quad * 1461
	y = floor(julian * 4 / 1461)
	
	if (y ~= 0) then
		julian = ((julian + 305) % 365) + 123
	else
		julian = ((julian + 306) % 366) + 123
	end
	y = y + quad * 4;
	year = y - 4800;
	
	quad = floor(julian * 2141 / 65536)
	day = julian - floor(7834 * quad / 256)
	month = (quad + 10) % 12 + 1

	if (year<1) then
		year = year-1
	end
	return year,month,day
end

local function gre_isleap(year)
	if year<1 then year=year+1 end
	return (year % 4) == 0 and ((year % 100) ~= 0 or (year % 400) == 0)
end

local function gre_yday(year,month,day)
	if gre_isleap(year) then
		return  select(month,0,31,60,91,121,152,182,213,244,274,305,335) + day - 1 + yday_1_1
	else
		return  select(month,0,31,59,90,120,151,181,212,243,273,304,334) + day - 1 + yday_1_1
	end
end

local function gre_days_in_month(year, month)
	if month == 2 and gre_isleap(year) then
		return 29
	else
		return select(month,31,28,31,30,31,30,31,31,30,31,30,31)
	end
end

local function gre_check(year,month,day)
	if month < 1 or month > 12 then
		return false
	end

	if day < 1 or day > gre_days_in_month(year,month) then
		return false
	end
	return true
end
--[[--- Julian ---]]

local function jd2julian(jd)
	local year, month, day
	local temp, dayofYear

	temp = jd * 4 + (32083 * 4 - 1)

	year = floor(temp / 1461)
	dayofYear = floor((temp % 1461) / 4) + 1

	temp = dayofYear * 5 - 3
	month = floor(temp / 153)
	day = floor((temp % 153) / 5) + 1

	if (month < 10) then
		month = month + 3
	else
		year = year + 1
		month = month - 9
	end

	year = year - 4800
	if (year < 1) then
		year = year -1
	end

	return year, month, day
end

local function julian2jd(year,month,day)
	if year<0 then
		year = year + 4801
	else
		year = year + 4800
	end

	if month > 2 then
		month = month -3
	else
		month = month + 9
		year = year - 1
	end

	return (floor((year * 1461) / 4) + floor((month * 153 + 2) / 5) + day - 32083)
end

local function julian_isleap(year)
	if year < 1 then year = year + 1 end
	return (year % 4) == 0
end

local function julian_yday(year,month,day)
	if julian_isleap(year) then
		return  select(month,0,31,60,91,121,152,182,213,244,274,305,335) + day - 1 + yday_1_1
	else
		return  select(month,0,31,59,90,120,151,181,212,243,273,304,334) + day - 1 + yday_1_1
	end
end

local function julian_days_in_month(year, month)
	if month == 2 and julian_isleap(year) then
		return 29
	else
		return select(month,31,28,31,30,31,30,31,31,30,31,30,31)
	end
end

local function julian_check(year,month,day)
	if month < 1 or month > 12 then
		return false
	end
	if day < 1 or day > julian_days_in_month(year,month) then
		return false
	end
	return true
end

--[[--- Convertion ---]]

-- Return Hijri Date from Gregorian date
local function gregorian2hijri(gyear, gmonth, gday)
	return jd2hijri(gregorian2jd(gyear, gmonth, gday))
end

local function hijri2gregorian(hyear, hmonth, hday)
	return jd2gregorian(hijri2jd(hyear, hmonth, hday))
end

--[[------------------- D A T E   C L A S S ------------------------]]

local datePrototype = {}

-- Set julianDay
function datePrototype:set_jd(arg_jd)
	if self.p.type == 'hijri' then
		self.p.year, self.p.month, self.p.day, self.p.yday = jd2hijri(arg_jd,self.p.mode)
		self.p.jd = arg_jd
	elseif self.p.type == 'gregorian' or (self.p.type == 'western' and arg_jd >= gregorian_epoch.jd ) then
		self.p.year, self.p.month, self.p.day = jd2gregorian(arg_jd)
		self.p.jd, self.p.yday = arg_jd, nil
	elseif self.p.type == 'julian' or (self.p.type == 'western' and arg_jd < gregorian_epoch.jd ) then
		self.p.year, self.p.month, self.p.day = jd2julian(arg_jd)
		self.p.jd, self.p.yday = arg_jd, nil
	end
	self.p.wday, self.p.month_days, self.p.leap_year  = nil, nil, nil
end

function datePrototype:get_jd()
	if self.p.jd ~= nil then
		return self.p.jd
	elseif self.p.year and self.p.month and self.p.day then
		self:set_date(self.p.year,self.p.month,self.p.day)
	else
		local t=os.date("*t")
		if self.p.type=='gregorian' then
			self.p.year, self.p.month, self.p.day, self.p.wday, self.p.yday = t.year, t.month, t.day, t.wday - 1 + wday_sunday, t.yday
			self.p.jd = gregorian2jd(self.p.year, self.p.month, self.p.day)
		else
			self:from_gregorian(t.year,t.month,t.day)
			self.p.wday = t.wday -1 + wday_sunday
		end
	end
	return self.p.jd
end

function datePrototype:set_timestamp(arg_tm)
	if self.p.timestamp == arg_tm then
		return
	end
	self.p.timestamp = arg_tm
	self:set_jd(unix2jd(arg_tm))
end

    -- adjust type of western calendar
local function adj_type(type,year,month,day)
	if type == 'western' then
		if year>gregorian_epoch.y or (year==gregorian_epoch.y and month>gregorian_epoch.m) or (year==gregorian_epoch.y and month == gregorian_epoch.m and day>=gregorian_epoch.d) then
			type='gregorian'
		else
			type = 'julian'
		end
	end
	return type
end

	-- Check the Date
local function check_date(ctype,cmode,year,month,day,may_adjusted)
	local type = adj_type(ctype,year,month,day)
	if month <1 or month >12 or day <1 or day >31 then
		return false
	elseif type == 'hijri' then
		if day > 30 or (not may_adjusted and day> hijri_days_in_month(year,month,cmode)) then
			return false
		end
	elseif day > select(month,31,29,31,30,31,30,31,31,30,31,30,31) then 
		return false
	elseif month == 2 and day == 29 then
		if (((year % 4) ~= 0) or (type == 'gregorian'  and (year % 100) == 0 and (year % 400) ~= 0)) then
			return false
		end
	end
	return true
end

	-- Set Date
	-- may_adjusted argument used in Hijri only to accept any 30 day of any month
function datePrototype:set_date(year,month,day,may_adjusted)
	if not check_date(self.p.type, self.p.mode, year, month, day, may_adjusted) then
		error("Invalid Date")
	end
	local type=adj_type(self.p.type,year,month,day)
	if type == 'hijri' then
		self.p.jd = hijri2jd(year,month,day,self.p.mode)
	elseif type == 'gregorian' then
		self.p.jd = gregorian2jd(year,month,day)
	elseif type == 'julian' then
		self.p.jd = julian2jd(year,month,day)
	end
	self.p.year, self.p.month, self.p.day = year,month,day
	self.p.wday, self.p.month_days, self.p.leap_year, self.p.yday  = nil, nil, nil, nil
end

-- Convert date from hijri
function datePrototype:from_hijri(year,month,day,wday,mode)
	mode = mode or self.p.mode
	local jd = hijri2jd(year,month,day,mode)
	if wday and wday <= 6 and wday >=0 then
		local jd_weekday = jd2wday(jd)
		local differ = wday - jd_weekday

		if differ < - 4 then
			jd = jd + (differ + 7)
		elseif differ > -3 and differ < 3 then
			jd = jd + differ
		elseif differ > 4 then
			jd = jd + (differ - 7)
		else
			error("Weekday is very far from Hijri date")
		end
	end
	if self.p.type == 'hijri' and check_date(self.p.type, self.p.mode, year,month,day,true) then
		self.p.year,self.p.month,self.p.day,self.p.jd=year,month,day,jd
		self.p.wday, self.p.month_days, self.p.leap_year, self.p.yday  = nil, nil, nil, nil
	else
		self:set_jd(jd)
	end
end

-- Convert date from Gregorian
function datePrototype:from_gregorian(year,month,day)
	self:set_jd(gregorian2jd(year,month,day))
end
-- Convert date from Julian
function datePrototype:from_julian(year,month,day)
	self:set_jd(julian2jd(year,month,day))
end

-- Convert date from Western
function datePrototype:from_western(year,month,day)
	if year>gregorian_epoch.y or (year==gregorian_epoch.y and month>gregorian_epoch.m) or (year==gregorian_epoch.y and month == gregorian_epoch.m and day>=gregorian_epoch.d) then
		self:set_jd(gregorian2jd(year,month,day))
	else
		self:set_jd(julian2jd(year,month,day))
	end
end



-- set type of calendar
function datePrototype:set_type(arg_type)
	local new_type,new_mode
	arg_type = string.lower(arg_type)
	if in_array(arg_type, {'hijri', 'hijri_adjusted_umalqura', 'hijri_umalqura', 'hijri_tabular', 'gregorian', 'julian', 'western'}) then
		if string.sub(arg_type,1,5) == 'hijri' then
			new_type = 'hijri'
			if arg_type == 'hijri_umalqura' then
				new_mode = 2
			elseif arg_type == 'hijri_tabular' then
				new_mode = 0
			else
				new_mode = 1
			end
		else
			new_type = arg_type
		end

		if new_type ~= self.p.type or new_mode ~= self.p.mode then
			self.p.type = new_type
			self.p.mode = new_mode
			if self.p.jd then
				self:set_jd(self.p.jd)
			end
		end
	else
		error('bad calendar type')
	end
end

function datePrototype:get_value(key)
	if not self.p[key] then
		local jd = self:get_jd() -- to init calendar if not
		if key=='wday' then
			self.p.wday = jd2wday(jd)
		elseif key == 'timestamp' then
			self.p.timestamp = jd2unix(jd)
		else
			if self.p.type=='hijri' and key=='leap_year' then
				self.p.leap_year = hijri_isleap(self.p.year,self.p.mode)
			elseif self.p.type == 'gregorian' or (self.p.type == 'western' and self.p.year > gregorian_epoch.y ) then
				self.p.leap_year = gre_isleap(self.p.year)
			elseif self.p.type == 'julian' or (self.p.type == 'western' and self.p.year <= gregorian_epoch.y ) then
				self.p.leap_year = julian_isleap(self.p.year)
			end
	
			if key == 'yday' then
				if  self.p.type ~= 'hijri' then
					if self.p.leap_year then
						self.p.yday =  select(self.p.month,0,31,60,91,121,152,182,213,244,274,305,335) + self.p.day - 1 + yday_1_1
					else
						self.p.yday =  select(self.p.month,0,31,59,90,120,151,181,212,243,273,304,334) + self.p.day - 1 + yday_1_1
					end
						
				elseif self.p.type == 'hijri' then
					self.p.yday = hijri_yday(self.p.year,self.p.month,self.p.day,self.p.mode)
				end
			elseif key == 'month_days' then
				if self.p.type=='hijri' then
					self.p.month_days = hijri_days_in_month(self.p.year,self.p.month,self.p.mode)
				else
					if self.p.month == 2 and self.p.leap_year then
						self.p.month_days = 29
					else
						self.p.month_days = select(self.p.month,31,28,31,30,31,30,31,31,30,31,30,31)
					end
				end
			end
		end
	end
	return self.p[key]
end

-- add interval to date
function datePrototype:add(y, m, d)
	y,m,d = tonumber(y) or 0,tonumber(m) or 0,tonumber(d) or 0
	local jd = self:get_jd()
	if y==0 and m == 0 then
		jd = jd + d
	else
		local year,month,day=self.p.year + y, self.p.month + m, self.p.day + d
		if self.p.type == 'hijri' then
			jd = hijri2jd(year,month,day,self.p.mode)
		elseif self.p.type == 'gregorian' then
			jd = gregorian2jd(year,month,day)
		elseif self.p.type == 'julian' then
			jd = julian2jd(year,month,day)
		elseif self.p.type == 'western' then
			if self.p.jd >= gregorian_epoch.jd then
				jd = gregorian2jd(year,month,day)
				if jd< gregorian_epoch.jd then
					jd = julian2jd(year,month,day)
				end
			else
				jd = julian2jd(year,month,day)
				if jd>= gregorian_epoch.jd then
					jd = gregorian2jd(year,month,day)
				end
			end
		end
	end

	if jd ~= self.p.jd then
		self:set_jd(jd)
	end
end


function datePrototype:iso()
	local ret, str, jd = '', '', self:get_jd()
	local year, month, day

	if self.p.type=='gregorian' then
		year, month, day = self.p.year, self.p.month, self.p.day
	else
		year, month, day = jd2gregorian(jd)
	end

	if year < 0 then
		year = year - 1
		ret = '-'
	end
	str = tostring(math.abs(year))
	return ret .. string.rep('0', 4 - #str) .. str .. '-' .. ((month<10) and '0' or '') .. month .. '-' .. ((day<10) and '0' or '') .. day
end

local function DateWrapper(dt)
	local t = {}
	t.p = {}
	local rop = {
		type = false,
		mode = true,
		jd  = false,
		timestamp = false,
		year = true,
		month = true,
		day = true,
		wday = true,
		yday = true,
		month_days = true,
		leap_year  = true
		}

	local mt = {
		__index = function ( tt, k )
			assert( t == tt )
			local v = tt.p[k] or  datePrototype[k]
			if v == nil and rop[k] ~=nil then
				v = tt:get_value(k)
			end
			return v
		end,
		__newindex = function ( t, k, v )
			if rop[k] then
				error("Attempt to modify read-only property")
			elseif k == 'jd' then
				t:set_jd(v)
			elseif k == 'type' then
				t:set_type(v)
			elseif k == 'timestamp' then
				t:set_timestamp(v)
			else
				rawset(t, k, v)
			end
		end
	}
	-- This is just to make setmetatable() fail
	mt.__metatable = mt

	return setmetatable( t, mt )
end

local function Date(arg_type, arg_jd, arg_month, arg_day)
	local d = DateWrapper({})
	-- process argument
	d:set_type(arg_type)

	if arg_jd and arg_month and arg_day  then
		d:set_date(arg_jd, arg_month, arg_day)
	elseif arg_jd then
		d:set_jd(arg_jd)
	end
	return d
end


return {
	gregorian2jd = gregorian2jd,
	jd2hijri = jd2hijri,
	hijri2jd = hijri2jd,
	hijri_days_in_month = hijri_days_in_month,
	hijri_isleap = hijri_isleap,
	hijri_yday = hijri_yday,
	jd2unix = jd2unix,
	unix2jd = unix2jd,
	jd2wday = jd2wday,
	jd2gregorian = jd2gregorian,
	gre_isleap = gre_isleap,
	gre_yday = gre_yday,
	gre_days_in_month = gre_days_in_month,
	jd2julian = jd2julian,
	julian2jd = julian2jd,
	julian_isleap = julian_isleap,
	julian_yday = julian_yday,
	julian_days_in_month = julian_days_in_month,
	gregorian2hijri = gregorian2hijri,
	hijri2gregorian = hijri2gregorian,
	Date = Date,
	hijri_check = hijri_check,
	gre_check = gre_check,
	julian_check = julian_check
}