Method GetLocalVariables

CryScriptSystem/ScriptSystem.cpp:95–131

LUA_API void alberto_pushfunc(lua_State *L, HSCRIPTFUNCTION func) { L->top->value.cl =(struct Closure *) func; ttype(L->top) = LUA_TFUNCTION; incr_top;//(L); }*/

incr_top;//(L);
}*/
IScriptObject *CScriptSystem::GetLocalVariables(int nLevel)
{
	Validate();
	IScriptObject *pObj;
	lua_Debug ar;
	nLevel=0;
	const char *name;
	lua_newtable(m_pLS);
	int nTable=lua_ref(m_pLS,1);
	lua_getref(m_pLS,nTable);
	pObj=CreateEmptyObject();
	pObj->Attach();
	while(lua_getstack(m_pLS, nLevel, &ar) != 0)
	{
		//return 0; /* failure: no such level in the stack */

		//create a table and fill it with the local variables (name,value)

		int i = 1;
		while ((name = lua_getlocal(m_pLS, &ar, i)) != NULL) 
		{
			lua_getref(m_pLS,nTable);
			lua_pushstring(m_pLS,name);
			//::OutputDebugString(name);
			//::OutputDebugString("\n");
			lua_pushvalue(m_pLS,-3);
			lua_rawset(m_pLS,-3);
			//pop table and value
			lua_pop(m_pLS,2);
			i++;
		}
		nLevel++;
	}
	
	Validate();
	return pObj;
}

#define LEVELS1	12	/* size of the first part of the stack */
#define LEVELS2	10	/* size of the second part of the stack */