Module:Adresse : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(+ qqes pays)
(fullAddress : suppression variable globale entity)
 
(15 révisions intermédiaires par 2 utilisateurs non affichées)
Ligne 1 : Ligne 1 :
 +
local formats = require "Module:Adresse/Formats"
 +
 
local p = {}
 
local p = {}
 +
local wikidata = require "Module:Interface Wikidata".fromLua
 +
local linguistic = require "Module:Linguistique"
 +
local countrymodule = require "Module:Country data"
 +
 +
local function getCountry(item) -- get country id for formatting
 +
return wikidata.formatStatements{property = 'P17', entity = item, displayformat = 'raw', numvals = 1}
 +
end
  
−
local wikidata =require('Module:Wikidata')
+
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 areaformatting = {
+
local function streetFromClaims(claim) -- réupère le nom de la rue à partir d'une affirmation P669 Wikidata
−
-- identifant wikipédia = regex pour le format de l'adresse
+
return wikidata.formatStatement(claim)
−
-- $number : le numéro de l'immeuble
+
end
−
-- $ street : le nom de la rue
 
−
-- questions :
 
−
-- utiliser des noms plutôt que des ID wikidata ?
 
−
-- si problème de performance, utiliser des fonctions plutôt que des regex ?
 
−
Q16 = '$number $street',-- Canada
 
−
Q31 = '$number $street',-- Belgique
 
−
Q40 = '$street $number', -- Autriche
 
−
Q183 = '$street $number', -- Allemagne
 
−
Q39 = '$street $number', -- Suisse
 
−
Q142 = '$number $street',-- France
 
−
default = '$number $street',
 
−
}
 
  
−
local function formatStreet(streetname, housenumber, area)
+
local function formatStreet(streetname, housenumber, direction, displayformat)
−
local val = areaformatting[area] or areaformatting['default']
+
local val = displayformat.streetline or formats.default.streetline
 
val = mw.ustring.gsub(val, '$number', housenumber or '')
 
val = mw.ustring.gsub(val, '$number', housenumber or '')
 
val = mw.ustring.gsub(val, '$street', streetname or '')
 
val = mw.ustring.gsub(val, '$street', streetname or '')
 +
val = mw.ustring.gsub(val, '$direction', direction or '')
 
return val
 
return val
 
end
 
end
  
