Module:TNTTools explained

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 TNTTabend --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 = '' SEnd = SEnd..icon end end return SEndend --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 ',#tab,S,FN)) -- Translation not required end return tabend --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 falseend --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 Idxend --IdxFromTabTrans

return p