local str = {}
local function _getParameters(frame_args, arg_list)
local new_args = {};
local index = 1;
local value;
for _, arg in ipairs(arg_list) do
value = frame_args[arg]
if value == nil then
value = frame_args[index];
index = index + 1;
end
new_args[arg] = value;
end
return new_args;
end
function str.replace_last(source_str, pattern, replace, count, plain)
if source_str == '' or pattern == '' or count <= 0 then
return source_str;
end
if plain then
pattern = require("Module:string utilities").pattern_escape(pattern);
replace = require("Module:string utilities").replacement_escape(replace);
end
local result;
local last_n_matches = {}
local cycle = 1
local matches_found = 0
local i = nil
while true do
local mstart, mend = mw.ustring.find(source_str, pattern, i)
if mstart == nil then break end
last_n_matches[cycle] = { mstart, mend }
cycle = cycle + 1
if cycle > count then cycle = 1 end
if matches_found < count then matches_found = matches_found + 1 end
i = mend + 1
end
-- intentional; reverse sort
table.sort(last_n_matches, function(a, b) return a[1] > b[1] end)
local result = source_str
for _, pair in ipairs(last_n_matches) do
local mstart, mend = unpack(pair)
result = mw.ustring.sub(result, 1, mstart - 1) .. mw.ustring.gsub(mw.ustring.sub(result, mstart, mend), pattern, replace) .. mw.ustring.sub(result, mend + 1)
end
return result;
end
function str.invoke(frame)
local new_args = _getParameters(frame.args, { 'source', 'pattern', 'replace', 'count', 'plain' });
local source_str = new_args['source'] or '';
local pattern = new_args['pattern'] or '';
local replace = new_args['replace'] or '';
local count = tonumber(new_args['count']);
local plain = new_args['plain'] or true;
--plain = str._getBoolean(plain);
plain = plain == "true"
return str.replace_last(source_str, pattern, replace, count, plain)
end
return str
