local cs1 ={}; [[----< F O R W A R D D E C L A R A T I O N S >------ ]] local dates, year_date_check, reformat_dates, date_hyphen_to_dash, functions in Module:Citation/CS1/Date_validation date_name_xlate local is_set, in_array, substitute, error_comment, set_error, select_one, functions in Module:Citation/CS1/Utilities add_maint_cat, wrap_style, safe_for_italics, is_wikilink, make_wikilink; local z ={}; tables in Module:Citation/CS1/Utilities local extract_ids, extract_id_access_levels, build_id_list, is_embargoed; functions in Module:Citation/CS1/Identifiers local make_coins_title, get_coins_pages, COinS; functions in Module:Citation/CS1/COinS 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 [[--< P A G E S C O P E V A R I A B L E S >------ delare variables here that have page-wide scope that are not brought in from other modules; thatare created here and used here ]] local added_deprecated_cat; boolean flag so that the category is added only once local added_prop_cats = {}; list of property categories that have been added to z.properties_cats local added_vanc_errs; boolean flag so we only emit one Vancouver error / category local Frame; holds the module's frame table [[----< F I R S T S E T >-------- Locates and returns the first set value in a table of values where the order established in the table, left-to-right (or top-to-bottom), is the order in which the values are evaluated. Returns nil if none are set. This version replaces the original 'for , val in pairs do' and a similar version that used ipairs. With the pairs version the order of evaluation could not be guaranteed. With the ipairs version, a nil value would terminate the for-loop before it reached the actual end of the list. ]] local function first_set (list, count) local i = 1; while i <= count do loop through all items in list

if is_set( list[i] ) then
  return list[i];                            -- return the first set list member
end
i = i + 1;                                -- point to next

added_prop_cats [key] = true;                      -- note that we've added this category
key = key:gsub ('(foreign_lang_source_?2?)%a%a%a?', '%1');        -- strip lang code from keyname
table.insert( z.properties_cats, substitute (cfg.prop_cats [key], arguments));    -- make name then add to table

added_vanc_errs = true;                          -- note that we've added this category
table.insert( z.message_tail, { set_error( 'vancouver', {source}, true ) } );

section-3.1 which says:

Scheme names consist of a sequence of characters beginning with a letter and followed by any combination of letters, digits, plus ("+"), period ("."), or hyphen ("-"). returns true if it does, else false ]] local function is_scheme (scheme) return scheme and scheme:match ('^%a[%a%d%+%.%-]*:'); true if scheme is set and matches the pattern end [=[-----< I S D O M A I N N A M E >------ Does this thing that purports to be a domain name seem to be a valid domain name? Syntax defined here: http://tools.ietf.org/html/rfc1034

section-3.5

BNF defined here: https://tools.ietf.org/html/rfc4234 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]] list of tlds: https://www.iana.org/domains/root/db rfc952 (modified by rfc 1123) requires the first and last character of a hostname to be a letter or a digit. Between the first and last characters the name may use letters, digits, and the hyphen. Also allowed are IPv4 addresses. IPv6 not supported domain is expected to be stripped of any path so that the last character in the last character of the tld. tld is two or more alpha characters. Any preceding '//' (from splitting a url with a scheme) will be stripped here. Perhaps not necessary but retained incase it is necessary for IPv4 dot decimal. There are several tests: the first character of the whole domain name including subdomains must be a letter or a digit internationalized domain name (ascii characters with .xn-- ASCII Compatible Encoding (ACE) prefix xn-- in the tld) see https://tools.ietf.org/html/rfc3490 single-letter/digit second-level domains in the .org and .cash TLDs q, x, and z SL domains in the .com TLD i and q SL domains in the .net TLD single-letter SL domains in the ccTLDs (where the ccTLD is two letters) two-character SL domains in gTLDs (where the gTLD is two or more letters) three-plus-character SL domains in gTLDs (where the gTLD is two or more letters) IPv4 dot-decimal address format; TLD not allowed returns true if domain appears to be a proper name and tld or IPv4 address, else false ]=] local function is_domain_name (domain) if not domain then

return false;                              -- if not set, abandon

return false;

                                    -- Do most common case first

return true;

return true;

return true;

return true;

return true;

return true;

return true;

return true;

return true;

return false;

return is_scheme (scheme) and is_domain_name (domain);

return is_domain_name (domain);                      -- scheme not set when url is protocol relative

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

scheme, authority, domain = url_str:match ('(%S-:)(/*)(%S+)');      -- extract the scheme, authority indicator, and domain portions
authority = authority:gsub ('//', '', 1);                -- replace place 1 pair of '/' with nothing;
if is_set(authority) then                        -- if anything left (1 or 3+ '/' where authority should be) then
  return scheme;                            -- return scheme only making domain nil which will cause an error message
end
domain = domain:gsub ('(%a):%d+', '%1');                -- strip port number if present

< > [ ] | { } _

except the underscore which is used as a space in wiki urls and # which is used for section links returns false when the value contains any of these characters. When there are no illegal characters, this function returns TRUE if value DOES NOT appear to be a valid url (the |<param>-link= parameter is ok); else false when value appears to be a valid url (the |<param>-link= parameter is NOT ok). ]] local function link_param_ok (value) local scheme, domain; if value:find ('[<>%[%]|{}]') then if any prohibited characters

return false;

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

table.insert( z.message_tail, { set_error( 'bad_paramlink', orig)});  -- url or wikilink in |title= with |title-link=;

section-3.1.4

]] local function check_url( url_str ) if nil == url_str:match ("^{%S+$") then if there are any spaces in |url=value it can't be a proper url}

return false;

return domain:match('^[%a%d%+%-_]+%.[%a%d%+%-_%.]*[%a%d%+%-_]$');

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

return false;                              -- didn't find anything that is obviously a url

if is_parameter_ext_wikilink (v) then                  -- look at the value; if there is a url add an error message
  if is_set(error_message) then                    -- once we've added the first portion of the error message ...
    error_message=error_message .. ", ";              -- ... add a comma space separator
  end
  error_message=error_message .. "|" .. k .. "=";        -- add the failed parameter
end

table.insert( z.message_tail, { set_error( 'param_has_ext_link', {error_message}, true ) } );

table.insert( z.message_tail, { set_error( 'wikilink_in_url', {}, true ) } );

['['] = '[',
[']'] = ']',
['\n'] = ' ' } );

label = URL;
if is_set( source ) then
  error_str = set_error( 'bare_url_missing_title', { wrap_style ('parameter', source) }, false, " " );
else
  error( cfg.messages["bare_url_no_origin"] );
end      

error_str = set_error( 'bad_url', {wrap_style ('parameter', source)}, false, " " ) .. error_str;

path = path:gsub ('[%[%]]', {['[']='%5b',[']']='%5d'});          -- replace '[' and ']' with their percent encoded values
URL=domain..path;                            -- and reassemble

label = safe_for_url (label);                      -- replace square brackets and newlines
base_url = table.concat (                        -- assemble external link with access signal
  {
  '<span class="plainlinks">[',                    -- opening css and url markup
  URL,                                -- the url
  ' ',                                -- the required space
  label,
  '<span style="padding-left:0.15em">',                -- signal spacing css
  cfg.presentation[access],                      -- the appropriate icon
  '</span>',                              -- close signal spacing span
  ']</span>'                              -- close url markup and plain links span
  });

base_url = table.concat({ "[", URL, " ", safe_for_url( label ), "]" });  -- no signal markup

added_deprecated_cat = true;                      -- note that we've added this category
table.insert( z.message_tail, { set_error( 'deprecated_params', {name}, true ) } );    -- add error message

if mw.ustring.match (str, '%[%[[\"“”\'‘’].+[\"“”\'‘’]%]%]') then    -- leading and trailing quote marks
  str = substitute (cfg.presentation['kern-wl-both'], str);
elseif mw.ustring.match (str, '%[%[[\"“”\'‘’].+%]%]')  then      -- leading quote marks
  str = substitute (cfg.presentation['kern-wl-left'], str);
elseif mw.ustring.match (str, '%[%[.+[\"“”\'‘’]%]%]') then        -- trailing quote marks
  str = substitute (cfg.presentation['kern-wl-right'], str);
end

label= mw.ustring.gsub (label, '[“”]', '\"');              -- replace “” (U+201C & U+201D) with " (typewriter double quote mark)
label= mw.ustring.gsub (label, '[‘’]', '\'');              -- replace ‘’ (U+2018 & U+2019) with ' (typewriter single quote mark)
cap, cap2 = mw.ustring.match (label, "^([\"\'])([^\'].+)");        -- match leading double or single quote but not doubled single quotes (italic markup)
if is_set (cap) then
  label = substitute (cfg.presentation['kern-left'], {cap, cap2});
end
cap, cap2 = mw.ustring.match (label, "^(.+[^\'])([\"\'])$")        -- match trailing double or single quote but not doubled single quotes (italic markup)
if is_set (cap) then
  label = substitute (cfg.presentation['kern-right'], {cap, cap2});
end
if 2 == wl_type then
  str = make_wikilink (link, label);                  -- reassemble the wikilink
else
  str = label;
end

lang = script_value:match('^(%l%l)%s*:%s*%S.*');            -- get the language prefix or nil if there is no script
if not is_set (lang) then
  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, "en" );  -- get language name so that we can use it to categorize
if is_set (name) then                          -- is prefix a proper ISO 639-1 language code?
  script_value = script_value:gsub ('^%l%l%s*:%s*', '');        -- strip prefix from script
                                    -- is prefix one of these language codes?
  if in_array (lang, cfg.script_lang_codes) then
    add_prop_cat ('script_with_name', {name, lang})
  else
    add_prop_cat ('script')
  end
  lang = ' lang="' .. lang .. '" ';                  -- convert prefix into a lang attribute
else
  lang = '';                              -- invalid so set lang to empty string
end

script = format_script_value (script);                  -- <bdi> tags, lang atribute, categorization, etc; returns empty string on error
if is_set (script) then
  title = title .. ' ' .. script;                    -- concatenate title and script title
end

return "";

local msg;
msg = cfg.messages[key]:lower();                    -- set the message to lower case before 
return substitute( msg, str );                    -- including template text

