模块:Citation/CS1：修订间差异

local z = {

    error_categories = {};

    error_ids = {};

    message_tail = {};

-- Include translation message hooks, ID and error handling configuration settings.

-- usage. This might be a side effect of the unnecessary cloning described

-- in bugzilla 47300.

local cfg = require( 'Module:Citation/CS1/Configuration' );

-- Contains a list of all recognized parameters

local whitelist = mw.loadData( 'Module:Citation/CS1/Whitelist' );

-- Whether variable is set or not

function is_set( var )

    return not (var == nil or var == '');

-- First set variable or nil if none

function first_set(...)

    for _, var in pairs(list) do

        if is_set( var ) then

            return var;

        end

-- Whether needle is in haystack

function inArray( needle, haystack )

    if needle == nil then

        return false;

    for n,v in ipairs( haystack ) do

        if v == needle then

            return n;

    return false;

-- Populates numbered arguments in a message string using an argument table.

function substitute( msg, args )

    return args and tostring( mw.message.newRawMessage( msg, args ) ) or msg;

-- Wraps a string using a message_list configuration taking one argument

function wrap( key, str )

    if not is_set( str ) then

        return "";

    elseif inArray( key, { 'italic-title', 'trans-italic-title' } ) then

        str = safeforitalics( str );

    end

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

--[[

function argument_wrapper( args )

    local origin = {};

    return setmetatable({

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

        __index = function ( tbl, k )

            if origin[k] ~= nil then

                return nil;

            local args, list, v = args, cfg.aliases[k];

            if list == nil then

                error( cfg.messages['unknown_argument_map'] );

            elseif type( list ) == 'string' then

                v, origin[k] = args[list], list;

                v, origin[k] = selectone( args, list, 'redundant_parameters' );

                if origin[k] == nil then

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

            end

            if v == nil then

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

            tbl = rawset( tbl, k, v );

        end,

-- Checks that parameter name is valid using the whitelist

function validate( name )

    name = tostring( name );

    -- Normal arguments

    if whitelist.basic_arguments[ name ] then

    -- Arguments with numbers in them

    name = name:gsub( "%d+", "#" );

    if whitelist.numbered_arguments[ name ] then

-- Formats a comment for error trapping

function errorcomment( content, hidden )

    return wrap( hidden and 'hidden-error' or 'visible-error', content );

--[[

of the error message in the output is the responsibility of the calling function.

function seterror( error_id, arguments, raw, prefix, suffix )

    local error_state = cfg.error_conditions[ error_id ];

    if error_state == nil then

        error( cfg.messages['undefined_error'] );

    elseif is_set( error_state.category ) then

        table.insert( z.error_categories, error_state.category );

    end

    local message = substitute( error_state.message, arguments );

    message = message .. " ([[" .. cfg.messages['help page link'] ..

        "#" .. error_state.anchor .. "|" ..

    if inArray( error_id, { 'bare_url_missing_title', 'trans_missing_title' } )

            and z.error_ids['citation_missing_title'] then

        return '', false;

    end

    message = table.concat({ prefix, message, suffix });

    if raw == true then

        return message, error_state.hidden;

    end      

-- Formats a wiki style external link

function externallinkid(options)

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

        url_string = mw.uri.encode( url_string );

    end

    return mw.ustring.format( '[[%s|%s]]%s[%s%s%s %s]',

        options.link, options.label, options.separator or " ",

-- Formats a wiki style internal link

function internallinkid(options)

    return mw.ustring.format( '[[%s|%s]]%s[[%s%s%s|%s]]',

        options.link, options.label, options.separator or " ",

        mw.text.nowiki(options.id)

    );

-- Format an external link with error checking

function externallink( URL, label, source )

    local error_str = "";

    if not is_set( label ) then

        if is_set( source ) then

            error_str = seterror( 'bare_url_missing_title', { wrap( 'parameter', source ) }, false, " " );

        else

    if not checkurl( URL ) then

        error_str = seterror( 'bad_url', {}, false, " " ) .. error_str;

    end

    return table.concat({ "[", URL, " ", safeforurl( label ), "]", error_str });

-- Formats a link to Amazon

function amazon(id, domain)

    if not is_set(domain) then

        domain = "com"

    elseif ( "jp" == domain or "uk" == domain ) then

        domain = "co." .. domain

    end

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

    return externallinkid({link = handler.link,

        label=handler.label , prefix="//www.amazon."..domain.."/dp/",id=id,

-- Formats a DOI and checks for DOI errors.

function doi(id, inactive)

    local cat = ""

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

    if is_set(inactive) then

        text = "[[" .. handler.link .. "|" .. handler.label .. "]]:" .. id;

        table.insert( z.error_categories, "Pages with DOIs inactive since " .. selectyear(inactive) );       

        inactive = " (" .. cfg.messages['inactive'] .. " " .. inactive .. ")"

        text = externallinkid({link = handler.link, label = handler.label,

        inactive = ""

    end

    if ( string.sub(id,1,3) ~= "10." ) then    

        cat = seterror( 'bad_doi' );

    end

    return text .. inactive .. cat

-- Formats an OpenLibrary link, and checks for associated errors.

function openlibrary(id)

    local code = id:sub(-1,-1)

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

    if ( code == "A" ) then

        return externallinkid({link=handler.link, label=handler.label,

            prefix="http://openlibrary.org/authors/OL",id=id, separator=handler.separator,

            encode = handler.encode})

    elseif ( code == "M" ) then

        return externallinkid({link=handler.link, label=handler.label,

            prefix="http://openlibrary.org/books/OL",id=id, separator=handler.separator,

            encode = handler.encode})

    elseif ( code == "W" ) then

        return externallinkid({link=handler.link, label=handler.label,

            prefix= "http://openlibrary.org/works/OL",id=id, separator=handler.separator,

        return externallinkid({link=handler.link, label=handler.label,

            prefix= "http://openlibrary.org/OL",id=id, separator=handler.separator,

            ' ' .. seterror( 'bad_ol' );

    end

--[[

Determines whether an URL string is valid

function checkurl( url_str )

    -- Protocol-relative or URL scheme

    return url_str:sub(1,2) == "//" or url_str:match( "^[^/]*:" ) ~= nil;

-- Removes irrelevant text and dashes from ISBN number

-- Similar to that used for Special:BookSources

function cleanisbn( isbn_str )

    return isbn_str:gsub( "[^-0-9X]", "" );

-- Determines whether an ISBN string is valid

    local len = isbn_str:len();

    local temp = 0;

        if isbn_str:match( "^%d*X?$" ) == nil then return false; end

            if v == string.byte( "X" ) then

                temp = temp + 10*( 11 - i );

            else

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

            end

        return temp % 11 == 0;

        if isbn_str:match( "^%d*$" ) == nil then return false; end

        isbn_str = { isbn_str:byte(1, len) };

        for i, v in ipairs( isbn_str ) do

            temp = temp + (3 - 2*(i % 2)) * tonumber( string.char(v) );

        end

        return temp % 10 == 0;

-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B

function removewikilink( str )

    return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)

        return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");

    end));

-- Escape sequences for content that will be used for URL descriptions

    do return str end -- LOCAL HACK https://en.wikipedia.org/w/index.php?title=Module_talk:Citation/CS1&diff=552318417&oldid=552202448

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

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

    return str:gsub( '[%[%]\n]', {   

        ['['] = '[',

        [']'] = ']',

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

-- Converts a hyphen to a dash

function hyphentodash( str )

    if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then

        return str;

    end  

    return str:gsub( '-', '–' );

-- Protects a string that will be wrapped in wiki italic markup '' ... ''

function safeforitalics( str )

    --[[ Note: We can not use <i> for italics, as the expected behavior for

    italics specified by ''...'' in the title is that they will be inverted

    (i.e. unitalicized) in the resulting references.  In addition, <i> and ''

    tend to interact poorly under Mediawiki's HTML tidy. ]]

    if not is_set(str) then

        return str;

    else

        if str:sub(1,1) == "'" then str = "<span />" .. str; end

        if str:sub(-1,-1) == "'" then str = str .. "<span />"; end

        -- Remove newlines as they break italics.

        return str:gsub( '\n', ' ' );

    end

--[[

Joins a sequence of strings together while checking for duplicate separation

characters.

                    if value ~= comp then  

                        local dup2 = duplicate_char;

                        if dup2:match( "%A" ) then dup2 = "%" .. dup2; end

                        value = value:gsub( "(%b<>)" .. dup2, "%1", 1 )

                        value = value:sub( 2, -1 );

                    end

                end

            end

        end

function selectyear( str )

    -- Is the input a simple number?

    local num = tonumber( str );  

    if num ~= nil and num > 0 and num < 2100 and num == math.floor(num) then

        local lang = mw.getContentLanguage();

        local good, result;

        good, result = pcall( lang.formatDate, lang, 'Y', str )

            return result;

            -- Can't make sense of this input, return blank.

            return "";

        end

-- Attempts to convert names to initials.

function reducetoinitials(first)

    local initials = {}

    for word in string.gmatch(first, "%S+") do

        table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.

    return table.concat(initials) -- Vancouver format does not include spaces.

-- Formats a list of people (e.g. authors / editors)

    if sep:sub(-1,-1) ~= " " then sep = sep .. " " end

    if maximum ~= nil and maximum < 1 then return "", 0; end

            if maximum ~= nil and i > maximum then

                if is_set(person.link) then one = "[[" .. person.link .. "|" .. one .. "]]" end

    local count = #text / 2;

    if count > 0 then  

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

            text[#text-2] = " & ";

    local result = table.concat(text) -- construct list

    if etal then

        local etal_text = is_zh( result ) and cfg.messages['et al'] or '<i>et al</i>.'; -- LOCAL

    end

    -- if necessary wrap result in <span> tag to format in Small Caps

        '<span class="smallcaps" style="font-variant:small-caps">' .. result .. '</span>';

    end  

    return result, count

-- Generates a CITEREF anchor ID.

function anchorid( options )

    return "CITEREF" .. table.concat( options );

-- Gets name list from the input arguments

function extractnames(args, list_name)

    local names = {};

        last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );

        if not is_set(last) then

            break;

        end

        names[i] = {

            first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),

            link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),

            mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )

        i = i + 1;

    end

    return names;

-- Populates ID table from arguments using configuration settings

function extractids( args )

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

        v = selectone( args, v.parameters, 'redundant_parameters' );

        if is_set(v) then id_list[k] = v; end

    end

    return id_list;

-- Takes a table of IDs and turns it into a table of formatted ID outputs.

function buildidlist( id_list, options )

    local new_list, handler = {};

    function fallback(k) return { __index = function(t,i) return cfg.id_handlers[k][i] end } end;

    for k, v in pairs( id_list ) do

        -- fallback to read-only cfg

        handler = setmetatable( { ['id'] = v }, fallback(k) );

        if handler.mode == 'external' then

        elseif handler.mode == 'internal' then