Wikipedia

Diferencia entre revisiones de «Módulo:Ficha de edificio»

Explorar historial interactivamente
← Ir a diferencia anteriorIr a siguiente diferencia →
Contenido eliminado Contenido añadido
++
Optimizando y mejorando funciones obtenerMaterial(), obtenerCalle(), obtenerAlturas() y obtenerSuperficie(), que ahora devuelven múltiples valores cuando procede y realizan el formateo y la conversión de unidades
Línea 1:
local z = {}
 
local argumentos
local argumento={}
local Entidad
local ModuloFicha = require('Módulo:Ficha')
local ModuloWikidata = require('Módulo:Wikidata')
local ModuloFormato = require('Módulo:Formato texto')
local ModuloPaginas = require('Módulo:Páginas')
local elementoTabla = require('Módulo:Tablas').elemento
local sinBandera = require('Módulo:Bandera').sinBandera
-- sin uso ?
local ModuloWikidataFormatos = require('Módulo:Wikidata/Formatos')
local formatoURL = ModuloWikidataFormatos.formatoURL
local sinEnlazar = {['enlace']='no', ['linkback']='sí'}
local sinLapiz = {}
local ModuloWikidata = require('Módulo:Wikidata')
local ModuloFormato = require('Módulo:Formato texto')
local ModuloPaginas = require('Módulo:Páginas')
local elementoTabla = require('Módulo:Tablas').elemento
local getPropiedadWikidata = ModuloWikidata.getPropiedad
local sinBandera = require('Módulo:Bandera').sinBandera
local color = '#CDCDCD'
 
function obtenerColor()
local colores = {
['hotel'] = '#264796',
['edificio militar'] = '#665D1D',
['cuartel'] = '#665D1D',
['bar'] = '#BFFF00',
['restaurante'] = '#BFFF00',
['iglesia'] = '#B695C0',
['hospital'] = '#CB1D11',
}
local tipoedificio = elementoTabla(Entidad,'claims','P31',1,'mainsnak','datavalue')
tipoedificio = elementoTabla(tipoedificio,'value','id')
local nombretipoedificio= mw.wikibase.getEntityObject(tipoedificio)
nombretipoedificio = elementoTabla(nombretipoedificio,'labels','es','value')
local uso = argumento['tipo'] or argumento ['Tipo'] or argumento['uso'] or argumento['Uso'] or argumento ['usos'] or argumento['Usos'] or propiedad('P366')
if uso == "militar" or uso == "Militar" then
return colores['edificio militar']
end
return colores[nombretipoedificio] or '#CDCDCD'
end
 
function obtenerSuperficie()
local superficie = elementoTabla(Entidad,'claims','P2046',1)
if superficie == nil then
return
end
local valoraltura = elementoTabla(superficie,'mainsnak','datavalue','value','amount')
local unidadaltura = elementoTabla(superficie,'mainsnak','datavalue','value','unit')
if unidadaltura == "https://www.wikidata.org/entity/Q857027" or "Q857027" then
valoraltura = (valoraltura * 929.0304)/10^4
end
return valoraltura .." [[metro cuadrado|m²]]"
end
 
function z.prueba(frame)
Línea 57 ⟶ 21:
function z.Ficha(frame)
ModuloWikidata:setFrame(frame)
argumento = obtenerArgumentosConValor(frame)
if argumento['wikidata'] == 'no' and (argumento['fecha de inauguración']
or argumento['fecha de demolición']
) then
obtenerDatosWikidata = false
Entidad = nil
else
obtenerDatosWikidata = true
-- Obtener los datos de la página donde se inserta la ficha de Wikidata.
Entidad = mw.wikibase.getEntityObject(argumento['id']) or {}
end
 
local pais = argumento['pais'] or argumento['país'] or propiedad('P17')
local tipodivadministrativa = argumento['tipo_división_administrativa']
local divadministrativa = argumento['división_administrativa']
local imagen = argumento['imagen'] or argumento['Imagen'] or argumento['foto']
local pieDeImagen
 
