Method GetLocalVariables

Code/CryEngine/CryScriptSystem/ScriptSystem.cpp:276–343

///////////////////////////////////////////////////////////////////// For debugger. /////////////////////////////////////////////////////////////////////

// For debugger.
//////////////////////////////////////////////////////////////////////////
IScriptTable* CScriptSystem::GetLocalVariables(int nLevel, bool bRecursive)
{
	lua_Debug ar;
	const char* name;
	IScriptTable* pObj = CreateTable(true);
	pObj->AddRef();

	// Attach a new table
	const int checkStack = lua_gettop(L);
	lua_newtable(L);
	lua_pushvalue(L, -1);
	AttachTable(pObj);

	// Get the stack frame
	while (lua_getstack(L, nLevel, &ar) != 0)
	{
		// Push a sub-table for this frame (recursive only)
		if (bRecursive)
		{
			assert(lua_istable(L, -1) && "The result table should be on the top of the stack");
			lua_pushinteger(L, nLevel);
			lua_newtable(L);
			lua_pushvalue(L, -1);
			lua_insert(L, -3);
			lua_rawset(L, -4);
			assert(lua_istable(L, -1) && lua_istable(L, -2) && lua_gettop(L) == checkStack + 2 && "There should now be two tables on the top of the stack");
		}

		// Assign variable names and values for the current frame to the table on top of the stack
		int i = 1;
		const int checkInner = lua_gettop(L);
		assert(checkInner == checkStack + 1 + bRecursive && "Too much stack space used");
		assert(lua_istable(L, -1) && "The target table must be on the top of the stack");
		while ((name = lua_getlocal(L, &ar, i++)) != NULL)
		{
			if (strcmp(name, "(*temporary)") == 0)
			{
				// Not interested in temporaries
				lua_pop(L, 1);
			}
			else
			{
				// Push the name, swap the top two items, and set in the table
				lua_pushstring(L, name);
				lua_insert(L, -2);
				assert(lua_gettop(L) == checkInner + 2 && "There should be a key-value pair on top of the stack");
				lua_rawset(L, -3);
			}
			assert(lua_gettop(L) == checkInner && "Unbalanced algorithm problem");
			assert(lua_istable(L, -1) && "The target table should be on the top of the stack");
		}

		// Pop the sub-table (recursive only)
		if (bRecursive)
		{
			assert(lua_istable(L, -1) && lua_istable(L, -2) && "There should now be two tables on the top of the stack");
			lua_pop(L, 1);
		}