This module needs documentation.
Please document this module by describing its purpose and usage on the documentation page.

local m_links = require("Module:links")
local m_utils = require("Module:utilities")

local lang = require("Module:languages").getByCode("fo")

local export = {}

local function make_headers(data, wikicode)
	if data.defective ~= "p" then
		table.insert(wikicode, "! width=80px colspan=")
		table.insert(wikicode, data.defective:find("def") and "1" or "2")
		table.insert(wikicode, " | singular\n")
	end
	if not data.defective:find("s") then
		table.insert(wikicode, "! width=80px colspan=2 | plural\n")
	end
	table.insert(wikicode, '|- class="vsHide" style="text-align:center"\n')
	--Singular
	if data.defective ~= "s_def" and data.defective ~= "p" then
		table.insert(wikicode, '! style="background-color:#ffffff;"| indefinite\n')
	end
	if data.defective ~= "s_indef" and data.defective ~= "p" then
		table.insert(wikicode, '! style="background-color:#efefef;"| definite\n')
	end
	--Plural
	if not data.defective:find("s") then
		table.insert(wikicode, '! style="background-color:#ffffff;"| indefinite\n! style="background-color:#efefef;"| definite\n')
	end
end

local function show_form(form, tag)
	if not form then
		return "—"
	end
	
	local ret = {}
	
	for key, subform in ipairs(form) do
		table.insert(ret, m_links.full_link({lang = lang, term = subform, accel = {form = tag}}))
	end
	
	return table.concat(ret, ", ")
end

local function make_case(data, wikicode, case)
	local case_short = case:sub(1, 3)
	table.insert(wikicode, '|- class="vsHide" style="text-align:center;"\n')
	table.insert(wikicode, [=[! style="background-color:#ccccff;" | [[]=] .. case .. [=[ case|]=] .. case .. "]]\n")
	if data.defective ~= "s_def" and data.defective ~= "p" then
		table.insert(wikicode, [[| style="background-color:#ffffff;" | ]] .. show_form(data.forms[case_short .. "_sg"], case_short .. '|s|indef') .. "\n")
	end
	if data.defective ~= "s_indef" and data.defective ~= "p" then
		table.insert(wikicode, [[| style="background-color:#efefef;" | ]] .. show_form(data.forms[case_short .. "_sg_def"], case_short .. '|s|def') .. "\n")
	end
	if not data.defective:find("s") then
		table.insert(wikicode, [[| style="background-color:#ffffff;" | ]] .. show_form(data.forms[case_short .. "_pl"], case_short .. '|p|indef') .. "\n")
		table.insert(wikicode, [[| style="background-color:#efefef;" | ]] .. show_form(data.forms[case_short .. "_pl_def"], case_short .. '|p|def') .. "\n")
	end
end

function export.make_table(data)
	
	local colspan = {s_indef = "2", s_def = "2", s = "3", p = "3", no = "5"}
	
	local wikicode = {[=[
{| style="border:1px solid #CCCCFF; text-align:center; line-height:125%;" class="inflection-table vsSwitcher" data-toggle-category="inflection" cellspacing="1" cellpadding="2"
|- style="background-color:#ccccff;"
! colspan=]=] .. colspan[data.defective] .. [=[ class="vsToggleElement" style="text-align:left;min-width:20em;background-color:#ccccff;"| Declension of ]=]}
	table.insert(wikicode, m_links.full_link({lang = lang, alt = data["head"] or mw.title.getCurrentTitle().text}, "term") .. data.info .. "\n")
	table.insert(wikicode, [=[
|- class="vsHide" style="text-align:center;background-color:#ccccff;"
| rowspan=2 width=30px | ]=] .. data.decl_type .. "\n")
	
	make_headers(data, wikicode)
	make_case(data, wikicode, "nominative")
	make_case(data, wikicode, "accusative")
	make_case(data, wikicode, "dative")
	make_case(data, wikicode, "genitive") 
	table.insert(wikicode, "|}")
	
	return table.concat(wikicode)
end

return export