Module:Citation/CS1: திருத்தங்களுக்கு இடையிலான வேறுபாடு

 

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

 

 

 

 

 

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

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

 

 

 

 

]]

 

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

 

 

local i = 1;

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

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

end

i = i + 1; -- point to next

end

end

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

 

 

]]

 

end

 

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

 

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

Scheme names consist of a sequence of characters beginning with a

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

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

 

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

 

Also allowed are IPv4 addresses. IPv6 not supported

 

 

There are several tests:

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

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

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

IPv4 dot-decimal address format; TLD not allowed

 

 

]=]

end

 

return false;

end

 

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

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

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

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

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

}

 

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

if domain:match (pattern) then

end

end

 

if domain:match ('%f[%w][%w]%.' .. d) then

return true

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

 

 

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

 

local function is_url (scheme, domain)

return is_scheme (scheme) and is_domain_name (domain);

else

end

end

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

 

 

 

 

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

 

Strip off any port and path;

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

 

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

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

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

end

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

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

 

 

# < > [ ] | { } _

 

returns false when the value contains any of these characters.

 

 

]]

local function link_param_ok (value)

local scheme, domain;

return false;

end

 

end

 

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

 

that condition exists

 

]]

 

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

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

orig = lorig; -- identify the failing link parameter

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

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

end

end

 

end

end

 

Determines whether a URL string appears to be valid.

 

 

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

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

 

local function check_url( url_str )

return false;

end

local scheme, domain;

 

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

end

end

 

 

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

 

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

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

local scheme, domain;

 

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

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

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

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

else

end

 

end

 

]]

 

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

end

end

end

local function safe_for_url( str )

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

end

]]

 

local domain;

local path;

local base_url;

 

label = URL;

else

end

end

end

if path then -- if there is a path portion

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

end

 

 

end

end

 

parameters in the citation.

 

 

]]

if not added_deprecated_cat then

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

end

end

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

 

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

 

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

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

 

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

 

 

]=]

 

local function kern_quotes (str)

local wl_type, label, link;

 

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

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

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

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

end

 

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

 

end

end

if 2 == wl_type then

else

str = label;

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

 

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

in italic markup.

 

 

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

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

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

 

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

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

local lang=''; -- initialize to empty string

local name;

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

end

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

-- is prefix one of these language codes?

else

end

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

else

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

end

else

end

 

return script_value;

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

 

]]

 

local function script_concatenate (title, script, script_param)

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

end

 

local function wrap_msg (key, str, lower)

return "";

end

local msg;

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

else

end

end

 

 

 

 

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

local wl_type, D, L;

local ws_url, ws_label;

 

 

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

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

str, -- article title

});

end

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

str, -- article title

});

end

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

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

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

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

});

end

end

if ws_url then

end

 

end

 

 

 

 

]]

 

local function format_periodical (script_periodical, script_periodical_source, periodical, trans_periodical)

 

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

else

end

 

 

periodical = trans_periodical;

end

end

 

end

 

 

 

 

]]

 

if ws_url then

chapter = ws_label;

end

 

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

else

if false == no_quotes then

end

end

 

 

elseif ws_url then

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

end

 

end

end

 

end

 

 

 

 

 

 

 

]]

local function has_invisible_chars (param, v)

local position = ''; -- position of invisible char or starting position of stripmarker

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

return;

end

 

position = nil; -- unset position

end

if position then

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

stripmarker = true; -- set a flag

position = nil; -- unset

else

local err_msg;

else

end

 

return; -- and done with this parameter

end

end

end

end

 

 

 

 

]]

 

local origin = {};

return setmetatable({

return origin[k];

end

if type( list ) == 'table' then

if origin[k] == nil then

end

elseif list ~= nil then

-- Empty strings, not nil;

if v == nil then

origin[k] = '';

end

 

 

 

 

DOES NOT yet support MMMM YYYY or any of the date ranges.

 

local function nowrap_date (date)

 

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

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

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

end

 

 

 

 

]]

 

