gmLuaValueAccessor.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_VALUE_ACCESSOR_H_
#define _GEMALUA_VALUE_ACCESSOR_H_
 
#include "gmLuaObject.h"
#include <gmVector.h>
 
#include <gmElementMesh.h>
 
class GmValueAccessor;
class GmCellAccessor;
class GmGaussAccessor;
class GmBoundaryConditionAccessor;
class GmContactBoundaryConditionAccessor;
class GmDiscontinuityAccessor;
class GmBoundaryCondition;
class GmContactBoundaryCondition;
class GmCell;
class GmDiscontinuity;
 
template <class T>
class GML_API_EXPORT GmLuaAccessorBase : public GmLuaObject
{
public:
  virtual ~GmLuaAccessorBase();
 
  virtual QString toString() const;
 
  virtual void fillMetatable(lua_State* L, int index);
 
  T* accessor() const { return _ac; }
 
protected:
  GmLuaAccessorBase(T* ac, const GmLogCategory& logger, bool ownership);
 
  struct Options {
    bool evalFunctions, defAsNil;
    int  width, prec;
    char format;
 
    Options(GmValueInfo* info);
  };
 
  void parseCoord  (lua_State* L, int stackPos, QString fname, GmVector& coord);
  void parseOptions(lua_State* L, int stackPos, Options& opt);
  void pushResult  (lua_State* L, const double* val);
 
  T*   _ac;    
  bool _owner; 
 
private:
  int size     (lua_State* L);
  int info     (lua_State* L);
  int isScalar (lua_State* L);
  int unit     (lua_State* L);
  int valueSize(lua_State* L);
  int defValue (lua_State* L);
};
 
template <class T, class I> 
class GML_API_EXPORT GmLuaAccessorIndex: public GmLuaAccessorBase<T>
{
public:
  virtual void fillMetatable(lua_State* L, int index);
 
protected:
  GmLuaAccessorIndex(T* ac, const GmLogCategory& logger, bool ownership);
 
  virtual I parseIndex(lua_State* L, int stackPos, QString fname) const = 0;
 
private:
  int isDefValue   (lua_State* L);
  int isFunction   (lua_State* L);
  int setValue     (lua_State* L);
  int setValueAsDef(lua_State* L);
  int functionId   (lua_State* L);
};
 
 
class GML_API_EXPORT GmLuaValueAccessor: public GmLuaAccessorIndex<GmValueAccessor, int>
{
public:
  GmLuaValueAccessor(GmValueAccessor* ac, const GmLogCategory& logger, bool ownership = true);
 
  // See comments on the base class
  virtual const char* typeName() const { return "valueAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  int value   (lua_State* L);
  int valueStr(lua_State* L);
 
protected:
  virtual int parseIndex(lua_State* L, int stackPos, QString fname) const;
};
 
class GML_API_EXPORT GmLuaNodeValueAccessor : public GmLuaValueAccessor
{
public:
  GmLuaNodeValueAccessor(GmValueAccessor* ac, const GmMesh* mesh, const GmLogCategory& logger, bool ownership = true);
 
  // See comments on the base class
  virtual const char* typeName() const { return "nodeValueAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  int adjustLinearIndex(lua_State* L);
 
protected:
  virtual int parseIndex(lua_State* L, int stackPos, QString fname) const;
 
  const GmMesh* _mesh;       
  bool          _isGhostAc;  
};
 
class GML_API_EXPORT GmLuaCellAccessor: public GmLuaAccessorIndex<GmCellAccessor, const GmCell*>
{
public:
  GmLuaCellAccessor(GmCellAccessor* ac, const GmLogCategory& logger, bool ownership = true);
 
