Module:Citation/CS1/Identifiers: Difference between revisions

if options.encode == true or options.encode == nil then

end

isxn_str = { isxn_str:byte(1, 13) }; -- make a table of byte values '0' → 0x30 .. '9' → 0x39

for i, v in ipairs (isxn_str) do

end

return temp % 10 == 0; -- sum modulo 10 is zero when ISBN-13/ISMN is correct

end

err_cat = err_cat and table.concat ({' ', set_message ('err_bad_arxiv')}) or ''; -- set error message if flag is true

err_type = cfg.err_msg_supl.value; -- so value error

else

year = tonumber (year); -- convert year portion of bibcode to a number

if (1000 > year) or (year > next_year) then

if is_set (err_type) then -- if there was an error detected

text = text .. ' ' .. set_message ('err_bad_bibcode', {err_type});

end

return text;

end -- err_cat remains set here when no match

return external_link_id ({link = handler.link, label = handler.label, q = handler.q, redirect = handler.redirect,

prefix = handler.prefix, id = id, separator = handler.separator,

if not matched then

text = text .. ' ' .. set_message ('err_bad_citeseerx' );

end

return text;

local registrant_err_patterns = { -- these patterns are for code ranges that are not supported  

'^[^1-3]%d%d%d%d%.%d%d*$', -- 5 digits with subcode (0xxxx, 40000+); accepts: 10000–39999

'^[^1-9]%d%d%d%.%d%d*$', -- 4 digits with subcode (0xxx); accepts: 1000–9999

'^[^1-9]%d%d%d$', -- 4 digits without subcode (0xxx); accepts: 1000–9999

if not ignore_invalid then

end

end

else

end

else

end

text = external_link_id ({link = handler.link, label = handler.label, q = handler.q, redirect = handler.redirect,

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode, access = access,

if nil == id:match("^[^%s–]-/[^%s–]-[^%.,]$") then -- HDL must contain a forward slash, must not contain spaces, endashes, and must not end with period or comma

text = text .. ' ' .. set_message ('err_bad_hdl' );

end

return text;

else -- here when not ignoring

if not check then -- and there is an error

return ISBN .. set_message ('err_bad_isbn', {err_type}, false, ' '); -- display an error message

end

return return_result (false, cfg.err_msg_supl.form);

end

else

if id:match ('^%d+$') == nil then

Error message if not 10 characters, if not ISBN-10, if mixed and first character is a digit.

This function is positioned here because it calls isbn()

local domain = options.ASINTLD;

if not id:match("^[%d%u][%d%u][%d%u][%d%u][%d%u][%d%u][%d%u][%d%u][%d%u][%d%u]$") then

else

if id:match("^%d%d%d%d%d%d%d%d%d[%dX]$") then -- if 10-digit numeric (or 9 digits with terminal X)

end

elseif not is_set (err_cat) then

end

end

domain = "com";

elseif in_array (domain, {'jp', 'uk'}) then -- Japan, United Kingdom

domain = "co." .. domain;

domain = "com." .. domain;

end

return external_link_id ({link = handler.link, label = handler.label, q = handler.q, redirect = handler.redirect,

prefix = handler.prefix .. domain .. "/dp/",

same check digit calculations.  See http://www.ismn-international.org/download/Web_ISMN_Users_Manual_2008-6.pdf

section 2, pages 9–12.

]]

if false == valid_ismn then

text = text .. ' ' .. set_message ('err_bad_ismn' ) -- add an error message if the ISMN is invalid

end  

else

if false == valid_issn then

text = text .. ' ' .. set_message ('err_bad_issn', (options.hkey == 'EISSN') and 'e' or ''); -- add an error message if the ISSN is invalid

end  

else

err_cat = ' ' .. set_message ('err_bad_jfm' ); -- set an error message

end

if id:find ('[Jj][Ss][Tt][Oo][Rr]') or id:find ('^https?://') or id:find ('%s') then

err_msg = ' ' .. set_message ('err_bad_jstor'); -- set an error message

end

if not is_set (err_cat) and nil ~= lccn:find ('%s') then

err_cat = ' ' .. set_message ('err_bad_lccn'); -- lccn contains a space, set an error message

end

else

err_cat = ' ' .. set_message ('err_bad_mr'); -- set an error message

end

else

err_msg = ' ' .. set_message ('err_bad_oclc') -- add an error message if the id is malformed

end

ident = id; -- copy id to ident so that we display the flawed identifier

error_msg = ' ' .. set_message ('err_bad_ol');

end

if id:match("[^%d]") then -- if OSTI has anything but digits

err_cat = ' ' .. set_message ('err_bad_osti'); -- set an error message

else -- OSTI is only digits

local id_num = tonumber (id); -- convert id to a number for range testing

if 1018 > id_num or handler.id_limit < id_num then -- if OSTI is outside test limit boundaries

err_cat = ' ' .. set_message ('err_bad_osti'); -- set an error message

end

end

text = external_link_id ({link = handler.link, label = handler.label, q = handler.q, redirect = handler.redirect, -- no embargo date or embargo has expired, ok to link to article

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode, access = handler.access,

}) .. (err_cat and err_cat or ''); -- parentheses required

end

return text;

end

if id:match("[^%d]") then -- if PMID has anything but digits

err_cat = ' ' .. set_message ('err_bad_pmid'); -- set an error message

else -- PMID is only digits

local id_num = tonumber (id); -- convert id to a number for range testing

if 1 > id_num or handler.id_limit < id_num then -- if PMID is outside test limit boundaries

err_cat = ' ' .. set_message ('err_bad_pmid'); -- set an error message

end

end

if id:match("[^%d]") then -- if RFC has anything but digits

err_cat = ' ' .. set_message ('err_bad_rfc'); -- set an error message

else -- RFC is only digits

local id_num = tonumber (id); -- convert id to a number for range testing

if 1 > id_num or handler.id_limit < id_num then -- if RFC is outside test limit boundaries

err_cat = ' ' .. set_message ('err_bad_rfc'); -- set an error message

end

end

if handler.id_limit < id_num then -- if S2CID is outside test limit boundaries

err_cat = ' ' .. set_message ('err_bad_s2cid'); -- set an error message

end

else -- when id format incorrect

err_cat = ' ' .. set_message ('err_bad_s2cid'); -- set an error message

end

9-digit form of ISBN-10; uses same check-digit validation when SBN is prefixed with an additional '0' to make 10 digits

]]

if not ignore_invalid then -- if not ignoring SBN errors

if not check then

return SBN .. set_message ('err_bad_sbn', {err_type}, false, ' '); -- display an error message

end

end

if  9 ~= ident:len() then

if 100 > id_num or handler.id_limit < id_num then -- if SSRN is outside test limit boundaries

err_cat = ' ' .. set_message ('err_bad_ssrn'); -- set an error message

end

else -- when id format incorrect

err_cat = ' ' .. set_message ('err_bad_ssrn'); -- set an error message

end

if not id:match('^.+@.+$') or not id:match('^[^<].*[^>]$') then -- doesn't have '@' or has one or first or last character is '< or '>'

text = text .. ' ' .. set_message ('err_bad_usenet_id') -- add an error message if the message id is invalid

end  

elseif not id:match('^%d?%d?%d?%d%.%d%d%d%d%d$') then -- not temporary, is it normal format?

err_cat = ' ' .. set_message ('err_bad_zbl'); -- no, set an error message

end

if is_set (access_level) then

if not in_array (access_level, cfg.keywords_lists['id-access']) then -- exact match required

access_level = nil; -- invalid so unset

end

render the identifiers into a sorted sequence table

modified by this function and passed to all identifier rendering functions

<access_levels_t> is a table of k/v pairs where k is same as key in cfg.id_handlers and v is the assigned value (if valid)

]]

local accept;

local func_map = { --function map points to functions associated with hkey identifier

}

v, accept = has_accept_as_written (v); -- remove accept-as-written markup if present; accept is boolean true when markup removed; false else

-- every function gets the options table with value v and accept boolean

options_t.access = access_levels_t[hkey]; -- add the access level for those that have an |<identifier-access= parameter

options_t.handler = cfg.id_handlers[hkey];

if func_map[hkey] then

else

error (cfg.messages['unknown_ID_key'] .. ' ' .. hkey); -- here when func_map doesn't have a function for hkey

end

end

end

]]

local ID_list_coins_t = extract_ids (args); -- get a table of identifiers and their values for use locally and for use in COinS

local ID_access_levels_t = extract_id_access_levels (args, ID_list_coins_t); -- get a table of identifier access levels

local ID_list_t = build_id_list (ID_list_coins_t, options_t, ID_access_levels_t); -- get a sequence table of rendered identifier strings

return ID_list_t, ID_list_coins_t; -- return the tables