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

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

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

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

Returns a string where all of lua's magic characters have been escaped.  This is important because functions like

argument = argument:gsub("([%^%$%(%)%.%[%]%*%+%-%?])", "%%%1"); -- replace all other lua magic pattern characters

pattern = pages:match("%[(%w*:?//[^ ]+%s+)[%w%d].*%]"); -- pattern is the opening bracket, the url and following space(s): "[url "

if nil == pattern then break; end -- no more urls

pattern = escape_lua_magic_chars (pattern); -- pattern is not a literal string; escape lua's magic pattern characters

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?

All three are heavy with html and css which doesn't belong in the metadata.

that the page is saved without extraneous html/css markup and with a reasonably readable text form of the equation.

When a replacement is made, this function returns true and the value with replacement; otherwise false and the intital

value.  To replace multipe equations it is necesary to call this function from within a loop.

Cleanup parameter values for the metadata by removing or replacing invisible characters and certain html entities.

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

if not mw.ustring.find (value, cfg.indic_script) then -- don't remove zero width joiner characters from indic script

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

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

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  

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

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

elseif id then -- when cfg.id_handlers[k].COinS is not nil

OCinSoutput["rft_id"] = table.concat{ cfg.id_handlers[k].prefix, v }; -- others; provide a url

last, first = coins_cleanup (v.last), coins_cleanup (v.first or ''); -- replace any nowiki strip markers, non-printing or invisible characers

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

--table.sort( OCinSoutput );

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

is_set = utilities_page_ptr.is_set; -- import functions from selected Module:Citation/CS1/Utilities module