Module:Citation/CS1/COinS：修订间差异

local is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in Module:Citation/CS1/Utilities

script = ''; -- if not set, make sure script is an empty string

pages = pages:gsub("–", "-" ); -- replace endashes with hyphens

pages = pages:gsub("&%w+;", "-" ); -- and replace HTML entities (– etc.) with hyphens; do we need to replace numerical entities like   and the like?

value = value:gsub (cfg.stripmarkers['math'], "MATH RENDER ERROR"); -- one or more couldn't be replaced; insert vague error message

value = value:gsub ('‍', ''); -- remove ‍ entities

value = value:gsub ('[\009\010\013 ]+', ' '); -- replace horizontal tab, line feed, carriage return with plain space

local function COinS(data, class)

if 'table' ~= type(data) or nil == next(data) then

local OCinSoutput = setmetatable( {}, {

if is_set(value) then

rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( remove_wiki_link( value ) ) } );

if in_array (class, {'arxiv', 'biorxiv', 'citeseerx', 'ssrn', 'journal', 'news', 'magazine'}) or (in_array (class, {'conference', 'interview', 'map', 'press release', 'web'}) and is_set(data.Periodical)) or

OCinSoutput["rft.atitle"] = data.Title; -- 'periodical' article titles

-- these used only for periodicals

OCinSoutput["rft.quarter"] = data.Quarter; -- single digits 1->first quarter, etc.

OCinSoutput["rft.pages"] = data.Pages; -- also used in book metadata

OCinSoutput["rft.atitle"] = data.Chapter; -- conference paper as chapter in proceedings (book)

if is_set (data.Chapter) then

OCinSoutput["rft.atitle"] = data.Chapter; -- book chapter, encyclopedia article, interview in a book, or map title

else -- {'audio-visual', 'AV-media-notes', 'DVD-notes', 'episode', 'interview', 'mailinglist', 'map', 'newsgroup', 'podcast', 'press release', 'serial', 'sign', 'speech', 'web'}

OCinSoutput["rft.btitle"] = data.Title; -- book only

OCinSoutput["rft.pages"] = data.Pages; -- book, journal

OCinSoutput["rft.title"] = data.Title; -- dissertation (also patent but that is not yet supported)

-- NB. Not currently supported are "info:ofi/fmt:kev:mtx:patent", "info:ofi/fmt:kev:mtx:dc", "info:ofi/fmt:kev:mtx:sch_svc", "info:ofi/fmt:kev:mtx:ctx"

for k, v in pairs( data.ID_list ) do -- what to do about these? For now assume that they are common to all?

if k == 'ISBN' then v = v:gsub( "[^-0-9X]", "" ); end

if string.sub( id or "", 1, 4 ) == 'info' then -- for ids that are in the info:registry

OCinSoutput["rft_id"] = table.concat{ id, "/", v };

elseif string.sub (id or "", 1, 3 ) == 'rft' then -- for isbn, issn, eissn, etc. that have defined COinS keywords

OCinSoutput[ id ] = v;

elseif 'url' == id then -- for urls that are assembled in ~/Identifiers; |asin= and |ol=

OCinSoutput["rft_id"] = table.concat ({data.ID_list[k], "#id-name=", cfg.id_handlers[k].label});

elseif id then -- when cfg.id_handlers[k].COinS is not nil so urls created here

OCinSoutput["rft_id"] = table.concat{ cfg.id_handlers[k].prefix, v, cfg.id_handlers[k].suffix or '', "#id-name=", cfg.id_handlers[k].label }; -- others; provide a URL and indicate identifier name as #fragment (human-readable, but transparent to browsers)

for k, v in ipairs( data.Authors ) do

last, first = coins_cleanup (v.last), coins_cleanup (v.first or ''); -- replace any nowiki stripmarkers, non-printing or invisible characters

if is_set(last) and is_set(first) then -- set these COinS values if |first= and |last= specify the first author name

OCinSoutput["rft.au"] = table.concat{ last, ", ", first }; -- book, journal, dissertation

-- TODO: At present we do not report "et al.". Add anything special if this condition applies?

OCinSoutput.rfr_id = table.concat{ "info:sid/", mw.site.server:match( "[^/]*$" ), ":", data.RawPage };

-- TODO: Add optional extra info:

-- rfr_dat=#REVISION<version> (referrer private data)

-- ctx_id=<data.RawPage>#<ref> (identifier for the context object)

-- ctx_tim=<ts> (timestamp in format yyyy-mm-ddThh:mm:ssTZD or yyyy-mm-dd)

-- ctx_enc=info:ofi/enc:UTF-8 (character encoding)

OCinSoutput = setmetatable( OCinSoutput, nil );

-- table.sort( OCinSoutput );

table.insert( OCinSoutput, 1, "ctx_ver=" .. ctx_ver ); -- such as "Z39.88-2004"

return table.concat(OCinSoutput, "&");

local function set_selected_modules (cfg_table_ptr, utilities_page_ptr)

remove_wiki_link = utilities_page_ptr.remove_wiki_link;

make_coins_title = make_coins_title,

get_coins_pages = get_coins_pages,