  // See comments on the base class
  virtual const char* typeName() const { return "cellAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  int value   (lua_State* L);
  int valueStr(lua_State* L);
 
protected:
  virtual const GmCell* parseIndex(lua_State* L, int stackPos, QString fname) const;
};
 
class GML_API_EXPORT GmLuaGaussAccessor: public GmLuaAccessorBase<GmGaussAccessor>
{
public:
  GmLuaGaussAccessor(GmGaussAccessor* ac, GmElementMesh* mesh, const GmLogCategory& logger, bool ownership = true);
 
  // See comments on the base class
  virtual const char* typeName() const { return "gaussAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  typedef QPair<const GmCell*, int> I; 
 
  I parseIndex(lua_State* L, int stackPos, QString fname) const;
 
  int numPoints    (lua_State* L);
  int isDefValue   (lua_State* L);
  int isFunction   (lua_State* L);
  int value        (lua_State* L);
  int setValue     (lua_State* L);
  int setValueAsDef(lua_State* L);
  int valueStr     (lua_State* L);
  int functionId   (lua_State* L);
 
  GmElementMesh* _mesh; 
};
 
template <class T, class B>
class GML_API_EXPORT GmLuaBCAccessor : public GmLuaAccessorBase<T>
{
public:
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  int isDefValue   (lua_State* L);
  int isFunction   (lua_State* L);
  int setValue     (lua_State* L);
  int setValueAsDef(lua_State* L);
  int functionId   (lua_State* L);
 
protected:
  GmLuaBCAccessor(T* ac, const B* bc, const GmLogCategory& logger, bool ownership);
 
  int parseIndex1(lua_State* L, int stackPos, QString fname) const;
 
  const B* _bc; 
};
 
 
class GML_API_EXPORT GmLuaBoundaryConditionAccessor : public GmLuaBCAccessor<GmBoundaryConditionAccessor, GmBoundaryCondition>
{
public:
  GmLuaBoundaryConditionAccessor(GmBoundaryConditionAccessor* ac, const GmBoundaryCondition* bc, const GmLogCategory& logger, bool ownership = true)
    : GmLuaBCAccessor<GmBoundaryConditionAccessor, GmBoundaryCondition>(ac, bc, logger, ownership) {}
 
  // See comments on the base class
  virtual const char* typeName() const { return "bcAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  typedef QPair<int, int> I;
 
  I parseIndex2(lua_State* L, int stackPos, QString fname) const;
 
  int value   (lua_State* L);
  int valueStr(lua_State* L);
};
 
class GML_API_EXPORT GmLuaContactBoundaryConditionAccessor : public GmLuaBCAccessor<GmContactBoundaryConditionAccessor, GmContactBoundaryCondition>
{
public:
  GmLuaContactBoundaryConditionAccessor(GmContactBoundaryConditionAccessor* ac, const GmContactBoundaryCondition* bc, const GmLogCategory& logger, bool ownership = true)
    : GmLuaBCAccessor<GmContactBoundaryConditionAccessor, GmContactBoundaryCondition>(ac, bc, logger, ownership) {}
 
  // See comments on the base class
  virtual const char* typeName() const { return "contactBcAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  typedef struct { int ci; int bci; int li; } I;
  
  I parseIndex3(lua_State* L, int stackPos, QString fname) const;
  
  int value   (lua_State* L);
  int valueStr(lua_State* L);
};
 
class GML_API_EXPORT GmLuaDiscontinuityAccessor : public GmLuaAccessorIndex<GmDiscontinuityAccessor, const GmDiscontinuity*>
{
public:
  GmLuaDiscontinuityAccessor(GmDiscontinuityAccessor* ac, const GmLogCategory& logger, bool ownership = true);
 
  // See comments on the base class
  virtual const char* typeName() const { return "discontinuityAccessor"; }
 
  virtual void* getClassMetatableID() { static int classID = 0; return &classID; }
 
  virtual void fillMetatable(lua_State* L, int index);
 
private:
  int value(lua_State* L);
  int valueStr(lua_State* L);
 
protected:
  virtual const GmDiscontinuity* parseIndex(lua_State* L, int stackPos, QString fname) const;
};
 
 
#endif