Module:TNTTools - Revision history

Gonnym: fix

2025-02-18T12:50:35Z

fix

← Previous revision		Revision as of 12:50, 18 February 2025
Line 22:		Line 22:
	end		end

	function I18nStr (TNTTab, S, IsMsg, params)		local function I18nStr (TNTTab, S, IsMsg, params)
	TNTTab = p.TNTTabFull (TNTTab)		TNTTab = p.TNTTabFull (TNTTab)
	local SEnd = TNT.format(TNTTab, S, unpack(params)) or ''		local SEnd = TNT.format(TNTTab, S, unpack(params)) or ''

Gonnym: add require('strict')

2025-02-18T12:49:29Z

add require('strict')

← Previous revision		Revision as of 12:49, 18 February 2025
Line 1:		Line 1:
			require('strict')
	local p = {}		local p = {}

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

	function p.TNTTabFull (TNTTab)		function p.TNTTabFull (TNTTab)

Trappist the monk: not used? see Wikipedia talk:Lua#Help find and remove a testing module

2020-07-20T15:13:53Z

not used? see Wikipedia talk:Lua#Help find and remove a testing module

← Previous revision		Revision as of 15:13, 20 July 2020
Line 2:		Line 2:

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

	function p.TNTTabFull (TNTTab)		function p.TNTTabFull (TNTTab)

Jmarchn at 11:59, 12 November 2019

2019-11-12T11:59:41Z

@@ Line 14: / Line 14: @@
 end --TNTTabFull
-function p.GetSTransWithParams (TNTTab, S, ...)
+function p.TNTTabCommons (TNTTab)
-	return TNT.format (p.TNTTabFull(TNTTab), S, {...}) or ''
+	return 'Commons:Data:'..p.TNTTabFull(TNTTab)
 end

Jmarchn at 18:26, 6 November 2019

2019-11-06T18:26:11Z

← Previous revision		Revision as of 18:26, 6 November 2019
Line 2:		Line 2:

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

	function TNTTabFull (TNTTab)		function p.TNTTabFull (TNTTab)
	if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' then		if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' then
	TNTTab = 'I18n/'..TNTTab		TNTTab = 'I18n/'..TNTTab
Line 14:		Line 15:

	function p.GetSTransWithParams (TNTTab, S, ...)		function p.GetSTransWithParams (TNTTab, S, ...)
	return TNT.format (TNTTabFull(TNTTab), S, {...}) or ''		return TNT.format (p.TNTTabFull(TNTTab), S, {...}) or ''
	end		end

	function p.TabTransCS (TNTTab, S, CaseSensitive)		function p.TabTransCS (TNTTab, S, CaseSensitive)
	CaseSensitive = ((CaseSensitive ~= nil) and (CaseSensitive == true)) or true		CaseSensitive = ((CaseSensitive ~= nil) and (CaseSensitive == true)) or true
	local Wds = TNT.format (TNTTabFull(TNTTab), S)		local Wds = TNT.format (p.TNTTabFull(TNTTab), S)
	if not CaseSensitive then		if not CaseSensitive then
	Wds = string.lower (Wds)		Wds = string.lower (Wds)
Line 27:		Line 28:

	function p.TabTransMT (TNTTab, S, MaxTrans)		function p.TabTransMT (TNTTab, S, MaxTrans)
	local FN = TNTTabFull(TNTTab)		local FN = p.TNTTabFull(TNTTab)
	local tab = mw.text.split (TNT.format (FN, S), '\|')		local tab = mw.text.split (TNT.format (FN, S), '\|')
	if #tab > MaxTrans then		if #tab > MaxTrans then

Jmarchn at 19:59, 26 October 2019

2019-10-26T19:59:45Z

← Previous revision		Revision as of 19:59, 26 October 2019
Line 2:		Line 2:

	local TNT = require('Module:TNT')		local TNT = require('Module:TNT')
	local SA = require('Module:SimpleArgs')

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

	function p.GetSTransWithParams (TNTTab, S, ...)		function p.GetSTransWithParams (TNTTab, S, ...)
	return TNT.format (TNTTabFull(TNTTab), S, {...}) or ''		return TNT.format (TNTTabFull(TNTTab), S, {...}) or ''
	end		end

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

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

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

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

	function p.Str (frame)
	local args, NArgs = SA.GetArgs (frame)
	local tab = SA.GetStrArgsFromPos (args, NArgs, 3)
	return TNT.format (TNTTabFull(args[1]), args[2], unpack(tab))
	end --Str

	function p.FoundStrBool (frame)
	local args = SA.GetArgs (frame)
	return p.SFoundInTNTArr (args[1], args[2], SA.GetBoolFromArgs (args,3), args[4])
⚫	end

	function p.FoundStrNum (frame)
	local args = SA.GetArgs (frame)
	if p.SFoundInTNTArr (args[1], args[2], SA.GetBoolFromArgs (args,3), args[4]) then
	return 1
	else
	return 0
	end
	end --FoundStrNum

	function p.FoundIdx (frame)
	local args, NArgs = SA.GetArgs (frame)
	local tab = SA.GetStrArgsFromPos (args, NArgs, 4)
	return p.IdxFromTabTrans (args[1], args[2], SA.GetBoolFromArgs (args,3), tab)
	end --FoundIdx

	return p		return p

Jmarchn at 12:25, 25 October 2019

2019-10-25T12:25:22Z

Show changes

Jmarchn: ←Created page with 'local p = {} local TNT = require('Module:TNT') local SA = require('Module:SimpleArgs') function TNTTabFull (TNTTab) if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' t...'

2019-10-24T19:58:00Z

←Created page with 'local p = {} local TNT = require('Module:TNT') local SA = require('Module:SimpleArgs') function TNTTabFull (TNTTab) if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' t...'

New page

local p = {}

local TNT = require('Module:TNT')
local SA = require('Module:SimpleArgs')

function 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.GetTabTrans (TNTTab, S, CaseSensitive)
CaseSensitive = ((CaseSensitive ~= nil) and (CaseSensitive == true)) or true
local Wds = TNT.format (TNTTabFull(TNTTab), S)
if not CaseSensitive then
Wds = string.lower (Wds)
end
return mw.text.split (Wds, '|')
end --GetTabTrans

function p.GetSTransWithParams (TNTTab, S, ...)
return TNT.format (TNTTabFull(TNTTab), S, {...}) or ''
end

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

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.GetTabTrans (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

function p.Str (frame)
local args, NArgs = SA.GetArgs (frame)
local tab = SA.GetStrArgsFromPos (args, NArgs, 3)
return TNT.format (TNTTabFull(args[1]), args[2], unpack(tab))
end --Str

function p.FoundStrBool (frame)
local args = SA.GetArgs (frame)
return p.SFoundInTNTArr (args[1], args[2], SA.GetBoolFromArgs (args,3), args[4])
end

function p.FoundStrNum (frame)
local args = SA.GetArgs (frame)
if p.SFoundInTNTArr (args[1], args[2], SA.GetBoolFromArgs (args,3), args[4]) then
return 1
else
return 0
end
end --FoundStrNum

function p.FoundIdx (frame)
local args, NArgs = SA.GetArgs (frame)
local tab = SA.GetStrArgsFromPos (args, NArgs, 4)
return p.IdxFromTabTrans (args[1], args[2], SA.GetBoolFromArgs (args,3), tab)
end --FoundIdx

return p