「モジュール:Citation/CS1/Identifiers」の版間の差分

url_string = mw.uri.encode( url_string );

ext_link = mw.ustring.format ('[%s%s%s %s]', options.prefix, url_string, options.suffix or "", mw.text.nowiki(options.id));

if is_set(options.access) then

local function internal_link_id(options)

Determines if a PMC identifier's online version is embargoed. Compares the date in |pmc-embargo-date= against today's date.  If embargo date is

in the future, returns the content of |pmc-embargo-date=; otherwise, returns an empty string because the embargo has expired or because

|pmc-embargo-date= was not set in this cite.

contains a non-English month name because good1 is false after the call to lang.formatDate().  To get around that

call this function with YYYY-MM-DD format dates.

local function is_valid_biorxiv_date (biorxiv_date)

good1, biorxiv_ts = pcall (lang_object.formatDate, lang_object, 'U', biorxiv_date ); -- convert biorxiv_date value to Unix timestamp  

for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum

if v == string.byte( "X" ) then -- if checkdigit is X (compares the byte value of 'X' which is 0x58)

temp = temp + 10*( len - i ); -- it represents 10 decimal

temp = temp + tonumber( string.char(v) )*(len-i);

for i, v in ipairs( isxn_str ) do

temp = temp + (3 - 2*(i % 2)) * tonumber( string.char(v) ); -- multiply odd index digits by 1, even index digits by 3 and sum; includes check digit

LCCN normalization (http://www.loc.gov/marc/lccn-namespace.html#normalization)

See: http://arxiv.org/help/arxiv_identifier

local function arxiv (id, class)

local handler = cfg.id_handlers['ARXIV'];

local err_cat = false; -- assume no error message

year = tonumber(year);

month = tonumber(month);

err_cat = true; -- flag for error message

year = tonumber(year);

month = tonumber(month);

err_cat = true; -- flag for error message

year = tonumber(year);

month = tonumber(month);

err_cat = true; -- flag for error message

err_cat = true; -- not a recognized format; flag for error message

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode, access = handler.access}) .. err_cat;

text = table.concat ({text, ' ', set_message ('err_class_ignored')});

return text;

Format for bibcodes is specified here: http://adsabs.harvard.edu/abs_doc/help_pages/data.html#bibcodes

local function bibcode (id, access)

local handler = cfg.id_handlers['BIBCODE'];

local next_year = tonumber(os.date ('%Y')) + 1; -- get the current year as a number and add one for next year

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

local function biorxiv(id)

local handler = cfg.id_handlers['BIORXIV'];

local err_cat = true; -- flag; assume that there will be an error

if not is_valid_biorxiv_date (y .. '-' .. m .. '-' .. d) then -- validate the encoded date; TODO: don't ignore leap-year and actual month lengths ({{#time:}} is a poor date validator)

err_cat = nil; -- we found a match so unset the error message

encode = handler.encode, access = handler.access}) .. (err_cat and (' ' .. set_message( 'err_bad_biorxiv')) or '');

local function citeseerx (id)

local handler = cfg.id_handlers['CITESEERX'];

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

local function doi (id, inactive, access, ignore_invalid)

local err_cat;

local handler = cfg.id_handlers['DOI'];

if is_set(inactive_year) and is_set (inactive_month) then

elseif is_set(inactive_year) then

local registrant = id:match ('^10%.([^/]+)/[^%s–]-[^%.,]$'); -- registrant set when DOI has the proper basic form

'^[^1-4]%d%d%d%d$', -- 5 digits without subcode (0xxxx, 40000+); accepts: 10000–49999

'^%d%d?%d?$', -- less than 4 digits without subcode (with subcode is legitimate)

'%s', -- any space character in registrant

if registrant then -- when DOI has proper form

for i, pattern in ipairs (registrant_err_patterns) do -- spin through error patterns

if registrant:match (pattern) then -- to validate registrant codes

err_cat = ' ' .. set_message ('err_bad_doi'); -- when found, mark this DOI as bad

break; -- and done

err_cat = ' ' .. set_message ('err_bad_doi'); -- invalid directory or malformed

auto_link = not (err_cat or is_set (inactive) or ignore_invalid) and 'doi' or nil -- do not auto-link when |doi-broken-date= has a value or when there is a DOI error or (to play it safe, after all, auto-linking is not essential) when invalid DOIs are ignored

return text .. (err_cat and err_cat or ''); -- parentheses required

Query string parameters are named here: http://www.handle.net/proxy_servlet.html.  query strings are not displayed

local function hdl(id, access)

local handler = cfg.id_handlers['HDL'];

