EgtExecutor 1.6g3 :

- correzione controlli in ExeCreateGeoFrame - ExeInitGeomDB rinominata ExeInitContext - aggiunta ExeDeleteContext - migliorato log di ExeExit - aggiunta possibilità di leggere e scrivere variabili LUA_Base.cpp - aggiunta possibilità di chiamare funzioni Lua.
2015-07-14 15:48:55 +00:00
parent d070901ce0
commit c5fdfea88c
27 changed files with 673 additions and 524 deletions
@@ -32,7 +32,7 @@ LuaExistsObj( lua_State* L)
  // verifico esistenza oggetto
   bool bOk = ExeExistsObj( nId) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }

@@ -47,7 +47,7 @@ LuaGetType( lua_State* L)
  // recupero tipo dell'oggetto
   int nType = ExeGetType( nId) ;
  // restituisco il risultato
-   LuaSetReturn( L, nType) ;
+   LuaSetParam( L, nType) ;
   return 1 ;
 }

@@ -62,7 +62,7 @@ LuaGetGroupObjs( lua_State* L)
  // determino il numero di oggetti nel gruppo
   int nObjs = ExeGetGroupObjs( nGroupId) ;
  // restituisco il risultato
-   LuaSetReturn( L, nObjs) ;
+   LuaSetParam( L, nObjs) ;
   return 1 ;
 }

@@ -78,9 +78,9 @@ LuaGetFirstInGroup( lua_State* L)
   int nId = ExeGetFirstInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -96,9 +96,9 @@ LuaGetNext( lua_State* L)
   int nNextId = ExeGetNext( nId) ;
  // restituisco il risultato
   if ( nNextId != GDB_ID_NULL)
-      LuaSetReturn( L, nNextId) ;
+      LuaSetParam( L, nNextId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -114,9 +114,9 @@ LuaGetLastInGroup( lua_State* L)
   int nId = ExeGetLastInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -132,9 +132,9 @@ LuaGetPrev( lua_State* L)
   int nPrevId = ExeGetPrev( nId) ;
  // restituisco il risultato
   if ( nPrevId != GDB_ID_NULL)
-      LuaSetReturn( L, nPrevId) ;
+      LuaSetParam( L, nPrevId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -152,9 +152,9 @@ LuaGetFirstNameInGroup( lua_State* L)
   int nId = ExeGetFirstNameInGroup( nGroupId, sName) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -172,9 +172,9 @@ LuaGetNextName( lua_State* L)
   int nNextId = ExeGetNextName( nId, sName) ;
  // restituisco il risultato
   if ( nNextId != GDB_ID_NULL)
-      LuaSetReturn( L, nNextId) ;
+      LuaSetParam( L, nNextId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -192,9 +192,9 @@ LuaGetLastNameInGroup( lua_State* L)
   int nId = ExeGetLastNameInGroup( nGroupId, sName) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -212,9 +212,9 @@ LuaGetPrevName( lua_State* L)
   int nPrevId = ExeGetPrevName( nId, sName) ;
  // restituisco il risultato
   if ( nPrevId != GDB_ID_NULL)
-      LuaSetReturn( L, nPrevId) ;
+      LuaSetParam( L, nPrevId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -230,9 +230,9 @@ LuaGetFirstGroupInGroup( lua_State* L)
   int nId = ExeGetFirstGroupInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -248,9 +248,9 @@ LuaGetNextGroup( lua_State* L)
   int nNewId = ExeGetNextGroup( nId) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
-      LuaSetReturn( L, nNewId) ;
+      LuaSetParam( L, nNewId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -266,9 +266,9 @@ LuaGetLastGroupInGroup( lua_State* L)
   int nId = ExeGetLastGroupInGroup( nGroupId) ;
  // restituisco il risultato
   if ( nId != GDB_ID_NULL)
-      LuaSetReturn( L, nId) ;
+      LuaSetParam( L, nId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -284,9 +284,9 @@ LuaGetPrevGroup( lua_State* L)
   int nNewId = ExeGetPrevGroup( nId) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
-      LuaSetReturn( L, nNewId) ;
+      LuaSetParam( L, nNewId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -305,9 +305,9 @@ LuaGetBBox( lua_State* L)
   bool bOk = ExeGetBBox( nId, nFlag, b3Box) ;
  // restituisco il risultato
   if ( bOk)
-      LuaSetReturn( L, b3Box) ;
+      LuaSetParam( L, b3Box) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -326,9 +326,9 @@ LuaGetBBoxGlob( lua_State* L)
   bool bOk = ExeGetBBoxGlob( nId, nFlag, b3Box) ;
  // restituisco il risultato
   if ( bOk)
-      LuaSetReturn( L, b3Box) ;
+      LuaSetParam( L, b3Box) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -349,9 +349,9 @@ LuaGetBBoxRef( lua_State* L)
   bool bOk = ExeGetBBoxRef( nId, nFlag, frRef, b3Box) ;
  // restituisco il risultato
   if ( bOk)
-      LuaSetReturn( L, b3Box) ;
+      LuaSetParam( L, b3Box) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -371,9 +371,9 @@ LuaCopy( lua_State* L)
   int nNewId = ExeCopy( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
-      LuaSetReturn( L, nNewId) ;
+      LuaSetParam( L, nNewId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -393,9 +393,9 @@ LuaCopyGlob( lua_State* L)
   int nNewId = ExeCopyGlob( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
-      LuaSetReturn( L, nNewId) ;
+      LuaSetParam( L, nNewId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -414,7 +414,7 @@ LuaRelocate( lua_State* L)
  // eseguo la rilocazione
   bool bOk = ( ExeRelocate( nSouId, nRefId, nSonBeforeAfter) != FALSE) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }

@@ -433,7 +433,7 @@ LuaRelocateGlob( lua_State* L)
  // eseguo la rilocazione
   bool bOk = ExeRelocateGlob( nSouId, nRefId, nSonBeforeAfter) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }

@@ -447,9 +447,9 @@ LuaGetNewId( lua_State* L)
   int nNewId = ExeGetNewId() ;
  // restituisco il risultato
   if ( nNewId != GDB_ID_NULL)
-      LuaSetReturn( L, nNewId) ;
+      LuaSetParam( L, nNewId) ;
   else
-      LuaSetReturn( L) ;
+      LuaSetParam( L) ;
   return 1 ;
 }

@@ -466,7 +466,7 @@ LuaChangeId( lua_State* L)
  // eseguo il cambio di identificativo
   bool bOk = ExeChangeId( nId, nNewId) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }

@@ -481,7 +481,7 @@ LuaErase( lua_State* L)
  // eseguo la cancellazione
   bool bOk = ExeErase( vId) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }

@@ -496,7 +496,7 @@ LuaEmptyGroup( lua_State* L)
  // eseguo la cancellazione
   bool bOk = ExeEmptyGroup( nId) ;
  // restituisco il risultato
-   LuaSetReturn( L, bOk) ;
+   LuaSetParam( L, bOk) ;
   return 1 ;
 }