/*     Copyright 2015-2016 Egor Yusov
 *  
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 * 
 *     http://www.apache.org/licenses/LICENSE-2.0
 * 
 *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 *  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 *  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF ANY PROPRIETARY RIGHTS.
 *
 *  In no event and under no legal theory, whether in tort (including negligence), 
 *  contract, or otherwise, unless required by applicable law (such as deliberate 
 *  and grossly negligent acts) or agreed to in writing, shall any Contributor be
 *  liable for any damages, including any direct, indirect, special, incidental, 
 *  or consequential damages of any character arising as a result of this License or 
 *  out of the use or inability to use the software (including but not limited to damages 
 *  for loss of goodwill, work stoppage, computer failure or malfunction, or any and 
 *  all other commercial damages or losses), even if such Contributor has been advised 
 *  of the possibility of such damages.
 */

#pragma once

#ifdef _DEBUG

class LuaStackHeightTracker
{
public:
    LuaStackHeightTracker( lua_State *L ) :
        m_L( L ),
        m_StackTop(0)
    {
        Record();
    }

    void Record()
    {
        m_StackTop = lua_gettop( m_L );
    }

    void Check(int Adjustment = 0)
    {
        auto CurrHeight = lua_gettop( m_L );
        VERIFY( CurrHeight == m_StackTop + Adjustment, "Unexpected stack height" );
    }
private:
    lua_State *m_L;
    int m_StackTop;
};

#define INIT_LUA_STACK_TRACKING(L) LuaStackHeightTracker LuaStackHeightTracker(L)
#define RECORD_LUA_STACK_HEIGHT() LuaStackHeightTracker.Record()
#define CHECK_LUA_STACK_HEIGHT(...) LuaStackHeightTracker.Check(__VA_ARGS__)

#else

#define INIT_LUA_STACK_TRACKING(L) 
#define RECORD_LUA_STACK_HEIGHT()
#define CHECK_LUA_STACK_HEIGHT(...)

#endif