Module:Citation/CS1/Utilities: Difference between revisions

error_cats_t = {};

error_ids_t = {};

error_msgs_t = {};

maint_cats_t = {};

prop_cats_t = {};

prop_keys_t = {};

--[[--------------------------< I S _ S E T >----------------------------------]]

--[[--------------------------< I N _ A R R A Y >------------------------------]]

-- Hata aldığı yer burasıydı: haystack nil gelirse ipairs çöküyordu.

if needle == nil or haystack == nil then

--[[--------------------------< H A S _ A C C E P T _ A S _ W R I T T E N >----]]

str, count = str:gsub ('^%(%((.*)%)%)$', '%1');  

--[[--------------------------< S U B S T I T U T E >--------------------------]]

--[[--------------------------< E R R O R _ C O M M E N T >--------------------]]

--[[--------------------------< H Y P H E N _ T O _ D A S H >------------------]]

if not is_set (str) then return str; end

str = str:gsub ("(%(%(.-%)%))", function(m) return m:gsub(",", "，"):gsub(";", "；") end)  

str = str:gsub ('&[nm]dash;', {['&ndash;'] = '–', ['&mdash;'] = '—'});

str = str:gsub ('&#45;', '-');

str = str:gsub ('&nbsp;', ' ');

local list = mw.text.split (str, '%s*[,;]%s*');

local accept;

if not accept and mw.ustring.match (item, '^%w*[%.%-]?%w+%s*[—–-]%s*%w*[%.%-]?%w+$') then

if mw.ustring.match (item, '^%a+[%.%-]%d+%s*[—–-]%s*%a+[%.%-]%d+$') or

mw.ustring.match (item, '^%d+[%.%-]%a+%s*[—–-]%s*%d+[%.%-]%a+$') or

mw.ustring.match (item, '^%d+[%.%-]%d+%s*[—–-]%s*%d+[%.%-]%d+$') then

item = mw.ustring.gsub (item, '(%w*[%.%-]%w+)%s*[—–-]%s*(%w*[%.%-]%w+)', '<span class="nowrap">%1 –</span> <span class="nowrap">%2</span>');

elseif mw.ustring.match (item, '^%d+%a+%s*[—–-]%s*%d+%a+$') or

mw.ustring.match (item, '^%a+%d+%s*[—–-]%s*%a+%d+$') or

mw.ustring.match (item, '^%d+%s*[—–-]%s*%d+$') or

item = mw.ustring.gsub (item, '(%w+)%s*[—–-]%s*(%w+)', '<span class="nowrap">%1–</span>%2');

table.insert (out, item);

local temp_str = table.concat (out, ', ');

return temp_str:gsub("，", ","):gsub("；", ";");

--[[-------------------------< M A K E _ W I K I L I N K >---------------------]]

--[[--------------------------< S E T _ M E S S A G E >------------------------]]

local added_maint_cats = {}

error (cfg.messages['undefined_error'] .. ': ' .. error_id);

if error_state.message then

added_maint_cats[error_id] = true;

table.insert (z.maint_cats_t, substitute (error_state.category, arguments));

return;

message = table.concat ({message, ' (', make_wikilink (table.concat ({cfg.messages['help page link'], '#', error_state.anchor}), cfg.messages['help page label']), ')'});

if z.error_ids_t['err_citation_missing_title'] and in_array (error_id, {'err_bare_url_missing_title', 'err_trans_missing_title'}) then

return '', false;

message = error_comment (message, error_state.hidden);

table.insert (z.error_msgs_t, message);

return message;

--[[-------------------------< I S _ A L I A S _ U S E D >---------------------]]

if enumerated then

alias = alias:gsub ('#', index);

alias = alias:gsub ('#', '');

if is_set (args[alias]) then

if value ~= nil and selected ~= alias then

for _, v in ipairs (error_list or {}) do

if v == alias then skip = true; break; end

value = args[alias];

return value, selected;

--[[--------------------------< A D D _ M A I N T _ C A T >--------------------]]

added_maint_cats [key] = true;

table.insert (z.maint_cats_t, substitute (cfg.maint_cats [key], arguments));

--[[--------------------------< A D D _ P R O P _ C A T >----------------------]]

local added_prop_cats = {};

local key_modified = key .. ((key_modifier and key_modifier) or '');

added_prop_cats [key_modified] = true;

table.insert (z.prop_cats_t, substitute (cfg.prop_cats [key], arguments));

table.insert (z.prop_keys_t, 'cs1-prop-' .. key);

--[[--------------------------< S A F E _ F O R _ I T A L I C S >--------------]]

return str:gsub ('\n', ' ');

--[[--------------------------< W R A P _ S T Y L E >--------------------------]]

if not is_set (str) then return ""; end

if in_array (key, {'italic-title', 'trans-italic-title'}) then

--[[--------------------------< M A K E _ S E P _ L I S T >--------------------]]

if not sep_list and cfg then

list = table.concat (list_seq, sep_list_pair or ' and ');

list = table.concat (list_seq, sep_list or ', ', 1, count - 1);

list = table.concat ({list, list_seq[count]}, sep_list_end or ', and ');

--[[--------------------------< S E L E C T _ O N E >--------------------------]]

local value = nil;

local selected = '';

for _, alias in ipairs (aliases_list or {}) do

if alias:match ('#') then

if '1' == index then

value, selected = is_alias_used (args, alias, index, false, value, selected, error_list);

value, selected = is_alias_used (args, alias, index, true, value, selected, error_list);

value, selected = is_alias_used (args, alias, index, false, value, selected, error_list);

if #error_list > 0 and 'none' ~= error_condition then

for i, v in ipairs (error_list) do error_list[i] = wrap_style ('parameter', v); end

--[[-------------------------< R E M O V E _ W I K I _ L I N K >---------------]]

--[[-------------------------< I S _ W I K I L I N K >-------------------------]]

local wl_type = 2;

if not str:match ('^%[%[[^%]]+%]%]$') then return 0, str, ''; end

local L, D = str:match ('^%[%[([^|]+)|([^%]]+)%]%]$');

if not is_set (D) then

D = str:match ('^%[%[([^%]]*)|*%]%]$');

D = mw.text.trim (D, '%s|');

--[[--------------------------< S T R I P _ A P O S T R O P H E _ M A R K U P >]]

if not is_set (argument) or nil == argument:find ("''", 1, true) then

if argument:find ("'''''", 1, true) then argument, flag = argument:gsub ("%'%'%'%'%'", "");

elseif argument:find ("''''", 1, true) then argument, flag=argument:gsub ("%'%'%'%'", "");

elseif argument:find ("'''", 1, true) then argument, flag=argument:gsub ("%'%'%'", "");

elseif argument:find ("''", 1, true) then argument, flag = argument:gsub ("%'%'", "");

else break; end

return argument, flag;

--[[--------------------------< S E T _ S E L E C T E D _ M O D U L E S >------]]

add_maint_cat = add_maint_cat,

z = z,

}