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 <qvector.h>
 
#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(int n, 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();
  QVector<double> toDoubleVector();
  QList<bool>     toBoolList();
  QVector<bool>   toBoolVector();
  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