return substitute( cfg.messages[key], str );

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

if false == no_quotes then
  chapter = kern_quotes (chapter);                  -- if necessary, separate chapter title's leading and trailing quote marks from Module provided quote marks
  chapter = wrap_style ('quoted-title', chapter);
end

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

transchapter = wrap_style ('trans-quoted-title', transchapter);
if is_set (chapter) then
  chapter = chapter ..  ' ' .. transchapter;
else                                  -- here when transchapter without chapter or script-chapter
  chapter = transchapter;                        -- 
  chapter_error = ' ' .. set_error ('trans_missing_title', {'chapter'});
end

return;

local char=cfg.invisible_chars[i][1]                  -- the character or group name
local pattern=cfg.invisible_chars[i][2]                  -- the pattern used to find it
position, dummy, capture = mw.ustring.find (v, pattern)          -- see if the parameter value contains characters that match the pattern
if position and (char == 'zero width joiner') then            -- if we found a zero width joiner character
  if mw.ustring.find (v, cfg.indic_script) then            -- its ok if one of the indic scripts
    position = nil;                          -- unset position
  end
end
if position then
  if 'nowiki' == capture or 'math' == capture then           -- nowiki, math stripmarker (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
    position = nil;                          -- unset
  else
    local err_msg;
    if capture then
      err_msg = capture .. ' ' .. char;
    else
      err_msg = char .. ' ' .. 'character';
    end
    table.insert( z.message_tail, { set_error( 'invisible_char', {err_msg, wrap_style ('parameter', param), position}, true ) } );  -- add error message
    return;                              -- and done with this parameter
  end
end
i=i+1;                                  -- bump our index

ORIGIN = function( self, k )
  local dummy = self[k]; --force the variable to be loaded.
  return origin[k];
end

__index = function ( tbl, k )
  if origin[k] ~= nil then
    return nil;
  end
  local args, list, v = args, cfg.aliases[k];
  if type( list ) == 'table' then
    v, origin[k] = select_one( args, list, 'redundant_parameters' );
    if origin[k] == nil then
      origin[k] = ''; -- Empty string, not nil
    end
  elseif list ~= nil then
    v, origin[k] = args[list], list;
  else
    -- maybe let through instead of raising an error?
    -- v, origin[k] = args[k], k;
    error( cfg.messages['unknown_argument_map'] );
  end
  -- Empty strings, not nil;
  if v == nil then
    v = cfg.defaults[k] or '';
    origin[k] = '';
  end
  tbl = rawset( tbl, k, v );
  return v;
end,

state = whitelist.limited_basic_arguments[ name ];
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
if 'arxiv' == cite_class then                      -- basic parameters unique to these templates
  state = whitelist.arxiv_basic_arguments[name];
end
if 'biorxiv' == cite_class then
  state = whitelist.biorxiv_basic_arguments[name];
end
if 'citeseerx' == cite_class then
  state = whitelist.citeseerx_basic_arguments[name];
end
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
                                    -- limited enumerated parameters list
name = name:gsub("%d+", "#" );                      -- replace digit(s) with # (last25 becomes last#) (mw.ustring because non-Western 'local' digits)
state = whitelist.limited_numbered_arguments[ name ];
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
return false;                              -- not supported because not found or name is set to nil

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

                                    -- all enumerated parameters allowed

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

date = substitute (cfg.presentation['nowrap1'], date);

cap, cap2 = string.match (date, "^(.*)%s+(%d%d%d%d)$");
date = substitute (cfg.presentation['nowrap2'], {cap, cap2});

if "none" == title_type then
  title_type = "";                          -- if |type=none then type parameter not displayed
end
return title_type;                            -- if |type= has been set to any other value use that value

return str;

if 1 == 

  f.gsub=string.gsub
  f.match=string.match
  f.sub=string.sub
else                                  -- for multi-byte characters use the ustring library functions
  f.gsub=mw.ustring.gsub
  f.match=mw.ustring.match
  f.sub=mw.ustring.sub
end

if value == nil then value = ''; end
if str == '' then                            -- if output string is empty
  str = value;                            -- assign value to it (first time through the loop)
elseif value ~= '' then
  if value:sub(1,1) == '<' then                    -- Special case of values enclosed in spans and other markup.
    comp = value:gsub( "%b<>", "" );                -- remove html markup (<span>string</span> -> string)
  else
    comp = value;
  end
                                    -- typically duplicate_char is sepc
  if f.sub(comp, 1,1) == duplicate_char then              -- is first character same as duplicate_char? why test first character?
                                    --   Because individual string segments often (always?) begin with terminal punct for the
                                    --   preceding segment: 'First element' .. 'sepc next element' .. etc?
    trim = false;
    end_chr = f.sub(str, -1,-1);                  -- get the last character of the output string
    -- str = str .. "<HERE(enchr=" .. end_chr.. ")"          -- debug stuff?
    if end_chr == duplicate_char then                -- if same as separator
      str = f.sub(str, 1,-2);                    -- remove it
    elseif end_chr == "'" then                    -- if it might be wikimarkup
      if f.sub(str, -3,-1) == duplicate_char .. "''" then      -- if last three chars of str are sepc'' 
        str = f.sub(str, 1, -4) .. "''";            -- remove them and add back ''
      elseif  f.sub(str, -5,-1) == duplicate_char .. "]]''" then  -- if last five chars of str are sepc]]'' 
        trim = true;                      -- why? why do this and next differently from previous?
      elseif f.sub(str, -4,-1) == duplicate_char .. "]''" then  -- if last four chars of str are sepc]'' 
        trim = true;                      -- same question
      end
    elseif end_chr == "]" then                    -- if it might be wikimarkup
      if f.sub(str, -3,-1) == duplicate_char .. "]]" then      -- if last three chars of str are sepc]] wikilink 
        trim = true;
      elseif f.sub(str, -3,-1) == duplicate_char .. '"]' then    -- if last three chars of str are sepc"] quoted external link 
        trim = true;
      elseif  f.sub(str, -2,-1) == duplicate_char .. "]" then    -- if last two chars of str are sepc] external link
        trim = true;
      elseif f.sub(str, -4,-1) == duplicate_char .. "'']" then  -- normal case when |url=something & |title=Title.
        trim = true;
      end
    elseif end_chr == " " then                    -- if last char of output string is a space
      if f.sub(str, -2,-1) == duplicate_char .. " " then      -- if last two chars of str are <sepc><space>
        str = f.sub(str, 1,-3);                  -- remove them both
      end
    end
    if trim then
      if value ~= comp then                     -- value does not equal comp when value contains html markup
        local dup2 = duplicate_char;
        if f.match(dup2, "%A" ) then dup2 = "%" .. dup2; end  -- if duplicate_char not a letter then escape it
        value = f.gsub(value, "(%b<>)" .. dup2, "%1", 1 )    -- remove duplicate_char if it follows html markup
      else
        value = f.sub(value, 2, -1 );              -- remove duplicate_char when it is first character
      end
    end
  end
  str = str .. value;                          --add it to the output string
end

return true;

if not is_suffix (suffix) then
  add_vanc_error ('suffix');
  return false;                            -- not a name with an appropriate suffix
end

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 ('non-Latin character');
  return false;                            -- not a string of latin characters; Vancouver requires Romanization

name = mw.ustring.match(first, "^(%u+)$");                -- is it just intials?

if 3 > mw.ustring.len (name) then                    -- if one or two initials
  if suffix then                            -- if there is a suffix
    if is_suffix (suffix) then                    -- is it legitimate?
      return first;                        -- one or two initials and a valid suffix so nothing to do
    else
      add_vanc_error ('suffix');                  -- one or two initials with invalid suffix so error message
      return first;                        -- and return first unmolested
    end
  else
    return first;                          -- one or two initials without suffix; nothing to do
  end
end

if 1 < i and names[i]:match ('[%dJS][%drndth]+%.?$') then        -- if not the first name, and looks like a suffix (may have trailing dot)
  names[i] = names[i]:gsub ('%.', '');                -- remove terminal dot if present
  if is_suffix (names[i]) then                    -- if a legitimate suffix
    table.insert (initials, ' ' .. names[i]);            -- add a separator space, insert at end of initials table
    break;                              -- and done because suffix must fall at the end of a name
  end                                  -- no error message if not a suffix; possibly because of Romanization
end
if 3 > i then
  table.insert (initials, mw.ustring.sub(names[i],1,1));        -- insert the intial at end of initials table
end
i = i+1;                                -- bump the counter

sep = cfg.presentation['sep_nl_vanc'];                  -- name-list separator between authors is a comma
namesep = cfg.presentation['sep_name_vanc'];              -- last/first separator is a space

sep = cfg.presentation['sep_nl'];                    -- name-list separator between authors is a semicolon
namesep = cfg.presentation['sep_name'];                  -- last/first separator is <comma><space>

if is_set(person.last) then
  local mask = person.mask
  local one
  local sep_one = sep;
  if is_set (maximum) and i > maximum then
    etal = true;
    break;
  elseif (mask ~= nil) then
    local n = tonumber(mask)
    if (n ~= nil) then
      one = string.rep("—",n)
    else
      one = mask;
      sep_one = " ";
    end
  else
    one = person.last
    local first = person.first
    if is_set(first) then
      if ( "vanc" == format ) then                -- if vancouver format
        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
          first = reduce_to_initials(first)          -- attempt to convert first name(s) to initials
        end
      end
      one = one .. namesep .. first;
    end
    if is_set(person.link) and person.link ~= control.page_name then
      one = make_wikilink (person.link, one);            -- link author/editor if this page is not the author's/editor's page
    end
  end
  table.insert( text, one )
  table.insert( text, sep_one )
end

text / 2; -- (number of names + number of separators) divided by 2

if count > 0 then

