Module:Citation/CS1: Difference between revisions

 

--[[--------------------------< F O R W A R D D E C L A R A T I O N S >--------------------------------------

 

 

 

 

 

local cfg = {}; -- table of configuration tables that are defined in Module:Citation/CS1/Configuration

local whitelist = {}; -- table of tables listing valid template parameter names; defined in Module:Citation/CS1/Whitelist

]]

 

 

local Frame; -- holds the module's frame table

local i = 1;

while i <= count do -- loop through all items in list

return list[i]; -- return the first set list member

end

i = i + 1; -- point to next

end

end

To prevent duplication, added_vanc_errs is nil until an error message is emitted.

 

 

]]

if not added_vanc_errs then

added_vanc_errs = true; -- note that we've added this category

end

end

--[[--------------------------< I S _ S C H E M E >------------------------------------------------------------

 

is in agreement with http://tools.ietf.org/html/std66#section-3.1 which says:

Scheme names consist of a sequence of characters beginning with a

Single character names are generally reserved; see https://tools.ietf.org/html/draft-ietf-dnsind-iana-dns-01#page-15;

see also [[Single-letter second-level domain]]

 

the first and last characters the name may use letters, digits, and the hyphen.

 

Also allowed are IPv4 addresses. IPv6 not supported

 

 

There are several tests:

the first character of the whole domain name including subdomains must be a letter or a digit

single-letter/digit second-level domains in the .org, .cash, and .today TLDs

q, x, and z SL domains in the .com TLD

IPv4 dot-decimal address format; TLD not allowed

 

 

]=]

end

 

return false;

end

 

'%f[%w][%w][%w%-]+[%w]%.%a%a+$', -- three or more character hostname.hostname or hostname.tld

'%f[%w][%w][%w%-]+[%w]%.xn%-%-[%w]+$', -- internationalized domain name with ACE prefix

'%f[%a][qxz]%.com$', -- assigned one character .com hostname (x.com times out 2015-12-10)

'%f[%a][iq]%.net$', -- assigned one character .net hostname (q.net registered but not active 2015-12-10)

'^%d%d?%d?%.%d%d?%d?%.%d%d?%d?%.%d%d?%d?', -- IPv4 address

}

for _, pattern in ipairs (patterns) do -- loop through the patterns list

if domain:match (pattern) then

end

end

