Modification de Module:Fiche de créature

local p = {}

-- données concernant les paramètres passés au modèle
local localdata = {}

-- Icônes utilisées pour illustrer chaque donnée
local icons = require( 'Module:Icône' )

local function getValue(value, part)
	if type(value) == 'string' then
		return localdata[value]
	elseif type(value) == 'function' then
		return value(localdata, part)
	elseif type(value) == 'table' then
        -- si plusieurs paramètres possibles (legacy de vieux code), prendre le premier non vide
        -- à retirer une fois les fiches au propre
		for i, j in pairs(value) do
			if localdata[j] then
				return localdata[j]
			end
		end
	end
end

function p.builditem(part)
	local value, number = getValue(part.value, part)
	
	if not value then
		value = part.defaultvalue
		if not value then
			return nil
		end
	end
	
	local item = mw.html.create('dd')
		:wikitext(value)
		:done()
	
	return item
end

function p.buildlist(part)
	local title = part.title
	local prefix = part.prefix
	local maxitems = part.max
	
	if not title or not prefix or not maxitems then
		return nil
	end

	-- create items
	local items = {}
	for i = 1, maxitems do
		local v = p.builditem({ value = prefix..i })
		if not v then
			break
		end
		table.insert(items, v)
	end
	if #items == 0 then
		return nil
	end

	-- create list
	local list = mw.html.create('dl')
		:addClass('creature-card-list')
		:tag('dt')
			:wikitext(title)
			:done()
	
	for i, j in pairs(items) do
		list:node(j)
	end
	
	list:allDone()
	return list
end

function p.buildrow(part)
	local icon = part.icon
	local label = part.label
	local value, number = getValue(part.value, part)
	
	if type(label) == 'function' then
		label = label(localdata, localdata.item)
	end
	if not value then
		value = part.defaultvalue
	end
	
	if value == nil or label == nil or icon == nil then
		return nil
	end
	
	icon = icons._build({ icon })
	
	local row = mw.html.create('tr')
		:tag('th')
			:attr('scope', 'row')
			:wikitext(icon .. ' ' ..label)
			:done()
		:tag('td')
			:tag('div')
				:wikitext('\n' .. value)
				:done()
			:allDone()
		:done()
	
	return row
end

function p.buildtable(part)
	local tab = mw.html.create('table')
		:addClass('creature-card-table')

	local rows = part.rows
	
	-- expand parameters so that we have a list of tables
	local i = 1

	while (i <= #rows) do 
		local l = rows[i]
		if type(l) == 'function' then 
			l = l(localdata, localdata.item)
		end
		if (type(l) == 'table') and (l.type == 'multi') then
			table.remove(rows, i)  
			for j, row in ipairs(l.rows) do
				table.insert(rows, i + j - 1, row)
			end
		elseif type(l) == 'nil' then
			table.remove(rows, i)
		elseif type(l) ~= 'table' then 
			return error('les lignes d\'infobox ("rows") doivent être des tables, est ' .. type(l))
		else
			i = i + 1
		end
	end 

	-- CREATE ROW
	local expandedrows = {}
	for k, row in ipairs(rows) do
		local v = p.buildblock(row)
		if v then
			table.insert(expandedrows, v)
		end
	end
	if (#expandedrows == 0) then
		return nil
	end
	rows = expandedrows

	-- ADD TITLE
	local title
	if part.title then
		title = mw.html.create('caption')
			:attr({ colspan = '2' })
			:wikitext(part.title)
			:done()
	end
	
	if title then
		tab:node(title)
	end
	
	for i, j in pairs(rows) do
		tab:node(j)
	end
	
	tab:allDone()
	return tab
end

function p.buildblock(block)
	if type(block) == 'function' then
		block = block(localdata)
	end

	-- Liste des types de block acceptés
	local blocktypes = {
		['table'] = p.buildtable,
		['row'] = p.buildrow,
		['list'] = p.buildlist,
	}
	
	return blocktypes[block.type](block) 
end

function p.build(args)
	localdata = require('Module:Fiche de créature/Localdata')
	
	-- chargement du module de paramétrage
	local moduledata = require('Module:Fiche de créature/' .. localdata.modulename)
	moduledata.name = localdata.modulename
	
	local card = mw.html.create('div')
		
	for i, j in pairs(moduledata.parts) do
		card:node(p.buildblock(j))
	end
	
	return tostring(card)
end

return p