if count > 1 and is_set(lastauthoramp) and not etal then
  text[

end
text[

result = result .. sep .. ' ' .. cfg.messages['et al'];          -- we've go a last-first list and etal so add et al.

names[i] = v.last 
if i == 4 then break end                        -- if four then done

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

return '';                                -- return an empty string; no reason to include CITEREF id in this citation

local etal_pattern = "[;,]? *[\"']*%f[%a][Ee][Tt] *[Aa][Ll][%.\"']*$"  -- variations on the 'et al' theme
local others_pattern = "[;,]? *%f[%a]and [Oo]thers";          -- and alternate to et al.
if name:match (etal_pattern) then                    -- variants on et al.
  name = name:gsub (etal_pattern, '');                -- if found, remove
  etal = true;                            -- set flag (may have been set previously here or by |display-authors=etal)
  if not nocat then                          -- no categorization for |vauthors=
    add_maint_cat ('etal');                      -- and add a category if not already added
  end
elseif name:match (others_pattern) then                  -- if not 'et al.', then 'and others'?
  name = name:gsub (others_pattern, '');                -- if found, remove
  etal = true;                            -- set flag (may have been set previously here or by |display-authors=etal)
  if not nocat then                          -- no categorization for |vauthors=
    add_maint_cat ('etal');                      -- and add a category if not already added
  end
end

'%f[%(%[][%(%[]%s*[Ee][Dd][Ss]?%.?%s*[%)%]]?$',              -- (ed) or (eds): leading '(', case insensitive 'ed', optional 's', '.' and/or ')'
'[,%.%s]%f[e]eds?%.?$',                          -- ed or eds: without '('or ')'; case sensitive (ED could be initials Ed could be name)
'%f[%(%[][%(%[]%s*[Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%.?%s*[%)%]]?$',      -- (editor) or (editors): leading '(', case insensitive, optional '.' and/or ')'
'[,%.%s]%f[Ee][Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%.?$',            -- editor or editors: without '('or ')'; case insensitive
                                    -- these patterns match annotations at beginning of name
'^eds?[%.,;]',                              -- ed. or eds.: lower case only, optional 's', requires '.'
'^[%(%[]%s*[Ee][Dd][Ss]?%.?%s*[%)%]]',                  -- (ed) or (eds): also sqare brackets, case insensitive, optional 's', '.'
'^[%(%[]?%s*[Ee][Dd][Ii][Tt][Oo][Rr][Ss]?%A',              -- (editor or (editors: also sq brackets, case insensitive, optional brackets, 's'
'^[%(%[]?%s*[Ee][Dd][Ii][Tt][Ee][Dd]%A',                -- (edited: also sq brackets, case insensitive, optional brackets
}

for _, pattern in ipairs (patterns) do                  -- spin through patterns table and
  if name:match (pattern) then
    add_maint_cat ('extra_text_names', cfg.special_case_translation [list_name]);  -- add a maint cat for this template
    break;
  end
end

_, count = name:gsub ('[;,]', '');                    -- count the number of separator-like characters
if 1 < count then                            -- param could be |author= or |editor= so one separator character is acceptable
  add_maint_cat ('mult_names', cfg.special_case_translation [list_name]);  -- more than one separator indicates multiple names so add a maint cat for this template
end

if last:match ('^%(%(.*%)%)$') then                    -- if wrapped in doubled parentheses, accept as written 
  last = last:match ('^%(%((.*)%)%)$');                -- strip parens
else
  last = name_has_mult_names (last, list_name);            -- check for multiple names in the parameter (last only)
  last = name_has_ed_markup (last, list_name);            -- check for extraneous 'editor' annotation
end

if first:match ('^%(%(.*%)%)$') then                  -- if wrapped in doubled parentheses, accept as written 
  first = first:match ('^%(%((.*)%)%)$');                -- strip parens
else
  first = name_has_ed_markup (first, list_name);            -- check for extraneous 'editor' annotation
end

last = select_one( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );    -- search through args for name components beginning at 1
first = select_one( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i );
link = select_one( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i );
mask = select_one( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i );
last, etal = name_has_etal (last, etal, false);              -- find and remove variations on et al.
first, etal = name_has_etal (first, etal, false);            -- find and remove variations on et al.
last, first= name_checks (last, first, list_name);            -- multiple names, extraneous annotation, etc checks
if first and not last then                        -- if there is a firstn without a matching lastn
  table.insert( z.message_tail, { set_error( 'first_missing_last', {err_msg_list_name, i}, true ) } );  -- add this error message
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
  if 2 <= count then                          -- two missing names and we give up
    break;                              -- normal exit or there is a two-name hole in the list; can't tell which
  end
else                                  -- we have last with or without a first
  link_title_ok (link, list_name:match ("(%w+)List"):lower() .. '-link' .. i, last, list_name:match ("(%w+)List"):lower() .. '-last' .. i);  -- check for improper wikimarkup
  names[n] = {last = last, first = first, link = link, mask = mask, corporate=false};  -- add this name to our names list (corporate for |vauthors= only)
  n = n + 1;                              -- point to next location in the names table
  if 1 == count then                          -- if the previous name was missing
    table.insert( z.message_tail, { set_error( 'missing_name', {err_msg_list_name, i-1}, true ) } );    -- add this error message
  end
  count = 0;                              -- reset the counter, we're looking for two consecutive missing names
end
i = i + 1;                                -- point to next args location

return cfg.lang_name_remap[lang:lower()][1], cfg.lang_name_remap[lang:lower()][2];  -- for this language 'name', return a possibly new name and appropriate code

                                    -- ('all' is required for North Ndebele, South Ndebele, and Ojibwa)

if langlc == mw.ustring.lower(name) then
  if 2 ~= code:len() and 3 ~= code:len() then              -- two- or three-character codes only; extensions not supported
    return name;                          -- so return the name but not the code
  end
  return name, code;                          -- found it, return name to ensure proper capitalization and the the code
end

if lang:match ('^%a%a%-') then                      -- strip ietf language tags from code; TODO: is there a need to support 3-char with tag?
  lang = lang:match ('(%a%a)%-')                    -- keep only 639-1 code portion to lang; TODO: do something with 3166 alpha 2 country code?
end
if 2 == lang:len() or 3 == lang:len() then                -- if two-or three-character code
  name = mw.language.fetchLanguageName( lang:lower(), this_wiki_code);  -- get language name if |language= is a proper code
  if not is_set (name) then
    name = cfg.lang_code_remap[lang];                -- not supported by MediaWiki; is it in remap?
  end
end
if is_set (name) then                          -- if |language= specified a valid code
  code = lang:lower();                        -- save it
else
  name, code = get_iso639_code (lang, this_wiki_code);        -- attempt to get code from name (assign name here so that we are sure of proper capitalization)
end
if is_set (code) then                          -- only 2- or 3-character codes
  name = cfg.lang_code_remap[code] or name;              -- override wikimedia when they misuse language codes/names
  if 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
      add_prop_cat ('foreign_lang_source' .. code, {name, code})  -- categorize it
    else                              -- or is a recognized language (but has a three-character code)
      add_prop_cat ('foreign_lang_source_2' .. code, {code})    -- categorize it differently TODO: support mutliple three-character code categories per cs1|2 template
    end
  end
else
  add_maint_cat ('unknown_lang');                    -- add maint category if not already added
end
table.insert (language_list, name);
name = '';                                -- so we can reuse it

language_list -- reuse code as number of languages in the list

if 2 >= code then

name = table.concat (language_list, ' and ')              -- insert '<space>and<space>' between two language names

language_list[code] = 'and ' .. language_list[code];          -- prepend last name with 'and<space>'
name = table.concat (language_list, ', ')                -- and concatenate with '<comma><space>' separators

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

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

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

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

sep, ps, ref = set_cs2_style (ps, ref);

sep, ps = set_cs1_style (ps);

invoke: to establish style.

]] local function set_style (mode, ps, ref, cite_class) local sep; if 'cs2' == mode then if this template is to be rendered in CS2 (citation) style

sep, ps, ref = set_cs2_style (ps, ref);

sep, ps = set_cs1_style (ps);

sep, ps, ref = get_settings_from_cite_class (ps, ref, cite_class);    -- get settings based on the template's CitationClass

ps = '';                                -- set to empty string

format = wrap_style ('format', format);                  -- add leading space, parentheses, resize
if not is_set (url) then
  format = format .. set_error( 'format_missing_url', {fmt_param, url_param} );  -- add an error message
end

format = wrap_style ('format', 'PDF');                  -- set format to pdf

format = '';                              -- empty string for concatenation

a or

e

list_name: 'authors' or 'editors' etal: author_etal or editor_etal ]] local function get_display_authors_editors (max, count, list_name, etal) if is_set (max) then

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.
  etal = true;                            -- overrides value set by extract_names()
elseif max:match ('^%d+$') then                      -- if is a string of numbers
  max = tonumber (max);                        -- make it a number
  if max >= count then                        -- if |display-xxxxors= value greater than or equal to number of authors/editors
    add_maint_cat ('disp_auth_ed', cfg.special_case_translation [list_name]);
  end
else                                  -- not a valid keyword or number
  table.insert( z.message_tail, { set_error( 'invalid_param_val', {'display-' .. list_name, max}, true ) } );    -- add error message
  max = nil;                              -- unset; as if |display-xxxxors= had not been set
end

add_maint_cat ('extra_text');

if name_table[i]:match ('^%(%(.*[^%)][^%)]$') then            -- first segment of corporate with one or more commas; this segment has the opening doubled parens
  local name = name_table[i];
  i=i+1;                                -- bump indexer to next segment
  while name_table[i] do
    name = name .. ', ' .. name_table[i];              -- concatenate with previous segments
    if name_table[i]:match ('^.*%)%)$') then            -- if this table member has the closing doubled parens
      break;                            -- and done reassembling so
    end
    i=i+1;                              -- bump indexer
  end
  table.insert (output_table, name);                  -- and add corporate name to the output table
  table.insert (output_link_table, '');                -- no wikilink
else
  wl_type, label, link = is_wikilink (name_table[i]);          -- wl_type is: 0, no wl (text in label variable); 1, [[D]]; 2, [[L|D]]
  table.insert (output_table, label);                  -- add this name
  if 1 == wl_type then
    table.insert (output_link_table, label);            -- simple wikilink [[D]]
  else
    table.insert (output_link_table, link);              -- no wikilink or [[L|D]]; add this link if there is one, else empty string
  end
end
i = i+1;

