local DateTime = require("Module:Sandbox/DixonD/Datetime");

local Math = require("Module:Math");

local Error = require('Module:Error')



local z = {}



-- utility functions

local function getArgs(frame)

    local args = frame.args;

    

    -- if there are any arguments, then assume that we've got proper ones

    for k,v in pairs(args) do 

        return args

    end

    

    -- otherwise, return args from the parent

    local parent = frame:getParent();

    return parent.args;

end



local function isError(response)

    return type(response) == 'string' and string.find(response, 'error');

end



--template implementations



-- [[Template:JULIANDAY]]

function z.julianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.julianDay(Math._cleanNumber(args1]),

        Math._cleanNumber(args2]), Math._cleanNumber(args3]),

        Math._cleanNumber(args4]), Math._cleanNumber(args5]),

        Math._cleanNumber(args6]), 'g');

end



-- [[Template:JULIANDAY.YEAR]]

function z.yearOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.yearOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.MONTH]]

function z.monthOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.monthOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.DAY]]

function z.dayOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.dayOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.HOUR]]

function z.hourOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.hourOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.MINUTE]]

function z.minuteOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.minuteOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.SECOND]]

function z.secondOfJulianDay(frame)

    local args = getArgs(frame);

    

    return DateTime.secondOfJulianDay(Math._cleanNumber(args1]), 'g');

end



-- [[Template:JULIANDAY.JULIAN]]

function z.julianDayJulian(frame)

    local args = getArgs(frame);

    

    return DateTime.julianDay(Math._cleanNumber(args1]),

        Math._cleanNumber(args2]), Math._cleanNumber(args3]),

        Math._cleanNumber(args4]), Math._cleanNumber(args5]),

        Math._cleanNumber(args6]), 'j');

end



-- [[Template:Gregorian serial date]]

function z.gregorianSerialDate(frame)

    local args = getArgs(frame);

    

    local currentDate = os.date('!*t');

    

    local year = args.year == nil and currentDate.year or Math._cleanNumber(args.year);

    if year == nil then return Error.error{"Parameter ''year'' has wrong format!"}; end;

    

    local month = args.month == nil and currentDate.month or Math._cleanNumber(args.month);

    if month == nil then return Error.error{"Parameter ''month'' has wrong format!"}; end;

    

    local day = args.day == nil and currentDate.day or Math._cleanNumber(args.day);

    if day == nil then return Error.error{"Parameter ''day'' has wrong format!"}; end;

    

    local julianDay = DateTime.julianDay(year, month, day, nil, nil, nil, 'g');

    

    if isError(julianDay) then return julianDay; end;

    

    return julianDay - 1721425;

end



return z