Module:Cs1 documentation support

require('Module:No globals'); local getArgs = require ('Module:Arguments').getArgs;

local cfg = mw.loadData ('Module:Citation/CS1/Configuration');					-- load the configuration module

local exclusion_lists = {														-- TODO: move these tables into a separate ~/data module and mw.loadData it	['cite book'] = { ['agency'] = true, ['air-date'] = true, ['arxiv'] = true, ['biorxiv'] = true, ['citeseerx'] = true, ['class'] = true, ['conference'] = true, ['conference-format'] = true, ['conference-url'] = true, ['degree'] = true, ['department'] = true, ['display-interviewers'] = true, ['docket'] = true, ['episode'] = true, ['interviewer#'] = true, ['interviewer-first#'] = true, ['interviewer-link#'] = true, ['interviewer-mask#'] = true, ['ismn'] = true, ['issn'] = true, ['issue'] = true, ['jfm'] = true, ['journal'] = true, ['jstor'] = true, ['mailinglist'] = true, ['message-id'] = true, ['minutes'] = true, ['MR'] = true, ['network'] = true, ['number'] = true, ['RFC'] = true, ['script-journal'] = true, ['season'] = true, ['section'] = true, ['sections'] = true, ['series-link'] = true, ['series-number'] = true, ['series-separator'] = true, ['sheet'] = true, ['sheets'] = true, ['SSRN'] = true, ['station'] = true, ['time'] = true, ['time-caption'] = true, ['trans-article'] = true, ['trans-journal'] = true, ['transcript'] = true, ['transcript-format'] = true, ['transcript-url'] = true, ['ZBL'] = true, },	['cite journal'] = { ['agency'] = true, ['air-date'] = true, ['book-title'] = true, ['chapter'] = true, ['chapter-format'] = true, ['chapter-url'] = true, ['chapter-url-access'] = true, ['class'] = true, ['conference'] = true, ['conference-format'] = true, ['conference-url'] = true, ['contribution'] = true, ['contributor#'] = true, ['contributor-first#'] = true, ['contributor-link#'] = true, ['contributor-mask#'] = true, ['degree'] = true, ['department'] = true, ['display-interviewers'] = true, ['docket'] = true, ['edition'] = true, ['editor#'] = true, ['editor-first#'] = true, ['editor-link#'] = true, ['editor-mask#'] = true, ['editors'] = true, ['encyclopedia'] = true, ['episode'] = true, ['ignore-isbn-error'] = true, ['interviewer#'] = true, ['interviewer-first#'] = true, ['interviewer-link#'] = true, ['interviewer-mask#'] = true, ['isbn'] = true, ['ismn'] = true, ['LCCN'] = true, ['mailinglist'] = true, ['message-id'] = true, ['minutes'] = true, ['network'] = true, ['script-chapter'] = true, ['season'] = true, ['section'] = true, ['sections'] = true, ['series-link'] = true, ['series-number'] = true, ['series-separator'] = true, ['sheet'] = true, ['sheets'] = true, ['station'] = true, ['time'] = true, ['time-caption'] = true, ['trans-article'] = true, ['transcript'] = true, ['transcript-format'] = true, ['transcript-url'] = true, },	}

--[[-< A D D _ T O _ L I S T >-

adds code/name pair to code_list and name/code pair to name_list; code/name pairs in override_list replace those taken from the MediaWiki list; these are marked with a superscripted dagger.


 * script- = lang codes always use override names so dagger is omitted

]]

local function add_to_list (code_list, name_list, override_list, code, name, dagger) if false == dagger then dagger = '';															-- no dagger for |script- = codes and names else dagger = '†';												-- dagger for all other lists using override end

if override_list[code] then													-- look in the override table for this code code_list[code] = override_list[code] .. dagger;						-- use the name from the override table; mark with dagger name_list[override_list[code]] = code .. dagger; else code_list[code] = name;													-- use the MediaWiki name and code name_list[name] = code; end end

--[[-< L I S T _ F O R M A T >-

formats key/value pair into a string for rendering ['k'] = 'v'	→ k: v

]]

local function list_format (result, list) for k, v in pairs (list)	do table.insert (result, k .. ': ' .. v); end end

--[[-< L A N G _ L I S T E R >-

Module entry point

Crude documentation tool that returns one of several lists of language codes and names.

Used in Template:Citation Style documentation/language/doc

where is one of the values: 2char – list of ISO 639-1 codes and names sorted by code 3char – list of ISO 639-2, -3 codes and names sorted by code ietf – list of IETF language tags and names sorted by tag -- partial support for these by cs1|2 |language= parameter name – list of language names and codes sorted by name -- IETF tags omitted because not supported by cs1|2 |language= parameter

]]