if v_name:match ('^%(%(.+%)%)$') then                  -- corporate authors are wrapped in doubled parentheses to supress vanc formatting and error detection
  first = '';                              -- set to empty string for concatenation and because it may have been set for previous author/editor
  last = v_name:match ('^%(%((.+)%)%)$')                -- remove doubled parntheses
  corporate = true;                          -- flag used in list_people()
elseif string.find(v_name, "%s") then
  if v_name:find('[;%.]') then                    -- look for commonly occurring punctuation characters; 
    add_vanc_error ('punctuation');
  end
  local lastfirstTable = {}
  lastfirstTable = mw.text.split(v_name, "%s")
  first = table.remove(lastfirstTable);                -- removes and returns value of last element in table which should be author intials
  if is_suffix (first) then                      -- if a valid suffix
    suffix = first                          -- save it as a suffix and
    first = table.remove(lastfirstTable);              -- get what should be the initials from the table
  end                                  -- no suffix error message here because letter combination may be result of Romanization; check for digits?
  last = table.concat(lastfirstTable, " ")              -- returns a string that is the concatenation of all other names that are not initials
  if mw.ustring.match (last, '%a+%s+%u+%s+%a+') then
    add_vanc_error ('missing comma');                -- matches last II last; the case when a comma is missing
  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
    add_vanc_error ('name');                    -- matches a space between two intiials
  end
else
  first = '';                              -- set to empty string for concatenation and because it may have been set for previous author/editor
  last = v_name;                            -- last name or single corporate name?  Doesn't support multiword corporate names? do we need this?
end
if is_set (first) then
  if not mw.ustring.match (first, "^%u?%u$") then            -- first shall contain one or two upper-case letters, nothing else
    add_vanc_error ('initials');                  -- too many initials; mixed case initials (which may be ok Romanization); hyphenated initials
  end
  is_good_vanc_name (last, first);                  -- check first and last before restoring the suffix which may have a non-Latin digit
  if is_set (suffix) then
    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
else
  if not corporate then
    is_good_vanc_name (last, '');
  end
end
link = select_one( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ) or v_link_table[i];
mask = select_one( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i );
names[i] = {last = last, first = first, link = link, mask = mask, corporate=corporate};    -- add this assembled name to our names list

select_one( args, cfg.aliases[list_name .. '-First'], 'none', 1 ) or  -- ... also catches the case where |first= is used with |vauthors=
select_one( args, cfg.aliases[list_name .. '-Last'], 'none', 2 ) or
select_one( args, cfg.aliases[list_name .. '-First'], 'none', 2 ) then
  lastfirst=true;

(is_set (vxxxxors) and is_set (xxxxors)) or
(true == lastfirst and is_set (xxxxors)) then
  local err_name;
  if 'AuthorList' == list_name then                  -- figure out which name should be used in error message
    err_name = 'author';
  else
    err_name = 'editor';
  end
  table.insert( z.message_tail, { set_error( 'redundant_parameters',
    {err_name .. '-name-list parameters'}, true ) } );        -- add error message

return true;                              -- an empty parameter is ok

return true;

table.insert( z.message_tail, { set_error( 'invalid_param_val', {name, value}, true ) } );  -- not an allowed value so add error message
return false

return name_list;                            -- just return the name list

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

return name_list .. sepc .. ' ';                    -- otherwise terninate the name list

return '';

if is_set (volume) and is_set (issue) then
  return wrap_msg ('vol-no', {sepc, volume, issue}, lower);
elseif is_set (volume) then
  return wrap_msg ('vol', {sepc, volume}, lower);
else
  return wrap_msg ('issue', {sepc, issue}, lower);
end

if (4 < mw.ustring.len(volume)) then
  vol = substitute (cfg.messages['j-vol'], {sepc, volume});
else
  vol = substitute (cfg.presentation['vol-bold'], {sepc, hyphen_to_dash(volume)});
end

return vol .. substitute (cfg.messages['j-issue'], issue);

if is_set (sheet) then
  if 'journal' == origin then
    return '', '', wrap_msg ('j-sheet', sheet, lower), '';
  else
    return '', '', wrap_msg ('sheet', {sepc, sheet}, lower), '';
  end
elseif is_set (sheets) then
  if 'journal' == origin then
    return '', '', '', wrap_msg ('j-sheets', sheets, lower);
  else
    return '', '', '', wrap_msg ('sheets', {sepc, sheets}, lower);
  end
end

if is_journal then
  return substitute (cfg.messages['j-page(s)'], page), '', '', '';
elseif not nopp then
  return substitute (cfg.messages['p-prefix'], {sepc, page}), '', '', '';
else
  return substitute (cfg.messages['nopp'], {sepc, page}), '', '', '';
end

if is_journal then
  return substitute (cfg.messages['j-page(s)'], pages), '', '', '';
elseif tonumber(pages) ~= nil and not nopp then                    -- if pages is only digits, assume a single page number
  return '', substitute (cfg.messages['p-prefix'], {sepc, pages}), '', '';
elseif not nopp then
  return '', substitute (cfg.messages['pp-prefix'], {sepc, pages}), '', '';
else
  return '', substitute (cfg.messages['nopp'], {sepc, pages}), '', '';
end

correct place

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

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

err_msg = 'liveweb';

path, timestamp, flag = url:match('//web%.archive%.org/([^%d]*)(%d+)([^/]*)/');    -- split out some of the url parts for evaluation
if not is_set(timestamp) or 14 ~= timestamp:len() then          -- path and flag optional, must have 14-digit timestamp here
  err_msg = '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
elseif is_set(path) and 'web/' ~= path then                -- older archive urls do not have the extra 'web/' path element
  err_msg = 'path';
elseif is_set (flag) and not is_set (path) then              -- flag not allowed with the old form url (without the 'web/' path element)
  err_msg = 'flag';
elseif is_set (flag) and not flag:match ('%a%a_') then          -- flag if present must be two alpha characters and underscore (requires 'web/' path element)
  err_msg = 'flag';
else
  return url, date;                          -- return archiveURL and ArchiveDate
end

                                    -- if here, something not right so

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

return url, date;                            -- preview mode so return archiveURL and ArchiveDate

add_maint_cat ('missing_pipe');

Mode = '';

local selected = select_author_editor_source (A['Vauthors'], A['Authors'], args, 'AuthorList');
if 1 == selected then
  a, author_etal = extract_names (args, 'AuthorList');        -- fetch author list from |authorn= / |lastn= / |firstn=, |author-linkn=, and |author-maskn=
elseif 2 == selected then
  NameListFormat = 'vanc';                      -- override whatever |name-list-style= might be
  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=
    add_maint_cat ('authors');                    -- because use of this parameter is discouraged; what to do about the aliases is a TODO:
  end
end
if is_set (Collaboration) then
  author_etal = true;                          -- so that |display-authors=etal not required
end

local selected = select_author_editor_source (A['Veditors'], A['Editors'], args, 'EditorList');
if 1 == selected then
  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
  NameListFormat = 'vanc';                      -- override whatever |name-list-style= might be
  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=
  add_maint_cat ('editors');                      -- but add a maint cat because use of this parameter is discouraged
end

add_maint_cat ('interviewers');                      -- because use of this parameter is discouraged

interviewers_list = extract_names (args, 'InterviewerList');      -- else, process preferred interviewers parameters

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

  if not is_set (Contribution) then                  -- |contributor= requires |contribution=
    table.insert( z.message_tail, { set_error( 'contributor_missing_required_param', 'contribution')});  -- add missing contribution error message
    c = {};                              -- blank the contributors' table; it is used as a flag later
  end
  if 0 == 

    table.insert( z.message_tail, { set_error( 'contributor_missing_required_param', 'author')});  -- add missing author error message
    c = {};                              -- blank the contributors' table; it is used as a flag later
  end
end

if select_one (args, cfg.aliases['ContributorList-Last'], 'redundant_parameters', 1 ) then  -- are there contributor name list parameters?
  table.insert( z.message_tail, { set_error( 'contributor_ignored')});  -- add contributor ignored error message
end
Contribution = nil;                            -- unset

NameListFormat = '';                          -- anything else, set to empty string

  link_title_ok (TitleLink, A:ORIGIN ('TitleLink'), Title, 'title');  -- check for wikimarkup in |title-link= or wikimarkup in |title= when |title-link= is set

if not is_valid_parameter_value (DeadURL, 'dead-url', cfg.keywords ['deadurl']) then  -- set in config.defaults to 'yes'
  DeadURL = '';                            -- anything else, set to empty string
end

Volume = A['Volume'];

                                    -- conference & map books do not support issue

Issue = A['Issue'];

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

if not is_valid_parameter_value (RegistrationRequired, 'registration', cfg.keywords ['yes_true_y']) then
  RegistrationRequired=nil;
end

if not is_valid_parameter_value (SubscriptionRequired, 'subscription', cfg.keywords ['yes_true_y']) then
  SubscriptionRequired=nil;
end

if not is_valid_parameter_value (UrlAccess, 'url-access', cfg.keywords ['url-access']) then
  UrlAccess = nil;
end
if not is_set(URL) and is_set(UrlAccess) then
  UrlAccess = nil;
  table.insert( z.message_tail, { set_error( 'param_access_requires_param', {'url'}, true ) } );
end
if is_set (UrlAccess) and is_set (SubscriptionRequired) then      -- while not aliases, these are much the same so if both are set
  table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'url-access') .. ' and ' .. wrap_style ('parameter', 'subscription')}, true ) } );    -- add error message
  SubscriptionRequired = nil;                      -- unset; prefer |access= over |subscription=
end
if is_set (UrlAccess) and is_set (RegistrationRequired) then      -- these are not the same but contradictory so if both are set
  table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'url-access') .. ' and ' .. wrap_style ('parameter', 'registration')}, true ) } );    -- add error message
  RegistrationRequired = nil;                      -- unset; prefer |access= over |registration=
end

if not is_valid_parameter_value (ChapterUrlAccess, 'chapter-url-access', cfg.keywords ['url-access']) then  -- same as url-access
  ChapterUrlAccess = nil;
