luaobject.h

Go to the documentation of this file.

/*
 * Copyright (c) 2010-2020 OTClient <https://github.com/edubart/otclient>
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * 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. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
 
#ifndef LUAOBJECT_H
#define LUAOBJECT_H
 
#include "declarations.h"
 
// @bindclass
class LuaObject : public stdext::shared_object
{
public:
    LuaObject();
    virtual ~LuaObject();
 
    template<typename T>
    void connectLuaField(const std::string& field, const std::function<T>& f, bool pushFront = false);
 
    template<typename... T>
    int luaCallLuaField(const std::string& field, const T&... args);
 
    template<typename R, typename... T>
    R callLuaField(const std::string& field, const T&... args);
    template<typename... T>
    void callLuaField(const std::string& field, const T&... args);
 
    bool hasLuaField(const std::string& field);
 
    template<typename T>
    void setLuaField(const std::string& key, const T& value);
 
    template<typename T>
    T getLuaField(const std::string& key);
 
    void releaseLuaFieldsTable();
 
    void luaSetField(const std::string& key);
 
    void luaGetField(const std::string& key);
 
    void luaGetMetatable();
 
    void luaGetFieldsTable();
 
    int getUseCount();
 
    std::string getClassName();
 
    LuaObjectPtr asLuaObject() { return static_self_cast<LuaObject>(); }
 
    void operator=(const LuaObject&) { }
 
private:
    int m_fieldsTableRef;
};
 
template<typename F>
void connect(const LuaObjectPtr& obj, const std::string& field, const std::function<F>& f, bool pushFront = false);
 
template<typename Lambda>
typename std::enable_if<std::is_constructible<decltype(&Lambda::operator())>::value, void>::type
connect(const LuaObjectPtr& obj, const std::string& field, const Lambda& f, bool pushFront = false);
 
#include "luainterface.h"
 
template<typename T>
void LuaObject::connectLuaField(const std::string& field, const std::function<T>& f, bool pushFront)
{
    luaGetField(field);
    if(g_lua.isTable()) {
        if(pushFront)
            g_lua.pushInteger(1);
        push_luavalue(f);
        g_lua.callGlobalField("table","insert");
    } else {
        if(g_lua.isNil()) {
            push_luavalue(f);
            luaSetField(field);
            g_lua.pop();
        } else if(g_lua.isFunction()) {
            g_lua.newTable();
            g_lua.insert(-2);
            g_lua.rawSeti(1);
            push_luavalue(f);
            g_lua.rawSeti(2);
            luaSetField(field);
        }
    }
}
 
// connect for std::function
template<typename F>
void connect(const LuaObjectPtr& obj, const std::string& field, const std::function<F>& f, bool pushFront) {
    obj->connectLuaField<F>(field, f, pushFront);
}
 
namespace luabinder {
    template<typename F>
    struct connect_lambda;
 
    template<typename Lambda, typename Ret, typename... Args>
    struct connect_lambda<Ret(Lambda::*)(Args...) const> {
        static void call(const LuaObjectPtr& obj, const std::string& field, const Lambda& f, bool pushFront) {
            connect(obj, field, std::function<Ret(Args...)>(f), pushFront);
        }
    };
};
 
// connect for lambdas
template<typename Lambda>
typename std::enable_if<std::is_constructible<decltype(&Lambda::operator())>::value, void>::type
connect(const LuaObjectPtr& obj, const std::string& field, const Lambda& f, bool pushFront) {
    typedef decltype(&Lambda::operator()) F;
    luabinder::connect_lambda<F>::call(obj, field, f, pushFront);
}
 
template<typename... T>
int LuaObject::luaCallLuaField(const std::string& field, const T&... args) {
    // note that the field must be retrieved from this object lua value
    // to force using the __index metamethod of it's metatable
    // so cannot use LuaObject::getField here
    // push field
    g_lua.pushObject(asLuaObject());
    g_lua.getField(field);
 
    if(!g_lua.isNil()) {
        // the first argument is always this object (self)
        g_lua.insert(-2);
        int numArgs = g_lua.polymorphicPush(args...);
        return g_lua.signalCall(1 + numArgs);
    } else {
        g_lua.pop(2);
    }
    return 0;
}
 
template<typename R, typename... T>
R LuaObject::callLuaField(const std::string& field, const T&... args) {
    R result;
    int rets = luaCallLuaField(field, args...);
    if(rets > 0) {
        assert(rets == 1);
        result = g_lua.polymorphicPop<R>();
    } else
        result = R();
    return result;
}
 
template<typename... T>
void LuaObject::callLuaField(const std::string& field, const T&... args) {
    int rets = luaCallLuaField(field, args...);
    if(rets > 0)
        g_lua.pop(rets);
}
 
template<typename T>
void LuaObject::setLuaField(const std::string& key, const T& value) {
    g_lua.polymorphicPush(value);
    luaSetField(key);
}
 
template<typename T>
T LuaObject::getLuaField(const std::string& key) {
    luaGetField(key);
    return g_lua.polymorphicPop<T>();
}
 
#endif