Modulo:Codice statistico/sandbox: differenze tra le versioni

Versione delle 16:07, 18 gen 2017

Versione delle 14:05, 21 feb 2018

Riga 8:

local mWikidata = require('Modulo:Wikidata')

-- Funzione di formattazione del codice municipale austriaco (Statistik Austria).

local p = {}

--

-- @param {string} id

-- Funzione di formattazione del codice municipale austriaco (Statistik Austria)

-- @return {string}

local function formatP964(id)

local formatted_id = string.gsub(id, "(%d)(%d%d)(%d%d)", "%1 %2 %3")

Riga 16 ⟶ 17:

end

-- Funzione di formattazione del codice municipale tedesco (Statistisches Bundesamt).

--

-- @param {string} id

-- @return {string}

local function formatP439(id)

local formatted_id = string.gsub(id, "(%d%d)(%d)(%d%d)(%d%d%d)", "%1 %2 %3 %4")

Riga 22 ⟶ 26:

end

-- Funzione di formattazione del codice dei distretti tedesco (Statistisches Bundesamt).

--

-- @param {string} id

-- @return {string}

local function formatP440(id)

return string.gsub(id, "(%d%d)(%d)(%d%d)", "%1 %2 %3")

end

-- Funzione di formattazione del codice INSEE
-- (Institut national de la statistique et des études économiques).

--

-- @param {string} id

-- @return {string}

local function formatP374(id)

return string.format('[http://www.insee.fr/fr/themes/dossier_complet.asp?codgeo=COM-%s %s]', id, id)

end

-- Funzione di confrontoformattazione predefinitadel codice municipale IBGE

-- (Instituto Brasileiro de Geografia e Estatística).

--

-- @param {string} id

-- @return {string}

local function formatP1585(id)

return string.format('[http://cidades.ibge.gov.br/xtras/perfil.php?codmun=%s %s]', id, id)

end

-- Funzione di formattazione del codice KSH (Központi Statisztikai Hivatal).

--

-- @param {string} id

-- @return {string}

local function formatP939(id)

return string.format('[http://www.ksh.hu/apps/hntr.telepules?p_id=%s %s]', id, id)

end

-- Funzione di confronto predefinita per le categorie Wikidata.

--

-- @param {string} wdval

-- @param {string} userval

-- @return {boolean}

local function compareDefault(wdval, userval)

return string.gsub(wdval, ' ', '') == string.gsub(userval, ' ', '')

end

-- Funzione di confronto del codice OFS per le categorie Wikidata.

--

-- @param {string} wdval

-- @param {string} userval

-- @return {boolean}

local function compareP771(wdval, userval)

wdval = string.gsub(wdval, ' ', '')

userval = string.gsub(userval, ' ', '')

return wdval == userval or (tonumber(userval) and wdval == string.format('0%04d' .., userval))

end

Riga 48 ⟶ 84:

AUT = {

default = { prop = 'P964', catprefix = 'Codice municipale austriaco', format = formatP964 }

},

BEL = {

default = { prop = 'P1567', catprefix = 'Codice INS' }

},

BRA = {

default = { prop = 'P1585', catprefix = 'Codice municipale IBGE', format = formatP1585 }

},

CHE = {

Riga 59 ⟶ 101:

["3"] = { prop = 'P440', catprefix = 'Codice dei distretti tedesco', format = formatP440 },

default = { prop = 'P439', catprefix = 'Codice municipale tedesco', format = formatP439 }

},

DNK = {

default = { prop = 'P1168', catprefix = 'Codice municipale danese' }

},

ESP = {

Riga 69 ⟶ 114:

["4"] = { prop = 'P2506', catprefix = 'Codice cantone INSEE' },

default = { prop = 'P374', catprefix = 'Codice INSEE', format = formatP374 }

},

HUN = {

default = { prop = 'P939', catprefix = 'Codice KSH', format = formatP939 }

},

ITA = {

default = { prop = 'P635', catprefix = 'Codice ISTAT' }

},

NLD = {

default = { prop = 'P382', catprefix = 'Codice municipale CBS' }

},

NOR = {

default = { prop = 'P2504', catprefix = 'Codice municipale norvegese' }

},

UKR = {

default = { prop = 'P1077', catprefix = 'Codice KOATUU' }

}

}

-- Restituisce la categoria Wikidata appropriata in base

-- al valore utente, a quello su Wikidata e al tipo di codice.

--

-- @param {string} userval

-- @param {string} wdval

-- @return {boolean}

local function getWikidataCategory(userval, wdval, code)

local cat

Riga 91 ⟶ 154:

cat = string.format('%s letto da Wikidata', code.catprefix)

end

return cat and string.format('[[Categoria:%s]]', cat) or ''

end

-- =============================================================================

-- Restituisce una tabella HTML con i codici statistici configurati

-- Funzioni esportate

-- =============================================================================

local p = {}

-- Funzione di utilità per il manuale, restituisce una tabella HTML

-- Restituisce una tabella HTML con i codici statistici configurati.

function p.report()

local tableNode

Riga 120 ⟶ 191:

:tag('th')

:wikitext('Proprietà Wikidata')

:done()

:tag('th')

:wikitext('Dati letti')

:done()

Riga 126 ⟶ 200:

for key, value in pairs(codes) do

if value.prop then

local catLetto = value.catprefix .. ' letto da Wikidata'

local pagesInCat = mw.site.stats.pagesInCategory(catLetto, 'pages')

tableNode

:tag('tr')

Riga 138 ⟶ 214:

:done()

:tag('td')

:wikitext(string.format('[[d:p:%s|%s (%s)]]',
value.prop, mWikidata._getLabel( { value.prop } ), value.prop))

:done()

:tag('td')

:css('text-align', 'right')

:wikitext(string.format('[[:Categoria:%s|%s]]', catLetto, pagesInCat))

:done()

end

Riga 147 ⟶ 228:

end

-- PerFunzione per l'utilizzo da un altro modulo.

function p._main(args)

local code, userval, wdval, formatted_userval, formatted_wdval

Riga 171 ⟶ 252:

-- codice presente e abilitato

if code and code.prop then

-- valore letto da Wikidata

wdval = mWikidata._getProperty({ code.prop, from = args.from, n = 1 })

formatted_wdval = (wdval and code.format) and code.format(wdval) or wdval

Riga 185 ⟶ 266:

end

-- Entry-pointFunzione per il template {{Codice statistico}}.

function p.main(frame)

return p._main(getArgs(frame, { parentOnly = true }))

end