end
if not is_set(ChapterURL) and is_set(ChapterUrlAccess) then
  ChapterUrlAccess = nil;
  table.insert( z.message_tail, { set_error( 'param_access_requires_param', {'chapter-url'}, true ) } );
end

if not is_valid_parameter_value (IgnoreISBN, 'ignore-isbn-error', cfg.keywords ['yes_true_y']) then
  IgnoreISBN = nil;                          -- anything else, set to empty string
end

if not is_valid_parameter_value (LastAuthorAmp, 'last-author-amp', cfg.keywords ['yes_true_y']) then
  LastAuthorAmp = nil;                        -- set to empty string
end

if not is_valid_parameter_value (no_tracking_cats, 'no-tracking', cfg.keywords ['yes_true_y']) then
  no_tracking_cats = nil;                        -- set to empty string
end

DF = '';                                -- not valid, set to empty string

if in_array (this_page.nsText, cfg.uncategorized_namespaces) then
  no_tracking_cats = "true";                      -- set no_tracking_cats
end
for _,v in ipairs (cfg.uncategorized_subpages) do            -- cycle through page name patterns
  if this_page.text:match (v) then                  -- test page name against each pattern
    no_tracking_cats = "true";                    -- set no_tracking_cats
    break;                              -- bail out if one is found
  end
end

NoPP = true;

NoPP = nil;                                -- unset, used as a flag later

if is_set(Pages) or is_set(At) then
  Pages = '';                              -- unset the others
  At = '';
end
extra_text_in_page_check (Page);                    -- add this page to maint cat if |page= value begins with what looks like p. or pp.

if is_set(At) then
  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.

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

|encyclopedia and |title then map |title to |article and |encyclopedia to |title
|encyclopedia and |article then map |encyclopedia to |title
|encyclopedia then map |encyclopedia to |title
|trans-title maps to |trans-chapter when |title is re-mapped
|url maps to |chapterurl when |title is remapped

if is_set(Periodical) then                        -- Periodical is set when |encyclopedia is set
  if is_set(Title) or is_set (ScriptTitle) then
    if not is_set(Chapter) then
      Chapter = Title;                      -- |encyclopedia and |title are set so map |title to |article and |encyclopedia to |title
      ScriptChapter = ScriptTitle;
      TransChapter = TransTitle;
      ChapterURL = URL;
      ChapterUrlAccess = UrlAccess;
      if not is_set (ChapterURL) and is_set (TitleLink) then
        Chapter = make_wikilink (TitleLink, Chapter);
      end
      Title = Periodical;
      ChapterFormat = Format;
      Periodical = '';                      -- redundant so unset
      TransTitle = '';
      URL = '';
      Format = '';
      TitleLink = '';
      ScriptTitle = '';
    end
  else                                -- |title not set
    Title = Periodical;                        -- |encyclopedia set and |article set or not set so map |encyclopedia to |title
    Periodical = '';                        -- redundant so unset
  end
end

if is_set(A['Number']) then                        -- cite techreport uses 'number', which other citations alias to 'issue'
  if not is_set(ID) then                        -- can we use ID for the "number"?
    ID = A['Number'];                        -- yes, use it
  else                                -- ID has a value so emit error message
    table.insert( z.message_tail, { set_error('redundant_parameters', {wrap_style ('parameter', 'id') .. ' and ' .. wrap_style ('parameter', 'number')}, true )});
  end
end  

Periodical = A ['MailingList'];

Periodical = '';                            -- unset because mailing list is only used for cite mailing list

if is_set(BookTitle) then
  Chapter = Title;

  ChapterURL = URL;
  ChapterUrlAccess = UrlAccess;
  ChapterURLorigin = URLorigin;
  URLorigin = '';
  ChapterFormat = Format;
  TransChapter = TransTitle;
  Title = BookTitle;
  Format = '';

  TransTitle = '';
  URL = '';
end

Conference = '';                            -- not cite conference or cite speech so make sure this is empty string

Chapter = A['Map'];
ChapterURL = A['MapURL'];
ChapterUrlAccess = UrlAccess;
TransChapter = A['TransMap'];
ChapterURLorigin = A:ORIGIN('MapURL');
ChapterFormat = A['MapFormat'];
Cartography = A['Cartography'];
if is_set( Cartography ) then
  Cartography = sepc .. " " .. wrap_msg ('cartography', Cartography, use_lowercase);
end    
Scale = A['Scale'];
if is_set( Scale ) then
  Scale = sepc .. " " .. Scale;
end

local AirDate = A['AirDate'];
local SeriesLink = A['SeriesLink'];
link_title_ok (SeriesLink, A:ORIGIN ('SeriesLink'), Series, 'series');  -- check for wikimarkup in |series-link= or wikimarkup in |series= when |series-link= is set
local Network = A['Network'];
local Station = A['Station'];
local s, n = {}, {};
                                    -- do common parameters first
if is_set(Network) then table.insert(n, Network); end
if is_set(Station) then table.insert(n, Station); end
ID = table.concat(n, sepc .. ' ');
if not is_set (Date) and is_set (AirDate) then              -- promote airdate to date
  Date = AirDate;
end
if 'episode' == config.CitationClass then                -- handle the oddities that are strictly {{cite episode}}
  local Season = A['Season'];
  local SeriesNumber = A['SeriesNumber'];
  if is_set (Season) and is_set (SeriesNumber) then          -- these are mutually exclusive so if both are set
    table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'season') .. ' and ' .. wrap_style ('parameter', 'seriesno')}, true ) } );    -- add error message
    SeriesNumber = '';                        -- unset; prefer |season= over |seriesno=
  end
                                    -- assemble a table of parts concatenated later into Series
  if is_set(Season) then table.insert(s, wrap_msg ('season', Season, use_lowercase)); end
  if is_set(SeriesNumber) then table.insert(s, wrap_msg ('series', SeriesNumber, use_lowercase)); end
  if is_set(Issue) then table.insert(s, wrap_msg ('episode', Issue, use_lowercase)); end
  Issue = '';                              -- unset because this is not a unique parameter
  Chapter = Title;                          -- promote title parameters to chapter
  ScriptChapter = ScriptTitle;
  ChapterLink = TitleLink;                      -- alias episodelink
  TransChapter = TransTitle;
  ChapterURL = URL;
  ChapterUrlAccess = UrlAccess;
  ChapterURLorigin = A:ORIGIN('URL');
  Title = Series;                            -- promote series to title
  TitleLink = SeriesLink;
  Series = table.concat(s, sepc .. ' ');                -- this is concatenation of season, seriesno, episode number
  if is_set (ChapterLink) and not is_set (ChapterURL) then      -- link but not URL
    Chapter = make_wikilink (ChapterLink, Chapter);
  elseif is_set (ChapterLink) and is_set (ChapterURL) then      -- if both are set, URL links episode;
    Series = make_wikilink (ChapterLink, Series);
  end
  URL = '';                              -- unset
  TransTitle = '';
  ScriptTitle = '';
else                                  -- now oddities that are cite serial
  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?
  if is_set (Series) and is_set (SeriesLink) then
    Series = make_wikilink (SeriesLink, Series);
  end
  Series = wrap_style ('italic-title', Series);            -- series is italicized
end  

if in_array (config.CitationClass, {'arxiv', 'biorxiv', 'citeseerx'}) then
  if not is_set (ID_list[config.CitationClass:upper()]) then      -- |arxiv= or |eprint= required for cite arxiv; |biorxiv= & |citeseerx= required for their templates
    table.insert( z.message_tail, { set_error( config.CitationClass .. '_missing', {}, true ) } );    -- add error message
  end
  if 'arxiv' == config.CitationClass then
    Periodical = 'arXiv';                      -- set to arXiv for COinS; after that, must be set to empty string
  end
  if 'biorxiv' == config.CitationClass then
    Periodical = 'bioRxiv';                      -- set to bioRxiv for COinS; after that, must be set to empty string
  end
  if 'citeseerx' == config.CitationClass then
    Periodical = 'CiteSeerX';                    -- set to CiteSeerX for COinS; after that, must be set to empty string
  end
end

TitleType = set_titletype (config.CitationClass, TitleType);
if is_set(Degree) and "Thesis" == TitleType then            -- special case for cite thesis
  TitleType = Degree .. ' ' .. cfg.title_types ['thesis']:lower();
end

TitleType = substitute( cfg.messages['type'], TitleType);        -- display it in parentheses

Date = Year;                              -- promote Year to Date
Year = nil;                                -- make nil so Year as empty string isn't used for CITEREF
if not is_set (Date) and is_set(PublicationDate) then          -- use PublicationDate when |date= and |year= are not set
  Date = PublicationDate;                        -- promote PublicationDate to Date
  PublicationDate = '';                        -- unset, no longer needed
  Date_origin = A:ORIGIN('PublicationDate');              -- save the name of the promoted parameter
else
  Date_origin = A:ORIGIN('Year');                    -- save the name of the promoted parameter
end

Date_origin = A:ORIGIN('Date');                      -- not a promotion; name required for error messaging

local error_message = '';
                                    -- AirDate has been promoted to Date so not necessary to check it

local date_parameters_list = {
  ['access-date'] = {val=AccessDate, name=A:ORIGIN ('AccessDate')},
  ['archive-date'] = {val=ArchiveDate, name=A:ORIGIN ('ArchiveDate')},
  ['date'] = {val=Date, name=Date_origin},
  ['doi-broken-date'] = {val=DoiBroken, name=A:ORIGIN ('DoiBroken')},
  ['embargo'] = {val=Embargo, name=A:ORIGIN ('Embargo')},
  ['lay-date'] = {val=LayDate, name=A:ORIGIN ('LayDate')},
  ['publication-date'] ={val=PublicationDate, name=A:ORIGIN ('PublicationDate')},
  ['year'] = {val=Year, name=A:ORIGIN ('Year')},
  };
anchor_year, Embargo, error_message = dates(date_parameters_list, COinS_date);

if COinS_date.inter_cal_cat then
  add_prop_cat ('jul_greg_uncertainty');
end