local query_params = { -- list of known query parameters from http://www.handle.net/proxy_servlet.html

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

local function isbn (isbn_str, ignore_invalid)

local handler = cfg.id_handlers['ISBN'];

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

return ISBN;

return return_result (is_valid_isxn(id, 10), cfg.err_msg_supl.check);

|asin=630....... is (apparently) not a legitimate ISBN though it checksums as one; these do not cause this

function to emit the maint_asin message

local function asin (id, domain)

local err_cat = ""

err_cat = ' ' .. set_message ('err_bad_asin'); -- ASIN is not a mix of 10 uppercase alpha and numeric characters

if isbn (id) then -- see if ASIN value is or validates as ISBN-10

if not id:find ('^630') then -- 630xxxxxxx is (apparently) not a valid isbn prefix but is used by amazon as a numeric identifier

set_message ('maint_asin'); -- begins with something other than 630 so possibly an isbn

elseif not is_set (err_cat) then

err_cat = ' ' .. set_message ('err_bad_asin'); -- ASIN is not ISBN-10

err_cat = ' ' .. set_message ('err_bad_asin'); -- asin doesn't begin with uppercase alpha

if not is_set(domain) then  

elseif in_array (domain, {'au', 'br', 'mx'}) then -- Australia, Brazil, Mexico

local handler = cfg.id_handlers['ASIN'];

id = id, encode = handler.encode, separator = handler.separator}) .. err_cat;

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

local function ismn (id)

local handler = cfg.id_handlers['ISMN'];

if 13 ~= id:len() or id:match( "^9790%d*$" ) == nil then -- ISMN must be 13 digits and begin with 9790

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

|issn=0819 4327 gives: [http://www.worldcat.org/issn/0819 4327 0819 4327] -- can't have spaces in an external link

local function issn (id, e, ignore_invalid)

if 8 ~= id:len() or nil == id:match( "^%d*X?$" ) then -- validate the ISSN: 8 digits long, containing only 0-9 or X in the last position

valid_issn = is_valid_isxn(id, 8); -- validate ISSN

id = string.sub( id, 1, 4 ) .. "-" .. string.sub( id, 5 ); -- if valid, display correctly formatted version

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

return text

local function jfm (id)

local handler = cfg.id_handlers['JFM'];

else -- plain number without mr prefix

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode}) .. err_cat;

http://info-uri.info/registry/OAIHandler?verb=GetRecord&metadataPrefix=reg&identifier=info:lccn/

local function lccn(lccn)

local handler = cfg.id_handlers['LCCN'];

local err_cat = ''; -- presume that LCCN is valid

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

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

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

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

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

err_cat = ' ' .. set_message ('err_bad_lccn'); -- wrong length, set an error message

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

prefix = handler.prefix, id = lccn, separator = handler.separator, encode = handler.encode}) .. err_cat;

local function mr (id)

local handler = cfg.id_handlers['MR'];

id = string.rep ('0', 7-id_len ) .. id_num; -- zero-fill leading digits

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode}) .. err_cat;

local function oclc (id)

local handler = cfg.id_handlers['OCLC'];

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

local 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}) .. err_msg;

 

return text;

local function openlibrary(id, access)

local handler = cfg.id_handlers['OL'];

local error_msg = '';

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

access = access}) .. error_msg;

local function pmc (id, embargo)

local handler = cfg.id_handlers['PMC'];

local err_cat;

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

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

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

auto_link = not err_cat and 'pmc' or nil -- do not auto-link when PMC has error

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

local function pmid(id)

local handler = cfg.id_handlers['PMID'];

local err_cat = ''; -- presume that PMID is valid

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

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

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode}) .. err_cat;

local function s2cid (id, access)

local handler = cfg.id_handlers['S2CID'];

local err_cat = ''; -- presume that S2CID is valid

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

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

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

prefix = handler.prefix, id = id:gsub ('%.%a%a', ''), separator = handler.separator, encode = handler.encode, access = access}) .. err_cat;

local function sbn (id, ignore_invalid)

local handler = cfg.id_handlers['SBN'];

local function return_result (check, err_type) -- local function to handle the various returns

if not ignore_invalid then -- if not ignoring SBN errors

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

local ident = id:gsub ('[%s-]', ''); -- remove hyphens and whitespace; they interfere with the rest of the tests

local function ssrn (id)

local handler = cfg.id_handlers['SSRN'];

local err_cat = ''; -- presume that SSRN is valid

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

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

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode, access = handler.access}) .. err_cat;

local function usenet_id (id)

local handler = cfg.id_handlers['USENETID'];

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

return text

local function zbl (id)

local handler = cfg.id_handlers['ZBL'];

local err_cat = '';

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

prefix = handler.prefix, id = id, separator = handler.separator, encode = handler.encode}) .. err_cat;

local function extract_ids( args )

for k, v in pairs( cfg.id_handlers ) do -- k is uppercase identifier name as index to cfg.id_handlers; e.g. cfg.id_handlers['ISBN'], v is a table

v = select_one( args, v.parameters, 'err_redundant_parameters' ); -- v.parameters is a table of aliases for k; here we pick one from args if present

if is_set(v) then id_list[k] = v; end -- if found in args, add identifier to our list

Fetches custom id access levels from arguments using configuration settings.

Parameters which have a predefined access level (e.g. arxiv) do not use this

function as they are directly rendered as free without using an additional parameter.

local function extract_id_access_levels( args, id_list )

for k, v in pairs( cfg.id_handlers ) do

if is_set(access_param) then

table.insert( z.message_tail, { set_message( 'invalid_param_val', {access_param, access_level}, true ) } );

if not is_set(id_list[k]) then -- identifier access-level must have a matching identifier

table.insert( z.message_tail, { set_message( 'err_param_access_requires_param', {k:lower()}, true ) } ); -- parameter name is uppercase in cfg.id_handlers (k); lowercase for error message