local function set_titletype (cite_class, title_type)

end

return title_type; -- if |type= has been set to any other value use that value

 

 

 

Joins a sequence of strings together while checking for duplicate separation characters.

 

local function safe_join( tbl, duplicate_char )

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

end

 

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

elseif value ~= '' then

else

comp = value;

end

-- typically duplicate_char is sepc

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

trim = false;

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

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

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

trim = true; -- same question

end

trim = true;

trim = true;

trim = true;

trim = true;

end

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

end

end

 

if trim then

local dup2 = duplicate_char;

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

else

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

end

end

end

end

 

 

 

 

]]

 

local function is_suffix (suffix)

return true;

end

 

 

 

 

[http://www.unicode.org/charts/PDF/U0000.pdf C0 Controls and Basic Latin] 0041–005A, 0061–007A

[http://www.unicode.org/charts/PDF/U0080.pdf C1 Controls and Latin-1 Supplement] 00C0–00D6, 00D8–00F6, 00F8–00FF

[http://www.unicode.org/charts/PDF/U0180.pdf Latin Extended-B] 0180–01BF, 01C4–024F

 

|firstn= also allowed to contain hyphens, spaces, apostrophes, and periods

 

This original test:

 

\195\128-\195\150 – À-Ö (U+00C0–U+00D6 – C0 controls)

]]

 

if not is_suffix (suffix) then

return false; -- not a name with an appropriate suffix

end

end

end;

return true;

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

 

 

 

 

 

]]

 

 

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

end

 

return first; -- one or two initials and a valid suffix so nothing to do

else

return first; -- and return first unmolested

end

end -- if here then name has 3 or more uppercase letters so treat them as a word

 

local i = 1; -- counter for number of initials

 

 

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

end

end

end

 

 

 

 

]]

 

local sep;

local namesep;

 

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

else

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

end

local sep_one = sep;

etal = true;

break;

else

end

else

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

end

end

one = one .. namesep .. first;

end

end

end

end

end

 

end

end

end

end

 

 

 

 

 

]]

end

else

end

end

 

 

 

 

 

]]

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

 

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

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

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

end

end

end

 

end

 

 

 

 

]]

 

 

end

end

end

end

 

 

 

 

]]

 

end

end

end

 

 

--[[--------------------------< N A M E _ C H E C K S >--------------------------------------------------------

 

]]

 

end

end

end

end

return last, first; -- done

 

 

Gets name list from the input arguments

 

 

 

 

]]

 

local function extract_names(args, list_name)

local first;

local link;

local mask;

 

while true do

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

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

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

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

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

end

else -- we have last with or without a first

 

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

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

end

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

end

end

 

 

 

 

 

 

 

 

 

 

end

 

 

end

end

end

 

 

 

 

 

 

 

]]

 

local function language_parameter (lang)

local name; -- the language name

local language_list = {}; -- table of language names to be rendered

 

 

 

 

 

end

end

else

end

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

end

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

end

 

 

 

 

]]

 

end

end

 

 

 

 

]]

 

local sep;

end

 

end

end

 

 

 

 

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

 

 

 

the appropriate styling.

 

 

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

end

else

format = ''; -- empty string for concatenation

 

 

 

 

 

 

In all other cases, returns nil and the previous state of the 'etal' flag.

 

inputs:

count: #a or #e

list_name: 'authors' or 'editors'

etal: author_etal or editor_etal

 

]]

 

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

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

elseif max:match ('^%d+$') then -- if is a string of numbers

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

end

else -- not a valid keyword or number

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

end

 

 

 

 

 

]]

 

 

end

end

 

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

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

 

local function get_v_name_table (vparam, output_table, output_link_table)

local name_table = mw.text.split(vparam, "%s*,%s*"); -- names are separated by commas

