Module:TableBuilder
De Les Mots de l'agronomie
Aller à la navigationAller à la recherche
--Module appliquant aux fonctions de la librairie Table une inteface fluide.
local meta = {
insert = function ( t, ... ) table.insert( t, ... ) return t end, remove = function ( t, ... ) table.remove( t, ... ) return t end, sort = function ( t, ... ) table.sort( t, ... ) return t end, maxn = function ( t ) return table.maxn( t ) end, concat = function ( t, ... ) return table.concat( t, ... ) end, minsert = function( t, ... ) local sel for i = 1, select( '#', ... ) do sel = select( i, ... ) if sel then table.insert( t, sel ) end end return t end, tinsert = function( t, tab, first, last ) if type( tab ) == 'table' then for i = ( tonumber( first ) or 1 ), ( tonumber( last ) or #tab ) do table.insert( t, tab[i] ) end end return t end,
}
meta.__index = function ( t, key )
local metafunc = meta[key] if type( metafunc ) == 'function' then return function ( ... ) return metafunc( t, ... ) end end
end
-- fin des fonctions de la meta-table
local TableBuilder = {
new = function( ... ) local t = { ... } setmetatable( t, meta ) return t end, set = function( t ) if type( t ) == 'table' then setmetatable( t, meta ) end return t end,
clone = function ( t ) local tableRefs = { } local function recursiveClone( val ) if type( val ) == 'table' then -- Encode circular references correctly if tableRefs[val] ~= nil then return tableRefs[val] end local retVal = { } tableRefs[val] = setmetatable( retVal, meta ) for key, elt in pairs( val ) do retVal[key] = recursiveClone( elt ) end return retVal else return val end end return recursiveClone( t ) end,
}
return TableBuilder