/*     Copyright 2019 Diligent Graphics LLC
 *  
 *  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.
 */

#include "pch.h"
#include "ShaderVariableParser.h"

namespace Diligent
{
    const Char* ShaderVariableParser::ShaderVariableLibName = "ShaderVariable";

    ShaderVariableParser::ShaderVariableParser( IRenderDevice *pRenderDevice, lua_State *L, 
                                                  const String &PSOLibMetatableName,
                                                  const String &BufferLibMetatableName,
                                                  const String &BufferViewLibMetatableName,
                                                  const String &TexViewMetatableName ) :
        EngineObjectParserBase( pRenderDevice, L, ShaderVariableLibName ),
        m_PSOLibMetatableName(PSOLibMetatableName),
        m_BufferLibMetatableName(BufferLibMetatableName),
        m_BufferViewLibMetatableName(BufferViewLibMetatableName),
        m_TexViewMetatableName(TexViewMetatableName),
        m_SetBinding( this, L, m_MetatableRegistryName.c_str(), "Set", &ShaderVariableParser::Set ),
        m_GetStaticVariableByNameBinding( this, L, m_PSOLibMetatableName.c_str(), "GetStaticVariableByName", &ShaderVariableParser::GetStaticVariableByName ),
        m_GetStaticVariableByIndexBinding( this, L, m_PSOLibMetatableName.c_str(), "GetStaticVariableByIndex", &ShaderVariableParser::GetStaticVariableByIndex )
    {
    };

    void ShaderVariableParser::CreateObj( lua_State *L )
    {
        auto NumArgs = lua_gettop( L );
        if( NumArgs < 3 )
        {
            SCRIPT_PARSING_ERROR( L, "2 arguments (shader type and variable name) are expected" );
        }

        INIT_LUA_STACK_TRACKING(L);

        // Shader should be the first argument
        auto *pPSO = *GetUserData<IPipelineState**>( L, 1, m_PSOLibMetatableName.c_str() );
        
        SHADER_TYPE ShaderType = SHADER_TYPE_UNKNOWN;
        EnumMemberBinder<SHADER_TYPE> ShaderTypeParser(0, "ShaderType", m_ShaderTypeEnumMapping);
        ShaderTypeParser.SetValue(L, 2, &ShaderType);

        IShaderResourceVariable *pVar = nullptr;
        if (lua_type(L,3) == LUA_TSTRING)
        {
            // Variable name should be the second argument
            auto VarName = ReadValueFromLua<String>( L, 3 );
            pVar = pPSO->GetStaticVariableByName(ShaderType, VarName.c_str() );
        }
        else
        {
            // Variable name should be the second argument
            auto VarIndex = ReadValueFromLua<int>( L, 3 );
            pVar = pPSO->GetStaticVariableByIndex(ShaderType, VarIndex );
        }

        auto pNewShaderVarLuaObj = reinterpret_cast<IShaderResourceVariable**>(lua_newuserdata( L, sizeof( IShaderResourceVariable* ) ));
        *pNewShaderVarLuaObj = pVar;
        pVar->AddRef();

        CHECK_LUA_STACK_HEIGHT( +1 );
    }

    void ShaderVariableParser::DestroyObj( void *pData )
    {
        if( pData != nullptr )
        {
            auto ppShaderVar = reinterpret_cast<IShaderResourceVariable**>(pData);
            if( *ppShaderVar != nullptr )
                (*ppShaderVar)->Release();
        }
    }

    void ShaderVariableParser::ReadField( lua_State *L, void *pData, const Char *Field )
    {
        SCRIPT_PARSING_ERROR(L, "Shader variables have no fields that can be read")
    }

    void ShaderVariableParser::UpdateField( lua_State *L, void *pData, const Char *Field )
    {
        SCRIPT_PARSING_ERROR(L, "Shader variables have no fields that can be updated")
    }

    void ShaderVariableParser::PushExistingObject( lua_State *L, const void *pObject )
    {
        auto pShaderVariable = reinterpret_cast<IShaderResourceVariable**>(lua_newuserdata( L, sizeof( IShaderResourceVariable* ) ));
        *pShaderVariable = reinterpret_cast<IShaderResourceVariable*>( const_cast<void*>(pObject) );
        (*pShaderVariable)->AddRef();
    }

    int ShaderVariableParser::Set( lua_State *L )
    {
        // Shader variable is the first argument
        auto *pShaderVar = *GetUserData<IShaderResourceVariable**>( L, 1, m_MetatableRegistryName.c_str() );

        IDeviceObject *pObject = nullptr;
        auto ArgType = lua_type( L, 2 );
        if( ArgType == LUA_TUSERDATA )
        {
            auto ppObject = reinterpret_cast<IDeviceObject**>( luaL_testudata( L, 2, m_BufferLibMetatableName.c_str() ) );
            if( !ppObject )
                ppObject = reinterpret_cast<IDeviceObject**>( luaL_testudata( L, 2, m_BufferViewLibMetatableName.c_str() ) );
            if( !ppObject )
                ppObject = reinterpret_cast<IDeviceObject**>( luaL_testudata( L, 2, m_TexViewMetatableName.c_str() ) );
            if( ppObject )
            {
                pObject = *ppObject;
            }
            else
            {
                SCRIPT_PARSING_ERROR(L, "Set() function expects buffer, buffer view or texture view as an argument")
            }
        }
        else if( ArgType == LUA_TNIL )
        {
            pObject = nullptr;
        }
        else
        {
            SCRIPT_PARSING_ERROR(L, "Set() function expects user data or nil")
        }

        pShaderVar->Set( pObject );

        return 0;
    }

    int ShaderVariableParser::GetStaticVariableByName( lua_State *L )
    {
        return LuaCreate(L);
    }

    int ShaderVariableParser::GetStaticVariableByIndex( lua_State *L )
    {
        return LuaCreate(L);
    }

    void ShaderVariableParser::GetObjectByName( lua_State *L, const Char *ShaderName, IShaderResourceVariable** ppObject )
    {
        auto pObject = *GetGlobalObject<IShaderResourceVariable**>( L, ShaderName, m_MetatableRegistryName.c_str() );
        *ppObject = pObject;
        pObject->AddRef();
    }
}