Module:br-forme-mut

local p={}

local formes = require("Module:br-formes-mutees")

function ecritureLigne(txt,titre,m,mot)
	if m ~= mot then
		txt = txt ..
			'|-\n'..
			'! ' .. titre .. '\n'..
			'| ]\n'
	end
	return txt
end

function p.boite(frame)
	local args = frame:getParent().args
	local forme = args
	forme = forme or "Forme"
	local mot = ""
	if args then -- pour prendre en compte l'ancienne syntaxe du modèle:br-forme-mut
		mot = args .. args
	else
		mot = args
	end
	local a, s, d = nil -- formes mutées : adoucissante ; spirante ; durcissante
	a, s, d = formes.formesMutees(mot)
	local txt =
		'{| class="flextable"\n'..
		'! Mutation\n'..
		'! ' .. forme .. '\n'..
		'|-\n'..
		'! Non muté\n'..
		'| ]\n'
	txt = ecritureLigne(txt,'Adoucissante',a,mot)
	txt = ecritureLigne(txt,'Spirante',s,mot)
	txt = ecritureLigne(txt,'Durcissante',d,mot)
	txt = txt .. '|}'
	return txt
end

return p