Modulo:Software

local mWikidata = require('Modulo:Wikidata')
local getArgs = require('Module:Arguments').getArgs
local conf = mw.loadData('Modulo:Software/Configurazione')

local p = {}

function p._isFreeSoftwareByTemplate(frame)
	local is = nil
	local args = frame and getArgs(frame)
	local v = args['SoftwareLibero']
	if v then
		local yep = {['sì'] = true, ['si'] = true, ['no'] = false}
		v = yep[ mw.ustring.lower(v) ]
	end
	return v
end

function p._isFreeSoftwareByWikidata()
	return mWikidata._instanceOf({'Q341', 'Q1130645'})
end

function p._isProprietarySoftwareByWikidata()
	return mWikidata._instanceOf({'Q218616'})
end

--[[
* La voce è software libero?
*
* @return true|false|nil
]]
function p._isFreeSoftware(frame)
	local is_wd   = p._isFreeSoftwareByWikidata()
	local isnt_wd = p._isProprietarySoftwareByWikidata()
	local is_tp   = p._isFreeSoftwareByTemplate(frame)
	local is = nil
	if is_wd then
		is = true
	end
	if isnt_wd then
		is = false
	end
	if is_tp ~= nil then
		is = is_tp
	end

	--if is_wd == true and isnt_wd == true then
		-- Wikidata nonsense
	--end

	--if is_wd == true and is_tp == true then
		-- Local same as Wikidata
	--

	--if (is_wd == true and is_tp == false) or (isnt_wd == true and is_tp == false) then
		-- Free different from Wikidata
	--

	--if (is_wd ~= nil or isnt_wd ~= nil) and is_tp == false then
		-- Free/proprietary read from Wikidata
	--
	return is
end

function p.isFreeSoftware(frame)
	local is = p._isFreeSoftware(frame)
	if is == nil then
		return nil
	end
	return is and 'sì' or 'no'
end

--[[
* La voce specifica un linguaggio di programmazione?
*
* @return true|nil
]]
function p._specifiesALanguage(frame)
	local args = frame and getArgs(frame)
	return args['Linguaggio'] or args['NotaLinguaggio'] or args['LinguaggioAltri'] or mWikidata._getClaims('P277')
end

function p.specifiesALanguage(frame)
	return p._specifiesALanguage(frame) and 'sì' or 'no'
end

--[[
* La voce dovrebbe specificare un linguaggio?
*
* @return true|nil
]]
function p._shouldHaveALanguage(frame)
	return p._isFreeSoftware(frame) or p._specifiesALanguage(frame)
end

function p.shouldHaveALanguage(frame)
	return p._shouldHaveALanguage(frame) and 'sì' or 'no'
end

--[[
* 'cpp' → 'c++'
* 'c++' → 'c++'
]]
function p._preferredLanguageSlug(slug)
	if slug then
		slug = string.lower(slug)
	end
	return conf.languageSlugAlias[slug] or slug
end

--[[
* Reverse tree di Modulo:Software/Configurazione
*
* 'cpp' → 'Q2407'
]]
local _languageSlugToWikidata = {}
function p._languageSlugToWikidata(slug)
	if next(_languageSlugToWikidata) == nil then
		for q,l in pairs(conf.wikidataToLanguageSlug) do
			_languageSlugToWikidata[l] = q
		end
	end
	return _languageSlugToWikidata[ p._preferredLanguageSlug(slug) ]
end

function p.languageSlugToWikidata(frame)
	return p._languageSlugToWikidata( getArgs(frame)[1] )
end

--[[
* @return string[] = 'c' => 'nota linguaggio c', 'c++' = '', ..
]]
function p._getTemplateLanguages(frame)
	local languages = {}
	local args = frame and getArgs(frame)
	local v = args['Linguaggio']
	if v then
		languages[ p._preferredLanguageSlug(v) ] = args['NotaLinguaggio'] or ''
	end
	for i=1,3 do
		v = args['Linguaggio' .. i]
		if v then
			languages[ p._preferredLanguageSlug(v) ] = args['NotaLinguaggio' .. i] or ''
		end
	end
	return languages
end

function p.languages(frame)
	local s = ''

	--[[
	* Argomenti ereditati dal Template:Software e da Wikidata
	]]
	local args = frame and getArgs(frame)
	local categorizza = args['Categorie']
	local libero = p.isFreeSoftware(frame)

	--[[
	* Linguaggi dal Template:Software e da Wikidata
	]]
	local tl_languages = p._getTemplateLanguages(frame)
	local wd_languages = mWikidata._getClaims('P277')
	local altri = args['LinguaggioAltri']

	-- È il namespace principale?
	local nszero = mw.title.getCurrentTitle().namespace == 0

	-- Tutti i linguaggi sono identificati?
	local allFound = true

	-- Il template si è arricchito grazie a Wikidata?
	local improved = false

	-- Il template non mostra alcun linguaggio?
	local noLanguages = true

	if wd_languages then
		for i, language in pairs(wd_languages) do
			local wikidataID = mWikidata._formatStatement(language, {formatting = 'raw'})
			language = conf.wikidataToLanguageSlug[wikidataID]
			if language then
				if tl_languages[language] == nil then
					-- 'c' = 'nota linguaggio c'
					tl_languages[language] = ''
					noLanguages = false
					improved = true
				end
			else
				allFound = false
			end
		end

		if nszero then
			if improved then
				if tl_languages or altri then
					-- c'è sia in Wikidata che nel template
					s = s .. '[[Categoria:Linguaggio di programmazione differente da Wikidata]]'
				else
					-- c'è in Wikidata ma non nel template
					s = s .. '[[Categoria:Linguaggio di programmazione letto da Wikidata]]'
				end
			else
				-- c'è in Wikidata ma uguale nel template
				s = s .. '[[Categoria:Linguaggio di programmazione uguale a Wikidata]]'
			end
		end
	else
		if tl_languages and nszero then
			-- solo se il template specifica linguaggi ma Wikidata no
			s = s .. '[[Categoria:Linguaggio di programmazione assente su Wikidata]]'
		end
	end

	if noLanguages and nszero then
		if p._isFreeSoftware(frame) then
			s = s .. '[[Categoria:Software libero senza linguaggio]]'
		else
			s = s .. '[[Categoria:Software senza linguaggio]]'
		end
	end

	if not allFound and nszero then
		s = s .. '[[Categoria:Linguaggio di programmazione da Wikidata non previsto]]'
	end

	local i = 0
	for language, note in pairs(tl_languages) do
		local glue = i > 0 and '<br />' or ''
		s = s .. glue .. frame:expandTemplate{
			title = 'Software/Linguaggio',
			args = {language, categorizza, libero}
		} .. note
		i = i + 1
	end

	if altri then
		s = s .. altri
	end

	return s
end

return p