local i = 1;

while name_table[i] do

local name = name_table[i];

while name_table[i] do

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

break; -- and done reassembling so

end

end

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

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

else

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

if 1 == wl_type then

end

end

end

return output_table;

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

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

 

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

 

 

]]

 

for i, v_name in ipairs(v_name_table) do

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;

end

local lastfirstTable = {}

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

if mw.ustring.match (last, '%a+%s+%u+%s+%a+') then

end

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

end

else

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

end

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

end

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

else

if not corporate then

end

end

 

end

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

 

Select one of |authors=, |authorn= / |lastn / firstn=, or |vauthors= as the source of the author name list or

 

 

When looking for |authorn= / |editorn= parameters, test |xxxxor1= and |xxxxor2= (and all of their aliases); stops after the second

Emits an error message when more than one xxxxor name source is provided.

 

 

]]

 

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

end

 

local err_name;

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

err_name = 'editor';

end

end

 

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

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

end

 

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

 

]]

 

else

end

end

 

local function terminate_name_list (name_list, sepc)

return name_list; -- just return the name list

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

else

end

end

 

 

 

 

]]

return '';

end

end

 

end

end

end

end

 

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

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

if 'journal' == origin then

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

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

end

if 'journal' == origin then

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

end

 

if is_journal then

elseif not nopp then

else

end

if is_journal then

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

elseif not nopp then

else

end

end

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

 

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

 

]]

 

 

pages = ''; -- unset the others

at = '';

end

 

if ws_url then

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

coins_pages = ws_label;

end

at = ''; -- unset

end

 

if ws_url then

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

coins_pages = ws_label;

end

if ws_url then

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

coins_pages = ws_label;

end

end

 

 

 

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

 

unwitting readers to do.

 

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

 

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

|archive-date= and an error message when:

correct place

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

 

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

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

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

 

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

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

 

]=]

local function archive_url_check (url, date)

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

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

end

 

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

elseif url:match('//liveweb%.archive%.org/') then

else

if '*' ~= flag then

end

else

end

end

-- if here, something not right so

else

end

end

]]

 

--[[

Load Input Parameters

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

]]

local i

 

-- Pick out the relevant fields from the arguments. Different citation templates

-- define different field names for the same underlying things.

 

local author_etal;

local a = {}; -- authors list from |lastn= / |firstn= pairs or |vauthors=

local Authors;

local Collaboration = A['Collaboration'];

 

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

elseif 2 == selected then

elseif 3 == selected then

end

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

end

end

 

local editor_etal;

local e = {}; -- editors list from |editor-lastn= / |editor-firstn= pairs or |veditors=

 

do -- to limit scope of selected

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

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

end

end

local c = {}; -- contributors list from |contributor-lastn= / contributor-firstn= pairs

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

if 0 < #c then

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

end

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

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

end

end

else -- if not a book cite

end

Contribution = nil; -- unset

end

 

local Title = A['Title'];

local TitleLink = A['TitleLink'];

 

 

 

end

 

local ScriptPeriodical = A['ScriptPeriodical'];

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

end

 

 

local Volume;

if 'citation' == config.CitationClass then

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

end

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

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

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

end

Volume = A['Volume'];

end

 

if 'citation' == config.CitationClass then

end

end

end

 

Page = A['Page'];

At = A['At'];

end

 

local Edition = A['Edition'];

local PublisherName = A['PublisherName'];

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

end

 

 

end

 

 

 

 

local this_page = mw.title.getCurrentTitle(); -- also used for COinS and for language

 

no_tracking_cats = "true"; -- set no_tracking_cats

end

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

no_tracking_cats = "true"; -- set no_tracking_cats

end

end

 

local coins_pages;

 

 

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

end

if PublicationPlace == Place then Place = ''; end -- don't need both if they are the same

--[[

Parameter remapping for cite encyclopedia:

When the citation has these parameters:

 

]]

 

 

