EgtExecutor/LUA_Redis.cpp

//----------------------------------------------------------------------------
//  EgalTech 2025-2025
//----------------------------------------------------------------------------
// File : LUA_Redis.cpp       Data : 17.09.25        Versione : 2.7i3
// Contenuto : Funzioni per interfacciarsi con server Redis.
//
//
//
// Modifiche : 17.09.25 RE Creazione modulo.
//
//
//----------------------------------------------------------------------------

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

using namespace std ;

//-------------------------------------------------------------------------------
static int
LuaRedisConnect( lua_State* L)
{
  // 3 o 4 parametri : sHost, nPort, nDataBase [, dTimeOut]
   string sHost ;
   LuaCheckParam( L, 1, sHost)
   int nPort ;
   LuaCheckParam( L, 2, nPort)
   int nDataBase = -1 ;
   LuaCheckParam( L, 3, nDataBase) ;
   double dTimeOut = -1.;
   LuaGetParam( L, 4, dTimeOut) ;
   LuaClearStack( L) ;
  // Imposto la connessione
   bool bOk = ExeRedisConnect( sHost, nPort, nDataBase, dTimeOut) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisAsyncConnect( lua_State* L)
{
  // 3 o 4 parametri : sHost, nPort, nDataBase [, dMaxTimeOut]
   string sHost ;
   LuaCheckParam( L, 1, sHost)
   int nPort ;
   LuaCheckParam( L, 2, nPort)
   int nDataBase = -1 ;
   LuaCheckParam( L, 3, nDataBase) ;
   double dMaxTimeOut = 0. ; // millisecondi
   LuaGetParam( L, 4, dMaxTimeOut) ;
   LuaClearStack( L) ;
  // Imposto la connessione
   bool bOk = ExeRedisAsyncConnect( sHost, nPort, nDataBase, dMaxTimeOut) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisDisconnect( lua_State* L)
{
  // Nessun paramtro
   LuaClearStack( L) ;
  // Imposto la connessione
   bool bOk = ExeRedisDisconnect() ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisAsyncDiconnect( lua_State* L)
{
  // Nessun parametro
   LuaClearStack( L) ;
  // Imposto la connessione
   bool bOK = ExeRedisAsyncDisconnect() ;
  // Restituisco il risultato
   LuaSetParam( L, bOK) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisGetValFromKey( lua_State* L)
{
  // 1 parametro : sKey
   string sKey ;
   LuaCheckParam( L, 1, sKey)
   LuaClearStack( L) ;
  // Recupero il valore della chiave
   string sVal, sType ;
   bool bOk = ExeRedisGetValFromKey( sKey, sVal) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   LuaSetParam( L, sVal) ;
   return 2 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisSetValFromKey( lua_State* L)
{
  // 2 parametri : sKey, sVal
   string sKey ;
   LuaCheckParam( L, 1, sKey) ;
   string sVal ;
   LuaCheckParam( L, 2, sVal) ;
   LuaClearStack( L) ;
  // Imposto il valore della chiave
   bool bOk = ExeRedisSetValFromKey( sKey, sVal) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisPublish( lua_State* L)
{
  // 2 parametri : sChannel, sMessage
   string sChannel ;
   LuaCheckParam( L, 1, sChannel) ;
   string sMessage ;
   LuaCheckParam( L, 2, sMessage) ;
   LuaClearStack( L) ;
  // Pubblico il messaggio sul canale
   bool bOk = ExeRedisPublish( sChannel, sMessage) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//--------------------------------------------------------------------------------
static int
LuaRedisSubscribe( lua_State* L)
{
  // 1 parametro : sChannel
   string sChannel ;
   LuaCheckParam( L, 1, sChannel) ;
   LuaClearStack( L) ;
  // Iscrizione al canale
   bool bOk = ExeRedisSubscribe( sChannel) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//--------------------------------------------------------------------------------
static int
LuaRedisUnsubscribe( lua_State* L)
{
  // 1 parametro : sChannel
   string sChannel ;
   LuaCheckParam( L, 1, sChannel) ;
   LuaClearStack( L) ;
  // Disiscrizione
   bool bOk = ExeRedisUnsubscribe( sChannel) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaRedisWaitForMessage( lua_State* L)
{
  // 2 parametri : sChannel, dMaxTimeOut
   string sChannel ;
   LuaCheckParam( L, 1, sChannel) ;
   double dMaxTimeOut = 0. ;
   LuaCheckParam( L, 2, dMaxTimeOut) ;
   LuaClearStack( L) ;
  // Disiscrizione
   string sMessage ;
   bool bOk = ExeRedisWaitForMessage( sChannel, dMaxTimeOut, sMessage) ;
  // Restituisco il risultato
   LuaSetParam( L, bOk) ;
   LuaSetParam( L, sMessage) ;
   return 2 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallRedis( LuaMgr& luaMgr)
{
   bool bOk = ( &luaMgr != nullptr) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisConnect", LuaRedisConnect) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisAsyncConnect", LuaRedisAsyncConnect) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisDisconnect", LuaRedisDisconnect) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisAsyncDisconnect", LuaRedisAsyncDiconnect) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisGetValFromKey", LuaRedisGetValFromKey) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisSetValFromKey", LuaRedisSetValFromKey) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisPublish", LuaRedisPublish) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisSubscribe", LuaRedisSubscribe) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisUnsubscribe", LuaRedisUnsubscribe) ;
   bOk = bOk && luaMgr.RegisterFunction( "EgtRedisWaitForMessage", LuaRedisWaitForMessage) ;
   return bOk ;
}