モジュール:Harvc

local f = {};
----------------------------------------------------------------------------------------------
Whether variable is set or not.  A varable is set when it is not nil and not empty.
local function is_set( var )
	return not (var == nil or var == );
end
----------------------------------------------------------------------------------------
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 =  .. 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
--year=.  It is presumed that the dates of contributions are the same as the date of the enclosing work.
Even though not displayed, a year parameter is still required for the CITEREF anchor
local function core( args )
	local span_open_tag;			-- holds CITEREF and css
	local contributors = ;		-- chapter or contribution authors
	local source = ;				-- editor/author date list that forms a CITEREF link to a full citation; mimics harvnb output except year in parentheses
	local in_text = ' In ';			-- 
	local result;					-- the assemby of the above output
-- form the CITEREF anchor
	if is_set (args.id) then
		span_open_tag = ;		-- for use when contributor name is same as source name
	else
		span_open_tag = ;
	end

--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 'harv' ~= args.name_list_format then										-- default cs1|2 style contributor list
		local i = 1;
		local count;
		local etal = false;														-- when |display-authors= is same as number of authors in contributor list
		
		if is_set (args.display_authors) then
			if '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 'et 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  harvc:' .. args.err_msg .. ' (help)';
	end
	if ',' == args.sepc then
		in_text = in_text:lower();												-- CS2 style use lower case
	end
-- and put it all together
	result = span_open_tag .. contributors .. ' "' .. args.contribution .. '"' .. args.sepc .. in_text .. source .. args.p .. args.ps ..  .. args.err_msg;
	return result;
end
--------------------------------------------------------------------------------------------
Entry point from  template.  Fetches parent frame parameters, does a bit of simple error checking
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 ;
	args.in1 = pframe.args'in' or pframe.args.in1 or ;						-- source editor surnames; 'in' is a Lua reserved keyword
	args.in2 = pframe.args.in2 or ;
	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
	args.name_list_format = pframe.args'name-list-format';					-- when set to 'harv' display contributor list in sfn or harv style
	args.last_author_amp = pframe.args'last-author-amp' or					-- yes only; |last-author-amp=no does not work (though it does in CS1|2)
				pframe.args'lastauthoramp' or ;
	args.last_author_amp:lower();												-- make it case agnostic
	
	if is_set (pframe.args'last1') or is_set (pframe.args'last') then		-- must have at least this to continue
		args.last1 = pframe.args.last or pframe.args.last1;					-- get first contributor's last name
		args.citeref1 = args.last1;											-- add it to the citeref
		args.first1 = pframe.args.first or pframe.args.first1;				-- get first contributor's first name
		args.link1 = pframe.args'author-link' or pframe.args'author-link1';	-- get first contributor's article link
		args.mask1 = 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.lasti = pframe.args'last'..i;								-- last names
			args.firsti = pframe.args'first'..i;							-- first names
			args.linki = pframe.args'author-link'..i;						-- first names
			args.maski = pframe.args'author-mask'..i;						-- first names
			if 5 > i then
				args.citerefi = args.lasti;									-- 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 separator 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
			pframe.args'chapter-url' or
			pframe.args'contribution-url' or ;
	
	args.year = pframe.args.year or ;											-- required
	if not is_set (args.contribution) then
		args.err_msg = args.err_msg .. ' required contribution is missing.';	-- error message if source not provided
		args.contribution = args.url;											-- if set it will give us linkable text
	end
	
	if args.last1 == args.in1 and
		args.last2 == args.in2 and
		args.last3 == args.in3 and
		args.last4 == args.in4 and
		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
	end
	return core (args);
end
return f;