if is_set (Year) and is_set (Date) then                  -- both |date= and |year= not normally needed; 
  local mismatch = year_date_check (Year, Date)
  if 0 == mismatch then                        -- |year= does not match a year-value in |date=
    if is_set (error_message) then                  -- if there is already an error message
      error_message = error_message .. ', ';            -- tack on this additional message
    end
    error_message = error_message .. '|year= / |date= mismatch';
  elseif 1 == mismatch then                      -- |year= matches year-value in |date=
    add_maint_cat ('date_year');
  end
end
if not is_set(error_message) then                    -- error free dates only
  local modified = false;                        -- flag
  if is_set (DF) then                          -- if we need to reformat dates
    modified = reformat_dates (date_parameters_list, DF, false);  -- reformat to DF format, use long month names if appropriate
  end
  if true == date_hyphen_to_dash (date_parameters_list) then      -- convert hyphens to dashes where appropriate
    modified = true;
    add_maint_cat ('date_format');                  -- hyphens were converted so add maint category
  end

  if modified then                          -- if the date_parameters_list values were modified
    AccessDate = date_parameters_list['access-date'].val;      -- overwrite date holding parameters with modified values
    ArchiveDate = date_parameters_list['archive-date'].val;
    Date = date_parameters_list['date'].val;
    DoiBroken = date_parameters_list['doi-broken-date'].val;
    LayDate = date_parameters_list['lay-date'].val;
    PublicationDate = date_parameters_list['publication-date'].val;
  end
else
  table.insert( z.message_tail, { set_error( 'bad_date', {error_message}, true ) } );  -- add this error message
end

if not is_set (Embargo) then                      -- if not embargoed or embargo has expired
  URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC'];        -- set url to be the same as the PMC external link if not embargoed
  URLorigin = cfg.id_handlers['PMC'].parameters[1];          -- set URLorigin to parameter name for use in error message if citation is missing a |title=
  if is_set(AccessDate) then                      -- access date requires |url=; pmc created url is not |url=
    table.insert( z.message_tail, { set_error( 'accessdate_missing_url', {}, true ) } );
    AccessDate = '';                        -- unset
  end
end

not is_set(TransTitle) and
not is_set(ScriptTitle) then
  if 'episode' == config.CitationClass then              -- special case for cite episode; TODO: is there a better way to do this?
    table.insert( z.message_tail, { set_error( 'citation_missing_title', {'series'}, true ) } );
  else
    table.insert( z.message_tail, { set_error( 'citation_missing_title', {'title'}, true ) } );
  end

Title = '';                                -- set title to empty string
add_maint_cat ('untitled');

['title']=Title,
[A:ORIGIN('Chapter')]=Chapter,
[A:ORIGIN('Periodical')]=Periodical,
[A:ORIGIN('PublisherName')] = PublisherName
});

if is_set (Chapter) and is_set (Title) and is_set (Periodical) then    -- if all are used then
  coins_chapter = Title;                        -- remap
  coins_title = Periodical;
end

c then -- but if contributor list

coins_author = c;                            -- use that instead

end

