diff --git a/EXE_GdbCreate.cpp b/EXE_GdbCreate.cpp index 4054ea4..33f9647 100644 --- a/EXE_GdbCreate.cpp +++ b/EXE_GdbCreate.cpp @@ -160,8 +160,8 @@ ExeCreateGeoFrame( int nParentId, const Frame3d& frFrame, int nRefType) Vector3d vtZL = GetVectorLocal( pGeomDB, frFrame.VersZ(), nRefType, frLoc) ; ; // creo e setto il riferimento PtrOwner pGeoFrm( CreateGeoFrame3d()) ; - bOk = bOk & ! IsNull( pGeoFrm) ; - bOk = bOk & pGeoFrm->Set( ptOrigL, vtXL, vtYL, vtZL) ; + bOk = bOk && ! IsNull( pGeoFrm) ; + bOk = bOk && pGeoFrm->Set( ptOrigL, vtXL, vtYL, vtZL) ; // inserisco il riferimento nel DB int nId = ( bOk ? pGeomDB->AddGeoObj( GDB_ID_NULL, nParentId, Release( pGeoFrm)) : GDB_ID_NULL) ; ExeSetModified() ; diff --git a/EXE_General.cpp b/EXE_General.cpp index 51f8769..f8c3684 100644 --- a/EXE_General.cpp +++ b/EXE_General.cpp @@ -112,9 +112,17 @@ ExeInit( int nDebug, const string& sLogFile, const string& sLogMsg) bool ExeExit( void) { + // recupero vettore dei contesti attivi + INTVECTOR vOn ; + GetAllGseContextOn( vOn) ; + // cancello tutti i contesti ClearAllGseContexts() ; + // log dei contesti cancellati + string sTmp = "All Contexts deleted (" + ToString( vOn) + ")" ; + LOG_INFO( s_pGenLog, sTmp.c_str()) + // termino l'interprete LUA LuaExit() ; diff --git a/EXE_GeomDB.cpp b/EXE_GeomDB.cpp index ac3a3a2..0a75bb4 100644 --- a/EXE_GeomDB.cpp +++ b/EXE_GeomDB.cpp @@ -25,7 +25,7 @@ using namespace std ; //----------------------------------------------------------------------------- int -ExeInitGeomDB( void) +ExeInitContext( void) { // creo e recupero un contesto libero int nGseCtx = CreateGseContext() ; @@ -44,13 +44,28 @@ ExeInitGeomDB( void) pGseCtx->m_pGeomDB->SetDefaultMaterial( pGseCtx->m_colDef) ; // rendo corrente il contesto SetCurrGseContext( nGseCtx) ; - // log avvio DB geometrico - string sLog = "GeomDB started " + ToString( nGseCtx) ; + // log avvio Context (DB geometrico) + string sLog = "Context " + ToString( nGseCtx) + " started" ; LOG_INFO( GetLogger(), sLog.c_str()) return nGseCtx ; } +//----------------------------------------------------------------------------- +int +ExeDeleteContext( int nGseCtx) +{ + // se contesto corrente, lo resetto + if ( nGseCtx == GetIndCurrGseContext()) + ResetCurrGseContext() ; + // lo cancello + bool bOk = DeleteGseContext( nGseCtx) ; + // log arresto Context (DB geometrico + eventuale Scene) + string sLog = "Context " + ToString( nGseCtx) + ( bOk ? " deleted" : " not found") ; + LOG_INFO( GetLogger(), sLog.c_str()) + return bOk ; +} + //----------------------------------------------------------------------------- bool ExeSetCurrentContext( int nGseCtx) diff --git a/EXE_Lua.cpp b/EXE_Lua.cpp index 34ec009..e06ca96 100644 --- a/EXE_Lua.cpp +++ b/EXE_Lua.cpp @@ -21,6 +21,98 @@ using namespace std ; +//----------------------------------------------------------------------------- +bool +ExeLuaSetGlobBoolVar( const string& sVar, bool bVal) +{ + // assegno il valore della variabile + return LuaSetGlobVar( sVar, bVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaSetGlobIntVar( const string& sVar, int nVal) +{ + // assegno il valore della variabile + return LuaSetGlobVar( sVar, nVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaSetGlobNumVar( const string& sVar, double dVal) +{ + // assegno il valore della variabile + return LuaSetGlobVar( sVar, dVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaSetGlobStringVar( const string& sVar, const string& sVal) +{ + // assegno il valore della variabile + return LuaSetGlobVar( sVar, sVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaGetGlobBoolVar( const string& sVar, bool* pbVal) +{ + // verifico parametro di ritorno + if ( pbVal == nullptr) + return false ; + // recupero il valore della variabile + return LuaGetGlobVar( sVar, *pbVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaGetGlobIntVar( const string& sVar, int* pnVal) +{ + // verifico parametro di ritorno + if ( pnVal == nullptr) + return false ; + // recupero il valore della variabile + return LuaGetGlobVar( sVar, *pnVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaGetGlobNumVar( const string& sVar, double* pdVal) +{ + // verifico parametro di ritorno + if ( pdVal == nullptr) + return false ; + // recupero il valore della variabile + return LuaGetGlobVar( sVar, *pdVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaGetGlobStringVar( const string& sVar, string& sVal) +{ + // verifico parametro di ritorno + if ( &sVal == nullptr) + return false ; + // recupero il valore della variabile + return LuaGetGlobVar( sVar, sVal) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaResetGlobVar( const string& sVar) +{ + // eseguo il reset della variabile + return LuaResetGlobVar( sVar) ; +} + +//----------------------------------------------------------------------------- +bool +ExeLuaCreateGlobTable( const string& sVar) +{ + // creazione della tavola + return LuaCreateGlobTable( sVar) ; +} + //----------------------------------------------------------------------------- bool ExeLuaEvalNumExpr( const string& sExpr, double* pdVal) @@ -29,7 +121,7 @@ ExeLuaEvalNumExpr( const string& sExpr, double* pdVal) if ( pdVal == nullptr) return false ; // valuto l'espressione - return LuaEvalNumExpr( sExpr, *pdVal) ; + return LuaEvalExpr( sExpr, *pdVal) ; } //----------------------------------------------------------------------------- @@ -40,7 +132,7 @@ ExeLuaEvalStringExpr( const string& sExpr, string& sVal) if ( &sVal == nullptr) return false ; // valuto l'espressione - return LuaEvalStringExpr( sExpr, sVal) ; + return LuaEvalExpr( sExpr, sVal) ; } //----------------------------------------------------------------------------- diff --git a/EgtExecutor.rc b/EgtExecutor.rc index f7c457d..66bed83 100644 Binary files a/EgtExecutor.rc and b/EgtExecutor.rc differ diff --git a/GseContext.cpp b/GseContext.cpp index 3392f37..377568f 100644 --- a/GseContext.cpp +++ b/GseContext.cpp @@ -45,6 +45,19 @@ DeleteGseContext( int nInd) return true ; } +//---------------------------------------------------------------------------- +bool +GetAllGseContextOn( INTVECTOR& vOn) +{ + vOn.reserve( MAX_CTX) ; + vOn.clear() ; + for ( int i = 0 ; i < MAX_CTX ; ++ i) { + if ( s_GseOn[i]) + vOn.push_back( i + 1) ; + } + return true ; +} + //---------------------------------------------------------------------------- bool ClearAllGseContexts( void) diff --git a/GseContext.h b/GseContext.h index 704d466..e35cf06 100644 --- a/GseContext.h +++ b/GseContext.h @@ -75,6 +75,7 @@ class GseContext //---------------------------------------------------------------------------- int CreateGseContext( void) ; bool DeleteGseContext( int nInd) ; +bool GetAllGseContextOn( INTVECTOR& vOn) ; bool ClearAllGseContexts( void) ; GseContext* GetGseContext( int nInd) ; IGeomDB* GetGeomDB( int nInd) ; diff --git a/LUA_Base.cpp b/LUA_Base.cpp index bf792ef..81da43d 100644 --- a/LUA_Base.cpp +++ b/LUA_Base.cpp @@ -17,6 +17,7 @@ #include "LUA.h" #include "LUA_Base.h" #include "/EgtDev/Include/EXeExecutor.h" +#include "/EgtDev/Include/EGkLuaAux.h" #include "/EgtDev/Include/EGnLuaMgr.h" using namespace std ; @@ -136,6 +137,13 @@ LuaExit( void) return true ; } +//---------------------------------------------------------------------------- +LuaMgr& +LuaGetLuaMgr( void) +{ + return s_LuaMgr ; +} + //---------------------------------------------------------------------------- bool LuaSetLuaLibsDir( const string& sDir) @@ -152,16 +160,16 @@ LuaRequire( const string& sFile) //---------------------------------------------------------------------------- bool -LuaEvalNumExpr( const string& sExpr, double& dVal) +LuaResetGlobVar( const string& sVar) { - return s_LuaMgr.EvalNumExpr( sExpr, dVal) ; + return LuaResetGlobVar( s_LuaMgr.GetLuaState(), sVar) ; } //---------------------------------------------------------------------------- bool -LuaEvalStringExpr( const string& sExpr, string& sVal) +LuaCreateGlobTable( const string& sVar) { - return s_LuaMgr.EvalStringExpr( sExpr, sVal) ; + return LuaCreateGlobTable( s_LuaMgr.GetLuaState(), sVar) ; } //---------------------------------------------------------------------------- diff --git a/LUA_Base.h b/LUA_Base.h index af8df20..5d344c2 100644 --- a/LUA_Base.h +++ b/LUA_Base.h @@ -13,19 +13,31 @@ #pragma once -#include - -//---------------------------------------------------------------------------- -struct lua_State ; -typedef int(*PFLUA) ( lua_State*) ; +#include "/EgtDev/Include/EGnLuaMgr.h" //---------------------------------------------------------------------------- bool LuaInit( void) ; bool LuaExit( void) ; +LuaMgr& LuaGetLuaMgr( void) ; bool LuaSetLuaLibsDir( const std::string& sDir) ; bool LuaRequire( const std::string& sFile) ; -bool LuaEvalNumExpr( const std::string& sExpr, double& dVal) ; -bool LuaEvalStringExpr( const std::string& sExpr, std::string& sVal) ; +template +bool LuaSetGlobVar( const std::string& sVar, const T& Val) + { return LuaSetGlobVar( LuaGetLuaMgr().GetLuaState(), sVar, Val) ; } +template +bool LuaGetGlobVar( const std::string& sVar, T& Val) + { return LuaGetGlobVar( LuaGetLuaMgr().GetLuaState(), sVar, Val) ; } +bool LuaResetGlobVar( const std::string& sVar) ; +bool LuaCreateGlobTable( const std::string& sVar) ; +template +bool LuaCallFunction( const std::string& sFunName, int nRets, const Args&... params) + { return LuaGetLuaMgr().CallFunction( sFunName, nRets, params...) ; } +template +bool LuaGetFunctionReturns( Args&... rets) + { return LuaGetLuaMgr().GetFunctionReturns( rets...) ; } +template +bool LuaEvalExpr( const std::string& sExpr, T& Val) + { return LuaGetLuaMgr().EvalExpr( sExpr, Val) ; } bool LuaExecLine( const std::string& sLine) ; bool LuaExecFile( const std::string& sFile) ; const std::string& LuaGetLastError( void) ; diff --git a/LUA_Exchange.cpp b/LUA_Exchange.cpp index 56eda38..5fdda35 100644 --- a/LUA_Exchange.cpp +++ b/LUA_Exchange.cpp @@ -34,7 +34,7 @@ LuaImportDxf( lua_State* L) // apro il file bool bOk = ExeImportDxf( sFilePath, dScaleFactor) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -51,7 +51,7 @@ LuaImportStl( lua_State* L) // apro il file bool bOk = ExeImportStl( sFilePath, dScaleFactor) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -66,7 +66,7 @@ LuaImportCnc( lua_State* L) // apro il file bool bOk = ExeImportCnc( sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -81,7 +81,7 @@ LuaImportCsf( lua_State* L) // apro il file bool bOk = ExeImportCsf( sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -98,7 +98,7 @@ LuaExportDxf( lua_State* L) // apro il file bool bOk = ExeExportDxf( nGroupId, sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -115,7 +115,7 @@ LuaExportStl( lua_State* L) // apro il file bool bOk = ExeExportStl( nGroupId, sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_GdbCreate.cpp b/LUA_GdbCreate.cpp index d1ba5f5..fc13a0f 100644 --- a/LUA_GdbCreate.cpp +++ b/LUA_GdbCreate.cpp @@ -41,9 +41,9 @@ LuaCreateGroup( lua_State* L) int nId = ExeCreateGroup( nParentId, frFrame, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -63,9 +63,9 @@ LuaCreateGeoPoint( lua_State* L) int nId = ExeCreateGeoPoint( nParentId, ptP, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -89,9 +89,9 @@ LuaCreateGeoVector( lua_State* L) int nId = ExeCreateGeoVector( nParentId, vtV, ptB, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -111,9 +111,9 @@ LuaCreateGeoFrame( lua_State* L) int nId = ExeCreateGeoFrame( nParentId, frFrame, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -139,9 +139,9 @@ LuaCreateText( lua_State* L) int nId = ExeCreateText( nParentId, ptP, dAngRotDeg, sText, dH, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -175,9 +175,9 @@ LuaCreateTextEx( lua_State* L) int nId = ExeCreateTextEx( nParentId, ptP, vtN, vtD, sText, sFont, bItalic, dH, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -220,9 +220,9 @@ LuaCreateTextAdv( lua_State* L) sText, sFont, nW, bItalic, dH, dRat, dAddAdv, nInsPos, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } diff --git a/LUA_GdbCreateCurve.cpp b/LUA_GdbCreateCurve.cpp index aa457d4..04e1f3a 100644 --- a/LUA_GdbCreateCurve.cpp +++ b/LUA_GdbCreateCurve.cpp @@ -39,9 +39,9 @@ LuaCreateCurveLine( lua_State* L) int nId = ExeCreateCurveLine( nParentId, ptIni, ptFin, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -73,9 +73,9 @@ LuaCreateCurveLineEx( lua_State* L) ptFin, nSepF, nIdF, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -99,9 +99,9 @@ LuaCreateCurveLinePVL( lua_State* L) int nId = ExeCreateCurveLinePVL( nParentId, ptIni, vtDir, dLen, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -127,9 +127,9 @@ LuaCreateCurveLineMinPointCurve( lua_State* L) int nId = ExeCreateCurveLineMinPointCurve( nParentId, ptIni, nCrvId, dNearPar, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -153,9 +153,9 @@ LuaCreateCurveCircle( lua_State* L) int nId = ExeCreateCurveCircle( nParentId, ptCen, vtN, dRad, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -179,9 +179,9 @@ LuaCreateCurveCircleCPN( lua_State* L) int nId = ExeCreateCurveCircleCPN( nParentId, ptCen, ptOn, vtN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -209,9 +209,9 @@ LuaCreateCurveCircleCPNEx( lua_State* L) int nId = ExeCreateCurveCircleCPNEx( nParentId, ptCen, ptOn, nSepO, nIdO, vtN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -235,9 +235,9 @@ LuaCreateCurveCircle3P( lua_State* L) int nId = ExeCreateCurveCircle3P( nParentId, ptP1, ptP2, ptP3, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -267,9 +267,9 @@ LuaCreateCurveArc( lua_State* L) int nId = ExeCreateCurveArc( nParentId, ptCen, vtN, dRad, vtS, dAngCenDeg, dDeltaN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -295,9 +295,9 @@ LuaCreateCurveArcC2PN( lua_State* L) int nId = ExeCreateCurveArcC2PN( nParentId, ptCen, ptStart, ptNearEnd, vtNorm, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -327,9 +327,9 @@ LuaCreateCurveArcC2PNEx( lua_State* L) int nId = ExeCreateCurveArcC2PNEx( nParentId, ptCen, ptStart, nSepS, nIdS, ptNearEnd, vtNorm, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -353,9 +353,9 @@ LuaCreateCurveArc3P( lua_State* L) int nId = ExeCreateCurveArc3P( nParentId, ptP1, ptP2, ptP3, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -381,9 +381,9 @@ LuaCreateCurveArc2PVN( lua_State* L) int nId = ExeCreateCurveArc2PVN( nParentId, ptStart, ptEnd, vtDirS, vtNorm, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -414,9 +414,9 @@ LuaCreateCurveArc2PVNEx( lua_State* L) vtDirS, vtNorm, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -449,9 +449,9 @@ LuaCreateCurveFillet( lua_State* L) vtNorm, dRad, bTrim, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -484,9 +484,9 @@ LuaCreateCurveChamfer( lua_State* L) vtNorm, dDist, bTrim, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -508,9 +508,9 @@ LuaCreateCurveBezier( lua_State* L) int nId = ExeCreateCurveBezier( nParentId, nDegree, vPnt, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -532,9 +532,9 @@ LuaCreateCurveBezierRational( lua_State* L) int nId = ExeCreateCurveBezierRational( nParentId, nDegree, vPntW, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -554,9 +554,9 @@ LuaCreateCurveBezierFromArc( lua_State* L) int nId = ExeCreateCurveBezierFromArc( nParentId, nArcId, bErase) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -576,9 +576,9 @@ LuaCreateCurveCompo( lua_State* L) int nId = ExeCreateCurveCompo( nParentId, vIds, bErase) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -605,10 +605,10 @@ LuaCreateCurveCompoByChain( lua_State* L) int nId = ExeCreateCurveCompoByChain( nParentId, vIds, ptNear, bErase, nRefType, &nCount) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } @@ -632,9 +632,9 @@ LuaCreateCurveCompoFromPoints( lua_State* L) int nId = ExeCreateCurveCompoFromPoints( nParentId, PL, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -658,9 +658,9 @@ LuaCreateCurveCompoFromPointBulges( lua_State* L) int nId = ExeCreateCurveCompoFromPointBulges( nParentId, PA, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -684,9 +684,9 @@ LuaCreateRectangle3P( lua_State* L) int nId = ExeCreateRectangle3P( nParentId, ptIni, ptCross, ptDir, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -712,9 +712,9 @@ LuaCreatePolygonFromRadius( lua_State* L) int nId = ExeCreatePolygonFromRadius( nParentId, nNumSides, PtCen, PtCorn, vtN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -740,9 +740,9 @@ LuaCreatePolygonFromApothem( lua_State* L) int nId = ExeCreatePolygonFromApothem( nParentId, nNumSides, PtCen, PtMid, vtN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -768,9 +768,9 @@ LuaCreatePolygonFromSide( lua_State* L) int nId = ExeCreatePolygonFromSide( nParentId, nNumSides, ptIni, ptFin, vtN, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } diff --git a/LUA_GdbCreateSurf.cpp b/LUA_GdbCreateSurf.cpp index 86f45f3..76ea059 100644 --- a/LUA_GdbCreateSurf.cpp +++ b/LUA_GdbCreateSurf.cpp @@ -41,9 +41,9 @@ LuaCreateSurfTmBBox( lua_State* L) int nId = ExeCreateSurfTmBBox( nParentId, b3Box, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -69,9 +69,9 @@ LuaCreateSurfTmBox( lua_State* L) int nId = ExeCreateSurfTmBox( nParentId, ptIni, ptCross, ptDir, dHeight, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -97,9 +97,9 @@ LuaCreateSurfTmPyramid( lua_State* L) int nId = ExeCreateSurfTmPyramid( nParentId, ptIni, ptCross, ptDir, dHeight, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -129,9 +129,9 @@ LuaCreateSurfTmCylinder( lua_State* L) int nId = ExeCreateSurfTmCylinder( nParentId, ptOrig, vtN, dRad, dHeight, dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -161,9 +161,9 @@ LuaCreateSurfTmCone( lua_State* L) int nId = ExeCreateSurfTmCone( nParentId, ptOrig, vtN, dRad, dHeight, dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -189,9 +189,9 @@ LuaCreateSurfTmSphere( lua_State* L) int nId = ExeCreateSurfTmSphere( nParentId, ptOrig, dRad, dLinTol, nRefType) ; // 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 @@ LuaCreateSurfTmByFlatContour( lua_State* L) int nId = ExeCreateSurfTmByFlatContour( nParentId, nCrvId, dLinTol) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -235,9 +235,9 @@ LuaCreateSurfTmByRegion( lua_State* L) int nId = ExeCreateSurfTmByRegion( nParentId, vCrvIds, dLinTol) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -264,9 +264,9 @@ LuaCreateSurfTmByExtrusion( lua_State* L) dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -292,9 +292,9 @@ LuaCreateSurfTmByRegionExtrusion( lua_State* L) int nId = ExeCreateSurfTmByRegionExtrusion( nParentId, vCrvIds, vtExtr, dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -324,9 +324,9 @@ LuaCreateSurfTmByRevolve( lua_State* L) int nId = ExeCreateSurfTmByRevolve( nParentId, nCrvId, ptAx, vtAx, bCapEnds, dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -358,9 +358,9 @@ LuaCreateSurfTmByScrewing( lua_State* L) int nId = ExeCreateSurfTmByScrewing( nParentId, nCrvId, ptAx, vtAx, dAngRotDeg, dMove, dLinTol, nRefType) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -383,9 +383,9 @@ LuaCreateSurfTmRuled( lua_State* L) int nId = ExeCreateSurfTmRuled( nParentId, nPtOrCrvId1, nPtOrCrvId2, dLinTol) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -406,9 +406,9 @@ LuaCreateSurfTmByTriangles( lua_State* L) int nId = ExeCreateSurfTmByTriangles( nParentId, vId, bErase) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -429,9 +429,9 @@ LuaCreateSurfTmBySewing( lua_State* L) int nId = ExeCreateSurfTmBySewing( nParentId, vId, bErase) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } diff --git a/LUA_GdbModify.cpp b/LUA_GdbModify.cpp index 17e8ea1..d0458c5 100644 --- a/LUA_GdbModify.cpp +++ b/LUA_GdbModify.cpp @@ -36,7 +36,7 @@ LuaChangeGroupFrame( lua_State* L) LuaClearStack( L) ; // modifica del riferimento bool bOk = ExeChangeGroupFrame( nId, frNewRef, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -54,7 +54,7 @@ LuaChangeVectorBase( lua_State* L) LuaClearStack( L) ; // modifica del punto base bool bOk = ExeChangeVectorBase( nId, ptBase, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -70,7 +70,7 @@ LuaModifyText( lua_State* L) LuaClearStack( L) ; // modifica del testo bool bOk = ExeModifyText( nId, sNewText) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -86,7 +86,7 @@ LuaChangeTextFont( lua_State* L) LuaClearStack( L) ; // modifica del testo bool bOk = ExeChangeTextFont( nId, sNewFont) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -100,7 +100,7 @@ LuaFlipText( lua_State* L) LuaClearStack( L) ; // flip del testo bool bOk = ExeFlipText( nId) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -116,7 +116,7 @@ LuaMirrorText( lua_State* L) LuaClearStack( L) ; // flip del testo bool bOk = ExeMirrorText( nId, bOnL) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -132,10 +132,10 @@ LuaExplodeText( lua_State* L) int nCount ; int nFirstId = ExeExplodeText( nId, &nCount) ; if ( nFirstId != GDB_ID_NULL) - LuaSetReturn( L, nFirstId) ; + LuaSetParam( L, nFirstId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } @@ -151,10 +151,10 @@ LuaSplitText( lua_State* L) int nCount ; int nFirstId = ExeSplitText( nId, &nCount) ; if ( nFirstId != GDB_ID_NULL) - LuaSetReturn( L, nFirstId) ; + LuaSetParam( L, nFirstId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } diff --git a/LUA_GdbModifyCurve.cpp b/LUA_GdbModifyCurve.cpp index 573ace6..aedf223 100644 --- a/LUA_GdbModifyCurve.cpp +++ b/LUA_GdbModifyCurve.cpp @@ -32,7 +32,7 @@ LuaInvertCurve( lua_State* L) // eseguo inversione curve bool bOk = ExeInvertCurve( vId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -50,7 +50,7 @@ LuaOffsetCurve( lua_State* L) LuaClearStack( L) ; // offset della curva bool bOk = ExeOffsetCurve( nId, dDist, nType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -68,7 +68,7 @@ LuaChangeClosedCurveStartPoint( lua_State* L) LuaClearStack( L) ; // modifico il punto iniziale bool bOk = ExeChangeClosedCurveStartPoint( nId, ptStart, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -86,7 +86,7 @@ LuaModifyCurveStartPoint( lua_State* L) LuaClearStack( L) ; // modifico il punto iniziale bool bOk = ExeModifyCurveStartPoint( nId, ptStart, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -104,7 +104,7 @@ LuaModifyCurveEndPoint( lua_State* L) LuaClearStack( L) ; // modifico il punto finale bool bOk = ExeModifyCurveEndPoint( nId, ptEnd, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -123,7 +123,7 @@ LuaModifyCurveExtrusion( lua_State* L) // modifico il vettore estrusione bool bOk = ExeModifyCurveExtrusion( vId, vtExtr, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -140,7 +140,7 @@ LuaModifyCurveThickness( lua_State* L) // modifico lo spessore di estrusione bool bOk = ExeModifyCurveThickness( vId, dThick) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -156,7 +156,7 @@ LuaTrimCurveStartAtLen( lua_State* L) LuaClearStack( L) ; // taglio la curva all'inizio bool bOk = ExeTrimCurveStartAtLen( nId, dLen) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -172,7 +172,7 @@ LuaTrimCurveEndAtLen( lua_State* L) LuaClearStack( L) ; // taglio la curva alla fine bool bOk = ExeTrimCurveEndAtLen( nId, dLen) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -188,7 +188,7 @@ LuaTrimCurveStartAtParam( lua_State* L) LuaClearStack( L) ; // taglio la curva all' inizio bool bOk = ExeTrimCurveStartAtParam( nId, dPar) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -204,7 +204,7 @@ LuaTrimCurveEndAtParam( lua_State* L) LuaClearStack( L) ; // taglio la curva alla fine bool bOk = ExeTrimCurveEndAtParam( nId, dPar) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -222,7 +222,7 @@ LuaTrimCurveStartEndAtParam( lua_State* L) LuaClearStack( L) ; // taglio la curva alla fine bool bOk = ExeTrimCurveStartEndAtParam( nId, dParS, dParE) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -242,7 +242,7 @@ LuaTrimExtendCurveByLen( lua_State* L) LuaClearStack( L) ; // taglio o allungo la curva nell'estremo pił vicino al punto bool bOk = ExeTrimExtendCurveByLen( nId, dLen, ptNear, nRefType) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -259,9 +259,9 @@ LuaSplitCurve( lua_State* L) // divido la curva nel punto int nFirstId = ExeSplitCurve( nId, nParts) ; if ( nFirstId != GDB_ID_NULL) - LuaSetReturn( L, nFirstId) ; + LuaSetParam( L, nFirstId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -280,9 +280,9 @@ LuaSplitCurveAtPoint( lua_State* L) // divido la curva nel punto int nNewId = ExeSplitCurveAtPoint( nId, ptOn, nRefType) ; if ( nNewId != GDB_ID_NULL) - LuaSetReturn( L, nNewId) ; + LuaSetParam( L, nNewId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -298,10 +298,10 @@ LuaSplitCurveAtSelfInters( lua_State* L) int nCount ; int nNewId = ExeSplitCurveAtSelfInters( nId, &nCount) ; if ( nNewId != GDB_ID_NULL) - LuaSetReturn( L, nNewId) ; + LuaSetParam( L, nNewId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } @@ -320,9 +320,9 @@ LuaApproxCurve( lua_State* L) // approssimazione della curva con rette int nNewId = ExeApproxCurve( nId, nApprType, dLinTol) ; if ( nNewId != GDB_ID_NULL) - LuaSetReturn( L, nNewId) ; + LuaSetParam( L, nNewId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -338,7 +338,7 @@ LuaModifyCurveArcRadius( lua_State* L) LuaClearStack( L) ; // modifica del raggio bool bOk = ExeModifyCurveArcRadius( nId, dNewRad) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -354,10 +354,10 @@ LuaExplodeCurveCompo( lua_State* L) int nCount ; int nFirstId = ExeExplodeCurveCompo( nId, &nCount) ; if ( nFirstId != GDB_ID_NULL) - LuaSetReturn( L, nFirstId) ; + LuaSetParam( L, nFirstId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } @@ -373,7 +373,7 @@ LuaMergeCurvesInCurveCompo( lua_State* L) LuaClearStack( L) ; // esplosione della curva composita bool bOk = ExeMergeCurvesInCurveCompo( nId, dLinTol) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_GdbModifySurf.cpp b/LUA_GdbModifySurf.cpp index 748115e..ddb90a3 100644 --- a/LUA_GdbModifySurf.cpp +++ b/LUA_GdbModifySurf.cpp @@ -33,7 +33,7 @@ LuaInvertSurf( lua_State* L) // eseguo inversione superfici bool bOk = ExeInvertSurface( vId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -54,10 +54,10 @@ LuaExtractSurfTmFacetLoops( lua_State* L) int nNewId = ExeExtractSurfTmFacetLoops( nId, nFacet, nDestGrpId, &nCount) ; // restituisco il risultato if ( nNewId != GDB_ID_NULL) - LuaSetReturn( L, nNewId) ; + LuaSetParam( L, nNewId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } @@ -73,10 +73,10 @@ LuaExplodeSurfTm( lua_State* L) int nCount ; int nFirstId = ExeExplodeSurfTm( nId, &nCount) ; if ( nFirstId != GDB_ID_NULL) - LuaSetReturn( L, nFirstId) ; + LuaSetParam( L, nFirstId) ; else - LuaSetReturn( L) ; - LuaSetReturn( L, nCount) ; + LuaSetParam( L) ; + LuaSetParam( L, nCount) ; return 2 ; } diff --git a/LUA_GdbObjAttribs.cpp b/LUA_GdbObjAttribs.cpp index 2eda847..1a356cd 100644 --- a/LUA_GdbObjAttribs.cpp +++ b/LUA_GdbObjAttribs.cpp @@ -33,7 +33,7 @@ LuaSetLevel( lua_State* L) // imposto lo stato bool bOk = ExeSetLevel( nId, nLevel) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -48,7 +48,7 @@ LuaRevertLevel( lua_State* L) // porto il livello al valore precedente bool bOk = ExeRevertLevel( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -65,9 +65,9 @@ LuaGetLevel( lua_State* L) bool bOk = ExeGetLevel( nId, &nLevel) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, nLevel) ; + LuaSetParam( L, nLevel) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -84,9 +84,9 @@ LuaGetCalcLevel( lua_State* L) bool bOk = ExeGetCalcLevel( nId, &nLevel) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, nLevel) ; + LuaSetParam( L, nLevel) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -103,7 +103,7 @@ LuaSetMode( lua_State* L) // imposto il modo bool bOk = ExeSetMode( nId, nMode) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -118,7 +118,7 @@ LuaRevertMode( lua_State* L) // porto il modo al valore precedente bool bOk = ExeRevertMode( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -134,9 +134,9 @@ LuaGetMode( lua_State* L) int nMode ; if ( ExeGetMode( nId, &nMode)) // restituisco il risultato - LuaSetReturn( L, nMode) ; + LuaSetParam( L, nMode) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -152,9 +152,9 @@ LuaGetCalcMode( lua_State* L) int nMode ; if ( ExeGetCalcMode( nId, &nMode)) // restituisco il risultato - LuaSetReturn( L, nMode) ; + LuaSetParam( L, nMode) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -171,7 +171,7 @@ LuaSetStatus( lua_State* L) // imposto lo stato bool bOk = ExeSetStatus( vId, nStatus) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -186,7 +186,7 @@ LuaRevertStatus( lua_State* L) // porto lo stato al valore precedente bool bOk = ExeRevertStatus( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -202,9 +202,9 @@ LuaGetStatus( lua_State* L) int nStatus ; if ( ExeGetStatus( nId, &nStatus)) // restituisco il risultato - LuaSetReturn( L, nStatus) ; + LuaSetParam( L, nStatus) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -220,9 +220,9 @@ LuaGetCalcStatus( lua_State* L) int nStatus ; if ( ExeGetCalcStatus( nId, &nStatus)) // restituisco il risultato - LuaSetReturn( L, nStatus) ; + LuaSetParam( L, nStatus) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -237,7 +237,7 @@ LuaSetMark( lua_State* L) // imposto l'evidenziazione bool bOk = ExeSetMark( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -252,7 +252,7 @@ LuaResetMark( lua_State* L) // cancello l'evidenziazione bool bOk = ExeResetMark( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -268,9 +268,9 @@ LuaGetMark( lua_State* L) BOOL nMark ; if ( ExeGetMark( nId, &nMark)) // restituisco il risultato - LuaSetReturn( L, ( nMark != GDB_MK_OFF)) ; + LuaSetParam( L, ( nMark != GDB_MK_OFF)) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -286,9 +286,9 @@ LuaGetCalcMark( lua_State* L) BOOL nMark ; if ( ExeGetCalcMark( nId, &nMark)) // restituisco il risultato - LuaSetReturn( L, ( nMark != GDB_MK_OFF)) ; + LuaSetParam( L, ( nMark != GDB_MK_OFF)) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -304,10 +304,10 @@ LuaStdColor( lua_State* L) Color cCol ; if ( ExeStdColor( sName, cCol)) { // restituisco il risultato - LuaSetReturn( L, cCol) ; + LuaSetParam( L, cCol) ; } else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -326,7 +326,7 @@ LuaSetColor( lua_State* L) // assegno il colore bool bOk = ExeSetColor( vId, cCol, bSetAlpha) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -343,7 +343,7 @@ LuaSetAlpha( lua_State* L) // assegno la trasparenza bool bOk = ExeSetAlpha( vId, nAlpha) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -358,7 +358,7 @@ LuaResetColor( lua_State* L) // tolgo il colore bool bOk = ExeResetColor( vId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -374,10 +374,10 @@ LuaGetColor( lua_State* L) Color cCol ; if ( ExeGetColor( nId, cCol)) { // restituisco il risultato - LuaSetReturn( L, cCol) ; + LuaSetParam( L, cCol) ; } else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -393,10 +393,10 @@ LuaGetCalcColor( lua_State* L) Color cCol ; if ( ExeGetCalcColor( nId, cCol)) { // restituisco il risultato - LuaSetReturn( L, cCol) ; + LuaSetParam( L, cCol) ; } else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -413,7 +413,7 @@ LuaSetName( lua_State* L) // assegno il nome bool bOk = ExeSetName( nId, sName) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -430,9 +430,9 @@ LuaGetName( lua_State* L) bool bOk = ExeGetName( nId, sName) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, sName) ; + LuaSetParam( L, sName) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -447,7 +447,7 @@ LuaExistsName( lua_State* L) // verifico esistenza nome bool bOk = ExeExistsName( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -462,7 +462,7 @@ LuaRemoveName( lua_State* L) // verifico esistenza nome bool bOk = ExeRemoveName( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -481,7 +481,7 @@ LuaSetInfo( lua_State* L) // assegno la info bool bOk = ExeSetInfo( nId, sKey, sInfo) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -500,9 +500,9 @@ LuaGetInfo( lua_State* L) bool bOk = ExeGetInfo( nId, sKey, sInfo) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, sInfo) ; + LuaSetParam( L, sInfo) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -519,7 +519,7 @@ LuaExistsInfo( lua_State* L) // verifico esistenza info bool bOk = ExeExistsInfo( nId, sKey) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -536,7 +536,7 @@ LuaRemoveInfo( lua_State* L) // rimuovo info bool bOk = ExeRemoveInfo( nId, sKey) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_GdbObjSelection.cpp b/LUA_GdbObjSelection.cpp index 40b452e..e0fe3cf 100644 --- a/LUA_GdbObjSelection.cpp +++ b/LUA_GdbObjSelection.cpp @@ -31,7 +31,7 @@ LuaSelectObj( lua_State* L) // eseguo la selezione bool bOk = ExeSelectObj( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -46,7 +46,7 @@ LuaDeselectObj( lua_State* L) // eseguo la selezione bool bOk = ExeDeselectObj( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -61,7 +61,7 @@ LuaSelectAll( lua_State* L) // eseguo la selezione bool bOk = ExeSelectAll( bOnlyIfVisible) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -74,7 +74,7 @@ LuaDeselectAll( lua_State* L) // eseguo la selezione bool bOk = ExeDeselectAll() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -89,7 +89,7 @@ LuaSelectGroupObjs( lua_State* L) // eseguo la selezione bool bOk = ExeSelectGroupObjs( GroupId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -104,7 +104,7 @@ LuaDeselectGroupObjs( lua_State* L) // eseguo la deselezione bool bOk = ExeDeselectGroupObjs( GroupId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -119,7 +119,7 @@ LuaIsSelectedObj( lua_State* L) // eseguo la selezione bool bOk = ExeIsSelectedObj( nId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -132,7 +132,7 @@ LuaGetSelectedObjNbr( lua_State* L) // eseguo la selezione int nNbr = ExeGetSelectedObjNbr() ; // restituisco il risultato - LuaSetReturn( L, nNbr) ; + LuaSetParam( L, nNbr) ; return 1 ; } @@ -146,9 +146,9 @@ LuaGetFirstSelectedObj( lua_State* L) int nId = ExeGetFirstSelectedObj() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -162,9 +162,9 @@ LuaGetNextSelectedObj( lua_State* L) int nId = ExeGetNextSelectedObj() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -178,9 +178,9 @@ LuaGetLastSelectedObj( lua_State* L) int nId = ExeGetLastSelectedObj() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -194,9 +194,9 @@ LuaGetPrevSelectedObj( lua_State* L) int nId = ExeGetPrevSelectedObj() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } diff --git a/LUA_GdbObjects.cpp b/LUA_GdbObjects.cpp index c2d74e8..27c8b44 100644 --- a/LUA_GdbObjects.cpp +++ b/LUA_GdbObjects.cpp @@ -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 ; } diff --git a/LUA_GdbPartLayers.cpp b/LUA_GdbPartLayers.cpp index 98b3772..6fb0960 100644 --- a/LUA_GdbPartLayers.cpp +++ b/LUA_GdbPartLayers.cpp @@ -31,7 +31,7 @@ LuaIsPart( lua_State* L) // verifico sia un pezzo bool bOk = ExeIsPart( nIdPart) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -46,7 +46,7 @@ LuaIsLayer( lua_State* L) // verifico sia un layer bool bOk = ExeIsLayer( nIdLayer) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -59,7 +59,7 @@ LuaGetCurrPart( lua_State* L) // recupero il pezzo corrente int nId = ExeGetCurrPart() ; // restituisco il risultato - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; return 1 ; } @@ -72,7 +72,7 @@ LuaGetCurrLayer( lua_State* L) // recupero il layer corrente int nId = ExeGetCurrLayer() ; // restituisco il risultato - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; return 1 ; } @@ -89,7 +89,7 @@ LuaSetCurrPartLayer( lua_State* L) // imposto pezzo e layer correnti bool bOk = ExeSetCurrPartLayer( nPartId, nLayerId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -102,7 +102,7 @@ LuaResetCurrPartLayer( lua_State* L) // cerco primo pezzo e layer validi per essere dichiarati correnti bool bOk = ExeResetCurrPartLayer() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -117,7 +117,7 @@ LuaGetPartNbr( lua_State* L) // recupero numero pezzi int nNbr = ExeGetPartNbr( bOnlyVisible) ; // restituisco il risultato - LuaSetReturn( L, nNbr) ; + LuaSetParam( L, nNbr) ; return 1 ; } @@ -133,9 +133,9 @@ LuaGetFirstPart( lua_State* L) int nId = ExeGetFirstPart( bOnlyVisible) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -153,9 +153,9 @@ LuaGetNextPart( lua_State* L) int nId = ExeGetNextPart( nPartId, bOnlyVisible) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -173,9 +173,9 @@ LuaGetFirstLayer( lua_State* L) int nId = ExeGetFirstLayer( nPartId, bOnlyVisible) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -193,9 +193,9 @@ LuaGetNextLayer( lua_State* L) int nId = ExeGetNextLayer( nLayerId, bOnlyVisible) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -210,7 +210,7 @@ LuaSelectPartObjs( lua_State* L) // eseguo la selezione bool bOk = ExeSelectPartObjs( nPartId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -225,7 +225,7 @@ LuaDeselectPartObjs( lua_State* L) // eseguo la selezione bool bOk = ExeDeselectPartObjs( nPartId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -240,7 +240,7 @@ LuaSelectLayerObjs( lua_State* L) // eseguo la selezione bool bOk = ExeSelectLayerObjs( nLayerId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -255,7 +255,7 @@ LuaDeselectLayerObjs( lua_State* L) // eseguo la selezione bool bOk = ExeDeselectLayerObjs( nLayerId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -272,7 +272,7 @@ LuaSelectPathObjs( lua_State* L) // eseguo la selezione bool bOk = ExeSelectPathObjs( nId, bHaltOnFork) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_General.cpp b/LUA_General.cpp index d09d551..3a9472d 100644 --- a/LUA_General.cpp +++ b/LUA_General.cpp @@ -66,7 +66,7 @@ SetContext( lua_State* L) // imposto il contesto bool bOk = SetCurrGseContext( nGseCtx) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -77,7 +77,7 @@ GetContext( lua_State* L) // nessun parametro LuaClearStack( L) ; // restituisco l'indice del contesto - LuaSetReturn( L, GetIndCurrGseContext()) ; + LuaSetParam( L, GetIndCurrGseContext()) ; return 1 ; } @@ -98,7 +98,7 @@ LuaPause( lua_State* L) nTime = MAX_TIME ; Sleep( nTime) ; // restituisco il risultato - LuaSetReturn( L, true) ; + LuaSetParam( L, true) ; return 1 ; } @@ -122,7 +122,7 @@ LuaStopCounter( lua_State* L) // fermo il contatore double dTime = s_Counter.Stop() ; // restituisco il risultato - LuaSetReturn( L, dTime) ; + LuaSetParam( L, dTime) ; return 1 ; } @@ -139,7 +139,7 @@ LuaNumToString( lua_State* L) // costruisco la stringa string sVal = ToString( dVal, nDec) ; // ritorno il risultato - LuaSetReturn( L, sVal) ; + LuaSetParam( L, sVal) ; return 1 ; } @@ -154,7 +154,7 @@ LuaExecTsc( lua_State* L) // eseguo lo script TSC bool bOk = ExeTscExecFile( sFile) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -196,7 +196,7 @@ LuaOutBox( lua_State* L) int nRes = MessageBox( nullptr, stringtoW( sOut), stringtoW( sTitle), MB_OKCANCEL | nIcon | ( bModal ? MB_TASKMODAL : MB_SYSTEMMODAL)) ; // risultato (Ok->true, Cancel->false) - LuaSetReturn( L, ( nRes == IDOK)) ; + LuaSetParam( L, ( nRes == IDOK)) ; return 1 ; } @@ -211,7 +211,7 @@ LuaEraseFile( lua_State* L) // svuoto il direttorio bool bOk = EraseFile( sFile) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -226,7 +226,7 @@ LuaEmptyDirectory( lua_State* L) // svuoto il direttorio bool bOk = EmptyDirectory( sDir) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -246,7 +246,7 @@ LuaTextFileCompare( lua_State* L) LuaClearStack( L) ; // eseguo il confronto bool bOk = TextFileCompare( sFile1, sFile2, sRemStart, sFileDiff) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -264,7 +264,7 @@ LuaBinaryFileCompare( lua_State* L) LuaClearStack( L) ; // eseguo il confronto bool bOk = BinaryFileCompare( sFile1, sFile2, sFileDiff) ; - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -279,7 +279,7 @@ LuaGetVersion( lua_State* L) if ( ! ExeGetVersionInfo( sVer, "\n")) sVer = "VersionInfo error" ; // restituisco il risultato - LuaSetReturn( L, sVer) ; + LuaSetParam( L, sVer) ; return 1 ; } @@ -295,7 +295,7 @@ LuaIs64bit( lua_State* L) #elif defined( _WIN32) bool bRes = false ; #endif - LuaSetReturn( L, bRes) ; + LuaSetParam( L, bRes) ; return 1 ; } diff --git a/LUA_GeoBase.cpp b/LUA_GeoBase.cpp index e547e9e..87a07d6 100644 --- a/LUA_GeoBase.cpp +++ b/LUA_GeoBase.cpp @@ -32,12 +32,12 @@ LuaVectorRotate( lua_State* L) LuaClearStack( L) ; // eseguo la rotazione if ( vtV.Rotate( vtAx, dAngRotDeg)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, vtV) ; + LuaSetParam( L, true) ; + LuaSetParam( L, vtV) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -54,12 +54,12 @@ LuaVectorToGlob( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( vtV.ToGlob( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, vtV) ; + LuaSetParam( L, true) ; + LuaSetParam( L, vtV) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -76,12 +76,12 @@ LuaVectorToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( vtV.ToLoc( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, vtV) ; + LuaSetParam( L, true) ; + LuaSetParam( L, vtV) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -100,12 +100,12 @@ LuaVectorLocToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( vtV.LocToLoc( frOri, frDest)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, vtV) ; + LuaSetParam( L, true) ; + LuaSetParam( L, vtV) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -126,12 +126,12 @@ LuaPointRotate( lua_State* L) LuaClearStack( L) ; // eseguo la rotazione if ( ptP.Rotate( ptAx, vtAx, dAngRotDeg)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, ptP) ; + LuaSetParam( L, true) ; + LuaSetParam( L, ptP) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -148,12 +148,12 @@ LuaPointToGlob( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( ptP.ToGlob( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, ptP) ; + LuaSetParam( L, true) ; + LuaSetParam( L, ptP) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -170,12 +170,12 @@ LuaPointToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( ptP.ToLoc( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, ptP) ; + LuaSetParam( L, true) ; + LuaSetParam( L, ptP) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -194,12 +194,12 @@ LuaPointLocToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( ptP.LocToLoc( frOri, frDest)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, ptP) ; + LuaSetParam( L, true) ; + LuaSetParam( L, ptP) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -219,12 +219,12 @@ LuaFrameFrom3Points( lua_State* L) // calcolo il riferimento e restituisco il risultato : bOk, Frame Frame3d frTemp ; if ( frTemp.Set( ptOrig, ptOnX, ptNearY)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frTemp) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frTemp) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -242,12 +242,12 @@ LuaFrameOCS( lua_State* L) // calcolo il riferimento e restituisco il risultato : bOk, Frame Frame3d frTemp ; if ( frTemp.Set( ptOrig, vtDirZ)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frTemp) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frTemp) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -268,12 +268,12 @@ LuaFrameRotate( lua_State* L) LuaClearStack( L) ; // eseguo la rotazione if ( frFrame.Rotate( ptAx, vtAx, dAngRotDeg)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frFrame) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -290,12 +290,12 @@ LuaFrameToGlob( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( frFrame.ToGlob( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frFrame) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -312,12 +312,12 @@ LuaFrameToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( frFrame.ToLoc( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frFrame) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -336,12 +336,12 @@ LuaFrameLocToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( frFrame.LocToLoc( frOri, frDest)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, true) ; + LuaSetParam( L, frFrame) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -362,12 +362,12 @@ LuaBBoxRotate( lua_State* L) LuaClearStack( L) ; // eseguo la rotazione if ( b3Box.Rotate( ptAx, vtAx, dAngRotDeg)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, b3Box) ; + LuaSetParam( L, true) ; + LuaSetParam( L, b3Box) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -384,12 +384,12 @@ LuaBBoxToGlob( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( b3Box.ToGlob( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, b3Box) ; + LuaSetParam( L, true) ; + LuaSetParam( L, b3Box) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -406,12 +406,12 @@ LuaBBoxToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( b3Box.ToLoc( frTool)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, b3Box) ; + LuaSetParam( L, true) ; + LuaSetParam( L, b3Box) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } @@ -430,12 +430,12 @@ LuaBBoxLocToLoc( lua_State* L) LuaClearStack( L) ; // eseguo la trasformazione if ( b3Box.LocToLoc( frOri, frDest)) { - LuaSetReturn( L, true) ; - LuaSetReturn( L, b3Box) ; + LuaSetParam( L, true) ; + LuaSetParam( L, b3Box) ; return 2 ; } else { - LuaSetReturn( L, false) ; + LuaSetParam( L, false) ; return 1 ; } } diff --git a/LUA_GeoSnap.cpp b/LUA_GeoSnap.cpp index 90ea0d6..8adb86a 100644 --- a/LUA_GeoSnap.cpp +++ b/LUA_GeoSnap.cpp @@ -33,9 +33,9 @@ LuaStartPoint( lua_State* L) // recupero il punto iniziale dell'entitą Point3d ptP ; if ( ExeStartPoint( nId, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -52,9 +52,9 @@ LuaEndPoint( lua_State* L) // recupero il punto finale dell'entitą Point3d ptP ; if ( ExeEndPoint( nId, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -71,9 +71,9 @@ LuaMidPoint( lua_State* L) // recupero il punto centrale dell'entitą Point3d ptP ; if ( ExeMidPoint( nId, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -90,9 +90,9 @@ LuaCenterPoint( lua_State* L) // recupero il punto centrale dell'entitą Point3d ptP ; if ( ExeCenterPoint( nId, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -109,9 +109,9 @@ LuaCentroid( lua_State* L) // recupero il centro geometrico dell'entitą Point3d ptP ; if ( ExeCentroid( nId, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -130,9 +130,9 @@ LuaAtParamPoint( lua_State* L) // recupero il punto in posizione parametrica U della curva Point3d ptP ; if ( ExeAtParamPoint( nId, dU, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -151,9 +151,9 @@ LuaNearPoint( lua_State* L) // recupero il punto di intersezione tra le curve pił vicino al punto passato Point3d ptP ; if ( ExeNearPoint( nId, ptNear, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -174,9 +174,9 @@ LuaIntersectionPoint( lua_State* L) // recupero il punto di intersezione tra le curve pił vicino al punto passato Point3d ptP ; if ( ExeIntersectionPoint( nId1, nId2, ptNear, nRefId, ptP)) - LuaSetReturn( L, ptP) ; + LuaSetParam( L, ptP) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -193,9 +193,9 @@ LuaStartVector( lua_State* L) // recupero il vettore tangente all'inizio della curva Vector3d vtV ; if ( ExeStartVector( nId, nRefId, vtV)) - LuaSetReturn( L, vtV) ; + LuaSetParam( L, vtV) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -212,9 +212,9 @@ LuaEndVector( lua_State* L) // recupero il vettore tangente alla fine della curva Vector3d vtV ; if ( ExeEndVector( nId, nRefId, vtV)) - LuaSetReturn( L, vtV) ; + LuaSetParam( L, vtV) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -231,9 +231,9 @@ LuaMidVector( lua_State* L) // recupero il vettore tangente nel punto medio della curva Vector3d vtV ; if ( ExeMidVector( nId, nRefId, vtV)) - LuaSetReturn( L, vtV) ; + LuaSetParam( L, vtV) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -254,9 +254,9 @@ LuaAtParamVector( lua_State* L) // recupero il punto in posizione parametrica U della curva Vector3d vtV ; if ( ExeAtParamVector( nId, dU, nSide, nRefId, vtV)) - LuaSetReturn( L, vtV) ; + LuaSetParam( L, vtV) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -273,9 +273,9 @@ LuaFrame( lua_State* L) // recupero il frame Frame3d frFrame ; if ( ExeFrame( nId, nRefId, frFrame)) - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, frFrame) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -290,12 +290,12 @@ LuaCurveDomain( lua_State* L) // recupero il dominio della curva double dStart, dEnd ; if ( ExeCurveDomain( nId, &dStart, &dEnd)) { - LuaSetReturn( L, dStart) ; - LuaSetReturn( L, dEnd) ; + LuaSetParam( L, dStart) ; + LuaSetParam( L, dEnd) ; return 2 ; } else { - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } } @@ -311,9 +311,9 @@ LuaCurveLength( lua_State* L) // recupero la lunghezza della curva double dLen ; if ( ExeCurveLength( nId, &dLen)) - LuaSetReturn( L, dLen) ; + LuaSetParam( L, dLen) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -330,9 +330,9 @@ LuaCurveExtrusion( lua_State* L) // recupero il versore Vector3d vtExtr ; if ( ExeCurveExtrusion( nId, nRefId, vtExtr)) - LuaSetReturn( L, vtExtr) ; + LuaSetParam( L, vtExtr) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -347,9 +347,9 @@ LuaCurveThickness( lua_State* L) // recupero lo spessore double dThick ; if ( ExeCurveThickness( nId, &dThick)) - LuaSetReturn( L, dThick) ; + LuaSetParam( L, dThick) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -371,7 +371,7 @@ LuaExtrusionByThickness( lua_State* L) vtExtr *= dThick ; else vtExtr = V_NULL ; - LuaSetReturn( L, vtExtr) ; + LuaSetParam( L, vtExtr) ; return 1 ; } @@ -386,9 +386,9 @@ LuaCurveSelfIntersNbr( lua_State* L) // recupero il numero di auto-intersezioni int nCount ; if ( ExeCurveSelfIntersNbr( nId, &nCount)) - LuaSetReturn( L, nCount) ; + LuaSetParam( L, nCount) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -403,9 +403,9 @@ LuaCurveArcRadius( lua_State* L) // recupero il raggio double dRad ; if ( ExeCurveArcRadius( nId, &dRad)) - LuaSetReturn( L, dRad) ; + LuaSetParam( L, dRad) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -422,9 +422,9 @@ LuaCurveArcNormVersor( lua_State* L) // recupero il versore Vector3d vtNorm ; if ( ExeCurveArcNormVersor( nId, nRefId, vtNorm)) - LuaSetReturn( L, vtNorm) ; + LuaSetParam( L, vtNorm) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -443,9 +443,9 @@ LuaCurveCompoCenter( lua_State* L) // recupero il centro della curva semplice indicizzata Point3d ptCen ; if ( ExeCurveCompoCenter( nId, nCrv, nRefId, ptCen)) - LuaSetReturn( L, ptCen) ; + LuaSetParam( L, ptCen) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -459,7 +459,7 @@ LuaSurfTmFacetNbr( lua_State* L) LuaClearStack( L) ; // recupero il numero di facce della superficie trimesh int nNbr = ExeSurfTmFacetNbr( nId) ; - LuaSetReturn( L, nNbr) ; + LuaSetParam( L, nNbr) ; return 1 ; } @@ -481,12 +481,12 @@ LuaSurfTmFacetNearestEndPoint( lua_State* L) Point3d ptEnd ; Vector3d vtN ; if ( ExeSurfTmFacetNearestEndPoint( nId, nFacet, ptNear, nRefId, ptEnd, vtN)) { - LuaSetReturn( L, ptEnd) ; - LuaSetReturn( L, vtN) ; + LuaSetParam( L, ptEnd) ; + LuaSetParam( L, vtN) ; } else { - LuaSetReturn( L) ; - LuaSetReturn( L) ; + LuaSetParam( L) ; + LuaSetParam( L) ; } return 2 ; } @@ -509,12 +509,12 @@ LuaSurfTmFacetNearestMidPoint( lua_State* L) Point3d ptMid ; Vector3d vtN ; if ( ExeSurfTmFacetNearestMidPoint( nId, nFacet, ptNear, nRefId, ptMid, vtN)) { - LuaSetReturn( L, ptMid) ; - LuaSetReturn( L, vtN) ; + LuaSetParam( L, ptMid) ; + LuaSetParam( L, vtN) ; } else { - LuaSetReturn( L) ; - LuaSetReturn( L) ; + LuaSetParam( L) ; + LuaSetParam( L) ; } return 2 ; } @@ -535,12 +535,12 @@ LuaSurfTmFacetCenter( lua_State* L) Point3d ptCen ; Vector3d vtN ; if ( ExeSurfTmFacetCenter( nId, nFacet, nRefId, ptCen, vtN)) { - LuaSetReturn( L, ptCen) ; - LuaSetReturn( L, vtN) ; + LuaSetParam( L, ptCen) ; + LuaSetParam( L, vtN) ; } else { - LuaSetReturn( L) ; - LuaSetReturn( L) ; + LuaSetParam( L) ; + LuaSetParam( L) ; } return 2 ; } @@ -560,9 +560,9 @@ LuaSurfTmFacetNormVersor( lua_State* L) // recupero la normale della faccia della superficie trimesh Vector3d vtNorm ; if ( ExeSurfTmFacetNormVersor( nId, nFacet, nRefId, vtNorm)) - LuaSetReturn( L, vtNorm) ; + LuaSetParam( L, vtNorm) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -579,9 +579,9 @@ LuaExtTextNormVersor( lua_State* L) // recupero il versore Vector3d vtNorm ; if ( ExeExtTextNormVersor( nId, nRefId, vtNorm)) - LuaSetReturn( L, vtNorm) ; + LuaSetParam( L, vtNorm) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } diff --git a/LUA_GeoTransform.cpp b/LUA_GeoTransform.cpp index c23c00b..c61ff36 100644 --- a/LUA_GeoTransform.cpp +++ b/LUA_GeoTransform.cpp @@ -35,7 +35,7 @@ LuaMove( lua_State* L) // eseguo traslazione bool bOk = ExeMove( vId, vtMove, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -58,7 +58,7 @@ LuaRotate( lua_State* L) // eseguo rotazione bool bOk = ExeRotate( vId, ptAx, vtAx, dAngRotDeg, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -83,7 +83,7 @@ LuaScale( lua_State* L) // eseguo scalatura bool bOk = ExeScale( vId, frRef, dCoeffX, dCoeffY, dCoeffZ, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -104,7 +104,7 @@ LuaMirror( lua_State* L) // eseguo riflessione bool bOk = ExeMirror( vId, ptOn, vtN, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -129,7 +129,7 @@ LuaShear( lua_State* L) // eseguo stiramento bool bOk = ExeShear( vId, ptOn, vtN, vtDir, dCoeff, nRefType) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -146,7 +146,7 @@ LuaMoveGroup( lua_State* L) // eseguo traslazione bool bOk = ExeMoveGroup( nId, vtMove) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -167,7 +167,7 @@ LuaRotateGroup( lua_State* L) // eseguo rotazione bool bOk = ExeRotateGroup( nId, ptAx, vtAx, dAngRotDeg) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -190,7 +190,7 @@ LuaScaleGroup( lua_State* L) // eseguo scalatura bool bOk = ExeScaleGroup( nId, frRef, dCoeffX, dCoeffY, dCoeffZ) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -209,7 +209,7 @@ LuaMirrorGroup( lua_State* L) // eseguo scalatura bool bOk = ExeMirrorGroup( sId, ptOn, vtN) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -232,7 +232,7 @@ LuaShearGroup( lua_State* L) // eseguo scalatura bool bOk = ExeShearGroup( nId, ptOn, vtN, vtDir, dCoeff) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_GeomDB.cpp b/LUA_GeomDB.cpp index 03af129..c9f2cd8 100644 --- a/LUA_GeomDB.cpp +++ b/LUA_GeomDB.cpp @@ -35,7 +35,7 @@ LuaSetDefaultMaterial( lua_State* L) colDef.GetInt( vCol) ; bool bOk = ( ExeSetDefaultMaterial( vCol) != FALSE) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -51,7 +51,7 @@ LuaSetGridFrame( lua_State* L) // imposto il riferimento della Griglia (o CPlane) bool bOk = ( ExeSetGridFrame( frFrame)) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -68,7 +68,7 @@ LuaGetGridFrame( lua_State* L) Frame3d frFrame ; ExeGetGridFrame( nRefId, frFrame) ; // restituisco il risultato - LuaSetReturn( L, frFrame) ; + LuaSetParam( L, frFrame) ; return 1 ; } @@ -84,9 +84,9 @@ LuaGetGridVersZ( lua_State* L) // recupero il versore Z della griglia e lo restituisco Vector3d vtVersZ ; if ( ExeGetGridVersZ( nRefId, vtVersZ)) - LuaSetReturn( L, vtVersZ) ; + LuaSetParam( L, vtVersZ) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -99,7 +99,7 @@ LuaNewFile( lua_State* L) // nuovo progetto bool bOk = ExeNewFile() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -114,7 +114,7 @@ LuaOpenFile( lua_State* L) // apro il file bool bOk = ExeOpenFile( sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -129,7 +129,7 @@ LuaInsertFile( lua_State* L) // apro il file bool bOk = ExeInsertFile( sFilePath) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -146,7 +146,7 @@ LuaSaveFile( lua_State* L) // salvo il file bool bOk = ExeSaveFile( sFilePath, nFlag) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -165,7 +165,7 @@ LuaSaveObjToFile( lua_State* L) // copio il gruppo nel file bool bOk = ExeSaveObjToFile( nId, sFilePath, nFlag) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_MachMgr.cpp b/LUA_MachMgr.cpp index c5ce73b..430f695 100644 --- a/LUA_MachMgr.cpp +++ b/LUA_MachMgr.cpp @@ -30,7 +30,7 @@ LuaGetMachGroupNbr( lua_State* L) // recupero il numero di macchinate int nTot = ExeGetMachGroupNbr() ; // restituisco il risultato - LuaSetReturn( L, nTot) ; + LuaSetParam( L, nTot) ; return 1 ; } @@ -44,9 +44,9 @@ LuaGetFirstMachGroup( lua_State* L) int nId = ExeGetFirstMachGroup() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -62,9 +62,9 @@ LuaGetNextMachGroup( lua_State* L) int nNextId = ExeGetNextMachGroup( nId) ; // restituisco il risultato if ( nNextId != GDB_ID_NULL) - LuaSetReturn( L, nNextId) ; + LuaSetParam( L, nNextId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -82,9 +82,9 @@ LuaAddMachGroup( lua_State* L) int nId = ExeAddMachGroup( sName, sMachineName) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -99,7 +99,7 @@ LuaRemoveMachGroup( lua_State* L) // rimuovo la macchinata bool bOk = ExeRemoveMachGroup( nMGroupInd) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -116,9 +116,9 @@ LuaGetMachGroupName( lua_State* L) bool bOk = ExeGetMachGroupName( nMGroupInd, sName) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, sName) ; + LuaSetParam( L, sName) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -134,9 +134,9 @@ LuaGetMachGroupId( lua_State* L) int nId = ExeGetMachGroupId( sGroupName) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -151,7 +151,7 @@ LuaSetCurrMachGroup( lua_State* L) // imposto il gruppo corrente bool bOk = ExeSetCurrMachGroup( nMGroupInd) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -164,7 +164,7 @@ LuaResetCurrMachGroup( lua_State* L) // imposto il gruppo corrente bool bOk = ExeResetCurrMachGroup() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -178,9 +178,9 @@ LuaGetCurrMachGroup( lua_State* L) int nId = ExeGetCurrMachGroup() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -193,7 +193,7 @@ LuaGetRawPartNbr( lua_State* L) // recupero il numero di grezzi nella macchinata corrente int nCount = ExeGetRawPartNbr() ; // restituisco il risultato - LuaSetReturn( L, nCount) ; + LuaSetParam( L, nCount) ; return 1 ; } @@ -207,9 +207,9 @@ LuaGetFirstRawPart( lua_State* L) int nId = ExeGetFirstRawPart() ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -225,9 +225,9 @@ LuaGetNextRawPart( lua_State* L) int nId = ExeGetNextRawPart( nRawId) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } //------------------------------------------------------------------------------- @@ -250,9 +250,9 @@ LuaAddRawPart( lua_State* L) int nInd = ExeAddRawPart( ptOrig, dWidth, dLength, dHeight, cCol) ; // restituisco il risultato if ( nInd != GDB_ID_NULL) - LuaSetReturn( L, nInd) ; + LuaSetParam( L, nInd) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -274,9 +274,9 @@ LuaAddRawPartWithPart( lua_State* L) int nInd = ExeAddRawPartWithPart( nPartId, nCrvId, dOverMat, cCol) ; // restituisco il risultato if ( nInd != GDB_ID_NULL) - LuaSetReturn( L, nInd) ; + LuaSetParam( L, nInd) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -293,7 +293,7 @@ LuaModifyRawPartHeight( lua_State* L) // modifico lo spessore del grezzo bool bOk = ExeModifyRawPartHeight( nRawId, dHeight) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -308,7 +308,7 @@ LuaRemoveRawPart( lua_State* L) // elimino il grezzo dalla macchinata corrente bool bOk = ExeRemoveRawPart( nRawId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -325,7 +325,7 @@ LuaMoveRawPart( lua_State* L) // traslo il grezzo bool bOk = ExeMoveRawPart( nRawId, vtMove) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -344,7 +344,7 @@ LuaRotateRawPart( lua_State* L) // ruoto il grezzo bool bOk = ExeRotateRawPart( nRawId, vtAx, dAngRotDeg) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -363,7 +363,7 @@ LuaMoveToCornerRawPart( lua_State* L) // sposto il grezzo nel corner bool bOk = ExeMoveToCornerRawPart( nRawId, ptCorner, nFlag) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -382,7 +382,7 @@ LuaMoveToCenterRawPart( lua_State* L) // sposto il grezzo nel corner bool bOk = ExeMoveToCenterRawPart( nRawId, ptCenter, nFlag) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -397,7 +397,7 @@ LuaGetPartInRawPartNbr( lua_State* L) // recupero il numero di pezzi nel grezzo int nCount = ExeGetPartInRawPartNbr( nRawId) ; // restituisco il risultato - LuaSetReturn( L, nCount) ; + LuaSetParam( L, nCount) ; return 1 ; } @@ -413,9 +413,9 @@ LuaGetFirstPartInRawPart( lua_State* L) int nId = ExeGetFirstPartInRawPart( nRawId) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -431,9 +431,9 @@ LuaGetNextPartInRawPart( lua_State* L) int nId = ExeGetNextPartInRawPart( nPartId) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -452,7 +452,7 @@ LuaAddPartToRawPart( lua_State* L) // inserisco il grezzo nella macchinata corrente bool bOk = ExeAddPartToRawPart( nPartId, ptPos, nRawId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -467,7 +467,7 @@ LuaRemovePartFromRawPart( lua_State* L) // elimino il grezzo dalla macchinata corrente bool bOk = ExeRemovePartFromRawPart( nPartId) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -484,7 +484,7 @@ LuaTranslatePartInRawPart( lua_State* L) // traslo il pezzo nel grezzo bool bOk = ExeTranslatePartInRawPart( nPartId, vtMove) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -503,7 +503,7 @@ LuaRotatePartInRawPart( lua_State* L) // ruoto il pezzo nel grezzo bool bOk = ExeRotatePartInRawPart( nPartId, vtAx, dAngRotDeg) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -518,7 +518,7 @@ LuaSetTable( lua_State* L) // imposto la tavola corrente bool bOk = ExeSetTable( sTable) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -538,9 +538,9 @@ LuaAddSubPiece( lua_State* L) int nId = ExeAddSubPiece( sName, ptPos, dAngRotDeg) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -557,7 +557,7 @@ LuaSetAxisPos( lua_State* L) // metto l'asse nella nuova posizione bool bOk = ExeSetAxisPos( sAxis, dVal) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -574,9 +574,9 @@ LuaGetAxisPos( lua_State* L) bool bOk = ExeGetAxisPos( sAxis, &dVal) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, dVal) ; + LuaSetParam( L, dVal) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -593,9 +593,9 @@ LuaGetAxisHomePos( lua_State* L) bool bOk = ExeGetAxisHomePos( sAxis, &dHomeVal) ; // restituisco il risultato if ( bOk) - LuaSetReturn( L, dHomeVal) ; + LuaSetParam( L, dHomeVal) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -610,7 +610,7 @@ LuaResetAxisPos( lua_State* L) // metto l'asse nella posizione home bool bOk = ExeResetAxisPos( sAxis) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -629,7 +629,7 @@ LuaLoadTool( lua_State* L) // carico l'utensile bool bOk = ExeLoadTool( sHead, nExit, sTool) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -644,7 +644,7 @@ LuaResetHeadSet( lua_State* L) // carico l'utensile bool bOk = ExeResetHeadSet( sHead) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -659,7 +659,7 @@ LuaSetCalcTable( lua_State* L) // imposto la tavola corrente per i calcoli macchina bool bOk = ExeSetCalcTable( sTable) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -678,7 +678,7 @@ LuaSetCalcTool( lua_State* L) // imposto la tavola corrente per il calcolo bool bOk = ExeSetCalcTool( sTool, sHead, nExit) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -697,16 +697,16 @@ LuaGetCalcAngles( lua_State* L) bool bOk = ExeGetCalcAngles( vtDirT, vtDirA, nStat, dAngA1, dAngB1, dAngA2, dAngB2) ; // restituisco il risultato if ( bOk) { - LuaSetReturn( L, bOk) ; - LuaSetReturn( L, nStat) ; - LuaSetReturn( L, dAngA1) ; - LuaSetReturn( L, dAngB1) ; - LuaSetReturn( L, dAngA2) ; - LuaSetReturn( L, dAngB2) ; + LuaSetParam( L, bOk) ; + LuaSetParam( L, nStat) ; + LuaSetParam( L, dAngA1) ; + LuaSetParam( L, dAngB1) ; + LuaSetParam( L, dAngA2) ; + LuaSetParam( L, dAngB2) ; return 6 ; } else { - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } } @@ -728,15 +728,15 @@ LuaGetCalcPositions( lua_State* L) bool bOk = ExeGetCalcPositions( ptP, dAngA, dAngB, nStat, dX, dY, dZ) ; // restituisco il risultato if ( bOk) { - LuaSetReturn( L, bOk) ; - LuaSetReturn( L, nStat) ; - LuaSetReturn( L, dX) ; - LuaSetReturn( L, dY) ; - LuaSetReturn( L, dZ) ; + LuaSetParam( L, bOk) ; + LuaSetParam( L, nStat) ; + LuaSetParam( L, dX) ; + LuaSetParam( L, dY) ; + LuaSetParam( L, dZ) ; return 5 ; } else { - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } } @@ -762,12 +762,12 @@ LuaVerifyOutOfStroke( lua_State* L) bool bOk = ExeVerifyOutOfStroke( dX, dY, dZ, dAngA, dAngB, nStat) ; // restituisco il risultato if ( bOk) { - LuaSetReturn( L, bOk) ; - LuaSetReturn( L, nStat) ; + LuaSetParam( L, bOk) ; + LuaSetParam( L, nStat) ; return 2 ; } else { - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } } @@ -786,9 +786,9 @@ LuaAddMachining( lua_State* L) int nId = ExeAddMachining( sName, sMachining) ; // restituisco il risultato if ( nId != GDB_ID_NULL) - LuaSetReturn( L, nId) ; + LuaSetParam( L, nId) ; else - LuaSetReturn( L) ; + LuaSetParam( L) ; return 1 ; } @@ -826,7 +826,7 @@ LuaSetMachiningParam( lua_State* L) } LuaClearStack( L) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -841,7 +841,7 @@ LuaSetMachiningGeometry( lua_State* L) // imposto la geometria alla lavorazione corrente bool bOk = ExeSetMachiningGeometry( vSel) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -854,7 +854,7 @@ LuaApplyMachining( lua_State* L) // imposto la geometria alla lavorazione corrente bool bOk = ExeApplyMachining() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } diff --git a/LUA_Scene.cpp b/LUA_Scene.cpp index ff9a9a9..9b7527f 100644 --- a/LUA_Scene.cpp +++ b/LUA_Scene.cpp @@ -34,7 +34,7 @@ LuaSetBackground( lua_State* L) // imposto lo sfondo bool bOk = ExeSetBackground( colTop, colBot, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -47,7 +47,7 @@ LuaDraw( lua_State* L) // eseguo ridisegno bool bOk = ExeDraw() ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -64,7 +64,7 @@ LuaSetShowMode( lua_State* L) // imposto il modo di visualizzazione bool bOk = ExeSetShowMode( nShowMode, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -81,7 +81,7 @@ LuaSetShowCurveDirection( lua_State* L) // imposto visualizzazione direzione curve bool bOk = ExeSetShowCurveDirection( bShowCrvDir, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -98,7 +98,7 @@ LuaSetShowTriaAdv( lua_State* L) // imposto visualizzazione direzione curve bool bOk = ExeSetShowTriaAdv( bAdvanced, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -115,7 +115,7 @@ LuaZoomRadius( lua_State* L) // imposto zoom bool bOk = ExeZoomRadius( dRadius, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -132,7 +132,7 @@ LuaZoom( lua_State* L) // imposto zoom bool bOk = ExeZoom( nZoomType, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -149,7 +149,7 @@ LuaSetView( lua_State* L) // imposto direzione di vista bool bOk = ExeSetView( nViewDir, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -168,7 +168,7 @@ LuaSetGenericView( lua_State* L) // imposto direzione di vista bool bOk = ExeSetGenericView( dAngVertDeg, dAngHorizDeg, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; } @@ -185,7 +185,7 @@ LuaSetViewCenter( lua_State* L) // imposto centro di vista bool bOk = ExeSetViewCenter( ptCen, bRedraw) ; // restituisco il risultato - LuaSetReturn( L, bOk) ; + LuaSetParam( L, bOk) ; return 1 ; }