모듈:LuaCall

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
_Gk=tonumber(v) or v -- transfer every parameter directly to the global variable table
end
for k,v in pairs(frame.args or {}) do
_Gk=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 _G1 then
reserved_function,reserved_contents=mw.ustring.match(_G1,"^%s*(%a^%s%(*)%((^%)*)%)%s*$")
end
if reserved_contents then
local reserved_counter=0
repeat
reserved_counter=reserved_counter+1
reserved_valuereserved_counter=_Gmw.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_arraypartreserved_functionpart
end
local reserved_call=reserved_arraypartreserved_function
if type(reserved_call)~="function" then
return tostring(reserved_call)
else reserved_output={reserved_call(unpack(reserved_value))}
return reserved_outputreserved_return or 1
end
end
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+i
end
local function get(s)
	local G = _G; for _ in mw.text.gsplit(
		mw.text.trim(s, '%s'), '%s*%.%s*'
	) do
		G = G_
	end
	return G
end
--
------------------------------------------------------------------------------------
-- call
--
-- This function is usually useful for debugging template parameters.
-- Prefix parameter with backslash (\) to force interpreting parameter as string.
-- The leading backslash will be removed before passed to Lua function.
--
-- Example:
--    3 will return results of mw.log('a', 1, 2, 3)
--     \321  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.args1),
		ipairsAtOffset(frame.args, 1)
	)
end
--local TableTools = require('Module:TableTools')
--
------------------------------------------------------------------------------------
-- get
--
-- Example:
--     math.pi  will return value of math.pi
--    pi will return value of math.pi
--    pi will return value of _G' math '.pi
--     math.pi  will return value of _G' math.pi '
--    obj.a.5.c will return value of obj.a'5'.c
--    c will return value of obj.a5.c
--
------------------------------------------------------------------------------------
--
function p.get(frame)
	-- #frame.args always return 0, regardless of number of unnamed
	-- template parameters, so check manually instead
	if frame.args2 == nil then
		-- not do tonumber() for this args style,
		-- always treat it as string,
		-- so 'obj.1' will mean obj'1' rather obj1
		return get(frame.args1)
	else
		local G = _G
		for _, v in ipairs(frame.args) do
			G = GtonumberOrString(v)
		end
		return G
	end
end
--
------------------------------------------------------------------------------------
-- invoke
--
-- This function is used by Template:Invoke
--
------------------------------------------------------------------------------------
--
function p.invoke(frame)
	local pframe, usedpargs = frame:getParent(), {}
	-- get module and function names from parent args if not provided
	local pfargs = setmetatable({frame.args1, frame.args2}, {__index = table})
	if not pfargs1 then
		pfargs1, usedpargs1 = pframe.args1, true
		if not pfargs2 then
			pfargs2, usedpargs2 = pframe.args2, true
		end
	else
		if not pfargs2 then
			pfargs2, usedpargs1 = pframe.args1, true
		end
	end
	-- repack sequential args
	for i, v in ipairs(pframe.args) do
		if not usedpargsi then
			pfargs:insert(v)
			usedpargsi = true
		end
	end
	-- copy other args
	for k, v in pairs(pframe.args) do
		if not pfargsk and not usedpargsk then
			pfargsk, usedpargsk = v, true
		end
	end
	-- #invoke off parent frame so the new frame has the same parent
	return pframe:callParserFunction{name = '#invoke', args = pfargs}
end
return p