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 bellow. _newMat MUST be constructed before _mat for 
  //          the contructors where a new matrix is allocated to work correctly.
  GmMatrix* _newMat;  
  GmMatrix& _mat;     
};

#endif