// Copyright Daniel Wallin 2009. Use, modification and distribution is
// subject to the Boost Software License, Version 1.0. (See accompanying
// file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)

#ifndef LUABIND_DETAIL_MAKE_INSTANCE_090310_HPP
# define LUABIND_DETAIL_MAKE_INSTANCE_090310_HPP

# include <boost/type_traits/is_polymorphic.hpp>
# include <luabind/detail/inheritance.hpp>
# include <luabind/detail/object_rep.hpp>

namespace luabind { namespace detail {

template <class T>
std::pair<class_id, void*> get_dynamic_class_aux(
    lua_State* L, T const* p, mpl::true_)
{
    lua_pushliteral(L, "__luabind_class_id_map");
    lua_rawget(L, LUA_REGISTRYINDEX);

    class_id_map& class_ids = *static_cast<class_id_map*>(
        lua_touserdata(L, -1));

    lua_pop(L, 1);

    return std::make_pair(
        class_ids.get_local(typeid(*p))
      , dynamic_cast<void*>(const_cast<T*>(p))
    );
}

template <class T>
std::pair<class_id, void*> get_dynamic_class_aux(
    lua_State*, T const* p, mpl::false_)
{
    return std::make_pair(registered_class<T>::id, (void*)p);
}

template <class T>
std::pair<class_id, void*> get_dynamic_class(lua_State* L, T* p)
{
    return get_dynamic_class_aux(L, p, boost::is_polymorphic<T>());
}

template <class T>
class_rep* get_pointee_class(class_map const& classes, T*)
{
    return classes.get(registered_class<T>::id);
}

template <class P>
class_rep* get_pointee_class(lua_State* L, P const& p, class_id dynamic_id)
{
    lua_pushliteral(L, "__luabind_class_map");
    lua_rawget(L, LUA_REGISTRYINDEX);

    class_map const& classes = *static_cast<class_map*>(
        lua_touserdata(L, -1));

    lua_pop(L, 1);

    class_rep* cls = classes.get(dynamic_id);

    if (!cls)
        cls = get_pointee_class(classes, get_pointer(p));

    return cls;
}

// Create an appropriate instance holder for the given pointer like object.
template <class P>
void make_instance(lua_State* L, P p)
{
    std::pair<class_id, void*> dynamic = get_dynamic_class(L, get_pointer(p));

    class_rep* cls = get_pointee_class(L, p, dynamic.first);

    if (!cls)
    {
        throw std::runtime_error("Trying to use unregistered class");
    }

    object_rep* instance = push_new_instance(L, cls);

    typedef pointer_holder<P> holder_type;

    void* storage = instance->allocate(sizeof(holder_type));

    try
    {
        new (storage) holder_type(p, dynamic.first, dynamic.second, cls);
    }
    catch (...)
    {
        instance->deallocate(storage);
        lua_pop(L, 1);
        throw;
    }

    instance->set_instance(static_cast<holder_type*>(storage));
}

}} // namespace luabind::detail

#endif // LUABIND_DETAIL_MAKE_INSTANCE_090310_HPP