Dario Sassi
9d3dc5e537
- costanti stringa sostituite con costanti numeriche - modificate funzioni API e LUA per scansione pezzi e layer - aggiunta pulizia memoria al caricamento messaggi (necessario al cambio lingua) - migliorie varie a funzioni Lua.
522 lines
15 KiB
C++
522 lines
15 KiB
C++
//----------------------------------------------------------------------------
|
|
// 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 "API.h"
|
|
#include "LUA.h"
|
|
#include "LUA_Base.h"
|
|
#include "AuxTools.h"
|
|
#include "/EgtDev/Include/EInAPI.h"
|
|
#include "/EgtDev/Include/EGkLuaAux.h"
|
|
#include "/EgtDev/Include/EGnStringUtils.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 = ( EgtExistsObj( nId) != FALSE) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, bOk) ;
|
|
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 = EgtGetType( nId) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, nType) ;
|
|
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 = EgtGetGroupObjs( nGroupId) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, nObjs) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetFirstInGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : GroupId
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
LuaClearStack( L) ;
|
|
// recupero il primo oggetto del gruppo
|
|
int nId = EgtGetFirstInGroup( nGroupId) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetNext( lua_State* L)
|
|
{
|
|
// 1 parametro : Id
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
LuaClearStack( L) ;
|
|
// recupero il prossimo oggetto nello stesso gruppo
|
|
int nNextId = EgtGetNext( nId) ;
|
|
// restituisco il risultato
|
|
if ( nNextId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNextId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetLastInGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : GroupId
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
LuaClearStack( L) ;
|
|
// recupero l'ultimo oggetto del gruppo
|
|
int nId = EgtGetLastInGroup( nGroupId) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetPrev( lua_State* L)
|
|
{
|
|
// 1 parametro : Id
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
LuaClearStack( L) ;
|
|
// recupero il precedente oggetto nello stesso gruppo
|
|
int nPrevId = EgtGetPrev( nId) ;
|
|
// restituisco il risultato
|
|
if ( nPrevId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nPrevId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetFirstNameInGroup( lua_State* L)
|
|
{
|
|
// 2 parametri : GroupId, sName
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
string sName ;
|
|
LuaCheckParam( L, 2, sName)
|
|
LuaClearStack( L) ;
|
|
// recupero il primo oggetto del gruppo con il nome desiderato
|
|
int nId = EgtGetFirstNameInGroup( nGroupId, sName) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetNextName( lua_State* L)
|
|
{
|
|
// 2 parametri : Id, sName
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
string sName ;
|
|
LuaCheckParam( L, 2, sName)
|
|
LuaClearStack( L) ;
|
|
// recupero il prossimo oggetto nello stesso gruppo con il nome desiderato
|
|
int nNextId = EgtGetNextName( nId, sName) ;
|
|
// restituisco il risultato
|
|
if ( nNextId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNextId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetLastNameInGroup( lua_State* L)
|
|
{
|
|
// 2 parametri : GroupId, sName
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
string sName ;
|
|
LuaCheckParam( L, 2, sName)
|
|
LuaClearStack( L) ;
|
|
// recupero l'ultimo oggetto del gruppo con il nome desiderato
|
|
int nId = EgtGetLastNameInGroup( nGroupId, sName) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetPrevName( lua_State* L)
|
|
{
|
|
// 2 parametri : Id, sName
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
string sName ;
|
|
LuaCheckParam( L, 2, sName)
|
|
LuaClearStack( L) ;
|
|
// recupero il precedente oggetto nello stesso gruppo con il nome desiderato
|
|
int nPrevId = EgtGetPrevName( nId, sName) ;
|
|
// restituisco il risultato
|
|
if ( nPrevId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nPrevId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetFirstGroupInGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : GroupId
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
LuaClearStack( L) ;
|
|
// recupero il primo oggetto gruppo del gruppo
|
|
int nId = EgtGetFirstGroupInGroup( nGroupId) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetNextGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : Id
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
LuaClearStack( L) ;
|
|
// recupero il prossimo oggetto gruppo dello stesso gruppo
|
|
int nNewId = EgtGetNextGroup( nId) ;
|
|
// restituisco il risultato
|
|
if ( nNewId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNewId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetLastGroupInGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : GroupId
|
|
int nGroupId ;
|
|
LuaCheckParam( L, 1, nGroupId)
|
|
LuaClearStack( L) ;
|
|
// recupero l'ultimo oggetto gruppo del gruppo
|
|
int nId = EgtGetLastGroupInGroup( nGroupId) ;
|
|
// restituisco il risultato
|
|
if ( nId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nId) ;
|
|
else
|
|
LuaSetReturn( L) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaGetPrevGroup( lua_State* L)
|
|
{
|
|
// 1 parametro : Id
|
|
int nId ;
|
|
LuaCheckParam( L, 1, nId)
|
|
LuaClearStack( L) ;
|
|
// recupero il precedenteo oggetto gruppo dello stesso gruppo
|
|
int nNewId = EgtGetPrevGroup( nId) ;
|
|
// restituisco il risultato
|
|
if ( nNewId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNewId) ;
|
|
else
|
|
LuaSetReturn( 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 = EgtGetBBox( nId, nFlag, b3Box) ;
|
|
// restituisco il risultato
|
|
if ( bOk)
|
|
LuaSetReturn( L, b3Box) ;
|
|
else
|
|
LuaSetReturn( 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 = EgtGetBBoxGlob( nId, nFlag, b3Box) ;
|
|
// restituisco il risultato
|
|
if ( bOk)
|
|
LuaSetReturn( L, b3Box) ;
|
|
else
|
|
LuaSetReturn( 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 = EgtGetBBoxRef( nId, nFlag, frRef, b3Box) ;
|
|
// restituisco il risultato
|
|
if ( bOk)
|
|
LuaSetReturn( L, b3Box) ;
|
|
else
|
|
LuaSetReturn( 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 = EgtCopy( nSouId, nRefId, nSonBeforeAfter) ;
|
|
// restituisco il risultato
|
|
if ( nNewId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNewId) ;
|
|
else
|
|
LuaSetReturn( 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 = EgtCopyGlob( nSouId, nRefId, nSonBeforeAfter) ;
|
|
// restituisco il risultato
|
|
if ( nNewId != GDB_ID_NULL)
|
|
LuaSetReturn( L, nNewId) ;
|
|
else
|
|
LuaSetReturn( 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 = ( EgtRelocate( nSouId, nRefId, nSonBeforeAfter) != FALSE) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( 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 = ( EgtRelocateGlob( nSouId, nRefId, nSonBeforeAfter) != FALSE) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, bOk) ;
|
|
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 = ( EgtChangeId( nId, nNewId) != FALSE) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, bOk) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
static int
|
|
LuaErase( lua_State* L)
|
|
{
|
|
// 1 parametro : Id/s
|
|
INTVECTOR vId ;
|
|
LuaCheckParam( L, 1, vId)
|
|
LuaClearStack( L) ;
|
|
// eseguo la cancellazione
|
|
bool bOk = EgtErase( vId) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( 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 = ( EgtEmptyGroup( nId) != FALSE) ;
|
|
// restituisco il risultato
|
|
LuaSetReturn( L, bOk) ;
|
|
return 1 ;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
bool
|
|
LuaInstallGdbObjects( void)
|
|
{
|
|
bool bOk = true ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtExistsObj", LuaExistsObj) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetType", LuaGetType) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetGroupObjs", LuaGetGroupObjs) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetFirstInGroup", LuaGetFirstInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetNext", LuaGetNext) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetLastInGroup", LuaGetLastInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetPrev", LuaGetPrev) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetFirstNameInGroup", LuaGetFirstNameInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetNextName", LuaGetNextName) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetLastNameInGroup", LuaGetLastNameInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetPrevName", LuaGetPrevName) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetFirstGroupInGroup", LuaGetFirstGroupInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetNextGroup", LuaGetNextGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetLastGroupInGroup", LuaGetLastGroupInGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetPrevGroup", LuaGetPrevGroup) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetBBox", LuaGetBBox) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetBBoxGlob", LuaGetBBoxGlob) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtGetBBoxRef", LuaGetBBoxRef) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtCopy", LuaCopy) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtCopyGlob", LuaCopyGlob) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtRelocate", LuaRelocate) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtRelocateGlob", LuaRelocateGlob) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtChangeId", LuaChangeId) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtErase", LuaErase) ;
|
|
bOk = bOk && LuaRegisterFunction( "EgtEmptyGroup", LuaEmptyGroup) ;
|
|
return bOk ;
|
|
}
|