local function lang_lister (frame) local source_list = mw.language.fetchLanguageNames(mw.getContentLanguage:getCode, 'all'); local override = cfg.lang_code_remap; local code_1_list={}; local code_2_list={}; local ietf_list={}; local name_list={}; if not ({['2char']=true, ['3char']=true, ['ietf']=true, ['name']=true})[frame.args.list] then return ' unknown list selector: ' .. frame.args.list .. ' ';	end

for code, name in pairs (source_list) do		if 2 == code:len then add_to_list (code_1_list, name_list, override, code, name); elseif 3 == code:len then add_to_list (code_2_list, name_list, override, code, name); else																	-- ietf codes only partically supported by cs1|2 |language= parameter add_to_list (ietf_list, name_list, override, code, name); end end local result = {}; local out = {};

if '2char' == frame.args.list then list_format (result, code_1_list); elseif '3char' == frame.args.list then list_format (result, code_2_list); elseif 'ietf' == frame.args.list then list_format (result, ietf_list); else																		--must be 'name' list_format (result, name_list); end table.sort (result); table.insert (result, 1, ' '); table.insert (out, table.concat (result, '\n*')); table.insert (out, ' '); return table.concat (out, '\n'); end

--[[--< S C R I P T _ L A N G _ L I S T E R >--

Module entry point

Crude documentation tool that returns list of language codes and names supported by the various |script- = parameters.

used in Help:CS1 errors

]]

local function script_lang_lister local lang_code_src = cfg.script_lang_codes ;								-- get list of allowed script language codes local override = cfg.lang_code_remap; local this_wiki_lang = mw.language.getContentLanguage.code;				-- get this wiki's language

local code_list = {};														-- interim list of aliases local name_list={};															-- not used; defined here so that we can reuse add_to_list local out = {};																-- final output (for now an unordered list) for _, code in ipairs (lang_code_src) do									-- loop through the list of codes local name = mw.language.fetchLanguageName (code, this_wiki_lang);		-- get the language name associated with this code add_to_list (code_list, name_list, override, code, name, false);		-- name_list{} not used but provided so that we can reuse add_to_list; don't add superscript dagger end local result = {}; local out = {};

list_format (result, code_list);

table.sort (result); table.insert (result, 1, ' '); table.insert (out, table.concat (result, '\n*')); table.insert (out, ' '); return table.concat (out, '\n'); end

--[[--< A L I A S _ L I S T E R >--

experimental code that lists parameters and their aliases. Perhaps basis for some sort of documentation?

]]

local function alias_lister local alias_src = cfg.aliases;												-- get master list of aliases local key;																	-- key for k/v in a new table local list = {};															-- interim list of aliases local out = {};																-- final output (for now an unordered list) for _, aliases in pairs (alias_src) do										-- loop throu the master list of aliases if 'table' == type (aliases) then										-- table only when there are aliases for i, alias in ipairs (aliases) do									-- loop through all of the aliases if 1 == i then													-- first 'alias' is the canonical parameter name key = alias;												-- so it becomes the key in list else list[key] = list[key] and (list[key] .. ', ' .. alias) or alias;	-- make comma-separated list of aliases list[alias] = 'see ' .. key;								-- make a back reference from this alias to the canonical parameter end end end end for k, v in pairs (list) do													-- loop through the list to make a simple unordered list table.insert (out, table.concat ({'*', k, ': ', v})); end table.sort (out);															-- sort it	return table.concat (out, '\010');											-- concatenate with \n --	return (mw.dumpObject (list)) end

--[[--< C A N O N I C A L _ P A R A M _ L I S T E R >--

experimental code that lists canonical parameter names. Perhaps basis for some sort of documentation?

returns a comma separated, alpha sorted, list of the canonical parameters. If given a template name, excludes parameters listed in that template's exclusion_list[ ]{} table (if a table has been defined).

]]

local function canonical_param_lister (frame) local template = frame.args[1]; if '' == template then template = nil; end

if template then template = mw.text.trim (template:lower); end

local alias_src = cfg.aliases;												-- get master list of aliases local id_src = cfg.id_handlers;												-- get master list of identifiers local list = {};															-- interim list of aliases local out = {};																-- final output (for now an unordered list) for _, aliases in pairs (alias_src) do										-- loop through the master list of aliases local name; if 'table' == type (aliases) then										-- table only when there are aliases name = aliases[1];													-- first member of an aliases table is declared canonical else name = aliases;														-- for those parameters that do not have any aliases, the parameter is declared canonical end

