Módulo:TNTTools

Llamadas y funciones ligadas al Módulo:TNT, que a la vez hacen llamadas a tablas multilingües, situadas en Commons, para la creación de módulos y plantillas multilingües. El Módulo:SimpleArgs, pensado para crear módulos multilingües, utiliza estas tablas para los mensajes de error.

TNTTools dispone de:

• Funciones de interrogación: con retorno booleano o numérico indexado. Para ser llamadas desde otros módulos o desde plantillas. con:
  • Opción de discriminar o no mayúsculas y minúsculas.
  • Posibilidad de más de un valor traducido (donde cada valor es separado por "|").
• Para ahorrar escritura, en el nombre de las tablas añade "I18n/" como prefijo y la extensión ".tab" como sufijo.

Un ejemplo es Módulo:YesnoTNT y la plantilla {{YesnoTNT}}.

Por ejemplo, con un parámetro que tiene dos o más acepciones:

local p = {}
local SA = require "Module:SimpleArgs"
local TNTT = require "Module:TNTTools"
local function I18nStrTab (S)
  return TNTT.TabTransMT ('TableName',S)
  --en este caso 'P_Title' de 'II18n/TableName.tab' contiene 'title' y 'título' así 'title|título'
end
function p.main (frame)
  args = SA.GetArgs (frame)
  local title = SA.SArgs.StrFromArgs (args, I18nStrTab('P_Title'))
  --title tomará el valor del parámetro |title= o |título=
  ...
end
return p

El Módulo:ArgsTNT', pensado para crear plantillas multilingües, permite obtener valores de parámetros (pasados por frame) con varias claves para el mismo parámetro.

---

local p = {}

local TNT = require('Module:TNT')
local SD = require('Module:SimpleDebug')

function p.TNTTabFull (TNTTab)
	if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' then
		TNTTab = 'I18n/'..TNTTab
	end	
	if (string.sub(TNTTab, string.len(TNTTab)-3)) ~= '.tab' then
		TNTTab = TNTTab..'.tab'
	end	
	return TNTTab
end --TNTTabFull

function p.TNTTabCommons (TNTTab)
	return 'Commons:Data:'..p.TNTTabFull(TNTTab)
end	

function p.LnkTNTTab (TNTTab)
	return '[['..p.TNTTabCommons(TNTTab)..']]'
end

function I18nStr (TNTTab, S, IsMsg, params)
	TNTTab = p.TNTTabFull (TNTTab)
	local SEnd = TNT.format(TNTTab, S, unpack(params)) or ''
	if SEnd == '' then
		SEnd = TNT.formatInLanguage('en',TNTTab, S, unpack(params))
		if IsMsg then
			local icon = '[[File:Arbcom ru editing.svg|12px|Not found "'..S..'" in current language. Click here for to edit it.|link='..p.TNTTabCommons(TNTTab)..']]'
			SEnd = SEnd..icon	
		end	
	end	
	return SEnd
end --I18nStr

function p.GetMsgP (TNTTab, S, ...)
	return I18nStr (TNTTab, S, true, {...})
end

function p.GetStrP (TNTTab, S, ...)
	return I18nStr (TNTTab, S, false, {...})
end

function p.TabTransCS (TNTTab, S, CaseSensitive)
	CaseSensitive = ((CaseSensitive ~= nil) and (CaseSensitive == true)) or true
	local Wds = TNT.format (p.TNTTabFull(TNTTab), S)
	if not CaseSensitive then
		Wds = string.lower (Wds)
	end	
    return mw.text.split (Wds, '|')
end --TabTransCS

function p.TabTransMT (TNTTab, S, MaxTrans)
	local FN = p.TNTTabFull(TNTTab)
	local tab = mw.text.split (TNT.format (FN, S), '|')
	if #tab > MaxTrans then
		error (string.format('Found %s translations for "%s". Search in [[:commons:data:%s]]',#tab,S,FN)) 
							-- Translation not required
	end
	return tab
end --TabTransMT

function p.SFoundInTNTArr (TNTTab, val, CaseSensitive, S)
	if (S == nil) or (S == '') then
		error('Not arguments trying to find "'..val..'"') --It doesn't require translation, only for degug
	end	
	local Arr = p.TabTransCS (TNTTab, S, CaseSensitive)
	if not CaseSensitive then
		val = string.lower (val)
	end	
	for I, W in ipairs(Arr) do
		if W == val then
			return true
		end	
	end	
	return false
end --SFoundInTNTArr

function p.IdxFromTabTrans (TNTTab, val, CaseSensitive, ...)
	local Arr = unpack(arg)
	if Arr == nil then
		error('Not arguments trying to find "'..val..'"') --It doesn't require translation, only for degug
	end	
	local Idx = 0
	for I, W in ipairs(Arr) do
		if p.SFoundInTNTArr (TNTTab, val, CaseSensitive, W) then
			Idx = I
			break
		end	
	end	
	return Idx
end	--IdxFromTabTrans

return p