Módulo:Zona de pruebas/Miguillen/Esquema

Este módulo no tiene página de documentación

local p = {}
local columna = {}
local cont = 0
function itinerar10(tabla,indice,indice2,indice3,indice4,indice5,indice6,indice7,indice8,indice9,indice10)
    local columna7= {}
    for k, v in pairs(tabla) do
    	cont = cont + 1
         if type(v) == 'table' then
        	columna[cont] =  '['.. indice10 .. ']['.. indice9 .. ']['.. indice8 .. ']['.. indice7 .. '][' .. indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. ']:   ['.. k ..']\n'--itinerar(v,k)
        else	
        	table.insert(columna,'['.. indice10 .. ']['.. indice9 .. ']['.. indice8 .. ']['.. indice7 .. '][' .. indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: ' .. v ..'\n')
         end
    end
end
function itinerar9(tabla,indice,indice2,indice3,indice4,indice5,indice6,indice7,indice8,indice9)
    local columna7= {}
    for k, v in pairs(tabla) do
    	cont = cont + 1
         if type(v) == 'table' then
         	itinerar10(v,k,indice,indice2,indice3,indice4,indice5,indice6,indice7,indice8,indice9)
        else	
        	table.insert(columna,'['.. indice9 .. ']['.. indice8 .. ']['.. indice7 .. '][' .. indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: ' .. v ..'\n')
         end
    end
end
function itinerar8(tabla,indice,indice2,indice3,indice4,indice5,indice6,indice7,indice8)
    for k, v in pairs(tabla) do
         if type(v) == 'table' then
        	itinerar9(v,k,indice,indice2,indice3,indice4,indice5,indice6,indice7,indice8)
        else	
        	table.insert(columna,'['.. indice8 .. '][' .. indice7 .. '][' .. indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v ..'\'\'\'\n')
         end
    end
end
function itinerar7(tabla,indice,indice2,indice3,indice4,indice5,indice6,indice7)
    local columna7= {}
    for k, v in pairs(tabla) do
    	cont = cont + 1
         if type(v) == 'table' then
        	itinerar8(v,k,indice,indice2,indice3,indice4,indice5,indice6,indice7)
        else	
        	table.insert(columna,'['.. indice7 .. '][' .. indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v ..'\'\'\'\n')
         end
    end
end
function itinerar6(tabla,indice,indice2,indice3,indice4,indice5,indice6)
    for k, v in pairs(tabla) do
         if type(v) == 'table' then
        	itinerar7(v,k,indice,indice2,indice3,indice4,indice5,indice6)
        else
        	table.insert(columna, '['..indice6 .. '][' .. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
         end
    end
end

function itinerar5(tabla,indice,indice2,indice3,indice4,indice5)
    for k, v in pairs(tabla) do
         if type(v) == 'table' then
        	itinerar6(v,k,indice,indice2,indice3,indice4,indice5)
        else
        	table.insert(columna,'['.. indice5 .. '][' .. indice4 .. ']['.. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
         end
    end
end

function itinerar4(tabla,indice,indice2,indice3,indice4)
    for k, v in pairs(tabla) do
        if type(v) == 'table' then
        	itinerar5(v,k,indice,indice2,indice3,indice4)
        else
        	table.insert(columna,'['.. indice4 .. '][' .. indice3 .. ']['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
        end
    end
end

function itinerar3(tabla,indice,indice2,indice3)
    for k, v in pairs(tabla) do
        if type(v) == 'table' then
        	itinerar4(v,k,indice,indice2,indice3)
        else  
        	table.insert(columna,'['..indice3 .. '][' ..  indice2 .. ']['.. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
        end
    end
end
function itinerar2(tabla,indice,indice2)
    for k, v in pairs(tabla) do
         if type(v) == 'table' then
        	itinerar3(v,k,indice,indice2)
         else
            cont = cont + 1
        	table.insert(columna,'['.. indice2 .. '][' .. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
         end
    end
end

function itinerar(tabla,indice)
    for k, v in pairs(tabla) do
         if type(v) == 'table' then
        	itinerar2(v,k,indice)
        else
                cont = cont + 1
        	table.insert(columna,'['.. indice .. '][' .. k .. ']: \'\'\'' .. v..'\'\'\'\n')
         end
    end
end

function esquema1()
	
local tablaBase = mw.wikibase.getEntityObject()
    for k, v in pairs(tablaBase) do
            if type(v) == 'table' then
                itinerar(v,k)
            else
                table.insert(columna,'['.. k .. ']: \'\'\''.. v..'\'\'\'\n')  
            end
    end
end

function p.esquema(frame)
    esquema1()
    local linea = {}
    for k, v in pairs(columna) do
     table.insert(linea,tostring(v)) 
    end
    return table.concat(linea,'\n')

end    
return p