local p=
function p.main(frame) local parent=frame.getParent(frame) or local reserved_value= local reserved_function,reserved_contents for k,v in pairs(parent.args or) do _G[k]=tonumber(v) or v -- transfer every parameter directly to the global variable table end for k,v in pairs(frame.args or) do _G[k]=tonumber(v) or v -- transfer every parameter directly to the global variable table end --- Alas Scribunto does NOT implement coroutines, according to --- http://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual#string.format --- this will not stop us from trying to implement one single lousy function call if _G[1] then reserved_function,reserved_contents=mw.ustring.match(_G[1],"^%s*(%a[^%s%(]*)%(([^%)]*)%)%s*$") end if reserved_contents then local reserved_counter=0 repeat reserved_counter=reserved_counter+1 reserved_value[reserved_counter]=_G[mw.ustring.match(reserved_contents,"([^%,]+)")] reserved_contents=mw.ustring.match(reserved_contents,"[^%,]+,(.*)$") until not reserved_contents end local reserved_arraypart=_G while mw.ustring.match(reserved_function,"%.") do reserved_functionpart,reserved_function=mw.ustring.match(reserved_function,"^(%a[^%.]*)%.(.*)$") reserved_arraypart=reserved_arraypart[reserved_functionpart] end local reserved_call=reserved_arraypart[reserved_function] if type(reserved_call)~="function" then return tostring(reserved_call) else reserved_output= return reserved_output[reserved_return or 1] endend
local function tonumberOrString(v) return tonumber(v) or v:gsub("^\\", "", 1)end
local function callWithTonumberOrStringOnPairs(f, ...) local args = for _, v in ... do table.insert(args, tonumberOrString(v)) end return (f(unpack(args)))end
---------------------------------------------------------------------------------------- ipairsAtOffset
-- This is an iterator for arrays. It can be used like ipairs, but with-- specified i as first index to iterate. i is an offset from 1----------------------------------------------------------------------------------------
local function ipairsAtOffset(t, i) local f, s, i0 = ipairs(t) return f, s, i0+iendlocal function get(s) local G = _G; for _ in mw.text.gsplit(mw.text.trim(s, '%s'), '%s*%.%s*' ) do G = G[_] end return Gend
--call|mw.log|a|1|2|3}} will return results of mw.log('a', 1, 2, 3)-- will return results of mw.logObject('a', 321, '321', ' \\321 ')---- This example show the debugging to see which Unicode characters are allowed in template parameters,-- return 97-- return 65533-- return 65533-- return 0xfffd-- return 0x007e-- return 0x007f-- return 0x0080-- return 0x00a0----------------------------------------------------------------------------------------function p.call(frame) return callWithTonumberOrStringOnPairs(get(frame.args[1]), ipairsAtOffset(frame.args, 1) )end
--local TableTools = require('Module:TableTools')--get| math.pi }} will return value of math.pi-- will return value of math.pi-- will return value of _G[' math '].pi-- will return value of _G[' math.pi ']-- will return value of obj.a['5'].c-- will return value of obj.a[5].c----------------------------------------------------------------------------------------function p.get(frame) -- #frame.args always return 0, regardless of number of unnamed -- template parameters, so check manually instead if frame.args[2]
--function p.invoke(frame) local pframe, usedpargs = frame:getParent, -- get module and function names from parent args if not provided local pfargs = setmetatable if not pfargs[1] then pfargs[1], usedpargs[1] = pframe.args[1], true if not pfargs[2] then pfargs[2], usedpargs[2] = pframe.args[2], true end else if not pfargs[2] then pfargs[2], usedpargs[1] = pframe.args[1], true end end -- repack sequential args for i, v in ipairs(pframe.args) do if not usedpargs[i] then pfargs:insert(v) usedpargs[i] = true end end -- copy other args for k, v in pairs(pframe.args) do if not pfargs[k] and not usedpargs[k] then pfargs[k], usedpargs[k] = v, true end end -- #invoke off parent frame so the new frame has the same parent return pframe:callParserFunctionend
return p