//----------------------------------------------------------------------------
//  EgalTech 2015-2015
//----------------------------------------------------------------------------
// File : LUA_UiUnits.cpp       Data : 21.07.15        Versione : 1.6g6
// Contenuto : Funzioni gestione unità di misura in interfaccia utente per LUA.
//
//
//
// Modifiche : 21.07.15 DS Creazione modulo.
//
//
//----------------------------------------------------------------------------

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

using namespace std ;

//-------------------------------------------------------------------------------
static int
LuaUiUnitsAreMM( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // recupero il tipo di unità di misura in interfaccia utente
   bool bOk = ExeUiUnitsAreMM() ; 
  // restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-----------------------------------------------------------------------------
static int
LuaFromUiUnits( lua_State* L)
{
  // 1 parametro : dVal
   double dVal ;
   LuaCheckParam( L, 1, dVal)
   LuaClearStack( L) ;
  // converto da unità di misura interfaccia a unità interne
   double dVal2 = ExeFromUiUnits( dVal) ; 
  // restituisco il risultato
   LuaSetParam( L, dVal2) ;
   return 1 ;
}

//-----------------------------------------------------------------------------
static int
LuaToUiUnits( lua_State* L)
{
  // 1 parametro : dVal
   double dVal ;
   LuaCheckParam( L, 1, dVal)
   LuaClearStack( L) ;
  // converto da unità di misura interne a unità interfaccia
   double dVal2 = ExeToUiUnits( dVal) ; 
  // restituisco il risultato
   LuaSetParam( L, dVal2) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallUiUnits( LuaMgr& luaMgr)
{
   bool bOk = ( &luaMgr != nullptr) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtUiUnitsAreMM", LuaUiUnitsAreMM) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtFromUiUnits", LuaFromUiUnits) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtToUiUnits", LuaToUiUnits) ;
   return bOk ;
}