datagear.h

Go to the documentation of this file.

#ifndef UGDK_SCRIPT_LUA_DATAGEAR_H_
#define UGDK_SCRIPT_LUA_DATAGEAR_H_

#include <ugdk/script/type.h>
#include <ugdk/script/languages/lua/header.h>
#include <ugdk/script/languages/lua/state.h>
#include <ugdk/script/languages/lua/basegear.h>
#include <ugdk/util/uncopyable.h>
#include <ugdk/util/idgenerator.h>

namespace ugdk {
namespace script {
namespace lua {

class DataGear : public BaseGear, private ugdk::util::Uncopyable {

  public:

    /*DataGear(lua_State* L, DataID datatable_id) :
      BaseGear(L),
      datatable_id_(datatable_id) {}*/

    DataGear(lua_State *L) :
      BaseGear(L),
      idgen_(1, INT_MAX, 0) {}

    ~DataGear() {
        L_.pushnil();
        L_.setfield(Constant::REGISTRYINDEX(), "UGDK_LUA_DATATABLE");
        /*L_.aux().unref(Constant::REGISTRYINDEX(), datatable_id_);
        datatable_id_ = LUA_NOREF;*/
        L_.close();
    }

    static int GenerateID(lua_State* L);

    static int DestroyID(lua_State* L);

    static int WrapData(lua_State* L);

    template <class T>
    static int WrapPrimitive(lua_State* L);

    static int UnwrapData(lua_State* L);

    template <class T>
    static int UnwrapPrimitive(lua_State* L);

    static int UnwrapList(lua_State* L);
    static int UnwrapTable(lua_State* L);


    static int Execute(lua_State* L);


    static int GetField(lua_State* L);


    static int SetField(lua_State* L);

    static int DoFile(lua_State* L);

    static int DoString(lua_State* L);

    // [-0,+1]
    bool GetData (DataID id);

    // [-1,+0]
    bool SetData (DataID id);

    // [-0,+0]
    bool HasValue (DataID id);

  private:

    //DataID datatable_id_;
    ugdk::util::IDGenerator idgen_;

    DataGear& operator=(const DataGear& rhs) {
        return *this;
    }

    bool PushDataTable();

    void PushData (int table_index, DataID id) {
        L_.rawgeti(table_index, id);
    }

    void PopData (int table_index, DataID id) {
        L_.rawseti(table_index, id);
    }

};

template <class T>
int DataGear::UnwrapPrimitive(lua_State* L) {
    State L_(L);

    L_.settop(2);
    GETARG(L_, 1, DataGear, dtgear);
    DataID id = L_.aux().checkintteger(2);
    L_.settop(0);

    if (!dtgear.GetData(id)) {
        L_.pushnil();
    } // else the data will already be on top

    if (!L_.isprimitive<T>(-1))
        return luaL_error(L, "Could not unwrap primitive from id #%d", id);

    return 1;
}

template <class T>
int DataGear::WrapPrimitive(lua_State* L) {
    State L_(L);

    L_.settop(3);
    GETARG(L_, 1, DataGear, dtgear);
    DataID id = L_.aux().checkintteger(2);
    //T value = L_.aux().checkprimitive<T>(3);
    //UData data = L_.touserdata(3);
    //GETARGPTR(L_, 4, swig_type_info, type);
    //L_.settop(0);

    if (!L_.isprimitive<T>(3) || !dtgear.SetData(id))
        return luaL_error(L, "Could not wrap primitive with id #%d", id);

    //SWIG_NewPointerObj(L_, data, type, 0);
    //if (!dtgear.SetData(id))
    //    return luaL_error(L, "Could not wrap primitive with id #%d", id);

    return 0;
}

} /* namespace lua */
} /* namespace script */
} /* namespace ugdk */

#endif /* UGDK_SCRIPT_LUA_DATAGEAR_H_ */