Module:ParseVauthors

Documentation for this module may be created at Module:ParseVauthors/doc

local p = {}

function p.parse(frame)
	local args = frame:getParent().args -- This gets the arguments passed to the template that called #invoke, so we don't need to pass them all through to the module. See also [[Module:Arguments]].
	local vauthors = args[1] or args.vauthors
	local authorTable
	local lastfirstTable
	local nauthors
	if vauthors then
		if string.find(vauthors, ';') or string.find(vauthors, '%.') then
			verror = true -- Vancouver author format should not contain semicolons or periods
		else
			verror = false
		end
		authorTable = mw.text.split(vauthors, "%s*,%s*")
	else
		authorTable = {}
	end
	local citeArgs = {}
	for k, v in pairs(args) do
		citeArgs[k] = v
	end
	citeArgs[1] = nil -- Erase vauthors from the citation arguments.
	citeArgs.vauthors = nil -- Erase vauthors from the citation arguments.
	nauthors = 0
	for i, author in ipairs(authorTable) do
		if string.find(author, "%s") then
		    lastfirstTable = {}
		    lastfirstTable = mw.text.split(author, "%s")
		    first = table.remove(lastfirstTable)
		    last  = table.concat(lastfirstTable, " ")
		    citeArgs['first' .. i] = first
		    citeArgs['last' .. i]  = last
		    nauthors = nauthors + 1
		else
			citeArgs['first' .. i] = ""
			citeArgs['last' .. i]  = author
		    nauthors = nauthors + 1
		end
	end

	if citeArgs['name-list-format'] == nil then
	    citeArgs['name-list-format'] = "vanc" -- change default settings of authorformat, etc. parameters so that Vancouver style author format is used
	end
	if citeArgs['display-authors'] == nil and citeArgs['displayauthors'] == nil and nauthors > 6 then
		citeArgs['display-authors'] = '6'
    end

	if verror then
        errorArgs = {}
        errorArgs['1']='vauthors format'
		return frame:expandTemplate{title = 'cite journal', args = citeArgs}, frame:expandTemplate{title = 'citation error', args = errorArgs}
	else
		return frame:expandTemplate{title = 'cite journal', args = citeArgs}
	end
end

return p