Module:Adresse/Bac à sable

 Documentation[voir] [modifier] [historique] [purger]

Ce module permet l'extraction d'une adresse depuis Wikidata et sa mise en forme.

Utilisation

Fonctions exportables

• streetAddress(item, area) – Met en forme l'adresse partielle avec le numéro de rue et la rue ;
• adminDivList(item, country) – Retourne la liste des subdivisions territoriales (commune, départements, cantons,… ) du pays en paramètre selon les données entrées dans Module:Adresse/Formats ;
• cityLine(item, country, divlist, postcode) – Met en forme l'adresse partielle avec le nom de la ville, les noms des subdivisions territoriales et le code postal ;
• fullAddress(item, country, divs, streetstr, divstr, showcountry, postcode) – Met en forme l'adresse complète contenant numéro de rue, nom de rue, nom de la ville, noms des subdivisions territoriales, code postal et nom du pays et ajoute la catégorie Catégorie:Page utilisant une adresse fournie par Wikidata ;
• wikidataAddress(item, country) – Reprend l'adresse de rue issue de streetAddress et y ajoute la catégorie Catégorie:Page utilisant une adresse fournie par Wikidata.

Modules externes et autres éléments dont ce module a besoin pour fonctionner

• mw.ustring.gsub – Remplace toutes les occurrences d'un motif dans une chaîne de caractères par une chaîne de remplacement ;
• mw.text.listToText – Joint les éléments d'une liste pour former une chaîne de caractères ;
• mw.text.trim – Enlève les espaces et autres caractères au début et à la fin d'une chaine de caractères ;
• Module:Wikidata – Module contenant des fonctions de récupération des données depuis Wikidata ;
• Module:Linguistique – Module contenant des fonctions de mise en forme et d'analyse basique d'une chaîne de caractères ;
• Module:Country data – Module de mise en forme des noms de lieux et des nationalités.

Module en sous-page

• Module:Adresse/Formats – Table contenant les paramètres de mise en forme de l'adresse selon le pays.

Modules lua utilisant ce module

• Module:Infobox/Fonctions/Bâtiment ;
• Module:Infobox/Fonctions/Centrale électrique ;
• Module:Infobox/Abbaye ;
• Module:Infobox/Centre commercial ;
• Module:Infobox/Centre de congrès ;
• Module:Infobox/Gratte-ciel ;
• Module:Infobox/Stade ;
• Module:Infobox/Temple bouddhiste.

Modèles appelant directement ce module

Aucun

Exemples

La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

local formats = require "Module:Adresse/Formats"

local p = {}
local wikidata = require "Module:Interface Wikidata".fromLua
local linguistic = require "Module:Linguistique"
local countrymodule = require "Module:Country data"

local function numberFromClaim(claim) -- récupère le numéro de l'immeuble à partir d'un qualificatif P670 d'une affirmation Wikidata
	if not claim.qualifiers or not claim.qualifiers.P670 then
		return nil
	end
	local vals = {}
	for i, j in pairs(claim.qualifiers.P670) do
		table.insert(vals, wikidata.formatSnak(j))
	end
	return table.concat(vals, '-')
end

local function directionFromClaim(claim, area) -- par exemple rue Sherbrooke Ouest
	if not claim.qualifiers or not claim.qualifiers.P560 then
		return nil
	end
	local str = ''
	for i, snak in pairs(claim.qualifiers.P560) do
		local directionlabels = area.directions or formats.default.directions
		str = str .. wikidata.formatSnak(snak,  {speciallabels = directionlabels})
	end
	return str
end

local function streetFromClaims(claim, formattingarea) -- réupère le nom de la rue à partir d'une affirmation P669 Wikidata
	return wikidata.formatStatement(claim)
end

local function formatStreet(streetname, housenumber, direction, displayformat)
	local val = displayformat.streetline or formats.default.streetline
	val = mw.ustring.gsub(val, '$number', housenumber or '')
	val = mw.ustring.gsub(val, '$street', streetname or '')
	val = mw.ustring.gsub(val, '$direction', direction or '')
	return val
end

local function wikidatastreet(claim, area) --formate des données sur la rue à partir d'une affirmation Wikidata
	local streetname = streetFromClaims(claim)
	local housenumber =  numberFromClaim(claim)
	local direction = directionFromClaim(claim, area)
	return formatStreet(streetname, housenumber, direction, area)
end

function p.streetLine(item, area) -- fprùate l'intégralité d'une adresse à partir des données contenues dans une élément Wikidata
	local streets -- châine contenant le ou les rues et numéros d'immeuble

	-- essaye de remplir street, en priorité avec P669, type : élément
	local streetclaims = wikidata.getClaims{entity = item, property = 'P669'}
	if streetclaims then
		for i, j in pairs(streetclaims) do
			streetclaims[i] = wikidatastreet(j, area) 
		end
		streets = mw.text.listToText(streetclaims)
		streets = wikidata.addLinkback(streets, item, 'P669')
		-- faut-il ajouter Category:Page utilisant des données de Wikidata/P969 ?
	end
	-- sinon : P969, type : string
	if not streets then 
		streets =  wikidata.formatAndCat{property = 'P969', entity = item}
	end
	return streets
end

function p.fullAddress(id, candidatesdivs, country)
	local divisions = wikidata.transitiveVals(id, {property = 'P131'}, 3)
	local country = wikidata.formatStatements{property = 'P17', entity = id, displayformat = 'raw', numval = 1} -- quand il y a plusieurs pays, on prend le formatage du premier
	if not divisions then
		return "no id"
	end
	
	local function setValue(targetclasses, divisions)
		for i, division in pairs(divisions) do
			for j, divtype in pairs(targetclasses) do
				if wikidata.isInstance(divtype, division, 3) then
					return wikidata.formatEntity(division)
				end
			end
		end
	end

	local displayformat = formats[country] or formats[default]
	local postcode = wikidata.formatStatements{entity = id, property = 'P281'}
	
	local div1, div2, div3
	if displayformat.div1 then
		div1 = setValue(displayformat.div1, divisions)
	end
	if displayformat.div2 then
		div2 = setValue(displayformat.div2, divisions)
	end	
	if displayformat.div3 then
		div3 = setValue(displayformat.div3, divisions)
	end
	
	-- first line: street
	local streetline = p.streetLine(id, displayformat)
	
	-- line2: administrative divisions, postcodes
	local cityline = displayformat.cityline or formats.default.cityline
	local divs = linguistic.conj({div1, div2, div3}, 'comma')
	cityline = cityline:gsub("$postcode", postcode or '')
	cityline = cityline:gsub("$admindivs", divs or '')
	if mw.text.trim(cityline) == '' then
		cityline = nil
	end
	-- last line: country
	local countryline = countrymodule.standarddisplay(country) or wikidata.formatStatements{entity = entity, property = 'P17'}
	return linguistic.conj({streetline, cityline, countryline}, '<br />')
end

return p