−
function p.formatAddress(streets, postcode, city, formattingarea)
+
local function wikidatastreet(claim, area) --formate des données sur la rue à partir d'une affirmation Wikidata
−
-- streets est une table de {streetname, number, }quarge que "city" qui détermine le formatage de la rue et du code postal
+
local streetname = streetFromClaims(claim, area)
−
if (not streets or #streets == 0) and (not postcode) and (not city) then
+
local housenumber = numberFromClaim(claim, area)
−
return nil
+
local direction = directionFromClaim(claim, area)
−
end
+
return formatStreet(streetname, housenumber, direction, area)
 +
end
  
−
local addresslines = {} -- lignes à mettre dans l'adresse : rue, codepostal + ville etc.
+
function p.streetAddress(item, area) -- formate la ligne concernant la rue et le numéro de rue
−
if streets then
+
local streets -- châine contenant le ou les rues et numéros d'immeuble
−
table.insert(addresslines, mw.text.listToText(streets))
+
area = area or formats[getCountry(item)]
 +
 +
-- 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.formatAndCat{value = streets, entity = item, property = 'P669'}
 
end
 
end
−
if postcode or formattingarea then
+
-- sinon : P969, type : string
−
table.insert(addresslines, (postcode or '') .. ' ' .. (formattingarea or ''))
+
if not streets then  
 +
streets =  wikidata.formatAndCat{property = 'P969', entity = item}
 
end
 
end
−
return table.concat(addresslines, '<br />')
+
return streets
 
end
 
end
  
−
local function numberFromClaim(claim) -- récupère le numéro de l'immeuble à partir d'un qualificatif P670 d'une affirmation Wikidata
+
function p.adminDivList(item, country) -- returns a list of admin divisions matching the criteria defined in Module:Adresse/Formats
−
if not claim.qualifiers or not claim.qualifiers.P670 then
+
country = country or getCountry(item)
 +
local query = {entity = place, property = 'P131'}
 +
local divs = wikidata.transitiveVals(item, query, 0, 10, country)
 +
local validDivs = {}
 +
 +
-- solution 1: looks for divs of a certain type
 +
local function setValue(targetclasses, depth)
 +
local test = {}
 +
for _, d in pairs(divs) do
 +
for j, divtype in pairs(targetclasses) do
 +
if (divtype == '-') then
 +
if #validDivs > 0 then
 +
divs = wikidata.addVals(divs, query, 0, 1, country)
 +
end
 +
if divs[#divs] == country then
 +
return nil
 +
end
 +
return divs[#divs]
 +
end
 +
if wikidata.isInstance(divtype, d, 3) then
 +
-- restrain list to new value, will be expanded only if needed
 +
divs = {d}
 +
return d
 +
end
 +
end
 +
end
 +
if depth >= 0 then
 +
local num = #divs
 +
divs = wikidata.addVals(divs, query, 0, 10, country)
 +
if #divs > num then return setValue(targetclasses, depth) end
 +
end
 +
end
 +
 
 +
-- solution2: looks for divs that are part of a closed list (way more efficient for big items)
 +
local function findInList(list, depth)
 +
for i, j in pairs(divs) do
 +
for k, l in pairs(list) do
 +
if j == l then
 +
divs = {l}
 +
return l
 +
end
 +
end
 +
end
 +
if depth >= 0 then
 +
local num = #divs
 +
divs = wikidata.addVals(divs, query, 0, 10, country)
 +
if #divs > num then return findInList(list, depth) end
 +
end
 +
end
 +
 +
displayformat = formats[country] or formats.default
 +
local maxdepth = 3
 +
if not divs then
 
return nil
 
return nil
 
end
 
end
−
local vals = {}
+
 
−
for i, j in pairs(claim.qualifiers.P670) do
+
if displayformat.div1 then
−
table.insert(vals, wikidata.formatSnak(j))
+
local val = setValue(displayformat.div1, maxdepth)
 +
if val and val ~= validDivs[#validDivs] then
 +
table.insert(validDivs, val)
 +
end
 +
end
 +
 
 +
if displayformat.div2 then
 +
local val = setValue(displayformat.div2, maxdepth)
 +
if val and val ~= validDivs[#validDivs] then
 +
table.insert(validDivs, val)
 +
end
 +
elseif displayformat.div2vals then
 +
local val =  findInList(displayformat.div2vals, 1)
 +
if val and val ~= validDivs[#validDivs] then
 +
table.insert(validDivs, val)
 +
end
 +
end
 +
 +
if displayformat.div3 then
 +
local val = setValue(displayformat.div3, maxdepth)
 +
if val and val ~= validDivs[#validDivs] then
 +
table.insert(validDivs, val)
 +
end
 +
elseif displayformat.div3vals then
 +
local val =  findInList(displayformat.div3vals, 0)
 +
if val and val ~= validDivs[#validDivs] then
 +
table.insert(validDivs, val)
 +
end
 
end
 
end
−
return table.concat(vals, '-')
+
 +
return validDivs
 
end
 
end
  
−
local function streetFromClaims(claim) -- réupère le nom de la rue à partir d'une affirmation P669 Wikidata
+
function p.cityLine(item, country, divlist) -- line with list of admin divisions + optional postcode
−
if not claim.mainsnak.snaktype == 'value' then
+
country = country or getCountry(item)
−
return nil
+
 +
local postcode = wikidata.formatStatements{entity = item, property = 'P281'} or ''
 +
local divstr = ''
 +
 +
divlist = divlist or p.adminDivList(item, country)
 +
if not divlist then
 +
return -- add a maintenance category ?
 
end
 
end
−
local streetname = wikidata.formatSnak(claim.mainsnak)
+
for i, j in pairs(divlist) do
−
local direction = wikidata.getFormattedQualifiers(claim, {'P560'}, {link='-'}) -- par exemple "rue Sherbrooke OUest"
+
divlist[i] = wikidata.formatEntity(j)
−
if direction then
 
−
return streetname .. ' ' .. direction
 
−
else
 
−
return streetname
 
 
end
 
end
 +
local divstr = linguistic.conj(divlist, 'comma')
 +
 +
local formatting = formats[country] or formats.default
 +
local str = formatting.cityline or formats.default.cityline
 +
str = str:gsub("$postcode", postcode or '')
 +
str = str:gsub("$admindivs", divstr or '')
 +
return str
 
end
 
end
  
−
local function wikidatastreet(claim , area) --formate des données sur la rue à partir d'une affirmation Wikidata
+
function p.fullAddress(item, country, divs, streetstr, divstr)
−
local streetname = streetFromClaims(claim)
+
 
−
local housenumber = numberFromClaim(claim)
+
-- country id used for formatting
−
return  formatStreet(streetname, housenumber, area)
+
country = country or getCountry(item)
−
end
+
local displayformat = formats[country] or formats.default
 +
 
 +
-- line 1 street
 +
local streetline = streetstr or p.streetAddress(item, country)
 +
 +
-- line 2: administrative divisions, postcodes
 +
local cityline = divstr or p.cityLine(item, country, divs)
  
−
function p.wikidataAddress(item) -- fprùate l'intégralité d'une adresse à partir des données contenues dans une élément Wikidata
+
if (not cityline) or mw.text.trim(cityline) == '' then
−
-- essaye la propriété P669 (données de type 'élément'
+
cityline = nil
−
-- TODO : récupérer la zone géographique pour le formatage
 
−
local streetclaims = wikidata.getClaims{item=item, property = 'P669', item=item}
 
−
local streetstrings = {}
 
−
local area = wikidata.getClaims({item = item, property = 'P17'}) -- utilise le pays comme approximation pour le format d'adresse à utiliser
 
−
if area and #area > 0 then
 
−
area = wikidata.getmainid(area[1])
 
 
end
 
end
−
if streetclaims then
+
−
for i, j in pairs(streetclaims) do
+
-- line 3: country
−
streetstrings[i] = wikidatastreet(j, area)
+
local countryline, success = countrymodule.standarddisplay(country)
−
end
+
if not success then
−
else
+
countryline = country or wikidata.formatStatements{entity = item, property = ''}
−
-- sinon,essaye p969: datatype: string
 
−
streetclaims = wikidata.getClaims{property = 'P969', item=item}
 
−
if streetclaims then for i, j in pairs(streetclaims) do
 
−
local street = wikidata.formatStatement(j)
 
−
streetstrings[i] = street
 
−
end end
 
 
end
 
end
−
-- code postal
+
−
local postcode = wikidata.getClaims{property= 'P281', item=item}
+
local str = linguistic.conj({streetline, cityline, countryline}, '<br />')
−
if postcode and #postcode > 1 then -- s'il y a plusieurs codes postaux, il y a sans doute plusieurs adresses différentes, c'est difficile de savoir lequel correspond à laquelle
+
if str and (not streetstr) and (not divstr) then -- à peu près
−
postcode = nil
+
str = str .. '[[Category:Page utilisant une adresse fournie par Wikidata]]'
−
elseif postcode then
 
−
postcode = wikidata.formatStatement(postcode[1])
 
 
end
 
end
−
-- faaut-il essayer d'ajouter la ville par P131 ? Souvent on en veut pas (par exemple en infobox)
+
return str
−
local val = p.formatAddress(streetstrings, postcode)
+
end
−
if val then return
+
 
−
val .. '[[Category:Page utilisant une adresse fournie par Wikidata]]'
+
function p.wikidataAddress(item, country) -- fonction de transition
 +
local area = formats[country] or formats.default
 +
local val = p.streetAddress(item, area)
 +
if val then
 +
return val .. '[[Category:Page utilisant une adresse fournie par Wikidata]]'
 
end
 
end
 
end
 
end
 
return p
 
return p

Version actuelle datée du 16 septembre 2016 à 08:22

La documentation pour ce module peut être créée à Module:Adresse/doc 

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 getCountry(item) -- get country id for formatting
	return wikidata.formatStatements{property = 'P17', entity = item, displayformat = 'raw', numvals = 1} 
end

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) -- 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, area)
	local housenumber =  numberFromClaim(claim, area)
	local direction = directionFromClaim(claim, area)
	return formatStreet(streetname, housenumber, direction, area)
end

function p.streetAddress(item, area) -- formate la ligne concernant la rue et le numéro de rue
	local streets -- châine contenant le ou les rues et numéros d'immeuble
	area = area or formats[getCountry(item)]
	
	-- 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.formatAndCat{value = streets, entity = item, property = 'P669'}
	end
	-- sinon : P969, type : string
	if not streets then 
		streets =  wikidata.formatAndCat{property = 'P969', entity = item}
	end
	return streets
end

function p.adminDivList(item, country) -- returns a list of admin divisions matching the criteria defined in Module:Adresse/Formats
	country = country or getCountry(item)
	local query = {entity = place, property = 'P131'}
	local divs = wikidata.transitiveVals(item, query, 0, 10, country)
	local validDivs = {}	
	
	-- solution 1: looks for divs of a certain type
	local function setValue(targetclasses, depth)
		local test = {}
		for _, d in pairs(divs) do
			for j, divtype in pairs(targetclasses) do
				if (divtype == '-') then
					if #validDivs > 0 then
						divs = wikidata.addVals(divs, query, 0, 1, country)
					end
					if divs[#divs] == country then
						return nil
					end
					return divs[#divs]
				end
				if wikidata.isInstance(divtype, d, 3) then
					 -- restrain list to new value, will be expanded only if needed
					divs = {d}
					return d
				end
			end
		end
		if depth >= 0 then
			local num = #divs
			divs = wikidata.addVals(divs, query, 0, 10, country)
			if #divs > num then return setValue(targetclasses, depth) end
		end
	end

	-- solution2: looks for divs that are part of a closed list (way more efficient for big items)
	local function findInList(list, depth) 
		for i, j in pairs(divs) do
			for k, l in pairs(list) do
				if j == l then
					divs = {l}
					return l
				end
			end
		end
		if depth >= 0 then
			local num = #divs
			divs = wikidata.addVals(divs, query, 0, 10, country)
			if #divs > num then return findInList(list, depth) end
		end
	end
					
	displayformat = formats[country] or formats.default
	local maxdepth = 3
	if not divs then
		return nil
	end

	if displayformat.div1 then
		local val = setValue(displayformat.div1, maxdepth)
		if val and val ~= validDivs[#validDivs] then
			table.insert(validDivs, val)
		end
	end

	if displayformat.div2 then
		local val = setValue(displayformat.div2, maxdepth)
		if val and val ~= validDivs[#validDivs] then
			table.insert(validDivs, val)
		end
	elseif displayformat.div2vals then
		local val =  findInList(displayformat.div2vals, 1)
		if val and val ~= validDivs[#validDivs] then
			table.insert(validDivs, val)
		end
	end
	
	if displayformat.div3 then
		local val = setValue(displayformat.div3, maxdepth)
		if val and val ~= validDivs[#validDivs] then
			table.insert(validDivs, val)
		end
	elseif displayformat.div3vals then
		local val =  findInList(displayformat.div3vals, 0)
		if val and val ~= validDivs[#validDivs] then
			table.insert(validDivs, val)
		end
	end
	
	return validDivs
end

function p.cityLine(item, country, divlist) -- line with list of admin divisions + optional postcode
	country = country or getCountry(item)
	
	local postcode = wikidata.formatStatements{entity = item, property = 'P281'} or ''
	local divstr = ''
	
	divlist = divlist or p.adminDivList(item, country)
	if not divlist then
		return -- add a maintenance category ?
	end
	for i, j in pairs(divlist) do
		divlist[i] = wikidata.formatEntity(j)
	end
	local divstr = linguistic.conj(divlist, 'comma')

	local formatting = formats[country] or formats.default
	local str = formatting.cityline or formats.default.cityline
	str = str:gsub("$postcode", postcode or '')
	str = str:gsub("$admindivs", divstr or '')
	return str
end

function p.fullAddress(item, country, divs, streetstr, divstr)

	 -- country id used for formatting
	country = country or getCountry(item)
	local displayformat = formats[country] or formats.default

	-- line 1 street
	local streetline = streetstr or p.streetAddress(item, country)
	
	-- line 2: administrative divisions, postcodes
	local cityline = divstr or p.cityLine(item, country, divs)

	if (not cityline) or mw.text.trim(cityline) == '' then
		cityline = nil
	end
	
	-- line 3: country
	local countryline, success = countrymodule.standarddisplay(country)
	if not success then
		countryline = country or wikidata.formatStatements{entity = item, property = ''}
	end
	
	local str = linguistic.conj({streetline, cityline, countryline}, '<br />')
	if str and (not streetstr) and (not divstr) then -- à peu près
		str = str .. '[[Category:Page utilisant une adresse fournie par Wikidata]]'
	end
	return str
end

function p.wikidataAddress(item, country) -- fonction de transition
	local area = formats[country] or formats.default
	local val = p.streetAddress(item, area)
	if val then
		return val .. '[[Category:Page utilisant une adresse fournie par Wikidata]]'
	end
end
return p
Récupérée de « https://lagny-sur-marne.wiki/index.php?title=Module:Adresse&oldid=15990 »