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

local z = {

    error_categories = {};

    error_ids = {};

    message_tail = {};

local wikitextLC = require( 'Module:WikitextLC' );

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

-- Contains a list of all recognized parameters

function substitute( message, arguments )

    if arguments == nil then

    for k, v in ipairs( arguments ) do

        v = v:gsub( "%%", "%%%%" );

    end    

    return message;

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

function wrap( message_key, str )

    if str == nil or str == "" then

        return "";

        str = safeforitalics( str );

    return substitute( cfg.message_list[message_key], {str} );

--[[

Argument wrapper. This function provides support for argument

mapping defined in the configuration file so that multiple names

can be transparently aliased to single internal variable.

            if list == nil then

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

            elseif type( list ) == 'string' then

                v = DATA[list];

                v = selectone( DATA, cfg.argument_map[k],

                    'redundant_parameters' );

            if v == nil then

                v = cfg.default_values[k];

            SEEN[k] = true;

            tbl = rawset( tbl, k, v );

            return v;

        end,

    return setmetatable( tbl, mt );

-- Checks that parameter name is valid using the whitelist

function validate( name )

    name = tostring( name );

    if whitelist.basic_arguments[ name ] then

        return true;

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

    if whitelist.numbered_arguments[ name ] then

    end

    -- Not found, argument not supported.

-- Formats a comment for error trapping

function errorcomment( content, hidden )

        return wrap( 'hidden-error', content );

        return wrap( 'visible-error', content );

    end      

--[[

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

    if error_state == nil then

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

    end

    if error_state.category ~= nil and error_state.category ~= "" then

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

    end

    local message = error_state.message;

    message = substitute( message, arguments );

    message = wikiescape(message) .. " ([[" .. cfg.message_list['help page link'] ..

        cfg.message_list['help page label'] .. "]])";

    if (error_id == 'bare_url_missing_title' or error_id == 'trans_missing_title')

            and z.error_ids['citation_missing_title'] then

        return '', false;

    end

        return message, error_state.hidden;

    return errorcomment( message, error_state.hidden );

-- This returns a string with HTML character entities for wikitext markup characters.

function wikiescape(text)

    text = text:gsub( '[&\'%[%]{|}]', {   

            ['&'] = '&',   

            ['['] = '[',   

            [']'] = ']',   

            ['{'] = '{',   

            ['|'] = '|',  

    return text;

-- Formats a wiki style external link

function externallinkid(options)

    local sep = options.separator or " "

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

        url_string = mw.uri.encode( url_string );

    end

    return "[[" .. options.link .. "|" .. options.label .. "]]" .. sep .. "[" ..

-- Formats a wiki style internal link

function internallinkid(options)

    local sep = options.separator or " "

    options.suffix = options.suffix or ""

    return "[[" .. options.link .. "|" .. options.label .. "]]" .. sep .. "[[" ..

            options.prefix .. options.id .. options.suffix .. "|" .. mw.text.nowiki(options.id) .. "]]"

-- Format an external link with error checking

    return "[" .. URL .. ' ' .. safeforurl( label ) .. "]" .. error_str;

-- Formats a link to Amazon

function amazon(id, domain)

    if ( nil == 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,

        encode=handler.encode, separator = handler.separator})

-- Formats a DOI and checks for DOI errors.

function doi(id, inactive)

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

    if ( inactive ~= nil ) then  

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

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

    else  

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

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

        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,

            encode = handler.encode})

    else

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

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

            encode = handler.encode}) ..

            ' ' .. seterror( 'bad_ol' );

    end

--[[

function checkurl( url_str )

    if url_str:sub(1,2) == "//" then  

        return true;

    elseif url_str:match( "^[^/]*:" ) ~= nil then  

        -- Look for ":" prefix and assume it is a URI scheme

        return true;

        return false;

-- 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

    isbn_str = cleanisbn( isbn_str ):gsub( "-", "" );

    local temp = 0;

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

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

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

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

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

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

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

            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 )

    str = str:gsub( "%[%[[^|%]]*|([^%]]*)%]%]", "%1" );

    str = str:gsub( "%[%[([^%]]*)%]%]", "%1" );  

    return str

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

function safeforurl( str )

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

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

    end

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

        ['['] = '[',

        [']'] = ']',

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

-- Converts a hyphen to a dash

function hyphentodash( str )

    if str == nil then

        return nil;

    end  

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

    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 str == nil or str == '' then

        return str;

        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

--[[

                    if value ~= comp then

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

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

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

            str = str .. value;

    return str;

end

--[[

function selectyear( str )

    local num = tonumber( str );

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

        -- Use formatDate to interpret more complicated formats

        local lang = mw.getContentLanguage();

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

            return result;

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

            return "";

-- 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.

    end

    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 < 1 then return "", 0; end

            if ( maximum ~= nil and i > maximum ) then

    local count = #text / 2;

    if count > 0 then  

        if count > 1 and lastauthoramp ~= nil and lastauthoramp ~= "" and not etal then

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

        text[#text] = nil;  

    end

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

        local etal_text = cfg.message_list['et al'];

        result = result .. " " .. etal_text;

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

    if ( "scap" == format ) then result =  

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

    end  

    return result, count

-- Generates a CITEREF anchor ID.

function anchorid( options )

    return "CITEREF" .. mw.uri.anchorEncode( table.concat( options ) );

-- Gets name list from the input arguments

function extractnames(args, list_name)

    local names = {};

    local i = 1;

    local last;

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

        if ( last and "" < last ) then -- just in case someone passed in an empty parameter

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

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

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

        else

            break;

        i = i + 1;

    end

-- Populates ID table from arguments using configuration settings