luaTable.h

Go to the documentation of this file.

/************************************************************************
**
** Copyright (C) 2009 K2FS Sistemas e Projetos Ltd.  
** All rights reserved.
**
************************************************************************/

#ifndef _LUATABLE_H_
#define _LUATABLE_H_

#include <QVariant>

#include "luaObjRef.h"

class QStringList;

class LUAUTILS_API_EXPORT LuaTable : public LuaObjRef
{
public:
  LuaTable();
  LuaTable(const LuaTable& other);
  LuaTable(LuaEnv* lua, int index, bool ref = false);
  LuaTable(LuaEnv* lua);
  ~LuaTable();

  QVariant getIndex(int index, LuaEnv::StackOption opt = LuaEnv::STACK_AUTO);
  QVariant getField(const char* name, LuaEnv::StackOption opt = LuaEnv::STACK_AUTO);
  void     pushField(const char* name);

  QVariant getField(QString name, LuaEnv::StackOption opt = LuaEnv::STACK_AUTO) { return getField(luaPrintable(name), opt); }

  void pushField(QString name) { pushField(luaPrintable(name)); }

  QVariant toVariant() const { QVariant v; v.setValue(*this); return v; }

  QStringList   toStringList();
  QList<double> toDoubleList();
  QList<bool>   toBoolList();
  QVariantList  toVariantList();
  void          fromStringList (const QStringList& list);
  void          fromVariantList(const QVariantList& list);
  void          fromVariantMap (const QVariantMap& map, bool useIntegerKeys = false);

  void setIndex(int index, const QVariant& val, bool raw = false);
  void setField(const char* name, const QVariant& val, bool raw = false);
  void setField(const QVariant& key, const QVariant& val, bool raw = false);

  void setField(QString name, const QVariant& val, bool raw = false) { setField(luaPrintable(name), val, raw); }

  bool callMethod(const char* name, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, QVariant a3, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, QVariant a6, int nresults, QString& err);
  bool callMethod(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, QVariant a6, QVariant a7, int nresults, QString& err);

  bool callFunction(const char* name, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, QVariant a3, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, QVariant a6, int nresults, QString& err);
  bool callFunction(const char* name, QVariant a1, QVariant a2, QVariant a3, QVariant a4, QVariant a5, QVariant a6, QVariant a7, int nresults, QString& err);

  int  size();
  
  template <class T> bool traverse(T& obj);  
  
  bool callMethodPrepare(const char* name, bool pushTable, QString& err);
};

Q_DECLARE_METATYPE(LuaTable);


template <class T> bool LuaTable::traverse(T& obj)
{
  lua_State* L = _lua->state();
  int  top1 = lua_gettop(L);  Q_UNUSED(top1); // top1 is used for assert only
  bool ret  = true;
  
  // Faz pos apontar para a tabela a ser consultada
  int pos = objectPos();

  lua_pushnil(L);
  while(lua_next(L, pos) != 0)
  {
    // Chave está em -2 e valor em -1
    QVariant val = _lua->toVariant(LuaEnv::STACK_POP);
    QVariant key = _lua->toVariant(LuaEnv::STACK_NOPOP);
    
    int top2 = lua_gettop(L); Q_UNUSED(top2); // top2 is used for assert only
    ret = obj(key, val);
    assert(top2 == lua_gettop(L));
    if(!ret)
    {
      lua_pop(L, 1);
      break;
    }
  }
  
  // Se estamos operando com uma ref., remove tabela colocada na pilha por objectPos()
  if(_ref != LUA_NOREF)
    lua_remove(L, pos);
  assert(top1 == lua_gettop(L));  
  return ret;
}


#endif