EgtExecutor/LUA_GdbObjects.cpp

//----------------------------------------------------------------------------
//  EgalTech 2014-2014
//----------------------------------------------------------------------------
// File : LUA_GdbObjects.cpp      Data : 30.09.14        Versione : 1.5i5
// Contenuto : Funzioni di iterazione di DB geometrico per LUA.
//
//
//
// Modifiche : 30.09.14 DS Creazione modulo.
//
//
//----------------------------------------------------------------------------

//--------------------------- Include ----------------------------------------
#include "stdafx.h"
#include "LUA.h"
#include "/EgtDev/Include/EXeExecutor.h"
#include "/EgtDev/Include/EGkGdbConst.h"
#include "/EgtDev/Include/EGkLuaAux.h"

using namespace std ;


//-------------------------------------------------------------------------------
static int
LuaExistsObj( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // verifico esistenza oggetto
   bool bOk = ExeExistsObj( nId) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}
//-------------------------------------------------------------------------------
static int
LuaGetParent( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // cerco il padre dell'oggetto indicato
   int nParentId = ExeGetParent( nId) ;
  // restituisco il risultato
   if ( nParentId != GDB_ID_NULL)
      LuaSetParam( L, nParentId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetType( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero tipo dell'oggetto
   int nType = ExeGetType( nId) ;
  // restituisco il risultato
   LuaSetParam( L, nType) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetGlobFrame( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il frame
   Frame3d frFrame ;
   if ( ExeGetGlobFrame( nId, frFrame))
      LuaSetParam( L, frFrame) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetGroupGlobFrame( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il frame
   Frame3d frFrame ;
   if ( ExeGetGroupGlobFrame( nId, frFrame))
      LuaSetParam( L, frFrame) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetGroupObjs( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId ;
   LuaCheckParam( L, 1, nGroupId)
   LuaClearStack( L) ;
  // determino il numero di oggetti nel gruppo
   int nObjs = ExeGetGroupObjs( nGroupId) ;
  // restituisco il risultato
   LuaSetParam( L, nObjs) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetAllInGroup( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId ;
   LuaCheckParam( L, 1, nGroupId)
   LuaClearStack( L) ;
  // determino gli oggetti nel gruppo
   INTVECTOR vIds ;
   bool bOk = ExeGetAllInGroup( nGroupId, vIds) ;
  // restituisco il risultato
   if ( bOk)
      LuaSetParam( L, vIds) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetFirstInGroup( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   LuaClearStack( L) ;
  // recupero il primo oggetto del gruppo
   int nId = ExeGetFirstInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetNext( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il prossimo oggetto nello stesso gruppo
   int nNextId = ExeGetNext( nId) ;
  // restituisco il risultato
   if ( nNextId != GDB_ID_NULL)
      LuaSetParam( L, nNextId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetLastInGroup( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   LuaClearStack( L) ;
  // recupero l'ultimo oggetto del gruppo
   int nId = ExeGetLastInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetPrev( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il precedente oggetto nello stesso gruppo
   int nPrevId = ExeGetPrev( nId) ;
  // restituisco il risultato
   if ( nPrevId != GDB_ID_NULL)
      LuaSetParam( L, nPrevId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetNameInGroup( lua_State* L)
{
  // 2 parametri : GroupId, sName
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   string sName ;
   LuaGetParam( L, 2, sName) ;
   LuaClearStack( L) ;
  // recupero tutti gli oggetti del gruppo con il nome o suo inizio desiderato
   INTVECTOR vId ;
   int nId = ExeGetFirstNameInGroup( nGroupId, sName) ;
   while ( nId != GDB_ID_NULL) {
      vId.push_back ( nId) ;
      nId = ExeGetNextName( nId, sName) ;
   }
  // restituisco il risultato
   if ( ! vId.empty())
      LuaSetParam( L, vId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetFirstNameInGroup( lua_State* L)
{
  // 2 parametri : GroupId, sName
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   string sName ;
   LuaGetParam( L, 2, sName) ;
   LuaClearStack( L) ;
  // recupero il primo oggetto del gruppo con il nome desiderato
   int nId = ExeGetFirstNameInGroup( nGroupId, sName) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetNextName( lua_State* L)
{
  // 2 parametri : Id, sName
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   string sName ;
   LuaGetParam( L, 2, sName) ;
   LuaClearStack( L) ;
  // recupero il prossimo oggetto nello stesso gruppo con il nome desiderato
   int nNextId = ExeGetNextName( nId, sName) ;
  // restituisco il risultato
   if ( nNextId != GDB_ID_NULL)
      LuaSetParam( L, nNextId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetLastNameInGroup( lua_State* L)
{
  // 2 parametri : GroupId, sName
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   string sName ;
   LuaGetParam( L, 2, sName) ;
   LuaClearStack( L) ;
  // recupero l'ultimo oggetto del gruppo con il nome desiderato
   int nId = ExeGetLastNameInGroup( nGroupId, sName) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetPrevName( lua_State* L)
{
  // 2 parametri : Id, sName
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   string sName ;
   LuaGetParam( L, 2, sName) ;
   LuaClearStack( L) ;
  // recupero il precedente oggetto nello stesso gruppo con il nome desiderato
   int nPrevId = ExeGetPrevName( nId, sName) ;
  // restituisco il risultato
   if ( nPrevId != GDB_ID_NULL)
      LuaSetParam( L, nPrevId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetFirstGroupInGroup( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   LuaClearStack( L) ;
  // recupero il primo oggetto gruppo del gruppo
   int nId = ExeGetFirstGroupInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetNextGroup( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il prossimo oggetto gruppo dello stesso gruppo
   int nNewId = ExeGetNextGroup( nId) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
      LuaSetParam( L, nNewId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetLastGroupInGroup( lua_State* L)
{
  // 1 parametro : GroupId
   int nGroupId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nGroupId) ;
   LuaClearStack( L) ;
  // recupero l'ultimo oggetto gruppo del gruppo
   int nId = ExeGetLastGroupInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
      LuaSetParam( L, nId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetPrevGroup( lua_State* L)
{
  // 1 parametro : Id
   int nId = GDB_ID_NULL ;
   LuaGetParam( L, 1, nId) ;
   LuaClearStack( L) ;
  // recupero il precedenteo oggetto gruppo dello stesso gruppo
   int nNewId = ExeGetPrevGroup( nId) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
      LuaSetParam( L, nNewId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetBBox( lua_State* L)
{
  // 2 parametri : Id, nFlag
   int nId ;
   LuaCheckParam( L, 1, nId)
   int nFlag ;
   LuaCheckParam( L, 2, nFlag)
   LuaClearStack( L) ;
  // recupero il bounding box dell'oggetto in locale
   BBox3d b3Box ;
   bool bOk = ExeGetBBox( nId, nFlag, b3Box) ;
  // restituisco il risultato
   if ( bOk)
      LuaSetParam( L, b3Box) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetBBoxGlob( lua_State* L)
{
  // 2 parametri : Id, nFlag
   int nId ;
   LuaCheckParam( L, 1, nId)
   int nFlag ;
   LuaCheckParam( L, 2, nFlag)
   LuaClearStack( L) ;
  // recupero il bounding box dell'oggetto in globale
   BBox3d b3Box ;
   bool bOk = ExeGetBBoxGlob( nId, nFlag, b3Box) ;
  // restituisco il risultato
   if ( bOk)
      LuaSetParam( L, b3Box) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetBBoxRef( lua_State* L)
{
  // 3 parametri : Id, nFlag, Ref
   int nId ;
   LuaCheckParam( L, 1, nId)
   int nFlag ;
   LuaCheckParam( L, 2, nFlag)
   Frame3d frRef ;
   LuaCheckParam( L, 3, frRef)
   LuaClearStack( L) ;
  // recupero il bounding box dell'oggetto in globale
   BBox3d b3Box ;
   bool bOk = ExeGetBBoxRef( nId, nFlag, frRef, b3Box) ;
  // restituisco il risultato
   if ( bOk)
      LuaSetParam( L, b3Box) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaCopy( lua_State* L)
{
  // 2 o 3 parametri : SouId, RefId [, nSonBeforeAfter]
   int nSouId ;
   LuaCheckParam( L, 1, nSouId)
   int nRefId ;
   LuaCheckParam( L, 2, nRefId)
   int nSonBeforeAfter = GDB_LAST_SON ;
   LuaGetParam( L, 3, nSonBeforeAfter) ;
   LuaClearStack( L) ;
  // eseguo la copia
   int nNewId = ExeCopy( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
      LuaSetParam( L, nNewId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaCopyGlob( lua_State* L)
{
  // 2 o 3 parametri : SouId, RefId [, nSonBeforeAfter]
   int nSouId ;
   LuaCheckParam( L, 1, nSouId)
   int nRefId ;
   LuaCheckParam( L, 2, nRefId)
   int nSonBeforeAfter = GDB_LAST_SON ;
   LuaGetParam( L, 3, nSonBeforeAfter) ;
   LuaClearStack( L) ;
  // eseguo la copia
   int nNewId = ExeCopyGlob( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
      LuaSetParam( L, nNewId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRelocate( lua_State* L)
{
  // 2 o 3 parametri : SouId, RefId [, nSonBeforeAfter]
   int nSouId ;
   LuaCheckParam( L, 1, nSouId)
   int nRefId ;
   LuaCheckParam( L, 2, nRefId)
   int nSonBeforeAfter = GDB_LAST_SON ;
   LuaGetParam( L, 3, nSonBeforeAfter) ;
   LuaClearStack( L) ;
  // eseguo la rilocazione
   bool bOk = ExeRelocate( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRelocateGlob( lua_State* L)
{
  // 2 o 3 parametri : SouId, RefId [, SonBeforeAfter]
   int nSouId ;
   LuaCheckParam( L, 1, nSouId)
   int nRefId ;
   LuaCheckParam( L, 2, nRefId)
   int nSonBeforeAfter = GDB_LAST_SON ;
   LuaGetParam( L, 3, nSonBeforeAfter) ;
   LuaClearStack( L) ;
  // eseguo la rilocazione
   bool bOk = ExeRelocateGlob( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGroupSwap( lua_State* L)
{
  // 4 parametri : nId1, nId2, bSwapRef, bMark
   int nId1 ;
   LuaCheckParam( L, 1, nId1)
   int nId2 ;
   LuaCheckParam( L, 2, nId2)
   bool bSwapRef ;
   LuaCheckParam( L, 3, bSwapRef)
   bool bMark ;
   LuaCheckParam( L, 4, bMark)
   LuaClearStack( L) ;
  // eseguo lo swap tra i gruppi
   bool bOk = ExeGroupSwap( nId1, nId2, bSwapRef, bMark) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetNewId( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // richiedo valore nuovo Id
   int nNewId = ExeGetNewId() ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
      LuaSetParam( L, nNewId) ;
   else
      LuaSetParam( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaChangeId( lua_State* L)
{
  // 2 parametri : Id, nNewId
   int nId ;
   LuaCheckParam( L, 1, nId)
   int nNewId ;
   LuaCheckParam( L, 2, nNewId)
   LuaClearStack( L) ;
  // eseguo il cambio di identificativo
   bool bOk = ExeChangeId( nId, nNewId) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaErase( lua_State* L)
{
  // 1 parametro : Id/s
   INTVECTOR vId ;
   LuaGetParam( L, 1, vId) ;
   LuaClearStack( L) ;
  // eseguo la cancellazione
   bool bOk = ExeErase( vId) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaEmptyGroup( lua_State* L)
{
  // 1 parametro : Id
   int nId ;
   LuaCheckParam( L, 1, nId)
   LuaClearStack( L) ;
  // eseguo la cancellazione
   bool bOk = ExeEmptyGroup( nId) ;
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallGdbObjects( LuaMgr& luaMgr)
{
   bool bOk = ( &luaMgr != nullptr) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtExistsObj", LuaExistsObj) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetParent", LuaGetParent) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetType", LuaGetType) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetGlobFrame", LuaGetGlobFrame) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetGroupGlobFrame", LuaGetGroupGlobFrame) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetGroupObjs", LuaGetGroupObjs) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetAllInGroup", LuaGetAllInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetFirstInGroup", LuaGetFirstInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetNext", LuaGetNext) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetLastInGroup", LuaGetLastInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetPrev", LuaGetPrev) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetNameInGroup", LuaGetNameInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetFirstNameInGroup", LuaGetFirstNameInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetNextName", LuaGetNextName) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetLastNameInGroup", LuaGetLastNameInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetPrevName", LuaGetPrevName) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetFirstGroupInGroup", LuaGetFirstGroupInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetNextGroup", LuaGetNextGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetLastGroupInGroup", LuaGetLastGroupInGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetPrevGroup", LuaGetPrevGroup) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetBBox", LuaGetBBox) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetBBoxGlob", LuaGetBBoxGlob) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetBBoxRef", LuaGetBBoxRef) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtCopy", LuaCopy) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtCopyGlob", LuaCopyGlob) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRelocate", LuaRelocate) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRelocateGlob", LuaRelocateGlob) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGroupSwap", LuaGroupSwap) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtGetNewId", LuaGetNewId) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtChangeId", LuaChangeId) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtErase", LuaErase) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtEmptyGroup", LuaEmptyGroup) ;
   return bOk ;
}