if imagen then
pieDeImagen = argumento['pie de imagen'] or argumento['pieimagen'] or
argumento['descripción'] or argumento['descripcion'] or
argumento['pie de foto'] or argumento['piedefoto'] or
argumento['textoimagen'] or argumento['TextoImagen'] or
argumento['texto_imagen'] or argumento['pie de foto']
else
argumento['pie de foto']
imagen, pieDeImagen = obtenerImagenWikidata()
else
end
imagen, pieDeImagen = obtenerImagenWikidata()
nombre = argumento['nombre'] or argumento['Nombre'] or
obtenerEtiquetaWikidata() or
end
ModuloPaginas.nombrePagina({desambiguar='sí'})
nombre = argumento['nombre'] or argumento['Nombre'] or
nombrelocal = argumento['nombre local'] or argumento['Nombre local']
obtenerEtiquetaWikidata() or
if nombre and nombrelocal and nombre ~= nombrelocal then
ModuloPaginas.nombrePagina({desambiguar='sí'})
titulo = nombre .. '<br /><span style="font-size:smaller">' .. nombrelocal .. '</span>'
nombrelocal = argumento['nombre local'] or argumento['Nombre local']
else
if nombre and nombrelocal and nombre ~= nombrelocal then
titulo = nombre
titulo = nombre .. '<br /><span style="font-size:smaller">' .. nombrelocal .. '</span>'
end
else
local color = obtenerColor()
titulo = nombre
local estilotitulo = 'background-color:'..color.. '; font-style:normal'
end
local estiloseccion = 'background-color:'..color
local color = obtenerColor()
local evsigs = devolverelemensigs(Entidad)
local estilotitulo = 'background-color:'..color.. '; font-style:normal'
if evsigs ~= nil then
local estiloseccion = 'background-color:'..color
local codigopostalfechainicio = propiedad(argumento['P281inicio')] or argumento['códigoInicio'] postalor (evsigs['Q385378'] and evsigs['Q385378']['fechainicio']) or ''
local fechafin = argumento['fin'] or argumento['Fin'] or (evsigs['Q385378'] and evsigs['Q385378']['fechainicio']) or ''
local calle = obtenerCalle()
local primerapiedra = argumento['fecha primera piedra'] or argumento['Fecha primera piedra'] or evsigs['Q106863'] or ''
local direccionpostal
else
local evsigs = devolverelemensigs(Entidad)
local fechainicio = argumento['inicio'] or argumento['Inicio']
if evsigs ~= nil then
local fechainiciofechafin = argumento['iniciofin'] or argumento['InicioFin'] or evsigs['Q385378']argumento['fechainiciotérmino']
local fechafinprimerapiedra = argumento['finfecha primera piedra'] or argumento['Fin']Fecha orprimera evsigs['Q385378']['fechainiciopiedra']
end
local primerapiedra = argumento['fecha primera piedra'] or argumento['Fecha primera piedra'] or evsigs[Q106863]
local direccionpostal = argumento['dirección'] or argumento['dirección postal'] or propiedad('P6375') or obtenerCalle()
else
local fechainiciocodigopostal = argumento['iniciocódigo postal'] or argumento[propiedad('InicioP281'])
if codigopostal then
local fechafin = argumento['fin'] or argumento['Fin']
direccionpostal = ModuloFormato.separadosPorComa({direccionpostal, codigopostal})
local primerapiedra = argumento['fecha primera piedra'] or argumento['Fecha primera piedra']
end
local logotipo = argumento['logotipo'] or argumento['Logotipo'] or argumento['logo'] or argumento['Logotipo'] or propiedad('P154')
if codigopostal then
if logotipo ~= nil then
direccionpostal = ModuloFormato.separadosPorComa({propiedad('P6375') or calle, codigopostal})
logotipo = '[[Archivo:'..logotipo..']]'
else
end
direccionpostal = propiedad('P6375') or calle or argumento['dirección'] or argumento['dirección postal']
local Ficha =
end
{
local logotipo = argumento['logotipo'] or argumento['Logotipo'] or argumento['logo'] or argumento['Logotipo'] or propiedad('P154')
['titulo'] = titulo,
if logotipo ~= nil then
imagen = imagen,
logotipo = '[[Archivo:'..logotipo..']]'
['tamañoimagen'] = argumento['tamaño de imagen'] or argumento['tamaño'] or
end
argumento['tamaño imagen'] or argumento['tamañoimagen'] or
local Ficha = {
argumento['tamañodelaimagen'] or argumento['tamaño de foto'] or
['titulo'] = titulo,
'220px',
imagen = imagen,
pie = pieDeImagen,
['tamañoimagen'] = argumento['tamaño de imagen'] or argumento['tamaño'] or
tipocabecera = 'edificio',
argumento['tamaño imagen'] or argumento['tamañoimagen'] or argumento['tamañodelaimagen'] or
estilotitulo = estilotitulo,
argumento['tamaño de foto'] or
estiloseccion = estiloseccion,
'220px',
estiloetiqueta = 'width:33%;',
pie = pieDeImagen,
{'',logotipo},
tipocabecera = 'edificio',
{tipo = "sección",
estilotitulo = estilotitulo,
['titulo'] = "Localización",
estiloseccion = estiloseccion,
{'País', sinBandera( pais )},
estiloetiqueta = 'width:33%;',
{tipodivadministrativa, sinBandera( divadministrativa )},
{'',logotipo},
{'Coordenadas' , argumento['coor'] or argumento['coordenadas'] or propiedad('P625', {formato='dms', display='inline,title', tipo='edu', uno='sí'})},
{tipo = "sección",
{'Localización', sinBandera( argumento['localización'] or
['titulo'] = "Localización",
ModuloFormato.enVariasLineas({ModuloFormato.separadosPorComa({argumento['ciudad'], argumento['estado'], argumento['país']})}) or
{'País', pais},
ModuloFormato.enVariasLineas({propiedad('P969'), ModuloFormato.separadosPorComa({propiedad('P131'),propiedad('P17')})}) )},
{tipodivadministrativa, divadministrativa},
{'Dirección postal', sinBandera( direccionpostal )},
--{'Coordenadas' , argumento['coor'] or argumento['coordenadas'] or propiedad('P625', {formato='dms', display='inline,title', tipo='edu', uno='sí'})},
},
{'Coordenadas' , argumento['coor'] or argumento['coordenadas'] or propiedad('P625', {formato='dms', display='inline,title', tipo='edu', uno='sí'})},
{tipo = "sección",
{'Localización',argumento['localización'] or
['titulo'] = "Información general",
ModuloFormato.enVariasLineas({ModuloFormato.separadosPorComa({argumento['ciudad'], argumento['estado'], argumento['país']})}) or
{'Nombres anteriores', argumento['nombres anteriores'] or argumento['Nombres anteriores']},
ModuloFormato.enVariasLineas({propiedad('P969'), ModuloFormato.separadosPorComa({propiedad('P131'),propiedad('P17')})}) },
{'Otros nombres',argumento['otros nombres'] or argumento['Otros nombres'] or propiedad('P4970')},
{'Dirección postal', direccionpostal},
{'Organización', argumento['organización'] or argumento['Organización'] or propiedad('P749')},
{'Propietario', argumento['dueño'] or argumento['Dueño'] or propiedad('P127')},
},
{'Estado', argumento['estado'] or argumento['Estado']},
{tipo = "sección",
{'Catalogación', argumento['catalogación'] or argumento['Catalogación']},
['titulo'] = "Información general",
{'NombresSe anterioresconecta con', argumento['nombresse anterioresconecta con'] or argumento['NombresSe conecta anteriorescon']},
{'Otros nombresCruza',argumento['otros nombrescruza'] or argumento['Otros nombresCruza'] or propiedad('P4970')},
{'Número de {'Organizaciónvanos', argumento['organizaciónojos'] or argumento['OrganizaciónOjos'] or propiedad('P749')},
{'PropietarioOcupante', argumento['dueñoocupante'] or argumento['DueñoOcupante'] or propiedad('P127')},
{'EstadoUsos', argumento['estadouso'] or argumento['EstadoUso'] or propiedad('P366')},
{'Inicio de obra', fechainicio},
{'Catalogación', argumento['catalogación'] or argumento['Catalogación']},
{'Se conecta con[[Coronación]]', argumento['se conecta concoronación'] or argumento['Se conecta conCoronación']},
{'Finalización de obra', fechafin},
{'Cruza',argumento['cruza'] or argumento['Cruza']},
{'Número de vanosFundación', argumento['ojosfundación'] or argumento['OjosFundación'] or propiedad('P571')},
{'OcupanteClausura', argumento['ocupanteclausura'] or argumento['OcupanteClausura'] or propiedad('P3999')},
{'Número de {'Usoscamas', argumento['usocamas'] or argumento['UsoCamas'] or propiedad('P366P6801')},
{'Número de télefono', argumento['telefono'] or argumento['Telefono'] or propiedad('P1329')},
{'Inicio de obra', fechainicio},
{'[[Coronación]]Emergencias', argumento['coronaciónemergencias'] or argumento['CoronaciónEmergencias']},
{'Afiliación', argumento['afiliación'] or argumento['Afiliación'] or propiedad('P1416')},
{'Finalización de obra', fechafin},
{'FundaciónRed', argumento['fundaciónred'] or argumento['FundaciónRed'] or propiedad('P571')},
{'ClausuraClasificación', argumento['clausuraclasificación'] or argumento['ClausuraClasificación'] or propiedad('P3999')},
{'Número de camasEspecialidad', argumento['camasespecialidad'] or argumento['CamasEspecialidad'] or propiedad('P6801')},
{'Número de télefonoFinanciamiento', argumento['telefonofinanciamiento'] or argumento['TelefonoFinanciamiento'] or propiedad('P1329')},
{'EmergenciasEstilo', argumento['emergenciasestilo'] or argumento['EmergenciasEstilo'] or propiedad('P149')},
{'AfiliaciónArrendatario actual', argumento['afiliaciónarrendatarios'] or argumento['AfiliaciónArrendatarios'] or propiedad('P1416')},
{'Nombrado en honor {'Reda', argumento['rednombrado en honor a'] or argumento['RedNombrado en honor a'] or propiedad('P138')},
{'Primera piedra', primerapiedra },
{'Clasificación', argumento['clasificación'] or argumento['Clasificación']},
{'EspecialidadAntena', argumento['especialidadantena'] or argumento['EspecialidadAntena']},
{'Piso más {'Financiamientoalto', argumento['financiamientopiso mas alto'] or argumento['FinanciamientoPiso mas alto'] or propiedad('P1101')},
},
{'Estilo', argumento['estilo'] or argumento['Estilo'] or propiedad('P149')},
{tipo = "sección",
{'Arrendatario actual', argumento['arrendatarios'] or argumento['Arrendatarios']},
['titulo'] = "Altura",
{'Nombrado en honor a', argumento['nombrado en honor a'] or argumento['Nombrado en honor a'] or propiedad('P138')},
{'Altura arquitectónica', argumento['altura arquitectonica'] or argumento['Altura arquitectonica'] or argumento['altura'] or argumento['Altura'] or obtenerAlturas().altura},
{'Primera piedra', primerapiedra },
{'AntenaAltura máxima', argumento['antenaaltura maxima'] or argumento['AntenaAltura maxima'] or obtenerAlturas().maxima},
},
{'Piso más alto', argumento['piso mas alto'] or argumento['Piso mas alto'] or propiedad('P1101')},
{tipo="sección",
},
['título']="Record de altura",
{tipo = "sección",
{argumento['record de altura'] or argumento['Record de altura']},
['titulo'] = "Altura",
{'Predecesor', argumento['precedecesor'] or argumento['Predecesor']},
{'Altura arquitectónica', argumento['altura arquitectonica'] or argumento['Altura arquitectonica'] or argumento['altura'] or argumento['Altura'] or devolveraltura(Entidad).altura},
},
{'Altura máxima', argumento['altura maxima'] or argumento['Altura maxima'] or devolveraltura(Entidad).alturamaxima},
{tipo = "sección",
},
['titulo'] = "Detalles técnicos",
{tipo="sección",
{'Material', argumento['material'] or argumento['Material'] or obtenerMaterial()},
['título']="Record de altura",
{'Superficie', {argumento['record de alturasuperficie'] or argumento['RecordSuperficie'] deor altura']obtenerSuperficie()},
{'Número de {'Predecesorplantas', argumento['precedecesornumero de plantas'] or argumento['PredecesorNumero de plantas'] or propiedad('P1101')},
{'Número de ascensores', argumento['numero de ascensores'] or argumento['Numero de ascensores'] or propiedad('P1301')},
},
},
{tipo = "sección",
['titulo'] = "Detalles'Diseño técnicos"y construcción',
{'MaterialArquitecto', argumento['materialarquitecto'] or argumento['MaterialArquitecto'] or obtenerMaterialpropiedad('P84')},
{'SuperficieIngeniero', argumento['superficieingeniero estructural'] or argumento['SuperficieIngeniero de servicios'] or obtenerSuperficie()},
{'NúmeroIngeniero de plantasservicios', argumento['numeroingeniero de plantasservicios'] or argumento['NumeroIngeniero de plantasservicios'] or propiedad('P1101')},
{'NúmeroIngeniero de ascensorescivil', argumento['numeroingeniero de ascensorescivil'] or argumento['NumeroIngeniero de ascensorescivil'] or propiedad('P1301')},
{'Otros', argumento['otros'] or argumento['Otros']},
},
{'Ingeniero estructural', argumento['ingeniero estructural'] or argumento['Ingeniero estructural'] or propiedad('P631')},
{tipo = "sección",
{'Autor', argumento['autor'] or argumento['Autor']},
['titulo'] = 'Diseño y construcción',
{'ArquitectoContratista', argumento['arquitectocontratista'] or argumento['ArquitectoContratista'] or propiedad('P84')},
{'IngenieroViviendas', argumento['ingeniero estructuralviviendas'] or argumento['Ingeniero de serviciosViviendas']},
{'IngenieroConocido de serviciospor', argumento['ingenieroconocido de serviciospor'] or argumento['Ingeniero deConocido serviciospor']},
},
{'Ingeniero civil', argumento['ingeniero civil'] or argumento['Ingeniero civil']},
{tipo = "sección",
{'Otros', argumento['otros'] or argumento['Otros']},
['titulo'] = "Remodelación",
{'Ingeniero estructural', argumento['ingeniero estructural'] or argumento['Ingeniero estructural'] or propiedad('P631')},
{'AutorIngeniero civil', argumento['autorrem ingeniero civil'] or argumento['AutorRem ingeniero civil']},
{'ContratistaOtros', argumento['contratistarem otros'] or argumento['ContratistaRem otros']},
{'ViviendasIngeniero estructural', argumento['viviendasrem ingeniero estructural'] or argumento['ViviendasRem ingeniero estructural']},
{'Conocido porContratista', argumento['conocido porcontratista'] or argumento['Conocido porContratista']},
{'Premios', argumento['rem premios'] or argumento['rem premios']},
},
},
{tipo = "sección",
['"titulo'"] = "RemodelaciónOtra información",
--Bar o restaurante
{'Ingeniero civil', argumento['rem ingeniero civil'] or argumento['Rem ingeniero civil']},
{"N.º de {'Otros'asientos", argumento['rem"nro otros'de asientos"] or argumento['Rem"Nro otros'de asientos"] or propiedad("P1083")},
{"N.º de {'Ingeniero estructural'tiendas", argumento['remnro ingenierode estructuraltiendas'] or argumento['RemNro ingenierode estructuraltiendas'] },
--Hotel
{'Contratista', argumento['contratista'] or argumento['Contratista']},
{"N.º de {'Premios'habitaciones", argumento['rem"nro premios'de habitaciones"] or argumento['rem"Nro de premios'habitaciones"]},
{"N.º de suites", argumento["nro de suites"] or argumento["Nro de suites"]},
},
{"N.º de restaurantes", argumento["nro de restaurantes"] or argumento["Nro de restaurantes"]},
{tipo = "sección",
{"N.º de bares", argumento["nro de bares"] or argumento["Nro de bares"]},
["titulo"] = "Otra información",
{"Estrellas", argumento["estrellas"] or argumento["Estrellas"]},
--Bar o restaurante
--Edificios religiosos
{"N.º de asientos", argumento["nro de asientos"] or argumento["Nro de asientos"] or propiedad("P1083")},
{"N.º de tiendasCulto", argumento['nro de tiendas'"culto"] or argumento['Nro de tiendas'"Culto"] or propiedad("P140")},
{"Diócesis", argumento["diocesis"] or argumento["Diocesis"] or propiedad("P708")},
--Hotel
{"N.º de habitacionesAdvocación", argumento["nro de habitacionesadvocacion"] or argumento["NroAdvocacion"] deor habitacionespropiedad("]P825")},
--Edificios militares
{"N.º de suites", argumento["nro de suites"] or argumento["Nro de suites"]},
{"N.º de restaurantesControlador", argumento["nrocontrolado de restaurantespor"] or argumento["NroControlado de restaurantespor"] },
{"N.º de baresGuarnición", argumento["nro de baresguarnición"] or argumento["Nro de baresGuarnición"]},
{"EstrellasComandante actual", argumento["estrellascomandante actual"] or argumento["EstrellasComandante actual"]},
{"Ocupantes", argumento["ocupantes"] or argumento["Ocupantes"] or propiedad("P466")},
--Edificios religiosos
{"CultoBatallas", argumento["cultobatallas"] or argumento["CultoBatallas"] or propiedad("P140")},
{"DiócesisEventos", argumento["diocesiseventos"] or argumento["DiocesisEventos"] or propiedad("P708")},
{"AdvocaciónPeríodo", argumento["advocacionperiodo"] or argumento["AdvocacionPeriodo"] or propiedad("P825")},
},
--Edificios militares
{tipo = "sección",
{"Controlador", argumento["controlado por"] or argumento["Controlado por"] },
['titulo'] = "Sitio web",
{"Guarnición", argumento["guarnición"] or argumento["Guarnición"]},
{"Comandante'Sitio actual"web', argumento["comandante'sitio actual"web'] or argumento["Comandante'Sitio actual"web'] or propiedad('P856')},
},
{"Ocupantes", argumento["ocupantes"] or argumento["Ocupantes"] or propiedad("P466")},
{tipo = "sección",
{"Batallas", argumento["batallas"] or argumento["Batallas"]},
['titulo'] = "Referencias",
{"Eventos", argumento["eventos"] or argumento["Eventos"]},
{argumento["Períodopremios",] or argumento["periodoPremios"] or argumento[propiedad("PeriodoP166"])},
{argumento['referencias'] or argumento['Referencias']},
},
}
{tipo = "sección",
['titulo'] = "Sitio web",
{'Sitio web', argumento['sitio web'] or argumento['Sitio web'] or propiedad('P856')},
},
{tipo = "sección",
['titulo'] = "Referencias",
{argumento["premios"] or argumento["Premios"] or propiedad("P166")},
{argumento['referencias'] or argumento['Referencias']},
}
}
return ModuloFicha.infobox(Ficha)
end
 
function obtenerImagenWikidata()
local imagen, valorImagen, piesDeImagen, k, pieDeImagen
if not Entidad then
return
end
local imagen = elementoTabla(Entidad, 'claims','P18',1)
 
if not imagen then
return
end
 
-- Obtener el nombre de la imagen
valorImagen = elementoTabla(imagen, 'mainsnak','datavalue','value') -- Por ejemplo, imagen.jpg
 
-- Obtener los pies de la imagen, uno por idioma
piesDeImagen = elementoTabla(imagen, 'qualifiers','P2096')
 
-- Encontrar el pie en español (aquel con datavalue.value.language = "es")
if piesDeImagen then
for k,pieDeImagen in pairs(piesDeImagen) do
if pieDeImagen.datavalue.value.language=='es' then
-- devolver la imagen y el texto del pie de la imagen en español
return valorImagen, pieDeImagen.datavalue.value.text
end
end
end
end
 
-- Si no hay pie de imagen en español comprueba si hay fecha especificada para la imagen
piesDeImagen = elementoTabla(imagen, 'qualifiers', 'P585')
 
if piesDeImagen and piesDeImagen[1] then
return valorImagen, nombre .. ' en ' .. require('Módulo:Wikidata/Fecha').FormateaFechaHora(piesDeImagen[1].datavalue.value, {['formatoFecha']='año',['enlace']='no'})
end
 
-- Sin pie de imagen en español
return valorImagen
end
 
function obtenerArgumentosConValor(frame)
local original
 
if frame == mw.getCurrentFrame() then
original = frame:getParent().args
else
original = frame.args or frame
end
local copia= {}
 
for k,v in pairs(original) do
if v == 'no' and k ~= 'wikidata' then
--Si vale "no" dejar en blanco el argumento para no obtener el valor
--de Wikidata
copia[k] = ''
elseif v~='' then
--Si está en blanco dejarlo a nil para obtener en su caso el valor de
-- Wikidata si no hay otro argumento con un nombre similar
copia[k] = original[k]
end
end
return copia
end
 
function obtenerEtiquetaWikidata()
if Entidad and Entidad.labels and Entidad.labels.es then
return Entidad.labels.es.value
end
end
 
function propiedad(idPropiedad,opciones)
if Entidad and Entidad.claims and Entidad.claims[idPropiedad] then
if not opciones then
opciones = {}
end
opciones['propiedad'] = idPropiedad
 
valorPropiedad = ModuloWikidata.getPropiedad(opciones,Entidad.claims[idPropiedad])
 
if valorPropiedad and valorPropiedad:match('%[%[:d:') then
algunaPropiedadEnlazaWikidata = true
end
 
return valorPropiedad
end
end
 
--Devuelve la fecha de inicio y fin de la construcción
function obtenerfechasObra(unaTabla)
-- TODO: MóduloWikidataFormatos.formatoPeriodo ?
--local evsig = elementoTabla(Entidad, 'claims','P793',1)
--local construccionevsig = elementoTabla(Entidad, 'claims','P793',1)
--local construccion = elementoTabla(Entidad,'claims','P793',1)
local precision = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','precision')
if precision ~= 11 then
return
end
local fechainicio = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','time')
local anyoinicio = tonumber(fechainicio:sub(2,5))
local mesinicio = tonumber(fechainicio:sub(7,8))
local diainicio = tonumber(fechainicio:sub(10,11))
local fechafin = elementoTabla(unaTabla,'qualifiers','P582',1,'datavalue','value','time')
local anyofin = tonumber(fechafin:sub(2,5))
local mesfin = tonumber(fechafin:sub(7,8))
local diafin = tonumber(fechafin:sub(10,11))
local meses = {"enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"}
local retorno = {}
retorno['fechainicio'] = diainicio ..' de '..meses[mesinicio]..' de '..anyoinicio
retorno['fechafin'] = diafin..' de '..meses[mesfin]..' de ' ..anyofin
return retorno
end
 
--Devuelve la fecha ceremonia de inauguración
function devolvercereminaug(unaTabla)
-- TODO: MóduloWikidataFormatos.formatoPeriodo ?
local precision = elementoTabla(unaTabla,'qualifiers','P580',1,'datavalue','value','precision') -- 'fecha de inicio'
if precision ~= 11 then
return
end
local fecha = elementoTabla(unaTabla,'qualifiers','P585',1,'datavalue','value','time') -- 'fecha'
local anyo = tonumber(fechainicio:sub(2,5))
local mes = tonumber(fechainicio:sub(7,8))
local meses = {"enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"}
local dia = tonumber(fechainicio:sub(10,11))
local fecha = elementoTabla(unaTabla,'qualifiers','P582',1,'datavalue','value','time') -- 'fecha de fin'
local retorno = dia .."de" ..meses[mes] .. "de" ..anyo
return retorno
end
 
--Devuelve los campos de elementos significativos de Wikidata
function devolverelemensigs(unaEntidad)
local evsigs = elementoTabla(unaEntidad,'claims','P793') -- 'evento significativo'
if evsigs == nil then
return
end
local elementos = {}
for i, j in pairs(evsigs)
do
do
valorQ = elementoTabla(j,'mainsnak','datavalue','value','id')
if valorQ == 'Q385378' then -- 'construcción'
elementos[valorQ] = obtenerfechasObra(j)
elseif valorQ == 'Q3010369' then -- 'ceremonia de inauguración'
end
elementos[valorQ] = devolvercereminaug(j)
if valorQ == 'Q3010369' then
elseif valorQ == 'Q744913' then -- 'accidente de aviación'
elementos[valorQ] = devolvercereminaug(j)
elementos[valorQ] = elementoTabla(construccion,'qualifiers','P805',1,'datavalue','value','id')
end
ifelseif valorQ == 'Q744913Q1068633' then -- 'primera piedra'
elementos[valorQ] = elementoTabla(construccion,'qualifiers','P805P585',1,'datavalue','value','idtime')
end
end
if valorQ == 'Q1068633' then
return elementos
elementos[valorQ]= elementoTabla(construccion,'qualifiers','P585',1,'datavalue','value','time')
end
end
return elementos
end
 
--Devuelve la altura en metros
function devolveralturaobtenerColor(unaTabla)
-- TODO: revisar colores y contraste
local valores = elementoTabla(unaTabla,'claims','P2048')
local colores = {
local alturamaxima, unidadalturamaxima
['hotel'] = '#264796', -- revisar, azul demasiado oscuro, no se diferencia el texto
local retorno = {}
['edificio militar'] = '#665D1D', -- revisar, marrón demasiado oscuro, no se diferencia el texto
if valores == nil then
['cuartel'] = '#665D1D', -- ídem anterior
retorno.altura = ""
['bar'] = '#BFFF00', -- revisar, verde claro intenso, fosforito ?
retorno.alturamaxima= ""
['restaurante'] = '#BFFF00', -- ídem anterior
return retorno
['iglesia'] = '#F3D5E1', -- según {{Ficha de edificio religioso}}
else
['hospital'] = '#CB1D11', -- revisar, rojo demasiado fuerte
for i,j in pairs(valores)
}
do
local valorQtipoedificio = elementoTabla(jEntidad,'qualifiersclaims','P518P31',1,'datavaluemainsnak','value','iddatavalue')
tipoedificio = elementoTabla(tipoedificio,'value','id')
if valorQ == 'Q26970842'then
local nombretipoedificio= mw.wikibase.getEntityObject(tipoedificio)
alturamaxima = elementoTabla(j,'mainsnak','datavalue','value','amount')
unidadalturamaximanombretipoedificio = elementoTabla(alturamaximanombretipoedificio,'mainsnaklabels','datavaluees','value','unit')
local uso = argumento['tipo'] or argumento ['Tipo'] or argumento['uso'] or argumento['Uso'] or argumento ['usos'] or argumento['Usos'] or propiedad('P366')
end
if uso if== valorQ"militar" or uso == 'Q24192182'"Militar" then
return colores['edificio militar']
altura = elementoTabla(j,'mainsnak','datavalue','value','amount')
end
unidadaaltura = elementoTabla(j,'mainsnak','datavalue','value','unit')
return colores[nombretipoedificio] or '#ddd' -- según {{Ficha de edificio}} [original]
end
end
if unidadalturamaxima == "http://www.wikidata.org/entity/Q3710" or unidadalturamaxima == "Q3710" then
unidadalturamaxima = unidadalturamaxima * 0.3048
end
retorno.altura = string.gsub(tostring(altura)..'[[metro|m]]','+','')
retorno.alturamaxima = string.gsub(tostring(alturamaxima)..'[[metro|m]]','+','')
end
 
return retorno
function obtenerSuperficie()
-- global Entidad
local frame = mw.getCurrentFrame()
local valor = {}
local datos = elementoTabla(Entidad,'claims','P2046') -- 'superficie'
if datos ~= nil then
for i, j in pairs(datos)
do
local medida = elementoTabla(j,'mainsnak','datavalue','value','amount')
local unidad = elementoTabla(j,'mainsnak','datavalue','value','unit')
if medida ~= nil then
unidad = mw.ustring.gsub(unidad, '^.-/(Q%d+)$', '%1')
if unidad ~= 'Q25343' then -- unidades en 'metro cuadrado'
local unidades = {
-- véanse valores admitidos para 'superficie' en https://www.wikidata.org/wiki/Property:P2046#P2302
['Q2737347' ] = 'mm2',
['Q2489298' ] = 'cm2',
['Q25343' ] = 'm2', -- unidad de destino
['Q712226' ] = 'km2',
['Q185078' ] = 'dam2',
['Q35852' ] = 'ha',
['Q81292' ] = 'acre',
['Q232291' ] = 'sqmi',
['Q857027' ] = 'sqft',
['Q1063786' ] = 'sqin',
-- ['Q21074767'] = 'sqvt', -- medida antigua en desuso, [[versta]] cuadrada
-- ['Q669931' ] = 'dessiatin', -- medida antigua en desuso
-- ['Q935614' ] = 'rai', -- medida antigua en desuso
-- ['Q216795' ] = 'dunam', -- medida antigua en desuso, [[dunam]]
-- ['Q23931103'] = 'nmi²', -- no para edificios
-- ['Q254532' ] = 'sqdeg', -- no para edificios
-- ? 'sqyd'
}
medida = frame:preprocess('{{Convertir|' .. medida .. '|' .. unidades[unidad] .. '|m2|abr=3|disp=#}}')
end
valor[ #valor + 1 ] = frame:preprocess('{{Unidad|' .. tostring( tonumber( medida ) ) .. '|[[metro cuadrado|m²]]}}')
end
end
end
return mw.text.listToText( valor, ' o ', ' o ' )
end
 
function obtenerAlturas()
-- global Entidad
local frame = mw.getCurrentFrame()
local valor = {}
local datos = elementoTabla(Entidad,'claims','P2048') -- 'altura'
if datos ~= nil then
local valores = {}
local altmax = ''
local altarq = ''
for i, j in pairs(datos)
do
local medida = elementoTabla(j,'mainsnak','datavalue','value','amount')
local unidad = elementoTabla(j,'mainsnak','datavalue','value','unit')
if medida ~= nil then
unidad = mw.ustring.gsub(unidad, '^.-/(Q%d+)$', '%1')
if unidad ~= 'Q11573' then -- unidades en 'metro'
local unidades = {
-- véanse valores admitidos para 'altura' en https://www.wikidata.org/wiki/Property:P2048#P2302
['Q174789'] = 'mm',
['Q174728'] = 'cm',
-- ['Q11573'] = 'm', -- unidad de destino
['Q828224'] = 'km',
['Q218593'] = 'in',
['Q3710' ] = 'ft',
-- ['Q355198' ] = 'pixel', -- no para edificios
-- ['Q7673190'] = 'celda', -- no para edificios
-- ? 'yd'
}
medida = frame:preprocess('{{Convertir|' .. medida .. '|' .. unidades[unidad] .. '|m|abr=3|disp=#}}')
end
valores[i] = tonumber( medida )
local texto = frame:preprocess('{{Unidad|' .. tostring( valores[i] ) .. '|[[metro|m]]}}')
local parte = elementoTabla(j,'qualifiers','P518',1,'datavalue','value','id')
if parte == 'Q26970842' then -- 'altura máxima'
if altmax ~= '' then
altmax = altmax .. ' o '
end
altmax = altmax .. texto
elseif parte == 'Q24192182' then -- 'altura arquitectónica'
if altarq ~= '' then
altarq = altarq .. ' o '
end
altarq = altarq .. texto
end
end
end
-- cuando no se especifica la 'altura máxima' se muestra la máxima altura disponible:
if altmax == '' and #valores > 0 then
altmax = 0
for i,j in pairs(valores)
do
if altmax < tonumber(j) then
altmax = tonumber(j)
end
end
altmax = frame:preprocess('{{Unidad|' .. tostring(altmax) .. '|[[metro|m]]}}')
end
-- -- cuando no se especifica la 'altura arquitectónica' se muestran todas las alturas disponibles:
-- if altarq == '' and #valores > 0 then
-- altarq = ''
-- for i,j in pairs(valores)
-- do
-- if altarq ~= '' then
-- altarq = altarq .. ' o '
-- end
-- altarq = frame:preprocess('{{Unidad|' .. tostring(j) .. '|[[metro|m]]}}')
-- end
-- end
valor.maxima = altmax
valor.altura = altarq
end
return valor
end
 
function obtenerCalle()
-- global Entidad
Entidad = mw.wikibase.getEntityObject(argumento['id']) or {}
local valor = {}
local calles = elementoTabla(Entidad,'claims','P669')
local datos = elementoTabla(Entidad,'claims','P669') -- 'calle'
local retorno = ''
if callesdatos =~= nil then
for i, j in pairs(datos)
return
do
else
local qid = elementoTabla(j,'mainsnak','datavalue','value','id')
for i, j in pairs(calles)
local obj = mw.wikibase.getEntityObject(qid)
do
if obj ~= nil then
local calle = elementoTabla(j, 'mainsnak','datavalue','value','id')
local nrocalletitulo = elementoTabla(Entidadobj,'claimslabels','P669es',1,'qualifiers','P670',1,'datavaluevalue')
local pagina = obj:getSitelink('eswiki')
nrocalle = elementoTabla(nrocalle,'value')
if titulo ~= nil then
local nombrecalle = mw.wikibase.getEntityObject(calle)
local entrada = ''
nombrecalle = elementoTabla(nombrecalle,'labels','es','value')
if pagina ~= nil then
local aux = mw.wikibase.getEntity(calle)
entrada = '[[' .. pagina .. '|' .. titulo .. ']]'
local pagina = aux:getSitelink('eswiki')
else
if pagina ~= nil then
entrada = titulo
if pagina ~= nombrecalle then
end
if nrocalle ~= nil then
local nrocalle = elementoTabla(j,'qualifiers','P670',1,'datavalue','value')
retorno = retorno.. '[['..pagina..'|'..nombrecalle..']] Nº'..nrocalle..' y '
if nrocalle ~= nil then
else
entrada = entrada .. ' n.º&nbsp;' .. nrocalle
retorno = retorno.. '[['..pagina..'|'..nombrecalle..']]'..' y '
end
end
valor[ #valor + 1 ] = entrada
else
end
if nrocalle ~= nil then
end
retorno = retorno.. nombrecalle..'Nº'..nrocalle..' y '
end
else
end
retorno = retorno.. nombrecalle..' y '
return mw.text.listToText( valor )
end
end
else
if nrocalle ~= nil then
retorno = retorno ..nombrecalle..'Nº'..nrocalle..' y '
else
retorno = retorno..nombrecalle..' y'
end
end
end
end
return string.sub(retorno,0,-3)
end
 
function obtenerMaterial()
-- global Entidad
Entidad = mw.wikibase.getEntityObject(argumento['id']) or {}
local valor = {}
materiales = elementoTabla(Entidad,'claims','P186')
local datos = elementoTabla(Entidad,'claims','P186') -- 'material empleado'
local material = ""
if materialesdatos ~= nil then
for i,j in pairs(datos)
local auxQ, aux
do
for i,j in pairs(materiales)
local qid = elementoTabla(j,'mainsnak','datavalue','value','id')
do
local obj = mw.wikibase.getEntityObject(qid)
auxQ = elementoTabla(j, 'mainsnak','datavalue','value','id')
if obj ~= nil then
aux = mw.wikibase.getEntityObject(auxQ) or {}
local materialtitulo = material ..'[['..elementoTabla(auxobj,'labels','es','value')..']]'..'<br>'
local pagina = obj:getSitelink('eswiki')
end
if titulo ~= nil then
end
if pagina ~= nil then
return material
valor[ #valor + 1 ] = '[[' .. pagina .. '|' .. titulo .. ']]'
else
valor[ #valor + 1 ] = titulo
end
end
end
end
end
return mw.text.listToText( valor )
end
 
return z
Obtenido de «https://es.wikipedia.org/wiki/Módulo:Ficha_de_edificio»