if not template then													-- no template name, add this parameter table.insert (list, name); elseif not exclusion_lists[template] then								-- template name but no exclusion list table.insert (list, name); elseif not exclusion_lists[template][name] then							-- template name and exclusion list but name not in list table.insert (list, name); end end for k, ids in pairs (id_src) do												-- spin through the list of identifiers local name = id_src[k].parameters[1];									-- get the first (left-most) parameter name local access = id_src[k].custom_access;									-- get the access-icon parameter if it exists for this identifier if not template then													-- no template name table.insert (list, name);											-- add this parameter if access then table.insert (list, access);									-- add this access-icon parameter end elseif not exclusion_lists[template] then								-- template name but no exclusion list table.insert (list, name); if access then table.insert (list, access); end elseif not exclusion_lists[template][name] then							-- template name and exclusion list but name not in list table.insert (list, name); if access then table.insert (list, access); end end end for _, param in ipairs (list) do											-- loop through the list to make a simple unordered list table.insert (out, table.concat ({'*', param})); end local function comp( a, b )													-- used in following table.sort return a:lower < b:lower; end table.sort (out, comp);														-- sort the list return table.concat (out, '\010');											-- concatenate with \n --	return (mw.dumpObject (list)) end

--[[--< C A N O N I C A L _ N A M E _ G E T >--

returns first (canonical) name when metaparameter is assigned a table of names returns name when metaparameter is assigned a single name returns empty string when metaparameter name not found in alias_src{}, id_src{}, or id_src[meta].custom_access

metaparameter is the key in Module:Citation/CS1 aliases{} table or id_handlers{} table. Because access-icon don't have keys, per se, we create pseudo keys by appending 'access' to the identifier : the for |doi-access= is, for the purposes of this function, DOIaccess, etc

Some lists of aliases might be better served when a particular alias is identified as the canonical alias for a particular use case. If, for example, Perodical lists: 'journal', 'magazine', 'newspaper', 'periodical', 'website', 'work' that order works fine for documentation but doesn't work so well for, , or. So, for using this function to document the returned value should be the parameter best suited for that template so we can specify magazine in the override (frame.args[2])

While for this function, it would be just as simple to not use the function, this mechanism is implemented here to match similar functionality in alias_names_get (there are slight differences) must exist in the alias list does not apply to the access icon parameters (ignored - these have no aliases)

(and which would be best for ? |newspaper= or |work=? can't solve all of the worlds problems at once).

output format is controlled by |format= plain - renders in plain text in a tag; may have id attribute para - renders as it would in undefined

]]

local function canonical_name_get (frame) local alias_src = cfg.aliases;												-- get master list of aliases local id_src = cfg.id_handlers;												-- get master list of identifiers local args = getArgs (frame);

local name; local meta = args[1] local override = args[2];

local access;																-- for id-access parameters if meta:match ('^(%u+)access') then											-- the metaparameter (which is not used in ~/Configuration) is id_handlers key concatenated with access: BIBCODEaccess meta, access = meta:gsub ('^(%u+)access', '%1');						-- strip 'access' text from meta and use returned count value as a flag end

if alias_src[meta] then name = alias_src[meta];													-- name is a string or a table if 'table' == type (name) then											-- table only when there are aliases if not override then name = name[1];													-- first member of an aliases table is declared canonical else for _, v in ipairs (name) do									-- here when override is set; spin throu the aliases to make sure override matches alias in table if v == override then name = v;												-- declare override to be the canonical param for this use case break; end end end end

elseif id_src[meta]then														-- if there is an id handler if access then															-- and if this is a request for the handler's custom access parameter if id_src[meta].custom_access then									-- if there is a custom access parameter name = id_src[meta].custom_access;								-- use it			else return '';														-- nope, return empty string end else if not override then name = id_src[meta].parameters[1];								-- get canonical id handler parameter else for _, v in ipairs (id_src[meta].parameters) do					-- here when override is set; spin throu the aliases to make sure override matches alias in table if v == override then name = v;												-- declare override to be the canonical param for this use case break; end end end end else return '';																-- metaparameter not specified, or no such metaparameter end if 'plain' == args.format then												-- format and return the output if args.id then return string.format (' %s ', args.id, name);	-- plain text with id attribute else return name;														-- plain text end elseif 'para' == args.format then return string.format (' ', name);		-- same as undefined end

return string.format ('%s', args.id or '', name);			-- because bolds param names end

--[[--< A L I A S _ N A M E S _ G E T >

returns list of aliases for metaparameter returns empty string when there are no aliases returns empty string when name not found in alias_src{} or id_src{}; access icon parameters have no aliases so ignored

metaparameter is the key in Module:Citation/CS1 aliases{} table or id_handlers{} table.

Some lists of aliases might be better served when a particular alias is identified as the canonical alias for a particular use case. If, for example, Perodical lists: 'journal', 'magazine', 'newspaper', 'periodical', 'website', 'work' that order works fine for documentation but doesn't work so well for, , or. So, for using this function to document the returned value should be the aliases that are not best suited for that template so we can specify magazine in the override (frame.args[2]) to be the canonical parameter so it won't be listed with the rest of the aliases (normal canonical journal will be)

must exist in the alias list except: when value is 'all', returns the canonical parameter plus all of the aliases

output format is controlled by |format= plain - renders in plain text in a tag; may have id attribute para - renders as it would in undefined when not specified, refurns the default bold format used for

]]

local function alias_names_get (frame) local alias_src = cfg.aliases;												-- get master list of aliases local id_src = cfg.id_handlers;												-- get master list of identifiers local args = getArgs (frame); local meta = args[1]; local override = args[2];

local out = {}; local source;																-- selected parameter or id aliases list local aliases;

source = alias_src[meta] or (id_src[meta] and id_src[meta].parameters); if not source then if meta:match ('%u+access') then return 'no' == args.none and '' or 'none';							-- custom access parameters don't have aliases else return '';															-- no such meta end elseif not source[2] then													-- id_source[meta] is always a table; if no second member, no aliases return 'no' == args.none and '' or 'none'; end if not override then aliases = source;														-- normal skip-canonical param case else local flag = 'all' == override and true or nil;							-- so that we know that parameter is a valid alias; spoof when override == 'all' aliases = {[1] = ''};													-- spoof to push alias_src[meta][1] and id_src[meta][1] into aliases[2] for _, v in ipairs (source) do											-- here when override is set; spin through the aliases to make sure override matches alias in table if v ~= override then table.insert (aliases, v);										-- add all but overridden param to the the aliases list for this use case else flag = true;													-- set the flag so we know that is a valid alias end end if not flag then aliases = {}														-- unset the table as error indicator end end

if 'table' == type (aliases) then											-- table only when there are aliases for i, alias in ipairs (aliases) do			if 1 ~= i then														-- aliases[1] is the canonical name; don't include it				if 'plain' == args.format then									-- format and return the output table.insert (out, alias);									-- plain text elseif 'para' == args.format then table.insert (out, string.format (' ', alias));	-- same as undefined else table.insert (out, string.format ("%s", alias));		-- because csdoc bolds param names end end end return table.concat (out, ', ');										-- make pretty list and quit end

return 'no' == args.none and '' or 'none';									-- no metaparameter with that name or no aliases end

--[[--< I S _ B O O K _ C I T E _ T E M P L A T E >

fetch the title of the current page; if it is a preprint template, return true; empty string else

]]

local book_cite_templates = { ['citation'] = true, ['cite book'] = true, }

local function is_book_cite_template local title = mw.title.getCurrentTitle.rootText;							-- get title of current page without namespace and without sub-pages; from Template:Cite book/new -> Cite book title = title and title:lower or ''; return book_cite_templates[title] or ''; end

--[[--< I S _ L I M I T E D _ P A R A M _ T E M P L A T E >

fetch the title of the current page; if it is a preprint template, return true; empty string else

]]

local limited_param_templates = {												-- if ever there is a need to fetch info from ~/Whitelist then ['cite arxiv'] = true,														-- this list could also be fetched from there ['cite biorxiv'] = true, ['citeseerx'] = true, ['ssrn'] = true, }

local function is_limited_param_template local title = mw.title.getCurrentTitle.rootText;							-- get title of current page without namespace and without sub-pages; from Template:Cite book/new -> Cite book title = title and title:lower or ''; return limited_param_templates[title] or ''; end

--[[--< H E A D E R _ M A K E >

makes a section header from  and ; defaults to 2; cannot be less than 2

]]

local function header_make (frame) local args = getArgs (frame);

if not args[1] then return '';																-- no header text end local level = args[2] and tonumber (args[2]) or 2; level = string.rep ('=', level); return level .. args[1] .. level; end

--[[--< I D _ L I M I T S _ G E T >

return the limit values for named identifier parameters that have  limits (pmc, pmid, ssrn, s2cid); the return value used in template documentation and error message help-text

]]

local function id_limits_get (frame) local args = getArgs (frame) local id_limits = cfg.id_limits;											-- get id_limits {} table from ~/Configuration

return args[1] and id_limits[args[1]:lower] or '';

--	local args = getArgs (frame);												-- TODO: use this version at the next module suite update --	local handlers = cfg.id_handlers;											-- get id_handlers {} table from ~/Configuration

--	return args[1] and handlers[args[1]:upper].id_limit or ''; end

---< E X P O R T E D  F U N C T I O N S >--

return { alias_lister = alias_lister, alias_names_get = alias_names_get, canonical_param_lister = canonical_param_lister, canonical_name_get = canonical_name_get, header_make = header_make, id_limits_get = id_limits_get, is_book_cite_template = is_book_cite_template, is_limited_param_template = is_limited_param_template, lang_lister = lang_lister, script_lang_lister = script_lang_lister, };