Module:Palette

local Palette = { }

local function paletteAvecParametre( i, args )

end

function Palette.listePalette( frame ) local args = frame.args local parentArgs = frame:getParent().args

local wikiTable = { '

\n' }

setmetatable( wikiTable, { __index = table } )

local maxPalette = 4 local categoriePaletteInconnue = local categorieTropDePalette =

local categories = { }

local function erreur( texte, param, ... ) if param then texte = texte:format( param, ... ) end

return '

---

\n'

end local function _pasDePalette() return erreur( 'Erreur dans l’utilisation du Modèle:Palette : paramètre obligatoire absent.' ) end

local function _paletteInconnue( i ) categories.paletteInconnue = categoriePaletteInconnue return erreur( 'Erreur : La palette %s n’existe pas', parentArgs[i] ) end

local function _paletteAvecParametres( i ) local nocat = parentArgs.nocat parentArgs.nocat = parentArgs[ 'nocat' .. i ] local resutl = frame:expandTemplate{ title = 'Palette ' .. parentArgs[i], args = parentArgs } parentArgs.nocat = nocat return resutl end

local function _tropDePalettes() categories.tropDePalette = categorieTropDePalette return erreur( 'Erreur dans le Modèle:Palette : trop de palettes (maximum : %s)', maxPalette ) end

local i = 1

while parentArgs[i] and i <= maxPalette do

if parentArgs[i] ~= then local codePalette = args[i] if codePalette:match( '^%[%[:Modèle:' ) then -- La palette n'existe pas wikiTable:insert( _paletteInconnue( i ) ) elseif codePalette:match( '^palette verticale' ) then -- C'est une palette verticale wikiTable:insert( 1, codePalette:sub( 18 ) .. '\n' ) elseif codePalette:match( '^palette avec paramètres' ) then -- C'est une palette nécessitant des paramètres nommés wikiTable:insert( _paletteAvecParametres( i ) ) else wikiTable:insert( codePalette ) end end

i = i + 1 end

if i == 1 or #wikiTable == 1 then wikiTable:insert( _pasDePalette() ) elseif i > maxPalette and parentArgs[i] and ( parentArgs[i] ~= or parentArgs[i+1] and parentArgs[i+1] ~= ) then wikiTable:insert( _tropDePalettes() ) end

wikiTable:insert( '

' )

for i, v in pairs( categories ) do wikiTable:insert( v ) end

return wikiTable:concat() end

return Palette