Module:Sandbox/BrownHairedGirl/xyz

local p = {}

function make_cat_link(catname, disp) local displaytext if (disp ~= "") then displaytext = disp else displaytext = catname end local link = "" .. displaytext .. "" local fmtlink local linktitle = mw.title.new( catname, "Category" ) if (linktitle.exists) then fmtlink = link else fmtlink = "" .. displaytext .. " "	end

return fmtlink end

function make_cat_link4(catname, disp) local link = "" return link end

function make_decade_cat_link(prefix, start, rest, decadenum) local decadestart = (prefix * 100) + (decadenum * 10) local decadename = decadestart .. "s" return make_cat_link(start .. decadename .. rest, decadename) end

function ordinal_numbers(n) local ordinal, digit = {"st", "nd", "rd"}, string.sub(n, -1) if tonumber(digit) > 0 and tonumber(digit) <= 3 and mw.ustring.sub(n,-2) ~= 11 and mw.ustring.sub(n,-2) ~= 12 and mw.ustring.sub(n,-2) ~= 13 then return n .. ordinal[tonumber(digit)] else return n .. "th" end end

function make_century_name(n) local centuryordinal = ordinal_numbers(n) return centuryordinal .. " century" end

function p.main(frame) local pagename local nilly if (frame.args[1] ~= "") then -- a parameter was supplied, so use it as page title nilly = "no nil.  value='" .. frame.args[1] .. "'"		if (string.match(frame.args[1], "^Category *: *")) then pagename = mw.ustring.gsub(frame.args[1], "^Category *: *", ""); else pagename = frame.args[1] end else -- use the page title nilly = "nil" pagename = mw.title.getCurrentTitle.text end if (false) then return nilly end local dddo = mw.ustring.match(pagename, "%d%d*0s") if (dddo == nil) then return "Error: no 'YYOs' in '" .. pagename .. "'"	end local dd = mw.ustring.match(dddo, "^%d*") local yy = (dd - (dd % 100))/ 100 local startoftitle = mw.ustring.gsub(pagename, dddo .. ".*$", "") local restoftitle = mw.ustring.gsub(pagename, "^.*" .. dddo, "") local diagnotics = "; pagename\n* " .. pagename .. "\n;dddo\n*" .. dddo .. "\n;dd\n*" .. dd diagnotics = diagnotics .. "\n;yy\n*" .. yy .. "\n;startoftitle\n* " diagnotics = diagnotics .. "\n;restoftitle\n* " local retval retval = "{| class=\"toccolours\" style=\"border:1px solid black; padding:5px\"\n|-\n|style=\"text-align:center\"| '''" .. startoftitle if (startoftitle == "") then retval = retval .. "Decades " else retval = retval .. " decades " end retval = retval .. " of the " .. make_century_name(yy+1) .. restoftitle .. "'''\n|-\n| " retval = retval .. " ''" .. make_decade_cat_link(yy, startoftitle, restoftitle, -1) .. " &bull; " .. "'' "	local i;	for i = 0, 9 do retval = retval .. make_decade_cat_link(yy, startoftitle, restoftitle, i)		if i < 9 then retval = retval .. " &bull; " end end retval = retval .. " ''" .. " &bull; " .. make_decade_cat_link(yy, startoftitle, restoftitle, 10) .. "'' "	retval = retval .. "\n|}" return retval end

return p