#ifdef WITH_RIVE_SCRIPTING
#include "rive/lua/rive_lua_libs.hpp"
#include "rive/scripted/transition_child_ref.hpp"

using namespace rive;

void TransitionChild::draw(Renderer* renderer)
{
  ScriptBackend::TransitionChildRef{m_artboard, m_worldTransform}.draw(
      renderer);
}

float TransitionChild::width() const
{
  return ScriptBackend::TransitionChildRef{m_artboard, m_worldTransform}
      .width();
}

float TransitionChild::height() const
{
  return ScriptBackend::TransitionChildRef{m_artboard, m_worldTransform}
      .height();
}

static int transition_child_draw(lua_State* L)
{
  auto child = lua_torive<TransitionChild>(L, 1);
  auto scriptedRenderer = lua_torive<ScriptedRenderer>(L, 2);
  auto renderer = scriptedRenderer->validate(L);
  child->draw(renderer);
  return 0;
}

static int transition_child_namecall(lua_State* L)
{
  int atom;
  const char* str = lua_namecallatom(L, &atom);
  if (str != nullptr)
  {
    switch (atom)
    {
      case (int)LuaAtoms::draw:
        return transition_child_draw(L);
    }
  }
  luaL_error(
      L,
      "%s is not a valid method of %s",
      str,
      TransitionChild::luaName);
  return 0;
}

static int transition_child_index(lua_State* L)
{
  int atom;
  const char* key = lua_tostringatom(L, 2, &atom);
  if (!key)
  {
    luaL_typeerrorL(L, 2, lua_typename(L, LUA_TSTRING));
    return 0;
  }

  auto child = lua_torive<TransitionChild>(L, 1);
  switch (atom)
  {
    case (int)LuaAtoms::width:
      lua_pushnumber(L, child->width());
      return 1;
    case (int)LuaAtoms::height:
      lua_pushnumber(L, child->height());
      return 1;
    default:
      break;
  }

  luaL_error(
      L,
      "'%s' is not a valid index of %s",
      key,
      TransitionChild::luaName);
  return 0;
}

int luaopen_rive_transition(lua_State* L)
{
  lua_register_rive<TransitionChild>(L);

  lua_pushcfunction(L, transition_child_index, nullptr);
  lua_setfield(L, -2, "__index");

  lua_pushcfunction(L, transition_child_namecall, nullptr);
  lua_setfield(L, -2, "__namecall");

  lua_setreadonly(L, -1, true);
  lua_pop(L, 1); // pop the metatable
  return 0;
}

#endif