https://3rabica.org/index.php?action=history&feed=atom&title=%D9%88%D8%AD%D8%AF%D8%A9%3ALuaCall 2026-06-05T15:39:34Z تاريخ التعديل لهذه الصفحة في الويكي MediaWiki 1.43.7 https://3rabica.org/index.php?title=%D9%88%D8%AD%D8%AF%D8%A9:LuaCall&diff=1003&oldid=prev 2016-08-30T22:03:18Z

<p>أنشأ الصفحة ب&#039;local p={} function p.main(frame) local parent=frame.getParent(frame) or {} local reserved_value={} local reserved_function,reserved_contents for k,v in...&#039;</p> <p><b>صفحة جديدة</b></p><div>local p={}<br /> <br /> function p.main(frame)<br /> local parent=frame.getParent(frame) or {}<br /> local reserved_value={}<br /> local reserved_function,reserved_contents<br /> for k,v in pairs(parent.args or {}) do<br /> if tonumber(v)~=NaN then v=tonumber(v) end<br /> _G[k]=v -- transfer every parameter directly to the global variable table<br /> -- debuglog=debuglog..k..&quot;=&quot;..v..&quot;&lt;/nowiki&gt;&lt;br /&gt;&lt;nowiki&gt;&quot;<br /> end<br /> for k,v in pairs(frame.args or {}) do<br /> if tonumber(v)~=NaN then v=tonumber(v) end <br /> _G[k]=v -- transfer every parameter directly to the global variable table<br /> end<br /> --- Alas Scribunto does NOT implement coroutines, according to<br /> --- http://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual#string.format<br /> --- this will not stop us from trying to implement one single lousy function call<br /> if _G[1] then<br /> reserved_function,reserved_contents=mw.ustring.match(_G[1],&quot;^%s*(%a[^%s%(]*)%(([^%)]*)%)%s*$&quot;)<br /> end<br /> if reserved_contents then<br /> local reserved_counter=0<br /> repeat<br /> reserved_counter=reserved_counter+1<br /> reserved_value[reserved_counter]=_G[mw.ustring.match(reserved_contents,&quot;([^%,]+)&quot;)]<br /> reserved_contents=mw.ustring.match(reserved_contents,&quot;[^%,]+,(.*)$&quot;)<br /> until not reserved_contents<br /> end<br /> local reserved_arraypart=_G<br /> while mw.ustring.match(reserved_function,&quot;%.&quot;) do<br /> reserved_functionpart,reserved_function=mw.ustring.match(reserved_function,&quot;^(%a[^%.]*)%.(.*)$&quot;)<br /> reserved_arraypart=reserved_arraypart[reserved_functionpart]<br /> end<br /> local reserved_call=reserved_arraypart[reserved_function]<br /> if type(reserved_call)~=&quot;function&quot; then<br /> return tostring(reserved_call)<br /> elseif reserved_debug or not reserved_function then return mw.text.nowiki(debuglog)<br /> else reserved_output={reserved_call(unpack(reserved_value))}<br /> return reserved_output[reserved_return or 1]<br /> end<br /> end<br /> return p</div>

عبد العزيز