local p =
function p.sortname(frame) local currentpage = mw.title.getCurrentTitle local pagetitle = frame.args[1] or currentpage.text local langvar = mw.language.getContentLanguage local text1 = local text2 = local parts = local partmatch = false if string.find(pagetitle, ' ') ~= nil then pagetitle = string.gsub(string.gsub(string.gsub(pagetitle, '%b', ), ' +', ' '), ' $', ) if string.find(pagetitle, '^List of ') ~= nil then pagetitle = langvar:ucfirst(string.gsub(pagetitle, '^List of ', , 1)) elseif string.find(pagetitle, '^The ') ~= nil then pagetitle = string.gsub(pagetitle, '^The ', ) .. ', The' else pagetitle = string.gsub(pagetitle, ',.*$', ) pagetitle = string.gsub(pagetitle, ' of .*$', ) for i in ipairs(parts) do if string.find(pagetitle, ' ' .. parts[i] .. ' ') ~= nil then text1 = string.sub(pagetitle, string.find(pagetitle, ' ' .. parts[i] .. ' ') + 1, #pagetitle) text2 = string.sub(pagetitle, 0, string.find(pagetitle, ' ' .. parts[i] .. ' ') - 1) pagetitle = text1 .. ', ' .. text2 partmatch = true break end end if not partmatch and string.find(pagetitle, ' ') ~= nil then text1 = string.sub(pagetitle, string.find(pagetitle, ' [^ ]*$') + 1, #pagetitle) text2 = string.sub(pagetitle, 0, string.find(pagetitle, ' [^ ]*$') - 1) local romannumeral = roman_to_numeral(text1) if romannumeral
nil then pagetitle = text2 .. ' ' .. romannumeral else text1 = string.sub(text2, string.find(text2, ' [^ ]*$') + 1, #text2) text2 = string.sub(text2, 0, string.find(text2, ' [^ ]*$') - 1) pagetitle = text1 .. ' ' .. romannumeral .. ', ' .. text2 end end end end end return pagetitleend
-- the following table and roman_to_numeral function came from Module:ConvertNumeric, created by User:Dcoetzeeroman_numerals = -- Converts a given valid roman numeral (and some invalid roman numerals) to a number. Returns -1, errorstring on errorfunction roman_to_numeral(roman) if type(roman) ~= "string" then return -1, "roman numeral not a string" end local rev = roman:reverse local raising = true local last = 0 local result = 0 for i = 1, #rev do local c = rev:sub(i, i) local next = roman_numerals[c] if next