/*
* All or portions of this file Copyright (c) Amazon.com, Inc. or its affiliates or
* its licensors.
*
* For complete copyright and license terms please see the LICENSE at the root of this
* distribution (the "License"). All use of this software is governed by the License,
* or, if provided, by the license below or the license accompanying this file. Do not
* remove or modify any license notices. This file is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
*
*/
// Original file Copyright Crytek GMBH or its affiliates, used under license.

#include "CryLegacy_precompiled.h"
#include "FunctionHandler.h"
#include "ScriptSystem.h"
#include "ScriptTable.h"

//////////////////////////////////////////////////////////////////////////
IScriptSystem* CFunctionHandler::GetIScriptSystem()
{
    return m_pSS;
};

//////////////////////////////////////////////////////////////////////////
void* CFunctionHandler::GetThis()
{
    void* ptr = NULL;
    // Get implicit self table.
    if (m_paramIdOffset > 0 && lua_type(L, 1) == LUA_TTABLE)
    {
        // index "__this" member.
        lua_pushstring(L, "__this");
        lua_rawget(L, 1);
        if (lua_type(L, -1) == LUA_TLIGHTUSERDATA)
        {
            ptr = const_cast<void*>(lua_topointer(L, -1));
        }
        lua_pop(L, 1); // pop result.
    }
    return ptr;
}

//////////////////////////////////////////////////////////////////////////
bool CFunctionHandler::GetSelfAny(ScriptAnyValue& any)
{
    bool bRes = false;
    if (m_paramIdOffset > 0)
    {
        bRes = m_pSS->ToAny(any, 1);
    }
    return bRes;
}

//////////////////////////////////////////////////////////////////////////
const char* CFunctionHandler::GetFuncName()
{
    return m_sFuncName;
}

//////////////////////////////////////////////////////////////////////////
int CFunctionHandler::GetParamCount()
{
    return max(lua_gettop(L) - m_paramIdOffset, 0);
}

//////////////////////////////////////////////////////////////////////////
ScriptVarType CFunctionHandler::GetParamType(int nIdx)
{
    int nRealIdx = nIdx + m_paramIdOffset;
    ScriptVarType type = svtNull;
    int luatype = lua_type(L, nRealIdx);
    switch (luatype)
    {
    case LUA_TNIL:
        type = svtNull;
        break;
    case LUA_TBOOLEAN:
        type = svtBool;
        break;
    case LUA_TNUMBER:
        type = svtNumber;
        break;
    case LUA_TSTRING:
        type = svtString;
        break;
    case LUA_TFUNCTION:
        type = svtFunction;
        break;
    case LUA_TLIGHTUSERDATA:
        type = svtPointer;
        break;
    case LUA_TTABLE:
        type = svtObject;
        break;
    }
    return type;
}

//////////////////////////////////////////////////////////////////////////
bool CFunctionHandler::GetParamAny(int nIdx, ScriptAnyValue& any)
{
    int nRealIdx = nIdx + m_paramIdOffset;
    bool bRes = m_pSS->ToAny(any, nRealIdx);
    if (!bRes)
    {
        ScriptVarType paramType = GetParamType(nIdx);
        const char* sParamType = ScriptVarTypeAsCStr(paramType);
        const char* sType = ScriptAnyTypeToString(any.type);
        // Report wrong param.
        ScriptWarning("[Script Error] Wrong parameter type. Function %s expect parameter %d of type %s (Provided type %s)", m_sFuncName, nIdx, sType, sParamType);
        m_pSS->LogStackTrace();
    }
    return bRes;
}

//////////////////////////////////////////////////////////////////////////
int CFunctionHandler::EndFunctionAny(const ScriptAnyValue& any)
{
    m_pSS->PushAny(any);
    return (any.type == ANY_TNIL || any.type == ANY_ANY) ? 0 : 1;
}

//////////////////////////////////////////////////////////////////////////
int CFunctionHandler::EndFunctionAny(const ScriptAnyValue& any1, const ScriptAnyValue& any2)
{
    m_pSS->PushAny(any1);
    m_pSS->PushAny(any2);
    return 2;
}

//////////////////////////////////////////////////////////////////////////
int CFunctionHandler::EndFunctionAny(const ScriptAnyValue& any1, const ScriptAnyValue& any2, const ScriptAnyValue& any3)
{
    m_pSS->PushAny(any1);
    m_pSS->PushAny(any2);
    m_pSS->PushAny(any3);
    return 3;
}

//////////////////////////////////////////////////////////////////////////
int CFunctionHandler::EndFunction()
{
    return 0;
}