//----------------------------------------------------------------------------
//  EgalTech 2015-2015
//----------------------------------------------------------------------------
// File : LUA_MachMgr.cpp       Data : 24.03.15        Versione : 1.6c8
// Contenuto : Funzioni Machining Manager per LUA.
//
//
//
// Modifiche : 24.03.15 DS Creazione modulo.
//
//
//----------------------------------------------------------------------------

//--------------------------- Include ----------------------------------------
#include "stdafx.h"
#include "API.h"
#include "LUA.h"
#include "LUA_Base.h"
#include "LUA_Aux.h"
#include "/EgtDev/Include/EInAPI.h"
#include "/EgtDev/Include/EgnStringUtils.h"

using namespace std ;

//-------------------------------------------------------------------------------
static int
LuaGetMachGroupNbr( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // recupero il numero di macchinate
   int nTot = EgtGetMachGroupNbr() ; 
  // restituisco il risultato
   LuaSetReturn( L, nTot) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaAddMachGroup( lua_State* L)
{
  // 2 parametri : nome del gruppo, nome della macchina da utilizzare
   string sName ;
   LuaCheckParam( L, 1, sName)
   string sMachineName ;
   LuaCheckParam( L, 2, sMachineName)
   LuaClearStack( L) ;
  // aggiungo la macchinata
   int nId = EgtAddMachGroup( sName, sMachineName) ; 
  // restituisco il risultato
   LuaSetReturn( L, nId) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRemoveMachGroup( lua_State* L)
{
  // 1 parametro : indice del gruppo
   int nMGroupInd ;
   LuaCheckParam( L, 1, nMGroupInd)
   LuaClearStack( L) ;
  // rimuovo la macchinata
   bool bOk = ( EgtRemoveMachGroup( nMGroupInd) != FALSE) ; 
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetMachGroupName( lua_State* L)
{
  // 1 parametro : indice del gruppo
   int nMGroupInd ;
   LuaCheckParam( L, 1, nMGroupInd)
   LuaClearStack( L) ;
  // recupero il nome della macchinata
   string sName ;
   bool bOk = EgtGetMachGroupName( nMGroupInd, sName) ; 
  // restituisco il risultato
   if ( bOk)
      LuaSetReturn( L, sName) ;
   else
      LuaSetReturn( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetMachGroupInd( lua_State* L)
{
  // 1 parametro : nome del gruppo
   string sGroupName ;
   LuaCheckParam( L, 1, sGroupName)
   LuaClearStack( L) ;
  // recupero l'indice della macchinata
   int nInd ;
   bool bOk = EgtGetMachGroupInd( sGroupName, nInd) ; 
  // restituisco il risultato
   if ( bOk)
      LuaSetReturn( L, nInd) ;
   else
      LuaSetReturn( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetCurrMachGroup( lua_State* L)
{
  // 1 parametro : indice del gruppo
   int nMGroupInd ;
   LuaCheckParam( L, 1, nMGroupInd)
   LuaClearStack( L) ;
  // imposto il gruppo corrente
   bool bOk = ( EgtSetCurrMachGroup( nMGroupInd) != FALSE) ; 
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaResetCurrMachGroup( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // imposto il gruppo corrente
   bool bOk = ( EgtResetCurrMachGroup() != FALSE) ; 
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaGetCurrMachGroup( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // recupero il gruppo corrente
   int nInd ;
   bool bOk = ( EgtGetCurrMachGroup( &nInd) != FALSE) ; 
  // restituisco il risultato
   if ( bOk)
      LuaSetReturn( L, nInd) ;
   else
      LuaSetReturn( L) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallMachMgr( void)
{
   bool bOk = true ;
   bOk = bOk && LuaRegisterFunction( "EgtGetMachGroupNbr", LuaGetMachGroupNbr) ;
   bOk = bOk && LuaRegisterFunction( "EgtAddMachGroup", LuaAddMachGroup) ;
   bOk = bOk && LuaRegisterFunction( "EgtRemoveMachGroup", LuaRemoveMachGroup) ;
   bOk = bOk && LuaRegisterFunction( "EgtGetMachGroupName", LuaGetMachGroupName) ;
   bOk = bOk && LuaRegisterFunction( "EgtGetMachGroupInd", LuaGetMachGroupInd) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetCurrMachGroup", LuaSetCurrMachGroup) ;
   bOk = bOk && LuaRegisterFunction( "EgtResetCurrMachGroup", LuaResetCurrMachGroup) ;
   bOk = bOk && LuaRegisterFunction( "EgtGetCurrMachGroup", LuaGetCurrMachGroup) ;
   return bOk ;
}