Module:Exclusive

-- l10n text, needs to be translated. local l10n = mw.loadData('Module:exclusive/l10n')

-- exclusive info database, please read the documentation of Module:exclusive/data local exclusive_info = mw.loadData( 'Module:exclusive/data' )

--- The following is not related to l10n. -- local trim = mw.text.trim

local args_table -- cache -- helper function local getArg = function(key) local value = trim(args_table[key] or '') return (value ~= '') and value or nil end

local function parameter(parameter, base) if parameter then if parameter == 'y' or parameter == 'yes' then return 'y'		end if parameter == 'n' or parameter == 'no' then return nil end end return base end

local standAndExtr = function(page) -- standardize pagename (remove section parts ('x#section' -> 'x') and replace underscores with spaces) page = mw.getContentLanguage:ucfirst(string.gsub(string.gsub(page, '#.*', ''), '_', ' ')) -- extract info local raw, ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached = exclusive_info[page] if raw then ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached = raw:find('d'), raw:find('c'), raw:find('o'), raw:find('m'), raw:find('3'), raw:find('j'), 'y'	end return ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached end

local getInfo = function(page, invert, pagenot) local ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached = standAndExtr(page)

-- invert? if invert then ex_d = not ex_d ex_c = not ex_c ex_o = not ex_o ex_m = not ex_m ex_3 = not ex_3 if ex_j then ex_j = false end end -- exclude some versions, depending on pagenot if pagenot then local exnot_d, exnot_c, exnot_o, exnot_m, exnot_3, exnot_j = standAndExtr(pagenot) ex_d = not (ex_d and exnot_d) and ex_d or false -- if both ex_d and exnot_d are something, set to false, else keep ex_d ex_c = not (ex_c and exnot_c) and ex_c or false ex_o = not (ex_o and exnot_o) and ex_o or false ex_m = not (ex_m and exnot_m) and ex_m or false ex_3 = not (ex_3 and exnot_3) and ex_3 or false end

return ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached end

local eicons = function(ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, _small, _link, lang) local link = '' local space = false local size local result = '' local l10n = l10n[lang] or l10n['en'] if ex_d then result = ''			space = true end if ex_c then result = result .. (space and '&thinsp;' or '') .. ''			space = true end if ex_o then result = result .. (space and '&thinsp;' or '') .. ''			space = true end if ex_m then result = result .. (space and '&thinsp;' or '') .. ''			space = true end if ex_3 then result = result .. (space and '&thinsp;' or '') .. ''			space = true end if ex_j then result = result .. (space and '&thinsp;' or '') .. ''		end return mw.text.tag('span',{class='eico'}, result) end

local getExclusiveInfo = function(page, invert, pagenot) local ex_d, ex_c, ex_o, ex_m, ex_3, ex_j if page then ex_d, ex_c, ex_o, ex_m, ex_3, ex_j = getInfo(page, invert, pagenot) end -- override ex_d = parameter(getArg('dsk'), ex_d) ex_c = parameter(getArg('cns'), ex_c) ex_o = parameter(getArg('old'), ex_o) ex_m = parameter(getArg('mbl'), ex_m) ex_3 = parameter(getArg('3ds'), ex_3) ex_j = parameter(getArg('jas'), ex_j)

return ex_d, ex_c, ex_o, ex_m, ex_3, ex_j end

-

return { -- for template; get all exclusive info, set it in dplvars. -- parameters: $1 = pagename, $lang = language, $autotr = apply auto translation on pagename? y/n getInfo = function(frame) args_table= frame.args -- cache local page = getArg(1) if not page then frame:callParserFunction{ name = '#dplvar:set', args = { 'ex_d', , 'ex_c', , 'ex_o', , 'ex_m', , 'ex_3', , 'ex_j', , 'ex_cached', '' } }			return end local ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, cached = getInfo(page, getArg('invert'), getArg('pagenot')) frame:callParserFunction{ name = '#dplvar:set', args = { 'ex_d', ex_d and 'y' or '', 'ex_c', ex_c and 'y' or '', 'ex_o', ex_o and 'y' or '', 'ex_m', ex_m and 'y' or '', 'ex_3', ex_3 and 'y' or '', 'ex_j', ex_j and 'y' or '', 'ex_cached', cached and 'y' or '' } }	end,

-- for eicons = function(frame) args_table = frame.args -- cache local ex_d, ex_c, ex_o, ex_m, ex_3, ex_j = getExclusiveInfo(getArg(1), getArg('invert'), getArg('pagenot')) if not(ex_d or ex_c or ex_o or ex_m or ex_3 or ex_j) then return '' end return eicons(			ex_d, ex_c, ex_o, ex_m, ex_3, ex_j,			getArg('small'), getArg('link'), getArg('lang')		) end,

-- for other modules such as Module:item; simple eicons: simpleEicons = function(page, lang, small, link) local ex_d, ex_c, ex_o, ex_m, ex_3, ex_j = getInfo(page) if not(ex_d or ex_c or ex_o or ex_m or ex_3 or ex_j) then return '' end return eicons(			ex_d, ex_c, ex_o, ex_m, ex_3, ex_j, 			small, link, lang		) end, --purge luacached cache data. purge = function(frame) local cache = require 'mw.ext.LuaCache' cache.delete('exclusive-database') end, }