Module:Format TemplateData/global
Documentation for this module may be created at Module:Format TemplateData/global/doc
local Export = { suite = "TemplateDataGlobal", serial = "2018-04-15", item = 51435481, subpages = "TemplateData", suffix = "tab" } --[=[ Retrieve TemplateData from Commons:Data (or other global source) require() Inspired by [[User:Yurik]]. ]=] local function failsafe( assert ) -- Retrieve versioning and check for compliance -- Precondition: -- assert -- string, with required version or "wikidata", -- or false -- Postcondition: -- Returns string with appropriate version, or false local since = assert local r if since == "wikidata" then local item = Export.item since = false if type( item ) == "number" and item > 0 then local entity = mw.wikibase.getEntity( string.format( "Q%d", item ) ) if type( entity ) == "table" then local vsn = entity:formatPropertyValues( "P348" ) if type( vsn ) == "table" and type( vsn.value) == "string" and vsn.value ~= "" then r = vsn.value end end end end if not r then if not since or since <= Export.serial then r = Export.serial else r = false end end return r end -- failsafe() local function fair( already, adapt, append ) -- Merge local definitions into global base -- Parameter: -- already -- global item -- adapt -- local override item -- append -- append to sequence table -- Returns merged item local r if already and adapt then if type( already ) == "table" and type( adapt ) == "table" then r = already if append then for i = 1, #adapt do table.insert( r, adapt[ i ] ) end -- for i else for k, v in pairs( adapt ) do r[ k ] = v end -- for k, v end else r = adapt end else r = already or adapt end return r end -- fair() local function feed( apply ) -- Retrieve override from JSON code -- Parameter: -- apply -- string, with JSON -- Returns string, with error message, or table local lucky, r = pcall( mw.text.jsonDecode, apply ) if not lucky then r = "fatal JSON error in LOCAL override" end return r end -- feed() local function find( access ) -- Fetch data from page -- Parameter: -- access -- string, with core page name -- Returns -- 1. string, with prefixed page name -- 2. table with JSON data, or error message local storage = access local lucky, r if Export.suffix and not storage:find( ".", 2, true ) then local k = -1 - #Export.suffix if storage:sub( k ) ~= "." .. Export.suffix then storage = string.format( "%s.%s", storage, Export.suffix ) end end if Export.subpages and not storage:find( "/", 1, true ) then storage = string.format( "%s/%s", Export.subpages, storage ) end lucky, r = pcall( mw.ext.data.get, storage, "_" ) storage = "Data:" .. storage if mw.site.siteName ~= "Wikimedia Commons" then storage = "commons:" .. storage end if type( r ) ~= "table" and type( r ) ~= "string" then r = "INVALID" end return storage, r end -- find() local function flat( apply ) -- Convert tabular data into TemplateData -- Parameter: -- apply -- table, with tabular data -- Returns string, with error message, or table, with TemplateData local r, scream local function failed( at, alert ) if scream then scream = string.format( "%s * #%d: %s", scream, at, alert ) else scream = add end end -- failed() if type( apply.schema ) == "table" and type( apply.schema.fields ) == "table" and type( apply.data ) == "table" then local order = { } local entry, got, params, parOrder, s, sign, td, v for k, v in pairs( apply.schema.fields ) do if type( v ) == "table" then table.insert( order, v.name ) end end -- for k, v for i = 1, #apply.data do entry = apply.data[ i ] if type( entry ) == "table" then got = { } sign = false for j = 1, #entry do s = order[ j ] v = entry[ j ] if type( v ) == "string" then v = mw.text.trim( v ) if v == "" then v = false end end if v then if s == "name" then sign = v elseif s == "aliases" then if type( v ) == "string" then got.aliases = mw.text.split( v, "%s*|%s*" ) else failed( i, "aliases not a string" ) end else got[ s ] = v end end end -- for j if sign == "|" then if td then failed( i, "root repeated" ) else td = { description = got.description } if type( got.type ) == "string" then td.format = got.type:gsub( "N", "\n" ) end end elseif sign then if params then if params[ sign ] then failed( i, "name repeated: " .. sign ) end else params = { } parOrder = { } end params[ sign ] = got table.insert( parOrder, sign ) else failed( i, "missing name" ) end else failed( i, "invalid component" ) end end -- for i r = td or { } r.params = params r.paramOrder = parOrder else r = "bad tabular structure" end return scream or r or "EMPTY" end -- flat() local function flush( assembly, avoid ) -- Remove element from sequence table -- Parameter: -- assembly -- sequence table -- avoid -- element for i = 1, #assembly do if assembly[ i ] == avoid then table.remove( assembly, i ) break -- for i end end -- for i end -- flush() local function fold( already, adapt ) -- Merge local parameter definitions into global base -- Parameter: -- already -- table, with global data -- adapt -- sequence table, with local params overrides -- Returns string, with error message, or table, with TemplateData local order = { } local params = { } local r = already local entry, override, s r.params = r.params or { } r.paramOrder = r.paramOrder or { } for i = 1, #adapt do override = adapt[ i ] if type( override ) ~= "table" then r = string.format( "No object at LOCAL params[%d]", i ) break -- for i elseif type( override.global ) == "string" then s = override.global entry = r.params[ s ] if type( entry ) == "table" then flush( r.paramOrder, s ) if type( override["local"] ) == "string" then s = override["local"] override["local"] = nil elseif override["local"] == false then entry = nil end if entry then override.global = nil for k, v in pairs( override ) do entry[ k ] = fair( entry[ k ], override[ k ], ( k == "aliases" ) ) end -- for k, v table.insert( order, s ) end params[ s ] = entry else r = string.format( "No GLOBAL params %s for LOCAL [%d]", s, i ) break -- for i end elseif type( override["local"] ) == "string" then s = override["local"] override["local"] = nil params[ s ] = override table.insert( order, s ) else r = string.format( "No name for LOCAL params[%d]", i ) break -- for i end end -- for i if type( r ) == "table" then for i = 1, #r.paramOrder do s = r.paramOrder[ i ] params[ s ] = r.params[ s ] table.insert( order, s ) end -- for i r.params = params r.paramOrder = order end return r end -- fold() local function fork( already, adapt ) -- Merge local definitions into global base -- Parameter: -- already -- table, with global data -- adapt -- table, with local overrides -- Returns string, with error message, or table, with TemplateData local root = { "description", "format", "maps", "sets", "style" } local r = already for k, v in pairs( root ) do if adapt[ v ] then r[ v ] = fair( r[ v ], adapt[ v ] ) end end -- for k, v if type( adapt.params ) == "table" then r = fold( r, adapt.params ) end return r end -- fork() local function furnish( apply, at, adapt ) -- Convert external data into TemplateData -- Parameter: -- apply -- table, with external data -- at -- string, with page name -- adapt -- JSON string or table or not, with local overrides -- Returns string, with error message, or table, with TemplateData local r if at:sub( -4 ) == ".tab" then r = flat( apply ) else r = "Unknown page format: " .. at end if adapt and type( r ) == "table" then local override = adapt if type( adapt ) == "string" then override = feed( adapt ) if type( override ) == "string" then r = override end end if type( override ) == "table" then r = fork( r, override ) end end return r end -- furnish() Export.failsafe = function ( frame ) -- Versioning interface local s = type( frame ) local since if s == "table" then since = frame.args[ 1 ] elseif s == "string" then since = frame end if since then since = mw.text.trim( since ) if since == "" then since = false end end return failsafe( since ) or "" end -- Export.failsafe() Export.fetch = function ( access, adapt ) -- Fetch data from site -- Parameter: -- access -- string, with page specification -- adapt -- JSON string or table or not, with local overrides -- Returns -- 1. string, with error message or prefixed page name -- 2. table with TemplateData, or not local storage, t = find( access ) local s if type( t ) == "table" then t = furnish( t, storage, adapt ) if type( t ) ~= "table" then s = t end else s = t end if type( t ) ~= "table" then storage = string.format( "[[%s]]", storage ) if s then storage = string.format( "%s * %s", storage, s ) end t = false end return storage, t end -- Export.fetch() return Export