ScriptChapter = ScriptTitle;

TransChapter = TransTitle;

ChapterURL = URL;

ChapterUrlAccess = UrlAccess;

 

end

Periodical = ''; -- redundant so unset

URL = '';

Format = '';

TitleLink = '';

end

Periodical = ''; -- redundant so unset

end

end

end

 

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

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

else -- ID has a value so emit error message

end

end

end

 

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

if 'conference' == config.CitationClass then

Chapter = Title;

ChapterURL = URL;

ChapterUrlAccess = UrlAccess;

ChapterFormat = Format;

TransChapter = TransTitle;

Title = BookTitle;

Format = '';

TransTitle = '';

URL = '';

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

end

 

-- cite map oddities

local Cartography = "";

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

if config.CitationClass == "map" then

Chapter = A['Map'];

ChapterURL = A['MapURL'];

TransChapter = A['TransMap'];

ChapterFormat = A['MapFormat'];

Cartography = A['Cartography'];

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

end

Scale = A['Scale'];

Scale = sepc .. " " .. Scale;

end

 

-- Account for the oddities that are {{cite episode}} and {{cite serial}}, before generation of COinS data.

if 'episode' == config.CitationClass or 'serial' == config.CitationClass then

local SeriesLink = A['SeriesLink'];

 

 

local Network = A['Network'];

local s, n = {}, {};

-- do common parameters first

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

if 'episode' == config.CitationClass then -- handle the oddities that are strictly {{cite episode}}

local Season = A['Season'];

local SeriesNumber = A['SeriesNumber'];

 

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

end

-- assemble a table of parts concatenated later into Series

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

Chapter = Title; -- promote title parameters to chapter

ScriptChapter = ScriptTitle;

TransChapter = TransTitle;

ChapterURL = URL;

ChapterUrlAccess = UrlAccess;

Title = Series; -- promote series to title

TitleLink = SeriesLink;

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

 

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?

end

end

end

-- end of {{cite episode}} stuff

 

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

TitleType = set_titletype (config.CitationClass, TitleType);

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

end

end

 

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

end

 

-- legacy: promote PublicationDate to Date if neither Date nor Year are set.

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

 

Date = Year; -- promote Year to Date

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

Date = PublicationDate; -- promote PublicationDate to Date

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

Date validation supporting code is in Module:Citation/CS1/Date_validation

]]

do -- create defined block to contain local variables error_message, date_parameters_list, mismatch

local error_message = '';

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

local date_parameters_list = {

};

 

 

end

local modified = false; -- flag

end

 

modified = true;

end

 

if modified then -- if the date_parameters_list values were modified

Date = date_parameters_list['date'].val;

DoiBroken = date_parameters_list['doi-broken-date'].val;

PublicationDate = date_parameters_list['publication-date'].val;

end

else

end

end -- end of do

 

 

AccessDate = ''; -- unset

end

 

end

end

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

-- Test if citation has no title

end

 

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

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

end

 

-- COinS metadata (see <http://ocoins.info/>) for automated parsing of citation information.

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

local coins_title = Title; -- et tu

coins_chapter = Title; -- remap

coins_title = Periodical;

coins_author = c; -- use that instead

end

-- this is the function call to COinS()

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

['PublicationPlace'] = PublicationPlace,

['Season'] = COinS_date.rftssn,

['Series'] = Series,

['Volume'] = Volume,

['Issue'] = Issue,

['Edition'] = Edition,

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

['Authors'] = coins_author,

['RawPage'] = this_page.prefixedText,

}, config.CitationClass);

 

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

end

 

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

end

 

-- Now perform various field substitutions.

-- We also add leading spaces and surrounding markup and punctuation to the

-- various parts of the citation, but only when they are non-nil.

do

local last_first_list;

local control = {

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

mode = Mode

};

 

do -- do editor name list first because the now unsupported coauthors used to modify control table