gmLuaMatrix.h

Go to the documentation of this file.

/************************************************************************
**
** Copyright (C) 2014 by Carlos Augusto Teixera Mendes
** All rights reserved.
**
** This file is part of the "GeMA" software. It's use should respect
** the terms in the license agreement that can be found together
** with this source code.
** It is provided AS IS, with NO WARRANTY OF ANY KIND,
** INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR
** A PARTICULAR PURPOSE.
**
************************************************************************/
 
#ifndef _GEMALUA_MATRIX_H_
#define _GEMALUA_MATRIX_H_
 
#include "gmLuaObject.h"
 
#include <gmMatrix.h>
#include <gmVector.h>
 
class LuaTable;
 
class GML_API_EXPORT GmLuaMatrix: public GmLuaObject
{
public:
  GmLuaMatrix(GmMatrix& mat, const GmLogCategory& logger);
  GmLuaMatrix(GmVector& vec, const GmLogCategory& logger);
  GmLuaMatrix(int nlin, int ncol, const double* data, const GmLogCategory& logger);
  GmLuaMatrix(LuaTable& tab, const GmLogCategory& logger);
 
  virtual ~GmLuaMatrix();
 
  // See comments on the base class
  virtual const char* typeName() const { return "matrix"; }
 
  // See comments on the base class
  virtual QString toString() const { return QString("matrix(%1x%2)").arg(_mat.n_rows).arg(_mat.n_cols); }
 
  virtual void fillMetatable(lua_State* L, int index);
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  GmMatrix& matrix() const { return _mat; }
 
private:
  int nlin    (lua_State* L);
  int ncol    (lua_State* L);
  int size    (lua_State* L);
  int at      (lua_State* L);
  int set     (lua_State* L);
  int col     (lua_State* L);
  int line    (lua_State* L);
  int setCol  (lua_State* L);
  int setLine (lua_State* L);
  int t       (lua_State* L);
  int det     (lua_State* L);
  int equal   (lua_State* L);
  int print   (lua_State* L);
  int toTable (lua_State* L);
  int toString(lua_State* L);
  int solve   (lua_State* L);
  int inv     (lua_State* L);
  int dot     (lua_State* L);
  int cross   (lua_State* L);
  int norm    (lua_State* L);
  int eig_sym (lua_State* L);
 
  int eq (lua_State* L);
  int unm(lua_State* L);
 
  static int add(lua_State* L);
  static int sub(lua_State* L);
  static int mul(lua_State* L);
  static int div(lua_State* L);
  static int mod(lua_State* L);
 
  static GmLuaMatrix* getOperand(lua_State* L, int index, char op, double* v);
  static GmLuaMatrix* checkAndCreate(lua_State* L, char op, GmLuaMatrix* m1, GmLuaMatrix* m2, bool mul);
 
  // Warning: Do not reverse _newMat & _mat  below. _newMat MUST be constructed before _mat for
  //          the contructors where a new matrix is allocated to work correctly.
  GmMatrix* _newMat;  
  GmMatrix& _mat;     
};
 
#endif