--[[--------------------------< I S _ U R L >------------------------------------------------------------------

 

 

This function is the last step in the validation process. This function is separate because there are cases that

 

local function is_url (scheme, domain)

return is_scheme (scheme) and is_domain_name (domain);

else

end

end

--[[--------------------------< S P L I T _ U R L >------------------------------------------------------------

 

 

 

 

or more '/' characters immediately following the scheme's colon), make sure that there are only 2.

 

Strip off any port and path;

url_str = url_str:gsub ('([%a%d])%.?[/%?#].*$', '%1'); -- strip FQDN terminator and path(/), query(?), fragment (#) (the capture prevents false replacement of '//')

 

domain = url_str:match ('^//(%S*)')

elseif url_str:match ('%S-:/*%S+') then -- if there is what appears to be a scheme, optional authority indicator, and domain name

scheme, authority, domain = url_str:match ('(%S-:)(/*)(%S+)'); -- extract the scheme, authority indicator, and domain portions

end

domain = domain:gsub ('(%a):%d+', '%1'); -- strip port number if present

--[[--------------------------< L I N K _ P A R A M _ O K >---------------------------------------------------

 

 

# < > [ ] | { } _

 

returns false when the value contains any of these characters.

 

 

]]

end

 

end

 

Use link_param_ok() to validate |<param>-link= value and its matching |<title>= value.

 

that condition exists

 

]]

local function link_title_ok (link, lorig, title, torig)

local orig;

if not link_param_ok (link) then -- check |<param>-link= markup

orig = lorig; -- identify the failing link parameter

elseif title:find ('%[%[') then -- check |title= for wikilink markup

orig = torig; -- identify the failing |title= parameter

end

end

 

end

end

 

Determines whether a URL string appears to be valid.

 

 

that work for standard and news: links, we validate newsgroup names here. The specification for a newsgroup name

is at https://tools.ietf.org/html/rfc5536#section-3.1.4

 

local function check_url( url_str )

return false;

end

local scheme, domain;

 

if 'news:' == scheme then -- special case for newsgroups

end

end

 

 

Return true if a parameter value has a string that begins and ends with square brackets [ and ] and the first

 

and |publisher=) may have wikilinks and there are articles or redirects like '//Hus' so, while uncommon, |title=[[//Hus]]

is possible as might be [[en://Hus]].

local scheme, domain;

 

scheme, domain = split_url (value:match ('%f[%[]%[(%a%S*:%S+).*%]'));

scheme, domain = split_url (value:match ('%f[%[]%[(//%S+).*%]'));

scheme, domain = split_url (value:match ('(%a%S*:%S+)'));

scheme, domain = split_url (value:match ('(//%S+)')); -- what is left should be the domain

else

end

 

end

 

local error_message = '';

for k, v in pairs (parameter_list) do -- for each parameter in the list

end

end

end

end

end

local function safe_for_url( str )

if str:match( "%[%[.-%]%]" ) ~= nil then

end

local base_url;

 

label = URL;

else

error( cfg.messages["bare_url_no_origin"] );

end

if not check_url( URL ) then

end

if path then -- if there is a path portion

URL = table.concat ({domain, path}); -- and reassemble

end

 

 

end

parameters in the citation.

 

 

]]

if not added_deprecated_cat then

added_deprecated_cat = true; -- note that we've added this category

end

end

--[=[-------------------------< K E R N _ Q U O T E S >--------------------------------------------------------

 

mark contained in a |title= or |chapter= parameter's value.

 

"'Unkerned title with leading and trailing single quote marks'"

" 'Kerned title with leading and trailing single quote marks' " (in real life the kerning isn't as wide as this example)

 

quote marks regardless of the need for kerning. Unicode quote marks are not replaced in simple [[D]] wikilinks.

 

 

]=]

 

local function kern_quotes (str)

local wl_type, label, link;

 

if 1 == wl_type then -- [[D]] simple wikilink with or without quote marks

if mw.ustring.match (str, '%[%[[\"“”\'‘’].+[\"“”\'‘’]%]%]') then -- leading and trailing quote marks

elseif mw.ustring.match (str, '%[%[[\"“”\'‘’].+%]%]') then -- leading quote marks

elseif mw.ustring.match (str, '%[%[.+[\"“”\'‘’]%]%]') then -- trailing quote marks

end

 

else -- plain text or [[L|D]]; text in label variable

 

cap, cap2 = mw.ustring.match (label, "^([\"\'])([^\'].+)"); -- match leading double or single quote but not doubled single quotes (italic markup)

end

cap, cap2 = mw.ustring.match (label, "^(.+[^\'])([\"\'])$") -- match trailing double or single quote but not doubled single quotes (italic markup)

end

if 2 == wl_type then

else

str = label;

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

 

not be italicized and may be written right-to-left. The value supplied by |script-title= is concatenated onto Title after Title has been wrapped

in italic markup.

 

 

|script-title=ja:*** *** (where * represents a Japanese character)

Spaces between the two-character code and the colon and the colon and the first script character are allowed:

Spaces preceding the prefix are allowed: |script-title = ja:*** ***

 

know the language the tag contains. This may help the browser render the script more correctly. If the prefix is invalid, the lang attribute

is not added. At this time there is no error message for this condition.

if script_value:match('^%l%l%l?%s*:') then -- if first 3 or 4 non-space characters are script language prefix

lang = script_value:match('^(%l%l%l?)%s*:%s*%S.*'); -- get the language prefix or nil if there is no script

return ''; -- script_value was just the prefix so return empty string

end

-- if we get this far we have prefix and script

name = cfg.lang_code_remap[lang] or mw.language.fetchLanguageName( lang, cfg.this_wiki_code ); -- get language name so that we can use it to categorize

script_value = script_value:gsub ('^%l+%s*:%s*', ''); -- strip prefix from script

-- is prefix one of these language codes?

else

end

lang = ' lang="' .. lang .. '" '; -- convert prefix into a lang attribute

else

lang = ''; -- invalid so set lang to empty string

end

else

end

 

return script_value;

 

local function script_concatenate (title, script, script_param)

title = title .. ' ' .. script; -- concatenate title and script title

end

 

local function wrap_msg (key, str, lower)

return "";

end

local msg;

msg = cfg.messages[key]:lower(); -- set the message to lower case before

else

end

end

--[[--------------------------< W I K I S O U R C E _ U R L _ M A K E >----------------------------------------

 

 

str is the value assigned to |chapter= (or aliases) or |title= or |title-link=

local wikisource_prefix = table.concat ({'https://', cfg.this_wiki_code, '.wikisource.org/wiki/'});

 

 

if 0 == wl_type then -- not a wikilink; might be from |title-link=

str = D:match ('^[Ww]ikisource:(.+)') or D:match ('^[Ss]:(.+)'); -- article title from interwiki link with long-form or short-form namespace

wikisource_prefix, -- prefix

str, -- article title

});

end

elseif 1 == wl_type then -- simple wikilink: [[Wikisource:ws article]]

str = D:match ('^[Ww]ikisource:(.+)') or D:match ('^[Ss]:(.+)'); -- article title from interwiki link with long-form or short-form namespace

wikisource_prefix, -- prefix

str, -- article title

});

end

elseif 2 == wl_type then -- non-so-simple wikilink: [[Wikisource:ws article|displayed text]] ([[L|D]])

str = L:match ('^[Ww]ikisource:(.+)') or L:match ('^[Ss]:(.+)'); -- article title from interwiki link with long-form or short-form namespace

ws_label = D; -- get ws article name from display portion of interwiki link

wikisource_prefix, -- prefix

str, -- article title without namespace from link portion of wikilink

if ws_url then

ws_url = ws_url:gsub ('%%23', '#'); -- undo percent encoding of fragment marker

end

 

end

 

local periodical_error = '';

 

periodical = ''; -- to be safe for concatenation

else

end

 

 

else -- here when trans-periodical without periodical or script-periodical

periodical = trans_periodical;

end

end

--[[--------------------------< F O R M A T _ C H A P T E R _ T I T L E >--------------------------------------

 

parameter (chapter_url_source used for error messages).

 

local chapter_error = '';

 

if ws_url then

ws_label = ws_label:gsub ('_', ''); -- replace underscore separaters with space characters

end

 

chapter = ''; -- to be safe for concatenation

else

if false == no_quotes then

end

end

 

 

chapter = external_link (chapter_url, chapter, chapter_url_source, access); -- adds bare_url_missing_title error if appropriate

elseif ws_url then

chapter = external_link (ws_url, chapter .. '&nbsp;', 'ws link in chapter'); -- adds bare_url_missing_title error if appropriate; space char to move icon away from chap text; TODO: better way to do this?

end

 

else -- here when trans_chapter without chapter or script-chapter

chapter = trans_chapter;

chapter_source = trans_chapter_source:match ('trans%-?(.+)'); -- when no chapter, get matching name from trans-<param>

end

end

--[[--------------------------< H A S _ I N V I S I B L E _ C H A R S >----------------------------------------

 

first match.

 

 

Detects but ignores nowiki and math stripmarkers. Also detects other named stripmarkers (gallery, math, pre, ref)

local dummy; -- end of matching string; not used but required to hold end position when a capture is returned

local capture; -- used by stripmarker detection to hold name of the stripmarker

local stripmarker, apostrophe;

return;

end

 

while cfg.invisible_chars[i] do

position, dummy, capture = mw.ustring.find (v, pattern) -- see if the parameter value contains characters that match the pattern

position = nil; -- unset position

end

if position then

if 'nowiki' == capture or 'math' == capture or -- nowiki and math stripmarkers (not an error condition)

stripmarker = true; -- set a flag

elseif true == stripmarker and 'delete' == char then -- because stripmakers begin and end with the delete char, assume that we've found one end of a stripmarker

end

 

return; -- and done with this parameter

end

end

end

end

]]

 

local origin = {};

return setmetatable({

local dummy = self[k]; --force the variable to be loaded.

return origin[k];

if type( list ) == 'table' then

if origin[k] == nil then

origin[k] = ''; -- Empty string, not nil

-- Empty strings, not nil;

if v == nil then

v = '';

origin[k] = '';

 

local function nowrap_date (date)

 

if date:match("^%d%d%d%d%-%d%d%-%d%d$") then

elseif date:match("^%a+%s*%d%d?,%s+%d%d%d%d$") or date:match ("^%d%d?%s*%a+%s+%d%d%d%d$") then

cap, cap2 = string.match (date, "^(.*)%s+(%d%d%d%d)$");

end

 

local function set_titletype (cite_class, title_type)

if 'none' == cfg.keywords_xlate[title_type] then

title_type = ''; -- if |type=none then type parameter not displayed

 

local function hyphen_to_dash( str )

return str;

end

end

str = str:gsub ('&nbsp;', ' '); -- replace &nbsp; entity with generic keyboard space character

item = item:gsub ('(%w*[%.%-]?%w+)%s*%-%s*(%w*[%.%-]?%w+)', '%1–%2'); -- replace hyphen, remove extraneous space characters

else

end

end

table.insert (out, item); -- add the (possibly modified) item to the output table

end

 

local function safe_join( tbl, duplicate_char )

else -- for multi-byte characters use the ustring library functions

end

 

str = value; -- assign value to it (first time through the loop)

elseif value ~= '' then

else

comp = value;

end

-- typically duplicate_char is sepc

-- Because individual string segments often (always?) begin with terminal punct for the

trim = false;

if end_chr == duplicate_char then -- if same as separator

str = f.sub(str, 1, -4) .. "''"; -- remove them and add back ''

trim = true; -- why? why do this and next differently from previous?

trim = true; -- same question

end

trim = true;

trim = true;

trim = true;

trim = true;

end

elseif end_chr == " " then -- if last char of output string is a space

end

end

 

if trim then

local dup2 = duplicate_char;

if f.match(dup2, "%A" ) then dup2 = "%" .. dup2; end -- if duplicate_char not a letter then escape it

else

value = f.sub(value, 2, -1 ); -- remove duplicate_char when it is first character

--[[--------------------------< I S _ S U F F I X >------------------------------------------------------------

 

 

]]

 

local function is_suffix (suffix)

return true;

end

--[[--------------------------< I S _ G O O D _ V A N C _ N A M E >--------------------------------------------

 

uses characters that contain diacritical marks, those characters are to converted to the corresponding Latin character.

When a name is written using a non-Latin alphabet or logogram, that name is to be transliterated into Latin characters.

This original test:

if nil == mw.ustring.find (last, "^[A-Za-zÀ-ÖØ-öø-ƿDŽ-ɏ%-%s%']*$") or nil == mw.ustring.find (first, "^[A-Za-zÀ-ÖØ-öø-ƿDŽ-ɏ%-%s%'%.]+[2-6%a]*$") then

to use an external editor to maintain this code.

 

end

end

if not is_suffix (suffix) then

add_vanc_error (cfg.err_msg_supl.suffix);

nil == mw.ustring.find (first, "^[A-Za-z\195\128-\195\150\195\152-\195\182\195\184-\198\191\199\132-\201\143%-%s%'%.]*$") then

add_vanc_error (cfg.err_msg_supl['non-Latin char']);

end;

return true;

--[[--------------------------< R E D U C E _ T O _ I N I T I A L S >------------------------------------------

 

 

Names in |firstn= may be separated by spaces or hyphens, or for initials, a period. See http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35062/.

 

This code only accepts and understands generational suffix in the Vancouver format because Roman numerals look like, and can be mistaken for, initials.

 

 

]]

 

if not name then -- if not initials and a suffix

end

 

end

if 3 > i then

end

i = i+1; -- bump the counter

 

 

 

 

]]

 

local sep;

local namesep;

 

namesep = cfg.presentation['sep_name_vanc']; -- last/first separator is a space

else

namesep = cfg.presentation['sep_name']; -- last/first separator is <comma><space>

end

local sep_one = sep;

etal = true;

break;

else

end

else

one = one:gsub ('%.', ''); -- remove periods from surnames (http://www.ncbi.nlm.nih.gov/books/NBK7271/box/A35029/)

if not person.corporate and is_good_vanc_name (one, first) then -- and name is all Latin characters; corporate authors not tested

end

end

end

end

end

end

end

 

end

end

end

end

 

table.insert (names, year); -- add the year at the end

local id = table.concat(names); -- concatenate names and year for CITEREF id

return "CITEREF" .. id; -- add the CITEREF portion

else

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

 

the et al. is removed, a flag is set to true and the function returns the modified name and the flag.

 

local function name_has_etal (name, etal, nocat, param)

 

local patterns = cfg.et_al_patterns; --get patterns from configuration

etal = true; -- set flag (may have been set previously here or by |display-<names>=etal)

if not nocat then -- no categorization for |vauthors=

end

end

end

 

end

 

 

local function name_is_numeric (name, list_name)

if mw.ustring.match (name, '^[%A]+$') then -- when name does not contain any letters

end

end

--[[--------------------------< N A M E _ H A S _ E D _ M A R K U P >------------------------------------------

 

These annotation do not belong in author parameters and are redundant in editor parameters. If found, the function

adds the editor markup maintenance category.

local patterns = cfg.editor_markup_patterns; -- get patterns from configuration

 

for _, pattern in ipairs (patterns) do -- spin through patterns table and

if name:match (pattern) then

break;

end

--[[--------------------------< N A M E _ H A S _ M U L T _ N A M E S >----------------------------------------

 

 

returns nothing

 

local function name_has_mult_names (name, list_name)

end

end

 

local function name_checks (last, first, list_name)

name_has_mult_names (last, list_name); -- check for multiple names in the parameter (last only)

name_has_ed_markup (last, list_name); -- check for extraneous 'editor' annotation

end

end

name_has_ed_markup (first, list_name); -- check for extraneous 'editor' annotation

name_is_numeric (first, list_name); -- check for names that are compsed of digits and punctuation

end

end

return last, first; -- done

 

 

 

local function extract_names(args, list_name)

local first;

local link;

local mask;

 

local last_alias, first_alias, link_alias; -- selected parameter aliases used in error messaging

while true do

 

last, etal = name_has_etal (last, etal, false, last_alias); -- find and remove variations on et al.

first, etal = name_has_etal (first, etal, false, first_alias); -- find and remove variations on et al.

if first and not last then -- if there is a firstn without a matching lastn

elseif not first and not last then -- if both firstn and lastn aren't found, are we done?

count = count + 1; -- number of times we haven't found last and first

end

else -- we have last with or without a first

if first then

end

 

n = n + 1; -- point to next location in the names table

if 1 == count then -- if the previous name was missing

end

count = 0; -- reset the counter, we're looking for two consecutive missing names

end

end

 

end

 

local ietf_name;

 

return name, code; -- so return the name and the code

end

ietf_name = name; -- but keep looking for a 2- or 3-char code

end

end

return ietf_code and ietf_name or lang; -- associated name; return original language text else

end

local names_table = {}; -- table made from the value assigned to |language=

 

 

names_table = mw.text.split (lang, '%s*,%s*'); -- names should be a comma separated list

 

if name then -- there was a remapped code so

end

else

if 2 == lang:len() or 3 == lang:len() then -- if two-or three-character code

name = mw.language.fetchLanguageName (lang:lower(), cfg.this_wiki_code); -- get language name if |language= is a proper code

end

 

code = lang:lower(); -- save it

else

end

name = cfg.lang_code_remap[code] or name; -- override wikimedia when they misuse language codes/names

 

if cfg.this_wiki_code ~= code then -- when the language is not the same as this wiki's language

if 2 == code:len() then -- and is a two-character code

else -- or is a recognized language (but has a three-character code)

end

elseif cfg.local_lang_cat_enable then -- when the language and this wiki's language are the same and categorization is enabled

end

else

end

name = ''; -- so we can reuse it

end

if this_wiki_name == name then

return ''; -- if one language and that language is this wiki's return an empty string (no annotation)

 

local function set_cs1_style (ps)

ps = cfg.presentation['ps_cs1']; -- terminate the rendered citation

end

 

local function set_cs2_style (ps, ref)

ps = cfg.presentation['ps_cs2']; -- terminate the rendered citation

end

ref = "harv"; -- set default |ref=harv

end

--[=[-------------------------< I S _ P D F >------------------------------------------------------------------

 

 

returns true if file extension is one of the recognized extensions, else false

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

 

the appropriate styling.

 

 

local function style_format (format, url, fmt_param, url_param)

end

else

format = ''; -- empty string for concatenation

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

 

to indicate when et al. should be appended to the name list.

 

 

local function get_display_names (max, count, list_name, etal)

if 'etal' == max:lower():gsub("[ '%.]", '') then -- the :gsub() portion makes 'etal' from a variety of 'et al.' spellings and stylings

max = count + 1; -- number of authors + 1 so display all author name plus et al.

max = tonumber (max); -- make it a number

if max >= count then -- if |display-xxxxors= value greater than or equal to number of authors/editors

end

else -- not a valid keyword or number

max = nil; -- unset; as if |display-xxxxors= had not been set

end

 

if not page:match (good_pattern) and (page:match (bad_pattern) or page:match ('^[Pp]ages?')) then

end

end

 

split apart a |vauthors= or |veditors= parameter. This function allows for corporate names, wrapped in doubled

rendered citation and in the metadata. Individual author names may be wikilinked

 

while name_table[i] do

local name = name_table[i];

while name_table[i] do

name = name .. ', ' .. name_table[i]; -- concatenate with previous segments

break; -- and done reassembling so

end

end

table.insert (output_table, name); -- and add corporate name to the output table

table.insert (output_link_table, ''); -- no wikilink

else

table.insert (output_table, label); -- add this name

if 1 == wl_type then

end

end

end

return output_table;

Author / editor names in |vauthors= or |veditors= must be in Vancouver system style. Corporate or institutional names

may sometimes be required and because such names will often fail the is_good_vanc_name() and other format compliance

 

Supports generational suffixes Jr, 2nd, 3rd, 4th–6th.

 

 

]]

for i, v_name in ipairs(v_name_table) do

first = ''; -- set to empty string for concatenation and because it may have been set for previous author/editor

corporate = true; -- flag used in list_people()

elseif string.find(v_name, "%s") then

local lastfirstTable = {}

lastfirstTable = mw.text.split(v_name, "%s+")

 

suffix = first; -- not initials so assume that whatever we got is a generational suffix

first = table.remove(lastfirstTable); -- get what should be the initials from the table

end

last = table.concat(lastfirstTable, ' ') -- returns a string that is the concatenation of all other names that are not initials and generational suffix

first = ''; -- unset

last = v_name; -- last empty because something wrong with first

end

if mw.ustring.match (v_name, ' %u %u$') then -- this test is in the wrong place TODO: move or replace with a more appropriate test

end

else

last = v_name; -- last name or single corporate name? Doesn't support multiword corporate names? do we need this?

end

if not mw.ustring.match (first, "^%u?%u$") then -- first shall contain one or two upper-case letters, nothing else

add_vanc_error (cfg.err_msg_supl.initials); -- too many initials; mixed case initials (which may be ok Romanization); hyphenated initials

end

is_good_vanc_name (last, first, suffix); -- check first and last before restoring the suffix which may have a non-Latin digit

first = first .. ' ' .. suffix; -- if there was a suffix concatenate with the initials

suffix = ''; -- unset so we don't add this suffix to all subsequent names

end

 

end

return names, etal; -- all done, return our list of names

local function select_author_editor_source (vxxxxors, xxxxors, args, list_name)

local lastfirst = false;

end

 

local err_name;

if 'AuthorList' == list_name then -- figure out which name should be used in error message

err_name = 'editor';

end

{err_name .. '-name-list parameters'}, true ) } ); -- add error message

end

 

if true == lastfirst then return 1 end; -- return a number indicating which author name source to use

return 1; -- no authors so return 1; this allows missing author name test to run in case there is a first without last

end

 

This function is used to validate a parameter's assigned value for those parameters that have only a limited number

or empty in the source template) the function returns the value specified by ret_val. If the parameter value is one

of the list of allowed values returns the translated value; else, emits an error message and returns the value

 

local function is_valid_parameter_value (value, name, possible, ret_val)

return ret_val; -- an empty parameter is ok

return cfg.keywords_xlate[value]; -- return translation of parameter keyword

else

return ret_val;

end

 

local function terminate_name_list (name_list, sepc)

return name_list; -- just return the name list

return name_list .. " "; -- don't add another

else

end

end

local function format_volume_issue (volume, issue, cite_class, origin, sepc, lower)

return '';

end

return wrap_msg ('vol-no', {sepc, volume, issue}, lower);

return wrap_msg ('vol', {sepc, volume}, lower);

else

end

 

return wrap_msg ('issue', {sepc, issue}, lower);

end

local vol = ''; -- here for all cites except magazine

else -- four or less characters

end

end

end

return vol;

local function format_pages_sheets (page, pages, sheet, sheets, cite_class, origin, sepc, nopp, lower)

if 'map' == cite_class then -- only cite map supports sheet(s) as in-source locators

if 'journal' == origin then

return '', '', wrap_msg ('j-sheet', sheet, lower), '';

return '', '', wrap_msg ('sheet', {sepc, sheet}, lower), '';

end

if 'journal' == origin then

return '', '', '', wrap_msg ('j-sheets', sheets, lower);

end

 

if is_journal then

elseif not nopp then

else

end

if is_journal then

elseif tonumber(pages) ~= nil and not nopp then -- if pages is only digits, assume a single page number

elseif not nopp then

else

end

end

returns one of the in-source locators: page, pages, or at.

 

add an icon span around that; get_coins_pages() doesn't know about the span. TODO: should it?

 

 

local function insource_loc_get (page, pages, at)

 

pages = ''; -- unset the others

at = '';

extra_text_in_page_check (page); -- add this page to maint cat if |page= value begins with what looks like p. or pp.

 

if ws_url then

page = external_link (ws_url, ws_label .. '&nbsp;', 'ws link in page'); -- space char after label to move icon away from in-source text; TODO: a better way to do this?

coins_pages = ws_label;

end

at = ''; -- unset

end

extra_text_in_page_check (pages); -- add this page to maint cat if |pages= value begins with what looks like p. or pp.

 

if ws_url then

pages = external_link (ws_url, ws_label .. '&nbsp;', 'ws link in pages'); -- space char after label to move icon away from in-source text; TODO: a better way to do this?

coins_pages = ws_label;

end

if ws_url then

at = external_link (ws_url, ws_label .. '&nbsp;', 'ws link in at'); -- space char after label to move icon away from in-source text; TODO: a better way to do this?

coins_pages = ws_label;

end

--[=[-------------------------< A R C H I V E _ U R L _ C H E C K >--------------------------------------------

 

unwitting readers to do.

 

algorithm or provides a calendar 'search' result. [[WP:ELNO]] discourages links to search results.

 

This function looks at the value assigned to |archive-url= and returns empty strings for |archive-url= and

|archive-date= and an error message when:

correct place

otherwise returns |archive-url= and |archive-date=

 

//web.archive.org/<timestamp>... -- the old form

//web.archive.org/web/<timestamp>... -- the new form

we don't check for these specific flags but we do check the form.

 

for save command errors, return undated wildcard (/*/)

for timestamp errors when the timestamp does not have a wildcard, return with timestamp limited to six digits plus wildcard (/yyyymm*/)

 

local function archive_url_check (url, date)

local err_msg = ''; -- start with the error message empty

return url, date; -- not an archive.org archive, return ArchiveURL and ArchiveDate

end

 

err_msg = cfg.err_msg_supl.save;

url = url:gsub ('(//web%.archive%.org)/save/', '%1/*/', 1); -- for preview mode: modify ArchiveURL

err_msg = cfg.err_msg_supl.liveweb;

else

err_msg = cfg.err_msg_supl.timestamp;

if '*' ~= flag then

url=url:gsub ('(//web%.archive%.org/[^%d]*%d?%d?%d?%d?%d?%d?)[^/]*', '%1*', 1) -- for preview, modify ts to be yearmo* max (0-6 digits plus splat)

end

err_msg = cfg.err_msg_supl.path;

err_msg = cfg.err_msg_supl.flag;

err_msg = cfg.err_msg_supl.flag;

else

end

-- if here, something not right so

return '', ''; -- return empty strings for ArchiveURL and ArchiveDate

else

 

check |place=, |publication-place=, |location= to see if these params include digits. This function added because

 

returns the original parameter value without modification; added maint cat when parameter value contains digits

 

local function place_check (param_val)

return param_val; -- return that empty state

end

if mw.ustring.find (param_val, '%d') then -- not empty, are there digits in the parameter value

end

return param_val; -- and done

end

 

The argument_wrapper facilitates the mapping of multiple aliases to single internal variable.

]]

local i

 

local Authors;

 

local Collaboration = A['Collaboration'];

 

a, author_etal = extract_names (args, 'AuthorList'); -- fetch author list from |authorn= / |lastn= / |firstn=, |author-linkn=, and |author-maskn=

elseif 2 == selected then

a, author_etal = parse_vauthors_veditors (args, args.vauthors, 'AuthorList'); -- fetch author list from |vauthors=, |author-linkn=, and |author-maskn=

elseif 3 == selected then

Authors = A['Authors']; -- use content of |authors=

if 'authors' == A:ORIGIN('Authors') then -- but add a maint cat if the parameter is |authors=

end

end

author_etal = true; -- so that |display-authors=etal not required

end

e, editor_etal = extract_names (args, 'EditorList'); -- fetch editor list from |editorn= / |editor-lastn= / |editor-firstn=, |editor-linkn=, and |editor-maskn=

elseif 2 == selected then

e, editor_etal = parse_vauthors_veditors (args, args.veditors, 'EditorList'); -- fetch editor list from |veditors=, |editor-linkn=, and |editor-maskn=

elseif 3 == selected then

Editors = A['Editors']; -- use content of |editors=

end

end

end

 

c = extract_names (args, 'ContributorList'); -- fetch contributor list from |contributorn= / |contributor-lastn=, -firstn=, -linkn=, -maskn=

if 0 < #c then

c = {}; -- blank the contributors' table; it is used as a flag later

end

if 0 == #a then -- |contributor= requires |author=

c = {}; -- blank the contributors' table; it is used as a flag later

end

end

else -- if not a book cite

end

Contribution = nil; -- unset

end

 

if 0 == #a and 0 == #e then -- add maint cat when |others= has value and used without |author=, |editor=

end

end

local Year = A['Year'];

local PublicationDate = A['PublicationDate'];

local Date = A['Date'];

local LayDate = A['LayDate'];

local TitleNote = A['TitleNote'];

local TitleLink = A['TitleLink'];

 

if 'map' == config.CitationClass and 'section' == A:ORIGIN ('Chapter') then

Section = A['Chapter']; -- get |section= from |chapter= alias list; |chapter= and the other aliases not supported in {{cite map}}

local ScriptChapter = A['ScriptChapter'];

local ScriptChapter_origin = A:ORIGIN ('ScriptChapter');

local TransChapter = A['TransChapter'];

local TransChapter_origin = A:ORIGIN ('TransChapter');

local UrlStatus = is_valid_parameter_value (A['UrlStatus'], A:ORIGIN('UrlStatus'), cfg.keywords_lists['url-status'], '');

 

local URL = A['URL']

local Periodical = A['Periodical'];

local Periodical_origin = '';

end

 

if 'mailinglist' == config.CitationClass then -- special case for {{cite mailing list}}

end

 

end

 

local ScriptPeriodical = A['ScriptPeriodical'];

local ScriptPeriodical_origin = A:ORIGIN('ScriptPeriodical');

end

 

local TransPeriodical = A['TransPeriodical'];

 

if 'citation' == config.CitationClass then

Volume = A['Volume']; -- but does for all other 'periodicals'

end

if 'script-website' ~= ScriptPeriodical_origin then -- {{citation}} does not render volume for |script-website=

Volume = A['Volume']; -- but does for all other 'periodicals'

Volume = A['Volume']; -- and does for non-'periodical' cites

end

Volume = A['Volume'];

end

 

if 'citation' == config.CitationClass then

Issue = hyphen_to_dash (A['Issue']);

end

Issue = hyphen_to_dash (A['Issue']);

end

 

local Position = '';

Page = A['Page'];

Pages = hyphen_to_dash (A['Pages']);

local PublisherName = A['PublisherName'];

local PublisherName_origin = A:ORIGIN('PublisherName');

end

 

local Newsgroup = A['Newsgroup']; -- TODO: strip apostrophe markup?

 

if 'newsgroup' == config.CitationClass then

table.insert( z.message_tail, {error_text, error_state} );

end

 

local UrlAccess = is_valid_parameter_value (A['UrlAccess'], A:ORIGIN('UrlAccess'), cfg.keywords_lists['url-access'], nil);

UrlAccess = nil;

end

local ChapterUrlAccess = is_valid_parameter_value (A['ChapterUrlAccess'], A:ORIGIN('ChapterUrlAccess'), cfg.keywords_lists['url-access'], nil);

 

local MapUrlAccess = is_valid_parameter_value (A['MapUrlAccess'], A:ORIGIN('MapUrlAccess'), cfg.keywords_lists['url-access'], nil);

 

local Via = A['Via'];

local Embargo = A['Embargo'];

local Class = A['Class']; -- arxiv class identifier

 

local Quote = A['Quote'];

 

local LayFormat = A['LayFormat'];

 

local no_tracking_cats = is_valid_parameter_value (A['NoTracking'], A:ORIGIN('NoTracking'), cfg.keywords_lists['yes_true_y'], nil);

--local variables that are not cs1 parameters

local use_lowercase; -- controls capitalization of certain static text

 

local DF = is_valid_parameter_value (A['DF'], A:ORIGIN('DF'), cfg.keywords_lists['df'], '');

end

 

local Ref = A['Ref'];

if 'harv' == Ref then

Ref = 'harv'; -- set as default when not set externally

end

sepc, PostScript, Ref = set_style (Mode:lower(), A['PostScript'], Ref, config.CitationClass);

 

no_tracking_cats = "true"; -- set no_tracking_cats

end

if this_page.text:match (v) then -- test page name against each pattern

no_tracking_cats = "true"; -- set no_tracking_cats

end

-- check for extra |page=, |pages= or |at= parameters. (also sheet and sheets while we're at it)

 

local coins_pages;

local NoPP = is_valid_parameter_value (A['NoPP'], A:ORIGIN('NoPP'), cfg.keywords_lists['yes_true_y'], nil);

 

if PublicationPlace == Place then

Place = ''; -- unset; don't need both if they are the same

end

PublicationPlace = Place; -- promote |place= (|location=) to |publication-place

end

Parameter remapping for cite encyclopedia:

When the citation has these parameters:

 

]]

local Encyclopedia = A['Encyclopedia']; -- used as a flag by this module and by ~/COinS

 

if 'encyclopaedia' ~= config.CitationClass and 'citation' ~= config.CitationClass then

Encyclopedia = nil; -- unset because not supported by this template

end

end

 

end

 

Periodical = Encyclopedia; -- error or no, set Periodical to Encyclopedia; allow periodical without encyclopedia

Periodical_origin = A:ORIGIN ('Encyclopedia');

end

 

ScriptChapter = ScriptTitle;

ScriptChapter_origin = A:ORIGIN('ScriptTitle')

ChapterUrlAccess = UrlAccess;

 

end

Title = Periodical;

ScriptTitle = '';

end

Periodical = ''; -- redundant so unset

end

end

 

if (config.CitationClass == "techreport") then -- special case for cite techreport

ID = A['Number']; -- yes, use it

else -- ID has a value so emit error message

end

end

-- Account for the oddity that is {{cite conference}}, before generation of COinS data.

if 'conference' == config.CitationClass then

Chapter = Title;

Chapter_origin = 'title';

ChapterURL = URL;

ChapterUrlAccess = UrlAccess;

local Sheets = A['Sheets'] or '';

if config.CitationClass == "map" then

end

Chapter = A['Map'];

 

Cartography = A['Cartography'];

Cartography = sepc .. " " .. wrap_msg ('cartography', Cartography, use_lowercase);

end

Scale = A['Scale'];

Scale = sepc .. " " .. Scale;

end

local SeriesLink = A['SeriesLink'];

 

 

local Network = A['Network'];

local s, n = {}, {};

-- do common parameters first

ID = table.concat(n, sepc .. ' ');

local SeriesNumber = A['SeriesNumber'];

 

SeriesNumber = ''; -- unset; prefer |season= over |seriesno=

end

-- assemble a table of parts concatenated later into Series

Issue = ''; -- unset because this is not a unique parameter

ScriptChapter = ScriptTitle;

ScriptChapter_origin = A:ORIGIN('ScriptTitle');

TransChapter = TransTitle;

ChapterURL = URL;

Series = table.concat(s, sepc .. ' '); -- this is concatenation of season, seriesno, episode number

 

end

URL = ''; -- unset

Issue = ''; -- unset because this parameter no longer supported by the citation/core version of cite serial

Chapter = A['Episode']; -- TODO: make |episode= available to cite episode someday?

end

end

end

-- end of {{cite episode}} stuff

 

-- handle type parameter for those CS1 citations that have default values

TitleType = set_titletype (config.CitationClass, TitleType);

TitleType = Degree .. ' ' .. cfg.title_types ['thesis']:lower();

end

end

 

-- TODO: Hack on TitleType to fix bunched parentheses problem

end

local Date_origin; -- to hold the name of parameter promoted to Date; required for date error messaging

 

Date = Year; -- promote Year to Date

Year = nil; -- make nil so Year as empty string isn't used for CITEREF

Date = PublicationDate; -- promote PublicationDate to Date

PublicationDate = ''; -- unset, no longer needed

-- AirDate has been promoted to Date so not necessary to check it

local date_parameters_list = {

};

 

-- start temporary Julian / Gregorian calendar uncertainty categorization

if COinS_date.inter_cal_cat then

end

-- end temporary Julian / Gregorian calendar uncertainty categorization

 

if 0 == mismatch then -- |year= does not match a year-value in |date=

elseif 1 == mismatch then -- |year= matches year-value in |date=

end

end

local modified = false; -- flag

end

 

modified = true;

end

-- for those wikis that can and want to have English date names translated to the local language,

-- modified = true;

-- end

end

else

end

end -- end of do

 

end

end

end

-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.

-- Test if citation has no title

end

 

('journal' == Periodical_origin or 'script-journal' == ScriptPeriodical_origin) then -- special case for journal cites

Title = ''; -- set title to empty string

end

 

local coins_chapter = Chapter; -- default assuming that remapping not required

local coins_title = Title; -- et tu

coins_chapter = Title; -- remap

coins_title = Periodical;

coins_author = c; -- use that instead

end

-- this is the function call to COinS()

['Encyclopedia'] = Encyclopedia, -- just a flag; content ignored by ~/COinS

['Degree'] = Degree; -- cite thesis only

['PublicationPlace'] = PublicationPlace,

['Date'] = COinS_date.rftdate, -- COinS_date has correctly formatted date if Date is valid;

['Volume'] = Volume,

['Issue'] = Issue,

['Edition'] = Edition,

['PublisherName'] = PublisherName or Newsgroup, -- any apostrophe markup already removed from PublisherName

['URL'] = first_set ({ChapterURL, URL}, 2),

['Authors'] = coins_author,

['RawPage'] = this_page.prefixedText,

}, config.CitationClass);

 

-- Account for the oddities that are {{cite arxiv}}, {{cite biorxiv}}, {{cite citeseerx}}, and {{cite ssrn}} AFTER generation of COinS data.

Periodical = ''; -- periodical not allowed in these templates; if article has been published, use cite journal

end

 

-- special case for cite newsgroup. Do this after COinS because we are modifying Publishername to include some static text

end

 

local last_first_list;

local control = {

maximum = nil, -- as if display-authors or display-editors not set

lastauthoramp = LastAuthorAmp,

last_first_list, EditorCount = list_people(control, e, editor_etal);

 

Editors, editor_etal = name_has_etal (Editors, editor_etal, false, 'editors'); -- find and remove variations on et al.

if editor_etal then

last_first_list = list_people(control, a, author_etal);

 

Authors, author_etal = name_has_etal (Authors, author_etal, false, 'authors'); -- find and remove variations on et al.

if author_etal then

end -- end of do

Authors = Authors .. ' (' .. Collaboration .. ')'; -- add collaboration after et al.

end

 

-- apply |[xx-]format= styling; at the end, these parameters hold correctly styled format annotation,

ArchiveFormat = style_format (ArchiveFormat, ArchiveURL, 'archive-format', 'archive-url');

ConferenceFormat = style_format (ConferenceFormat, ConferenceURL, 'conference-format', 'conference-url');

 

-- special case for chapter format so no error message or cat when chapter not supported

ChapterFormat = style_format (ChapterFormat, ChapterURL, 'chapter-format', 'chapter-url');

end

 

('citation' == config.CitationClass and ('website' == Periodical_origin or 'script-website' == ScriptPeriodical_origin)) then -- and required for {{citation}} with |website= or |script-website=

end

-- do we have |accessdate= without either |url= or |chapter-url=?

AccessDate = '';

end

local OriginalURL, OriginalURL_origin, OriginalFormat, OriginalAccess;

UrlStatus = UrlStatus:lower(); -- used later when assembling archived text

OriginalURL = ChapterURL; -- save copy of source chapter's url for archive text

OriginalFormat = ChapterFormat; -- and original |chapter-format=

 

if 'live' ~= UrlStatus then

ChapterFormat = ArchiveFormat or ''; -- swap in archive's format

end

OriginalURL = URL; -- save copy of original source URL

OriginalFormat = Format; -- and original |format=

OriginalAccess = UrlAccess;

 

Format = ArchiveFormat or ''; -- swap in archive's format

end

end

end

 

local chap_param;

chap_param = A:ORIGIN ('Chapter')

chap_param = A:ORIGIN ('TransChapter')

chap_param = A:ORIGIN ('ChapterURL')

chap_param = ScriptChapter_origin;

chap_param = A:ORIGIN ('ChapterFormat')

end

 

Chapter = ''; -- and set them to empty string to be safe with concatenation

TransChapter = '';

else -- otherwise, format chapter / article title

local no_quotes = false; -- default assume that we will be quoting the chapter parameter value

no_quotes = true; -- then render it unquoted

end

 

Chapter = format_chapter_title (ScriptChapter, ScriptChapter_origin, Chapter, Chapter_origin, TransChapter, TransChapter_origin, ChapterURL, ChapterURL_origin, no_quotes, ChapterUrlAccess); -- Contribution is also in Chapter

Chapter = Chapter .. ChapterFormat ;

Chapter = Chapter .. ' ' .. TitleType; -- map annotation here; not after title

end

Chapter = ChapterFormat .. sepc .. ' '; -- ... ChapterFormat has error message, we want to see it

end

 

-- Format main title

end

 

Title = Title:gsub ('(%.%.%.)%.+$', '%1'); -- limit the number of dots to three

elseif not mw.ustring.find (Title, '%.%s*%a%.$') and -- end of title is not a 'dot-(optional space-)letter-dot' initialism ...

not mw.ustring.find (Title, '%s+%a%.$') then -- ...and not a 'space-letter-dot' initial (''Allium canadense'' L.)

end

end

 

else

end

 

local TransError = "";

TransTitle = " " .. TransTitle;

else

end

end

 

TitleLink = ''; -- unset

end

Title = external_link (URL, Title, URL_origin, UrlAccess) .. TransTitle .. TransError .. Format;

URL = ''; -- unset these because no longer needed

Format = "";

local ws_url;

ws_url = wikisource_url_make (TitleLink); -- ignore ws_label return; not used here

if ws_url then

Title = external_link (ws_url, Title .. '&nbsp;', 'ws link in title-link'); -- space char after Title to move icon away from italic text; TODO: a better way to do this?

Title = Title .. TransTitle .. TransError;

else

end

else

if ws_url then

Title = Title:gsub ('%b[]', ws_label); -- replace interwiki link with ws_label to retain markup

Title = external_link (ws_url, Title .. '&nbsp;', 'ws link in title'); -- space char after Title to move icon away from italic text; TODO: a better way to do this?

Title = Title .. TransTitle .. TransError;

else

end

 

Place = " " .. wrap_msg ('written', Place, use_lowercase) .. sepc .. " ";

end

 

Conference = external_link( ConferenceURL, Conference, ConferenceURL_origin, nil );

end

Conference = sepc .. " " .. Conference .. ConferenceFormat;

Conference = sepc .. " " .. external_link( ConferenceURL, nil, ConferenceURL_origin, nil );

end

 

local Minutes = A['Minutes'];

local Time = A['Time'];

 

end

Position = " " .. Minutes .. " " .. cfg.messages['minutes'];

else

local TimeCaption = A['TimeCaption']

TimeCaption = cfg.messages['event'];

if sepc ~= '.' then

Page, Pages, Sheet, Sheets = format_pages_sheets (Page, Pages, Sheet, Sheets, config.CitationClass, Periodical_origin, sepc, NoPP, use_lowercase);

 

if config.CitationClass == 'map' then

local Sections = A['Sections']; -- Section (singular) is an alias of Chapter so set earlier

local Inset = A['Inset'];

Inset = sepc .. " " .. wrap_msg ('inset', Inset, use_lowercase);

end

 

Section = sepc .. " " .. wrap_msg ('sections', Sections, use_lowercase);

Section = sepc .. " " .. wrap_msg ('section', Section, use_lowercase);

end

end

 

else

Language=""; -- language not specified so make sure this is an empty string;

end

 

Others = safe_join ({sepc .. ' ', wrap_msg ('translated', Translators, use_lowercase), Others}, sepc);

end

Others = safe_join ({sepc .. ' ', wrap_msg ('interview', Interviewers, use_lowercase), Others}, sepc);

end

if Edition:match ('%f[%a][Ee]d%.?$') or Edition:match ('%f[%a][Ee]dition$') then

end

Edition = " " .. wrap_msg ('edition', Edition);

end

 

Volume = format_volume_issue (Volume, Issue, config.CitationClass, Periodical_origin, sepc, use_lowercase);

 

------------------------------------ totally unrelated data

 

local retrv_text = " " .. cfg.messages['retrieved']

 

AccessDate = nowrap_date (AccessDate); -- wrap in nowrap span if date in appropriate format

if (sepc ~= ".") then retrv_text = retrv_text:lower() end -- if mode is cs2, lower case

 

end

end

ID = sepc .. ' ' .. Docket; -- overwrite ID even if |id= is set

end

 

URL = " " .. external_link( URL, nil, URL_origin, UrlAccess );

end

 

end

PostScript = ""; -- cs1|2 does not supply terminal punctuation when |quote= is set

end

local Archived

local arch_text;

end

if "live" == UrlStatus then

arch_text = cfg.messages['archived'];

if sepc ~= "." then arch_text = arch_text:lower() end

{ external_link( ArchiveURL, arch_text, A:ORIGIN('ArchiveURL'), nil ) .. ArchiveFormat, ArchiveDate } );

end

arch_text = cfg.messages['archived-unfit'];

if sepc ~= "." then arch_text = arch_text:lower() end

Archived = sepc .. " " .. arch_text .. ArchiveDate; -- format already styled

if 'bot: unknown' == UrlStatus then

else

end

else -- UrlStatus is empty, 'dead'

arch_text = cfg.messages['archived-dead'];

if sepc ~= "." then arch_text = arch_text:lower() end

{ external_link( OriginalURL, cfg.messages['original'], OriginalURL_origin, OriginalAccess ) .. OriginalFormat, ArchiveDate } ); -- format already styled

end

arch_text = cfg.messages['archived-missing'];

if sepc ~= "." then arch_text = arch_text:lower() end

end

Archived = ArchiveFormat; -- if set and ArchiveURL not set ArchiveFormat has error message

else

local Lay = '';

else

LaySource = "";

Lay = sepc .. " " .. external_link( LayURL, cfg.messages['lay summary']:lower(), A:ORIGIN('LayURL'), nil ) .. LayFormat .. LaySource .. LayDate

end

Lay = sepc .. LayFormat; -- if set and LayURL not set, then LayFormat has error message

end

 

Transcript = external_link( TranscriptURL, Transcript, TranscriptURL_origin, nil );

end

Transcript = sepc .. ' ' .. Transcript .. TranscriptFormat;

Transcript = external_link( TranscriptURL, nil, TranscriptURL_origin, nil );

end

 

local Publisher;

PublicationDate = wrap_msg ('published', PublicationDate);

end

Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;

else

Publisher = sepc .. " " .. PublisherName .. PublicationDate;

end

Publisher= sepc .. " " .. PublicationPlace .. PublicationDate;

else

-- Several of the above rely upon detecting this as nil, so do it last.

Periodical = sepc .. " " .. format_periodical (ScriptPeriodical, ScriptPeriodical_origin, Periodical, TransPeriodical, TransPeriodical_origin);

else

if "speech" == config.CitationClass then -- cite speech only

TitleNote = " (Speech)"; -- annotate the citation

Conference = Conference .. sepc .. " "; -- then add appropriate punctuation to the end of the Conference variable before rendering

end

local tcommon2; -- used for book cite when |contributor= is set

tcommon = safe_join( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language, Edition, Publisher, Agency, Volume}, sepc );

tcommon = safe_join( {Title, TitleNote}, sepc ); -- author and other stuff will come after this and before tcommon2

tcommon2 = safe_join( {Conference, Periodical, Format, TitleType, Series, Language, Volume, Others, Edition, Publisher, Agency}, sepc );

 

elseif 'map' == config.CitationClass then -- special cases for cite map

tcommon = safe_join( {Title, Format, Edition, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );

tcommon = safe_join( {Title, TitleType, Format, Periodical, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );

else -- a sheet or stand-alone map

local pgtext = Position .. Sheet .. Sheets .. Page .. Pages .. At;

 

else -- neither of authors and editors set

else

end

end

end

Authors = terminate_name_list (Authors, sepc); -- when no date, terminate with 0 or 1 sepc and a space

end

local in_text = " ";

local post_text = "";

in_text = in_text .. cfg.messages['in'] .. " "

if (sepc ~= '.') then

Editors = terminate_name_list (in_text .. Editors .. post_text, sepc); -- terminate with 0 or 1 sepc and a space

end

local by_text = sepc .. ' ' .. cfg.messages['by'] .. ' ';

if (sepc ~= '.') then by_text = by_text:lower() end -- lowercase for cs2

Authors = by_text .. Authors; -- author follows title so tweak it here

Authors = terminate_name_list (Authors, sepc); -- terminate with 0 or 1 sepc and a space

end

Contributors = terminate_name_list (Contributors, sepc); -- terminate with 0 or 1 sepc and a space

end

text = safe_join( {Authors, Date, Chapter, Place, Editors, tcommon, pgtext, idcommon }, sepc );

end

if EditorCount <= 1 then

Editors = Editors .. ", " .. cfg.messages['editor'];

text = safe_join( {Editors, Date, Chapter, Place, tcommon, pgtext, idcommon}, sepc );

else

text = safe_join( {Chapter, Place, tcommon, pgtext, Date, idcommon}, sepc );

else

end

text = safe_join( {text, sepc}, sepc ); --Deals with italics, spaces, etc.

end

local options = {};

else

end

local id = Ref

if ('harv' == Ref ) then

end

z.error_categories = {};

z.message_tail = {};

end

local render = {}; -- here we collect the final bits for concatenation into the rendered citation

 

else

end

 

 

if 0 ~= #z.message_tail then

table.insert (render, ' ');

for i,v in ipairs( z.message_tail ) do

if i == #z.message_tail then

else

end

end

table.insert (maint, v); -- maint msg is the category name

table.insert (maint, ' ('); -- open the link text

table.insert (maint, ')'); -- and close it

table.insert (maint_msgs, table.concat (maint)); -- assemble new maint message and add it to the maint_msgs table

end

end

if not no_tracking_cats then

for _, v in ipairs( z.error_categories ) do

end

for _, v in ipairs( z.maintenance_cats ) do -- append maintenance categories

end

for _, v in ipairs( z.properties_cats ) do -- append properties categories

end

end

 

]]

 

local name = tostring (name);

local state;

local function state_test (state, name) -- local function to do testing of state values

if true == state then return true; end -- valid actively supported parameter

if false == state then

deprecated_parameter (name); -- parameter is deprecated but still supported

return true;

end

 

state = whitelist.limited_basic_arguments[name];

if true == state_test (state, name) then return true; end

 

-- limited enumerated parameters list

if true == state_test (state, name) then return true; end

 

end -- end limited parameter-set templates

 

state = whitelist.unique_arguments[cite_class][name]; -- look in the template-specific parameter-lists for the template identified by cite_class

if true == state_test (state, name) then return true; end

 

-- all enumerated parameters allowed

if true == state_test (state, name) then return true; end

 

return false; -- not supported because not found or name is set to nil

end

 

parameter that is missing its pipe. There are two tests made:

{{cite ... |title=Title access-date=2016-03-17}} -- the first parameter has a value and whitespace separates that value from the missing pipe parameter name

tags are removed before the search.

 

local function missing_pipe_check (parameter, value)

local capture;

 

capture = value:match ('%s+(%a[%w%-]+)%s*=') or value:match ('^(%a[%w%-]+)%s*='); -- find and categorize parameters with possible missing pipes

if capture and validate (capture) then -- if the capture is a valid parameter name

end

end

if value:match ('[,;:]$') then

end

end

 

local function citation(frame)

local pframe = frame:getParent()

if nil ~= string.find (frame:getTitle(), 'sandbox', 1, true) then -- did the {{#invoke:}} use sandbox version?

metadata = require ('Module:Citation/CS1/COinS');

styles = 'Module:Citation/CS1/styles.css';

end

 

identifiers.set_selected_modules (cfg, utilities); -- so that functions in Identifiers can see the selected cfg tables and selected Utilities module

validation.set_selected_modules (cfg, utilities); -- so that functions in Date validataion can see selected cfg tables and the selected Utilities module

metadata.set_selected_modules (cfg, utilities); -- so that functions in COinS can see the selected cfg tables and selected Utilities module

 

z = utilities.z; -- table of error and category tables in Module:Citation/CS1/Utilities

 

local args = {}; -- table where we store all of the template's arguments

 

local capture; -- the single supported capture when matching unknown parameters using patterns

for k, v in pairs( pframe.args ) do -- get parameters from the parent (template) frame

if v ~= '' then

if ('string' == type (k)) then

error_text = "";

if type( k ) ~= 'string' then

if v:match("%S+") ~= nil then

end

elseif validate( k:lower(), config.CitationClass ) then

else

if nil == suggestions.suggestions then -- if this table is nil then we need to load it

end

for pattern, param in pairs (suggestions.patterns) do -- loop through the patterns to see if we can suggest a proper parameter

if capture then -- if the pattern matches

if validate (param, config.CitationClass) then -- validate the suggestion to make sure that the suggestion is supported by this template (necessary for limited parameter lists)

else

v = ''; -- unset

end

end

end

if suggestions.suggestions[ k:lower() ] ~= nil then

else

v = ''; -- unset value assigned to unrecognized parameters (this for the limited parameter lists)

end

args[k] = v; -- save this parameter and its value

 

-- crude debug support that allows us to render a citation from module {{#invoke:}} TODO: keep?

-- elseif args[k] ~= nil or (k == 'postscript') then -- when args[k] has a value from {{#invoke}} frame (we don't normally do that)

end -- not sure about the postscript bit; that gets handled in parameter validation; historical artifact?

end

 

for k, v in pairs( args ) do

has_extraneous_punc (k, v); -- look for extraneous terminal punctuation in parameter values

missing_pipe_check (k, v); -- do we think that there is a parameter that is missing a pipe?

end