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 adjustLinearIndex(lua_State* L);
  int value            (lua_State* L);
  int valueStr         (lua_State* L);

protected:
  virtual int parseIndex(lua_State* L, int stackPos, QString fname) const;

  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