require ('Module:No globals')
local data = mw.loadData ('Module:Sandbox/trappist the monk/month translator/data');
--[[--------------------------< M O N T H _ X L A T E >--------------------------------------------------------
{{#invoke:Sandbox/trappist the monk/month translator|month_xlate|<date>}}
]]
local function month_xlate (frame)
local t = {};
local day, month, year;
if 'dump' == frame.args[1] then -- frame.args[1] = 'dump' to dump month_names table;
return mw.dumpObject (data.month_names);
end
for i, pattern in ipairs (data.patterns) do -- spin through the patterns table looking for a match
local c1, c2, c3; -- captures in the 'pattern' from the pattern table go here
c1, c2, c3 = mw.ustring.match (mw.text.trim(frame.args[1]), pattern[1]); -- one or more captures set if source matches patterns[i][1])
if c1 then -- c1 always set on match
t = {
[pattern[2] or 'x'] = c1, -- fill the table of captures with the rest of the captures
[pattern[3] or 'x'] = c2, -- take index names from pattern table and assign sequential captures
[pattern[4] or 'x'] = c3, -- index name may be nil in pattern table so "or 'x'" spoofs a name for this index in this table
};
day = t.d or ''; -- translate table contents to named variables;
month = mw.ustring.lower (t.m or ''); -- absent table entries are nil so set unused parts to empty string; lowercase for indexing
year= t.y or '';
if data.month_names[month] then -- look in translation table for non-English month name; TODO: add support for an override table for when MediaWiki is wrong
if 'dmy' == pattern[5] then -- for dmy dates
return table.concat ({day, data.month_names[month], year}, ' '); -- assemble an English language dmy date
elseif 'my' == pattern[5] then -- for month year dates
return table.concat ({data.month_names[month], year}, ' '); -- assemble an English language dmy date
end
end
break; -- and done; if here found pattern match but did not find non-English month name in month_names{}
end
end
return frame.args[1]; -- if here, couldn't translate so return the original date
end
--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]
return {month_xlate = month_xlate};
