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

local SEEN = {};

local DATA = {};

-- LOCAL

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

-- END LOCAL

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

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

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

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

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

        str = safeforitalics( str );

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

--[[

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

            elseif type( list ) == 'string' then

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

                    'redundant_parameters' );

            tbl = rawset( tbl, k, 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;

    -- Arguments with numbers in them

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

    if whitelist.numbered_arguments[ name ] then

        return true;

    -- Not found, argument not supported.

    return false

-- Formats a comment for error trapping

function errorcomment( content, hidden )

    if hidden then  

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

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

    end      

--[[

Sets an error condition and returns the appropriate error message. The actual placement

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'] );

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

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

    local message = error_state.message;

    message = substitute( message, arguments );

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

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

        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;

    message = prefix .. message .. suffix;

        return message, error_state.hidden;

    end      

    return errorcomment( message, error_state.hidden );

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

function wikiescape(text)

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

            ['&'] = '&',   

            ["'"] = ''',   

            ['['] = '[',   

            [']'] = ']',   

            ['{'] = '{',   

            ['|'] = '|',   

            ['}'] = '}' } );

-- Formats a wiki style external link

function externallinkid(options)

    local sep = options.separator or " "

    options.suffix = options.suffix or ""

    local url_string = options.id

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

        url_string = mw.uri.encode( url_string );

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

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

-- Formats a wiki style internal link

function internallinkid(options)

    local sep = options.separator 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"

        domain = "co." .. domain

    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.

    local cat = ""

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

    local text;

    if ( inactive ~= nil ) then

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

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

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

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

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

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

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

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

            encode = handler.encode})

        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 

        -- Protocol-less URLs

        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

function checkisbn( isbn_str )

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

    local len = isbn_str:len();

    if len ~= 10 and len ~= 13 then

        return false;

    end

    local temp = 0;

    if len == 10 then

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

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

        for i, v in ipairs( isbn_str ) do

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

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

            else

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

            end

        end

        return temp % 11 == 0;

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

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

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

    if str == nil or str == '' then

        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', ' ' );

--[[

Joins a sequence of strings together while checking for duplicate separation

characters.

                if trim then

                    if value ~= comp then

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

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

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

                    end

            str = str .. value;

    end

    return str;

end

--[[

function selectyear( str )

    local num = tonumber( str );  

        return str;

        local lang = mw.getContentLanguage();

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

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

            return "";

-- Attempts to convert names to initials.

function reducetoinitials(first)

    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

                if (person.link ~= nil and person.link ~= "") then one = "[[" .. person.link .. "|" .. one .. "]]" end

    local count = #text / 2;

    if count > 0 then  

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

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

        end

        text[#text] = nil;  

    end

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

    if etal then

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

        result = result .. " " .. etal_text;

    end

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

    local i = 1;

        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 )

            break;

        end

    end

    return names;

-- Populates ID table from arguments using configuration settings

        id_list[k] = selectone( args, v.parameters, 'redundant_parameters' );

    return id_list;