local cfg= mw.loadData('Module:Hijri/Configuration')
local core = require 'Module:Hijri/core'
--[[ ----------------- I M P O R T --------------]]
gregorian2jd = core.gregorian2jd
jd2hijri = core.jd2hijri
hijri2jd = core.hijri2jd
hijri_days_in_month = core.hijri_days_in_month
hijri_isleap = core.hijri_isleap
hijri_yday = core.hijri_yday
jd2unix = core.jd2unix
unix2jd = core.unix2jd
jd2wday = core.jd2wday
jd2gregorian = core.jd2gregorian
gre_isleap = core.gre_isleap
gre_yday = core.gre_yday
gre_days_in_month = core.gre_days_in_month
jd2julian = core.jd2julian
julian2jd = core.julian2jd
julian_isleap = core.julian_isleap
julian_yday = core.julian_yday
julian_days_in_month = core.julian_days_in_month
gregorian2hijri = core.gregorian2hijri
hijri2gregorian = core.hijri2gregorian
Date = core.Date
hijri_check = core.hijri_check
string = mw.ustring
local str_hijri_mode = select(cfg.hijri_mode + 1, 'hijri_tabular', 'hijri_adjusted_umalqura', 'hijri_umalqura')
--[[---------------------- utilty function ----------------- ]]
local gtonumber = tonumber
local function tonumber(str)
if not str then
return nil
end
local thenumber = gtonumber(str) or mw.language.getContentLanguage():parseFormattedNumber(str)
if not thenumber then
return nil
end
return math.floor(thenumber)
end
local function substitute( msg, args )
return args and mw.message.newRawMessage( msg, args ):plain() or msg;
end
local function error( msg, args )
return substitute( cfg.presentation.error, substitute( msg, args ) );
end
local function towdigit(number)
return ((number<10) and '0' or '') .. number
end
local function hijri_month_name(index)
if cfg.hijri_months then
return cfg.hijri_months[index]
else
return mw.message.new('hijri-calendar-m' .. index):plain()
end
end
local function wday_name(index)
if cfg.wday_name then
return cfg.wday_name[index]
else
return mw.message.new(select(index +1 ,'Sunday','Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday')):plain()
end
end
local function julian_month_name(index)
if cfg.gregorian_months then
return cfg.gregorian_months[index]
else
return mw.message.new(select(index, 'january', 'february', 'march', 'april', 'may_long', 'june', 'july', 'august', 'september', 'october', 'november', 'december')):plain()
end
end
local format_func = {
towdigit = towdigit,
hijri_month_name = hijri_month_name,
wday_name = wday_name,
julian_month_name = julian_month_name
}
local function substitute( msg, args )
return args and mw.message.newRawMessage( msg, args ):plain() or msg;
end
local function error( msg, args )
return substitute( cfg.presentation.error, substitute( msg, args ) );
end
local function argument_wrapper(arg)
local nilargs = {}
return setmetatable({},
{
__index = function ( tbl, k )
local v = rawget(tbl,k)
if v then
return v
elseif nilargs[k] then
return nil
end
local list = cfg.aliases[k];
for _,arglist in ipairs(arg) do
if type( list ) == 'table' then
for _, alias_key in ipairs( list ) do
if arglist[alias_key] then
v = arglist[alias_key]
break;
end
end
elseif list ~= nil then
v = arglist[list]
end
if v then
break;
end
end
if v == nil then
nilargs[k] = true
else
rawset( tbl, k, v )
end
return v
end,
});
end
local function get_value_from_aliaes(aliases_tbl, arg_value)
if arg_value and aliases_tbl then
for k, v_list in pairs(aliases_tbl) do
if type(v_list) ~= "table" then
if arg_value == v_list then
return k
end
else
for _, v_value in ipairs(v_list) do
if arg_value == v_value then
return k
end
end
end
end
end
end
--[[ -------------------- frame functions ---------------------------------------]]
local function test(frame)
return mw.language.getContentLanguage():formatDate("Y n j", '@-86400' ,true)
end
function get_gregorian_from_hijri(frame)
return mw.text.listToText({ hijri2gregorian(tonumber(frame.args[1]),tonumber(frame.args[2]),tonumber(frame.args[3])) },"-","-")
end
function get_hijri_from_gregorian(frame)
d= Date(str_hijri_mode)
d:from_gregorian(tonumber(frame.args[1]),tonumber(frame.args[2]),tonumber(frame.args[3]))
return d
end
local function lua_format_date(A)
local theformat = A.format or 'xmj xmF xmY'
local cDate
if A.year and A.day and A.month then
local year, month, day = tonumber(A.year), tonumber(A.month), tonumber(A.day)
local source_cal = get_value_from_aliaes(cfg.cal_aliases, A.source_cal)
if not source_cal then
if day>30 or year > 1500 then
source_cal = 'gregorian'
else
source_cal='hijri'
end
end
local wday = get_value_from_aliaes(cfg.wday_aliases, A.wday)
if source_cal == 'hijri' then
cDate = Date(str_hijri_mode)
if wday then
cDate:from_hijri(year,month,day,wday,cfg.hijri_mode)
else
cDate:set_date(year,month,day,true)
end
else
cDate = Date(source_cal)
if string.sub(source_cal,1,5) == 'hijri' and wday then
cDate:from_hijri(year,month,day,wday)
else
cDate:set_date(year,month,day)
end
end
elseif A.date then
local tmpdate = mw.language.getContentLanguage():formatDate('Y/n/j', A.date)
if tmpdate then
local gre = mw.text.split(tmpdate,'/')
cDate = Date('gregorian',tonumber(gre[1]), tonumber(gre[2]), tonumber(gre[3]))
else
cDate = Date('gregorian')
end
else
cDate = Date('gregorian')
end
if string.find(theformat, 'x[muwg][jFntYyzdm]') or string.find(theformat, '~[هميغ][يشرسلةع]0?') then
local lc_hijri_mode = get_value_from_aliaes(cfg.cal_aliases, A.hijri_cal_type) or str_hijri_mode
-- date replaces
local symbols = cfg.symbol_replace.symbols
local dr = cfg.symbol_replace.calendars
local pat, cal_type
for drk,drv in pairs(dr) do
cal_type = (drk == 'hijri') and lc_hijri_mode or drv.type
for sym_pre_i, sym_pre in ipairs(drv.sym_pre) do
if drv.symbols_pattern then
pat = drv.symbols_pattern[sym_pre_i]
else
pat = sym_pre .. cfg.symbol_replace.default_symbol_pattern[sym_pre_i]
end
if string.find(theformat,pat) then
cDate:set_type(cal_type)
local tempformat,sy = theformat,''
local ss,se = string.find(tempformat,pat)
theformat = ''
while ss do
sy = string.sub(tempformat,ss,se)
if ss > 1 then
theformat = theformat .. string.sub(tempformat,1,ss-1)
end
if se < #tempformat then
tempformat = string.sub(tempformat,se+1)
else
tempformat = ''
end
for sym, symv in pairs(symbols[sym_pre_i]) do
if sy == sym_pre .. sym then
if symv.func then
if format_func[symv.func] then
theformat = theformat .. format_func[symv.func](cDate[symv.rep])
elseif format_func[drv.func[symv.func]] then
theformat = theformat .. format_func[drv.func[symv.func]](cDate[symv.rep])
else
error('Can`t find fromating function')
end
else
theformat = theformat .. cDate[symv.rep]
end
end
end
ss,se = string.find(tempformat,pat)
end
theformat = theformat .. tempformat
end
end
end
end
if string.find(theformat,"[a-zA-Z]") and (not A.pass_mw_time or A.pass_mw_time == '1' or A.pass_mw_time == 'نعم') then
cDate:set_type('gregorian')
return mw.language.getContentLanguage():formatDate(theformat, cDate.timestamp and ("@" .. cDate.timestamp) or cDate ,true)
else
return theformat
end
end
local function format_date(frame)
local A = argument_wrapper({frame:getParent().args, frame.args})
return lua_format_date(A)
end
return { test = test,
get_gregorian_from_hijri = get_gregorian_from_hijri,
get_hijri_from_gregorian =get_hijri_from_gregorian,
format_date = format_date,
lua_format_date=lua_format_date,
julian_month_name = julian_month_name,
hijri_month_name = hijri_month_name
}
