/**
Go to the next entry in the table.
\return Returns true if the iteration is done.
**/
bool LuaStackTableIterator::Next()
{
// This function is only active if Reset() has been called head.
luaplus_assert( IsValid() );
// This is a local helper variable so we don't waste space in the class
// definition.
LuaState* state = m_tableObj.GetState();
// Do any stack management operations.
if ( m_autoStackManagement )
{
state->SetTop( m_startStackIndex + 1 );
}
else
{
// If this luaplus_assert fires, then you left something on the stack.
luaplus_assert( state->GetTop() == m_startStackIndex + 1 );
}
// Do the Lua table iteration.
if ( state->Next( m_tableObj ) == 0 )
{
// Invalidate the iterator.
m_startStackIndex = -1;
return false;
}
// The iterator is still valid.
return true;
}
/**
\return Returns a LuaStackObject describing the current value.
**/
LuaStackObject LuaStackTableIterator::GetValue()
{
// This function is only active if Reset() has been called head.
luaplus_assert( IsValid() );
return LuaStackObject( m_tableObj.GetState(), m_startStackIndex + 2 );
}
/**
\return Returns a LuaObject describing the current value.
**/
LuaObject& LuaTableIterator::GetValue()
{
// This function is only active if Reset() has been called head.
luaplus_assert( IsValid() );
return m_valueObj;
}
void LuaState_UserStateOpen(lua_State* L)
{
#if LUAPLUS_EXTENSIONS
lua_setusergcfunction(L, LuaPlusGCFunction);
#else
luaplus_assert(0);
#endif /* LUAPLUS_EXTENSIONS */
lua_atpanic(L, FatalError);
}
LuaCall::LuaCall(LuaObject& functionObj) :
m_functionObj(functionObj),
m_numArgs(0)
{
luaplus_assert(m_functionObj.IsFunction());
m_state = m_functionObj.GetState();
m_startResults = m_state->GetTop() + 1;
m_functionObj.Push();
}
/**
\param tableObj The table to iterate the contents of.
\param doReset If true, the Reset() function is called at constructor
initialization time, allowing the iterator to be used immediately.
If false, then Reset() must be called before iterating.
**/
LuaTableIterator::LuaTableIterator( const LuaObject& tableObj, bool doReset ) :
m_keyObj(tableObj.GetState()),
m_valueObj(tableObj.GetState()),
m_tableObj(tableObj),
m_isDone(false) {
luaplus_assert(tableObj.IsTable());
// If the user requested it, perform the automatic reset.
if ( doReset )
Reset();
}
/**
Go to the next entry in the table.
\return Returns true if the iteration is done.
**/
bool LuaTableIterator::Next() {
// This function is only active if Reset() has been called head.
luaplus_assert( IsValid() );
// This is a local helper variable so we don't waste space in the class
// definition.
LuaState* state = m_tableObj.GetState();
// Do the Lua table iteration.
m_isDone = !LuaPlusH_next(state, &m_tableObj, &m_keyObj, &m_valueObj);
return !m_isDone;
}
/**
The LuaState class assumes ownership of the lua_State pointer and
destroys it when destroyed.
**/
LuaState::~LuaState()
{
if ( m_state && m_ownState )
{
lua_close( m_state );
MiniLuaObject* headObject = GetHeadObject(); (void)headObject;
MiniLuaObject* tailObject = GetTailObject(); (void)tailObject;
assert((MiniLuaObject*)headObject->m_next == tailObject && "There are still active LuaObjects referencing this state");
luaplus_assert((MiniLuaObject*)headObject->m_next == tailObject);
}
}
/**
Invalidates the iterator. Call this function if you early abort from
an iteration loop (such as before it hits the end).
**/
void LuaStackTableIterator::Invalidate()
{
// See if the iterator is already invalid.
if ( !IsValid() )
return;
// This is a local helper variable so we don't waste space in the class
// definition.
LuaState* state = m_tableObj.GetState();
if ( !m_autoStackManagement )
{
luaplus_assert( state->GetTop() <= m_startStackIndex + 1 );
}
// Set the stack back.
state->SetTop( m_startStackIndex );
// Invalidate the iterator.
m_startStackIndex = -1;
}
