Content deleted Content added
No edit summary |
Synch from sandbox; |
||
Line 1:
local f = {};
--[[--------------------------< I S _ S E T >------------------------------------------------------------------
Line 13 ⟶ 7:
]]
local function is_set( var )
return not (var == nil or var == '');
end
--[[--------------------------< M A K E _ N A M E >------------------------------------------------------------
Assembles last, first, link, or mask into a displayable contributor name.
]]
local function make_name (last, first, link, mask)
local name = last;
if is_set (first) then
name = name .. ', ' .. first; -- concatenate first onto last
end
if is_set (link) then
name = '[[' .. link .. '|' .. name .. ']]'; -- form a wikilink around the name
end
if is_set (mask) then -- mask this author
mask = tonumber (mask); -- because the value provided might not be a number
if is_set (mask) then
name = string.rep ('—', mask) -- make a string that number length of mdashes
end
end
return name;
end
Line 30 ⟶ 51:
]]
local function core( args )
local span_open_tag; -- holds CITEREF and css
local contributors = ''; -- chapter or contribution authors
Line 38 ⟶ 59:
-- form the CITEREF anchor
if is_set (args.id) then
span_open_tag = '<span id="' .. args.id .. '" class="citation">'; -- for use when contributor name is same as source name
else
span_open_tag = '<span id="CITEREF' .. table.concat (
end
--[[
form the contributors display list:
if |display-authors= is empty or omitted, display is similar to {{sfn}} and {{harv}}, 1 to 4 last names;
if |display-authors=all then displays all author names in last, first order (similar to CS1/2 authorlist);
if value assigned to |display-authors= is less than the number of author last names, displays the specified number of author names in last, first order followed by et al.
]]
if is_set (args.display_authors) then -- override default harv or sfn style contributor display
local i = 1;
local count;
local etal = false; -- when |display-authors= is same as number of authors in contributor list
if 'all' == args.display_authors:lower() then -- force all contributor first and last names to be displayed
count = #args.last; -- so set count accordingly
elseif 'etal' == args.display_authors:lower():gsub("[ '%.]", '') then -- the :gsub() portion makes 'etal' from a variety of 'et al.' spellings and stylings
count = #args.last; -- display all authors and ...
etal = true; -- ... append 'at al.'
else
count = tonumber (args.display_authors) or 0; -- 0 if can't be converted to a number
if 0 >= count then
args.err_msg = args.err_msg .. ' invalid |display-authors='; -- if zero, then emit error message
end
end
if count > #args.last then
count = #args.last; -- when |display-authors= is more than the number of authors, use the number of authors
end
if count < #args.last then -- when |display-authors= is less than the number of authors
etal = true; -- append 'at al.'
end
while i <= count do
if is_set (contributors) then
contributors = contributors .. '; ' .. make_name (args.last[i], args.first[i], args.link[i], args.mask[i]); -- the rest of the contributors
else
contributors = make_name (args.last[i], args.first[i], args.link[i], args.mask[i]); -- first contributor's name
end
i = i+1; -- bump the index
end
if true == etal then
contributors = contributors .. ' et al.';
end
else -- do default harv- or sfn-style contributor display
if 4 <= #args.last then -- four or more contributors (first followed by et al.)
contributors = args.last[1] .. ' et al.';
elseif 3 == #args.last then -- three (display them all)
contributors = args.last[1] .. ', ' .. args.last[2] .. ' & ' .. args.last[3];
elseif 2 == #args.last then -- two (first & second)
contributors = args.last[1] .. ' & ' .. args.last[2];
elseif 1 == #args.last then -- just one (first)
contributors = args.last[1];
else
args.err_msg = args.err_msg .. ' no authors in contributor list.'; -- this code used to find holes in the list; no more
end
end
Line 77 ⟶ 134:
source = source .. ' (' .. args.year .. ')';
else
args.err_msg = args.err_msg .. ' invalid or missing year.'; -- error message if year not provided or
end
Line 87 ⟶ 144:
args.contribution = '[' .. args.url .. ' ' .. args.contribution .. ']'; -- format external link
end
if args.sepc ~= contributors:sub(-1) and args.sepc .. ']]' ~= contributors:sub(-3) then
contributors = contributors .. args.sepc; -- add separator if not same as last character in name list (|first=John S. or et al.)
end
Line 103 ⟶ 159:
end
--wrap error messages in span and add help link
if is_set (args.err_msg) then
args.err_msg = '<span style="font-size:100%" class="error"> harvc:' .. args.err_msg .. ' ([[Template:Harvc|help]])</span>';
end
if ',' == args.
in_text = in_text:lower(); -- CS2 style use lower case
end
-- and put it all together
result = span_open_tag .. contributors .. ' "' .. args.contribution .. '"' .. args.
return result;
Line 123 ⟶ 181:
]]
function f.harvc (frame)
local args =
err_msg = '',
page_sep = ", p. ",
pages_sep = ", pp. ",
sepc = '.',
ps = '.',
last = {},
first = {},
link = {},
mask = {},
citeref = {}
}
local pframe = frame:getParent();
args.contribution = pframe.args.c or -- chapter or contribution
pframe.args.chapter or
pframe.args.contribution or '';
args.id = pframe.args.id or '';
Line 137 ⟶ 206:
args.in3 = pframe.args.in3 or '';
args.in4 = pframe.args.in4 or '';
args.display_authors = pframe.args['display-authors']; -- the number of contributor names to display; cs1/2 format includes first names
if is_set (pframe.args['last1']) or is_set (pframe.args['last']) then -- must have at least this to continue
args.last[1] = pframe.args.last or pframe.args.last1; -- get first contributor's last name
args.citeref[1] = args.last[1]; -- add it to the citeref
args.first[1] = pframe.args.first or pframe.args.first1; -- get first contributor's first name
args.link[1] = pframe.args['author-link'] or pframe.args['author-link1']; -- get first contributor's article link
args.mask[1] = pframe.args['author-mask'] or pframe.args['author-mask1']; -- get first contributor's article link
local i = 2; -- index for the rest of the names
while is_set (pframe.args['last'..i]) do -- loop through pfram.args and get the rest of the names
args.link[i] = pframe.args['author-link'..i]; -- first names
args.mask[i] = pframe.args['author-mask'..i]; -- first names
if 5 > i then
args.citeref[i] = args.last[i]; -- collect first four last names for CITEREF anchor
end
i = i + 1 -- bump the index
end
end
args.p = pframe.args.p or ''; -- source page number(s) or ___location
args.pp = pframe.args.pp or '';
args.loc = pframe.args.loc or '';
if 'cs2' == pframe.args.mode then
args.ps = ''; -- set postscript character to empty string, cs2 mode
args.sepc = ','; -- set seperator character to comma, cs2 mode
end
do -- to limit scope of local temp
local temp = pframe.args.ps or pframe.args.postscript;
if is_set (temp) then
if 'none' == temp:lower() then -- if |ps=none or |postscript=none then
args.ps = ''; -- no postscript
else
args.ps = temp; -- override default postscript
end
end
end -- end of scope limit
args.url = pframe.args.url or ''; -- url for chapter or contribution
args.year = pframe.args.year or ''; -- required
if not is_set (args.contribution) then
Line 176 ⟶ 258:
end
if args.
args.
args.
args.
not is_set (args.id) then
args.err_msg = args.err_msg .. ' required |id= parameter missing.'; -- error message if contributor and source are the same
Line 186 ⟶ 268:
return core (args);
end
return f;
| |||