this is the function call to COinS() local OCinSoutput = COinS({

['Periodical'] = Periodical,
['Encyclopedia'] = Encyclopedia,
['Chapter'] = make_coins_title (coins_chapter, ScriptChapter),      -- Chapter and ScriptChapter stripped of bold / italic wikimarkup
['Degree'] = Degree;                          -- cite thesis only
['Title'] = make_coins_title (coins_title, ScriptTitle),        -- Title and ScriptTitle stripped of bold / italic wikimarkup
['PublicationPlace'] = PublicationPlace,
['Date'] = COinS_date.rftdate,                      -- COinS_date has correctly formatted date if Date is valid;
['Season'] = COinS_date.rftssn,
['Chron'] =  COinS_date.rftchron or (not COinS_date.rftdate and Date) or '',  -- chron but if not set and invalid date format use Date; keep this last bit?
['Series'] = Series,
['Volume'] = Volume,
['Issue'] = Issue,
['Pages'] = get_coins_pages (first_set ({Sheet, Sheets, Page, Pages, At}, 5)),        -- pages stripped of external links
['Edition'] = Edition,
['PublisherName'] = PublisherName,
['URL'] = first_set ({ChapterURL, URL}, 2),
['Authors'] = coins_author,
['ID_list'] = ID_list,
['RawPage'] = this_page.prefixedText,

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

if is_set (PublisherName) then
  PublisherName = substitute (cfg.messages['newsgroup'], external_link( 'news:' .. PublisherName, PublisherName, A:ORIGIN('PublisherName'), nil ));
end

local last_first_list;
local control = { 
  format = NameListFormat,                      -- empty string or 'vanc'
  maximum = nil,                            -- as if display-authors or display-editors not set
  lastauthoramp = LastAuthorAmp,
  page_name = this_page.text,                      -- get current page name so that we don't wikilink to it via editorlinkn
  mode = Mode
};
do                                    -- do editor name list first because the now unsupported coauthors used to modify control table
  control.maximum , editor_etal = get_display_authors_editors (A['DisplayEditors'], 

  last_first_list, EditorCount = list_people(control, e, editor_etal);
  if is_set (Editors) then
    if editor_etal then
      Editors = Editors .. ' ' .. cfg.messages['et al'];      -- add et al. to editors parameter beause |display-editors=etal
      EditorCount = 2;                      -- with et al., |editors= is multiple names; spoof to display (eds.) annotation
    else
      EditorCount = 2;                      -- we don't know but assume |editors= is multiple names; spoof to display (eds.) annotation
    end
  else
    Editors = last_first_list;                    -- either an author name list or an empty string
  end
  if 1 == EditorCount and (true == editor_etal or 1 < 

    EditorCount = 2;                        -- spoof to display (eds.) annotation
  end
end
do                                    -- now do interviewers
  control.maximum = 

  Interviewers = list_people(control, interviewers_list, false);  -- et al not currently supported
end
do                                    -- now do translators
  control.maximum = 

  Translators = list_people(control, t, false);            -- et al not currently supported
end
do                                    -- now do contributors
  control.maximum = 

  Contributors = list_people(control, c, false);            -- et al not currently supported
end
do                                    -- now do authors
  control.maximum , author_etal = get_display_authors_editors (A['DisplayAuthors'], 

  last_first_list = list_people(control, a, author_etal);
  if is_set (Authors) then
    Authors, author_etal = name_has_etal (Authors, author_etal, false);  -- find and remove variations on et al.
    if author_etal then
      Authors = Authors .. ' ' .. cfg.messages['et al'];      -- add et al. to authors parameter
    end
  else
    Authors = last_first_list;                    -- either an author name list or an empty string
  end
end                                    -- end of do
if is_set (Authors) and is_set (Collaboration) then
  Authors = Authors .. ' (' .. Collaboration .. ')';          -- add collaboration after et al.
end

('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia))) then
  ChapterFormat = style_format (ChapterFormat, ChapterURL, 'chapter-format', 'chapter-url');

if in_array(config.CitationClass, {"web","podcast", "mailinglist"}) then  -- |url= required for cite web, cite podcast, and cite mailinglist
  table.insert( z.message_tail, { set_error( 'cite_web_url', {}, true ) } );
end
-- do we have |accessdate= without either |url= or |chapter-url=?
if is_set(AccessDate) and not is_set(ChapterURL)then          -- ChapterURL may be set when URL is not set;
  table.insert( z.message_tail, { set_error( 'accessdate_missing_url', {}, true ) } );
  AccessDate = '';
end

if is_set (ChapterURL) then                       -- if chapter-url is set apply archive url to it
  OriginalURL = ChapterURL;                      -- save copy of source chapter's url for archive text
  OriginalURLorigin = ChapterURLorigin;                -- name of chapter-url parameter for error messages
  OriginalFormat = ChapterFormat;                    -- and original |chapter-format=
  if 'no' ~= DeadURL then
    ChapterURL = ArchiveURL                      -- swap-in the archive's url
    ChapterURLorigin = A:ORIGIN('ArchiveURL')            -- name of archive-url parameter for error messages
    ChapterFormat = ArchiveFormat or '';              -- swap in archive's format
    ChapterUrlAccess = nil;                      -- restricted access levels do not make sense for archived urls
  end
elseif is_set (URL) then
  OriginalURL = URL;                          -- save copy of original source URL
  OriginalURLorigin = URLorigin;                    -- name of url parameter for error messages
  OriginalFormat = Format;                       -- and original |format=
  OriginalAccess = UrlAccess;
  if 'no' ~= DeadURL then                        -- if URL set then archive-url applies to it
    URL = ArchiveURL                        -- swap-in the archive's url
    URLorigin = A:ORIGIN('ArchiveURL')                -- name of archive url parameter for error messages
    Format = ArchiveFormat or '';                  -- swap in archive's format
    UrlAccess = nil;                        -- restricted access levels do not make sense for archived urls
  end
 end

('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia)) then
  local chap_param;
  if is_set (Chapter) then                      -- get a parameter name from one of these chapter related meta-parameters
    chap_param = A:ORIGIN ('Chapter')
  elseif is_set (TransChapter) then
    chap_param = A:ORIGIN ('TransChapter')
  elseif is_set (ChapterURL) then
    chap_param = A:ORIGIN ('ChapterURL')
  elseif is_set (ScriptChapter) then
    chap_param = A:ORIGIN ('ScriptChapter')
  else is_set (ChapterFormat)
    chap_param = A:ORIGIN ('ChapterFormat')
  end
  if is_set (chap_param) then                      -- if we found one
    table.insert( z.message_tail, { set_error( 'chapter_ignored', {chap_param}, true ) } );    -- add error message
    Chapter = '';                          -- and set them to empty string to be safe with concatenation
    TransChapter = '';
    ChapterURL = '';
    ScriptChapter = '';
    ChapterFormat = '';
  end

local no_quotes = false;                        -- default assume that we will be quoting the chapter parameter value
if is_set (Contribution) and 0 < 

  if in_array (Contribution:lower(), cfg.keywords.contribution) then  -- and a generic contribution title
    no_quotes = true;                        -- then render it unquoted
  end
end
Chapter = format_chapter_title (ScriptChapter, Chapter, TransChapter, ChapterURL, ChapterURLorigin, no_quotes, ChapterUrlAccess);    -- Contribution is also in Chapter
if is_set (Chapter) then
  Chapter = Chapter .. ChapterFormat ;
  if 'map' == config.CitationClass and is_set (TitleType) then
    Chapter = Chapter .. ' ' .. TitleType;              -- map annotation here; not after title
  end
  Chapter = Chapter.. sepc .. ' ';
elseif is_set (ChapterFormat) then                    -- |chapter= not set but |chapter-format= is so ...
  Chapter = ChapterFormat .. sepc .. ' ';                -- ... ChapterFormat has error message, we want to see it
end

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

Title = mw.ustring.gsub(Title, '%'..sepc..'$', '');            -- remove any trailing separator character

Title = make_wikilink (TitleLink, Title);

('citation' == config.CitationClass and is_set (Periodical) and not is_set (Encyclopedia)) or
('map' == config.CitationClass and is_set (Periodical)) then      -- special case for cite map when the map is in a periodical treat as an article
  Title = kern_quotes (Title);                    -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
  Title = wrap_style ('quoted-title', Title);
  Title = script_concatenate (Title, ScriptTitle);          -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
  TransTitle= wrap_style ('trans-quoted-title', TransTitle );

Title = script_concatenate (Title, ScriptTitle);            -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
TransTitle= wrap_style ('trans-quoted-title', TransTitle );        -- for cite report, use this form for trans-title

Title = wrap_style ('italic-title', Title);
Title = script_concatenate (Title, ScriptTitle);            -- <bdi> tags, lang atribute, categorization, etc; must be done after title is wrapped
TransTitle = wrap_style ('trans-italic-title', TransTitle);

if is_set(Title) then
  TransTitle = " " .. TransTitle;
else
  TransError = " " .. set_error( 'trans_missing_title', {'title'} );
end

if not is_set(TitleLink) and is_set(URL) then
  Title = external_link( URL, Title, URLorigin, UrlAccess ) .. TransTitle .. TransError .. Format;
  URL = '';                              -- unset these because no longer needed
  Format = "";
else
  Title = Title .. TransTitle .. TransError;
end

Title = TransTitle .. TransError;

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

if is_set (ConferenceURL) then
  Conference = external_link( ConferenceURL, Conference, ConferenceURLorigin, nil );
end
Conference = sepc .. " " .. Conference .. ConferenceFormat;

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

local Minutes = A['Minutes'];
local Time = A['Time'];
if is_set(Minutes) then
  if is_set (Time) then
    table.insert( z.message_tail, { set_error( 'redundant_parameters', {wrap_style ('parameter', 'minutes') .. ' and ' .. wrap_style ('parameter', 'time')}, true ) } );
  end
  Position = " " .. Minutes .. " " .. cfg.messages['minutes'];
else
  if is_set(Time) then
    local TimeCaption = A['TimeCaption']
    if not is_set(TimeCaption) then
      TimeCaption = cfg.messages['event'];
      if sepc ~= '.' then
        TimeCaption = TimeCaption:lower();
      end
    end
    Position = " " .. TimeCaption .. " " .. Time;
  end
end

Position = " " .. Position;
At = '';

local Section = A['Section'];
local Sections = A['Sections'];
local Inset = A['Inset'];
if is_set( Inset ) then
  Inset = sepc .. " " .. wrap_msg ('inset', Inset, use_lowercase);
end      
if is_set( Sections ) then
  Section = sepc .. " " .. wrap_msg ('sections', Sections, use_lowercase);
elseif is_set( Section ) then
  Section = sepc .. " " .. wrap_msg ('section', Section, use_lowercase);
end
At = At .. Inset .. Section;    

Language = language_parameter (Language);                -- format, categories, name from ISO639-1, etc

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

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

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

if Edition:match ('%f[%a][Ee]d%.?$') or Edition:match ('%f[%a][Ee]dition$') then
  add_maint_cat ('extra_text', 'edition');
end
Edition = " " .. wrap_msg ('edition', Edition);

Edition = '';

OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or "";    -- TODO: presentation

Via = " " .. wrap_msg ('via', Via);

SubscriptionRequired = sepc .. " " .. cfg.messages['subscription'];    -- subscription required message

SubscriptionRequired = sepc .. " " .. cfg.messages['registration'];    -- registration required message

SubscriptionRequired = '';                        -- either or both might be set to something other than yes true y

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
AccessDate = substitute (retrv_text, AccessDate);            -- add retrieved text
AccessDate = substitute (cfg.presentation['accessdate'], {sepc, AccessDate});  -- allow editors to hide accessdates

 if "thesis" == config.CitationClass and is_set(Docket) then
ID = sepc .." Docket ".. Docket .. ID;

 if "report" == config.CitationClass and is_set(Docket) then          -- for cite report when |docket= is set
ID = sepc .. ' ' .. Docket;                        -- overwrite ID even if |id= is set

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

if Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"' then        -- if first and last characters of quote are quote marks
  Quote = Quote:sub(2,-2);                      -- strip them off
end
Quote = sepc .." " .. wrap_style ('quoted-text', Quote );         -- wrap in <q>...</q> tags
PostScript = "";                            -- cs1|2 does not supply terminal punctuation when |quote= is set

if not is_set(ArchiveDate) then
  ArchiveDate = set_error('archive_missing_date');
end
if "no" == DeadURL then
  local arch_text = cfg.messages['archived'];
  if sepc ~= "." then arch_text = arch_text:lower() end
  Archived = sepc .. " " .. substitute( cfg.messages['archived-not-dead'],
    { external_link( ArchiveURL, arch_text, A:ORIGIN('ArchiveURL'), nil ) .. ArchiveFormat, ArchiveDate } );
  if not is_set(OriginalURL) then
    Archived = Archived .. " " .. set_error('archive_missing_url');                 
  end
elseif is_set(OriginalURL) then                      -- DeadURL is empty, 'yes', 'true', 'y', 'unfit', 'usurped'
  local arch_text = cfg.messages['archived-dead'];
  if sepc ~= "." then arch_text = arch_text:lower() end
  if in_array (DeadURL, {'unfit', 'usurped', 'bot: unknown'}) then
    Archived = sepc .. " " .. 'Archived from the original on ' .. ArchiveDate;  -- format already styled
    if 'bot: unknown' == DeadURL then
      add_maint_cat ('bot:_unknown');                -- and add a category if not already added
    else
      add_maint_cat ('unfit');                  -- and add a category if not already added
    end
  else                                -- DeadURL is empty, 'yes', 'true', or 'y'
    Archived = sepc .. " " .. substitute( arch_text,
      { external_link( OriginalURL, cfg.messages['original'], OriginalURLorigin, OriginalAccess ) .. OriginalFormat, ArchiveDate } );  -- format already styled
  end  
else
  local arch_text = cfg.messages['archived-missing'];
  if sepc ~= "." then arch_text = arch_text:lower() end
  Archived = sepc .. " " .. substitute( arch_text, 
    { set_error('archive_missing_url'), ArchiveDate } );
end

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

Archived = ""

if is_set(LayDate) then LayDate = " (" .. LayDate .. ")" end
if is_set(LaySource) then 
  LaySource = " – ''" .. safe_for_italics(LaySource) .. "''";
else
  LaySource = "";
end
if sepc == '.' then
  Lay = sepc .. " " .. external_link( LayURL, cfg.messages['lay summary'], A:ORIGIN('LayURL'), nil ) .. LayFormat .. LaySource .. LayDate
else
  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

if is_set(TranscriptURL) then
  Transcript = external_link( TranscriptURL, Transcript, TranscriptURLorigin, nil );
end
Transcript = sepc .. ' ' .. Transcript .. TranscriptFormat;

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

PublicationDate = wrap_msg ('published', PublicationDate);

if is_set(PublicationPlace) then
  Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;
else
  Publisher = sepc .. " " .. PublisherName .. PublicationDate;  
end      

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

Publisher = PublicationDate;

if is_set(Title) or is_set(TitleNote) then 
  Periodical = sepc .. " " .. wrap_style ('italic-title', Periodical) 
else 
  Periodical = wrap_style ('italic-title', Periodical)
end

TitleNote = " (Speech)";              -- annotate the citation
if is_set (Periodical) then              -- if Periodical, perhaps because of an included |website= or |journal= parameter 
  if is_set (Conference) then            -- and if |event= is set
    Conference = Conference .. sepc .. " ";    -- then add appropriate punctuation to the end of the Conference variable before rendering
  end
end

if is_set(Others) then Others = safe_join ({Others, sepc .. " "}, sepc) end    -- add terminal punctuation & space; check for dup sepc; TODO why do we need to do this here?
tcommon = safe_join( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language, Edition, Publisher, Agency, Volume}, sepc );

if is_set (Contributors) then                      -- when we are citing foreword, preface, introduction, etc
  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 );
else
  tcommon = safe_join( {Title, TitleNote, Conference, Periodical, Format, TitleType, Series, Language, Volume, Others, Edition, Publisher, Agency}, sepc );
end

if is_set (Chapter) then                        -- map in a book; TitleType is part of Chapter
  tcommon = safe_join( {Title, Format, Edition, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );
elseif is_set (Periodical) then                      -- map in a periodical
  tcommon = safe_join( {Title, TitleType, Format, Periodical, Scale, Series, Language, Cartography, Others, Publisher, Volume}, sepc );
else                                  -- a sheet or stand-alone map
  tcommon = safe_join( {Title, TitleType, Format, Edition, Scale, Series, Language, Cartography, Others, Publisher}, sepc );
end

tcommon = safe_join( {Title, TitleNote, TitleType, Series, Transcript, Language, Edition, Publisher}, sepc );

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

ID_list > 0 then

ID_list = safe_join( { sepc .. " ",  table.concat( ID_list, sepc .. " " ), ID }, sepc );

else

ID_list = ID;

end

local idcommon = safe_join( { ID_list, URL, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote }, sepc ); local text; local pgtext = Position .. Sheet .. Sheets .. Page .. Pages .. At; if is_set(Date) then

if is_set (Authors) or is_set (Editors) then              -- date follows authors or editors when authors not set
  Date = " (" .. Date ..")" .. OrigYear .. sepc .. " ";        -- in paranetheses
else                                  -- neither of authors and editors set
  if (string.sub(tcommon,-1,-1) == sepc) then              -- if the last character of tcommon is sepc
    Date = " " .. Date .. OrigYear;                  -- Date does not begin with sepc
  else
    Date = sepc .. " " .. Date .. OrigYear;              -- Date begins with sepc
  end
end

if (not is_set (Date)) then                        -- when date is set it's in parentheses; no Authors termination
  Authors = terminate_name_list (Authors, sepc);            -- when no date, terminate with 0 or 1 sepc and a space
end
if is_set(Editors) then
  local in_text = " ";
  local post_text = "";
  if is_set(Chapter) and 0 == 

    in_text = in_text .. cfg.messages['in'] .. " "
    if (sepc ~= '.') then
      in_text = in_text:lower()                  -- lowercase for cs2
     end
  else
    if EditorCount <= 1 then
      post_text = ", " .. cfg.messages['editor'];
    else
      post_text = ", " .. cfg.messages['editors'];
    end
  end 
  Editors = terminate_name_list (in_text .. Editors .. post_text, sepc);  -- terminate with 0 or 1 sepc and a space
end
if is_set (Contributors) then                      -- book cite and we're citing the intro, preface, etc
  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
  if is_set (Editors) and is_set (Date) then              -- when Editors make sure that Authors gets terminated
    Authors = terminate_name_list (Authors, sepc);          -- terminate with 0 or 1 sepc and a space
  end
  if (not is_set (Date)) then                      -- when date is set it's in parentheses; no Contributors termination
    Contributors = terminate_name_list (Contributors, sepc);    -- terminate with 0 or 1 sepc and a space
  end
  text = safe_join( {Contributors, Date, Chapter, tcommon, Authors, Place, Editors, tcommon2, pgtext, idcommon }, sepc );
else
  text = safe_join( {Authors, Date, Chapter, Place, Editors, tcommon, pgtext, idcommon }, sepc );
end

if is_set(Date) then
  if EditorCount <= 1 then
    Editors = Editors .. ", " .. cfg.messages['editor'];
  else
    Editors = Editors .. ", " .. cfg.messages['editors'];
  end
else
  if EditorCount <= 1 then
    Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
  else
    Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
  end
end
text = safe_join( {Editors, Date, Chapter, Place, tcommon, pgtext, idcommon}, sepc );

if in_array(config.CitationClass, {"journal","citation"}) and is_set(Periodical) then
  text = safe_join( {Chapter, Place, tcommon, pgtext, Date, idcommon}, sepc );
else
  text = safe_join( {Chapter, Place, tcommon, Date, pgtext, idcommon}, sepc );
end

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

options.class = config.CitationClass;
options.class = "citation " .. config.CitationClass;          -- class=citation required for blue highlight when used with |ref=

options.class = "citation";

local id = Ref
if ('harv' == Ref ) then
  local namelist = {};                        -- holds selected contributor, author, editor name list
  local year = first_set ({Year, anchor_year}, 2);          -- Year first for legacy citations and for YMD dates that require disambiguation
  if 

    namelist = c;                          -- select it
  elseif 

    namelist = a;
  elseif 

    namelist = e;
  end
  if 

    id = anchor_id (namelist, year);                -- go make the CITEREF anchor
  else
    id = '';                            -- unset
  end
end
options.id = id;

z.error_categories = {};
text = set_error('empty_citation');
z.message_tail = {};

table.insert (render, substitute (cfg.presentation['cite-id'], {mw.uri.anchorEncode(options.id), mw.text.nowiki(options.class), text}));  -- when |ref= is set

table.insert (render, substitute (cfg.presentation['cite'], {mw.text.nowiki(options.class), text}));  -- all other cases

z.message_tail ~= 0 then

table.insert (render, ' ');
for i,v in ipairs( z.message_tail ) do
  if is_set(v[1]) then
    if i == 

# z.message_tail then

      table.insert (render, error_comment( v[1], v[2] ));
    else
      table.insert (render, error_comment( v[1] .. "; ", v[2] ));
    end
  end
end

end

if

z.maintenance_cats ~= 0 then

table.insert (render, '<span class="citation-comment" style="display:none; color:

# 33aa33; margin-left:0.3em">');

for _, v in ipairs( z.maintenance_cats ) do                -- append maintenance categories
  table.insert (render, v);
  table.insert (render, ' (');
  table.insert (render, make_wikilink (':Category:' .. v, 'link'));
  table.insert (render, ') ');
end
table.insert (render, '</span>');

end

no_tracking_cats = no_tracking_cats:lower(); if in_array(no_tracking_cats, {"", "no", "false", "n"}) then

for _, v in ipairs( z.error_categories ) do
  table.insert (render, make_wikilink ('Category:' .. v));
end
for _, v in ipairs( z.maintenance_cats ) do                -- append maintenance categories
  table.insert (render, make_wikilink ('Category:' .. v));
end
for _, v in ipairs( z.properties_cats ) do                -- append properties categories
  table.insert (render, make_wikilink ('Category:' .. v));
end

invoke:}} use sandbox version?

cfg = mw.loadData ('Module:Citation/CS1/Configuration/sandbox');    -- load sandbox versions of support modules
whitelist = mw.loadData ('Module:Citation/CS1/Whitelist/sandbox');
utilities = require ('Module:Citation/CS1/Utilities/sandbox');
validation = require ('Module:Citation/CS1/Date_validation/sandbox');
identifiers = require ('Module:Citation/CS1/Identifiers/sandbox');
metadata = require ('Module:Citation/CS1/COinS/sandbox');

else -- otherwise

cfg = mw.loadData ('Module:Citation/CS1/Configuration');        -- load live versions of support modules
whitelist = mw.loadData ('Module:Citation/CS1/Whitelist');
utilities = require ('Module:Citation/CS1/Utilities');
validation = require ('Module:Citation/CS1/Date_validation');
identifiers = require ('Module:Citation/CS1/Identifiers');
metadata = require ('Module:Citation/CS1/COinS');

end

utilities.set_selected_modules (cfg); so that functions in Utilities can see the cfg tables 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 dates = validation.dates; imported functions from Module:Citation/CS1/Date validation year_date_check = validation.year_date_check; reformat_dates = validation.reformat_dates; date_hyphen_to_dash = validation.date_hyphen_to_dash; date_name_xlate = validation.date_name_xlate; is_set = utilities.is_set; imported functions from Module:Citation/CS1/Utilities in_array = utilities.in_array; substitute = utilities.substitute; error_comment = utilities.error_comment; set_error = utilities.set_error; select_one = utilities.select_one; add_maint_cat = utilities.add_maint_cat; wrap_style = utilities.wrap_style; safe_for_italics = utilities.safe_for_italics; is_wikilink = utilities.is_wikilink; make_wikilink = utilities.make_wikilink; z = utilities.z; table of error and category tables in Module:Citation/CS1/Utilities extract_ids = identifiers.extract_ids; imported functions from Module:Citation/CS1/Identifiers build_id_list = identifiers.build_id_list; is_embargoed = identifiers.is_embargoed; extract_id_access_levels = identifiers.extract_id_access_levels; make_coins_title = metadata.make_coins_title; imported functions from Module:Citation/CS1/COinS get_coins_pages = metadata.get_coins_pages; COinS = metadata.COinS; local args = {}; table where we store all of the template's arguments local suggestions = {}; table where we store suggestions if we need to loadData them local error_text, error_state; local config = {}; table to store parameters from the module {{

invoke:}}

for k, v in pairs( frame.args ) do

config[k] = v;

invoke:}}

end local capture; -- the single supported capture when matching unknown parameters using patterns for k, v in pairs( pframe.args ) do

if v ~= '' then
  if ('string' == type (k)) then
    k = mw.ustring.gsub (k, '%d', cfg.date_names.local_digits);      -- for enumerated parameters, translate 'local' digits to Western 0-9
  end
  if not validate( k, config.CitationClass ) then      
    error_text = "";
    if type( k ) ~= 'string' then
      -- Exclude empty numbered parameters
      if v:match("%S+") ~= nil then
        error_text, error_state = set_error( 'text_ignored', {v}, true );
      end
    elseif validate( k:lower(), config.CitationClass ) then 
      error_text, error_state = set_error( 'parameter_ignored_suggest', {k, k:lower()}, true );
    else
      if nil == suggestions.suggestions then            -- if this table is nil then we need to load it
        if nil ~= string.find (frame:getTitle(), 'sandbox', 1, true) then      -- did the {{

          suggestions = mw.loadData( 'Module:Citation/CS1/Suggestions/sandbox' );  -- use the sandbox version
        else
          suggestions = mw.loadData( 'Module:Citation/CS1/Suggestions' );      -- use the live version
        end
      end
      for pattern, param in pairs (suggestions.patterns) do    -- loop through the patterns to see if we can suggest a proper parameter
        capture = k:match (pattern);              -- the whole match if no caputre in pattern else the capture if a match
        if capture then                      -- if the pattern matches 
          param = substitute( param, capture );        -- add the capture to the suggested parameter (typically the enumerator)
          error_text, error_state = set_error( 'parameter_ignored_suggest', {k, param}, true );  -- set the error message
        end
      end
      if not is_set (error_text) then                -- couldn't match with a pattern, is there an expicit suggestion?
        if suggestions.suggestions[ k:lower() ] ~= nil then
          error_text, error_state = set_error( 'parameter_ignored_suggest', {k, suggestions.suggestions[ k:lower() ]}, true );
        else
          error_text, error_state = set_error( 'parameter_ignored', {k}, true );
          v = '';                        -- unset value assigned to unrecognized parameters (this for the limited parameter lists)
        end
      end
    end          
    if error_text ~= '' then
      table.insert( z.message_tail, {error_text, error_state} );
    end        
  end
  missing_pipe_check (v);                        -- do we think that there is a parameter that is missing a pipe?
                                    -- TODO: is this the best place for this translation?
  args[k] = v;
elseif args[k] ~= nil or (k == 'postscript') then            -- here when v is empty string
  args[k] = v;                            -- why do we do this?  we don't support 'empty' parameters
end    

if 'string' == type (k) then                      -- don't evaluate positional parameters
  has_invisible_chars (k, v);
end