/****************************************************************************
 * This file is part of the project AqHome.
 * AqHome (c) by 2023 Martin Preuss, all rights reserved.
 *
 * The license for this file can be found in the file COPYING which you
 * should have received along with this file.
 ****************************************************************************/

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif


#include "./loop.h"
#include "./aqhomed_p.h"
#include "./tty_log.h"
#include "./tty_write.h"
#include "./db.h"

#include "aqhome/msg/endpoint2_tty.h"
#include "aqhome/msg/msg_node.h"
#include "aqhome/msg/msg_value2.h"
#include "aqhome/ipc/endpoint2_ipc.h"
#include "aqhome/ipc/msg_ipc_forward.h"
#include "aqhome/ipc/msg_ipc_value.h"
#include "aqhome/mqtt/endpoint2_mqttc.h"

#include <gwenhywfar/gwenhywfar.h>
#include <gwenhywfar/args.h>
#include <gwenhywfar/debug.h>
#include <gwenhywfar/endpoint2_tcpd.h>



/* ------------------------------------------------------------------------------------------------
 * defines
 * ------------------------------------------------------------------------------------------------
 */

#define I18N(msg) msg
#define I18S(msg) msg



/* ------------------------------------------------------------------------------------------------
 * forward declarations
 * ------------------------------------------------------------------------------------------------
 */

static void _readTtyMessages(AQHOMED *aqh);
static void _handleTtyMsg(AQHOMED *aqh, const GWEN_MSG *msg);
static void _forwardTtyMsgToIpcClients(AQHOMED *aqh, const GWEN_MSG *msg);
static void _forwardValue2MsgToIpc(GWEN_MSG_ENDPOINT2 *ep, const GWEN_MSG *nodeMsg);
static void _forwardAnyMsgToIpc(GWEN_MSG_ENDPOINT2 *ep, const GWEN_MSG *nodeMsg);



/* ------------------------------------------------------------------------------------------------
 * implementations
 * ------------------------------------------------------------------------------------------------
 */

void AqHomed_Loop(AQHOMED *aqh, int timeoutInMsecs)
{
  if (aqh) {
    GWEN_MsgEndpoint2_ChildrenIoLoop(aqh->rootEndpoint, timeoutInMsecs);
    _readTtyMessages(aqh);

    if (AQH_NodeDb_IsModified(aqh->nodeDb)) {
      if (aqh->dbFile) {
        GWEN_DB_NODE *dbNodeDb;

        dbNodeDb=GWEN_DB_Group_new("nodeDb");
        AQH_NodeDb_toDb(aqh->nodeDb, dbNodeDb);
        GWEN_DB_WriteFile(dbNodeDb, aqh->dbFile, GWEN_DB_FLAGS_DEFAULT);
        GWEN_DB_Group_free(dbNodeDb);
      }
    }
  }
}



void _readTtyMessages(AQHOMED *aqh)
{
  GWEN_MSG *msg;

  while( (msg=GWEN_MsgEndpoint2_TakeFirstReceivedMessage(aqh->ttyEndpoint)) ) {
    _handleTtyMsg(aqh, msg);
    GWEN_Msg_free(msg);
  }
}



void _handleTtyMsg(AQHOMED *aqh, const GWEN_MSG *msg)
{
  if (aqh->logFile)
    AqHomed_LogTtyMsg(aqh, msg);
  if (aqh->writeFolder)
    AqHomed_WriteTtyMsg(aqh, msg);
  if (aqh->nodeDb)
    AqHomed_NodeMsgToDb(aqh, msg);
  if (aqh->ipcdEndpoint)
    _forwardTtyMsgToIpcClients(aqh, msg);
}



void _forwardTtyMsgToIpcClients(AQHOMED *aqh, const GWEN_MSG *msg)
{
  uint32_t msgGroup;

  msgGroup=AQH_NodeMsg_GetMsgGroup(AQH_NodeMsg_GetMsgType(msg));
  if (msgGroup) {
    GWEN_MSG_ENDPOINT2 *ep;

    ep=GWEN_MsgEndpoint2_Tree2_GetFirstChild(aqh->ipcdEndpoint);
    while(ep) {
      if (msgGroup & AQH_IpcEndpoint2_GetAcceptedMsgGroups(ep)) {
        DBG_INFO(NULL, "Endpoint accepts msg group %d", msgGroup);
        switch(AQH_NodeMsg_GetMsgType(msg)) {
        case AQH_MSG_TYPE_VALUE2:
          _forwardValue2MsgToIpc(ep, msg);
          break;
        default:
          _forwardAnyMsgToIpc(ep, msg);
          break;
        }

      }
      ep=GWEN_MsgEndpoint2_Tree2_GetNext(ep);
    }
  }
  else {
    DBG_ERROR(NULL, "Message type %d not in any message group, ignoring message", AQH_NodeMsg_GetMsgType(msg));
  }
}



void _forwardValue2MsgToIpc(GWEN_MSG_ENDPOINT2 *ep, const GWEN_MSG *nodeMsg)
{
  GWEN_MSG *ipcMsg;

  ipcMsg=AQH_ValueIpcMsg_new(AQH_MSGTYPE_IPC_VALUE,
                             AQH_Value2Msg_GetUid(nodeMsg),
                             AQH_Value2Msg_GetValueId(nodeMsg),
                             AQH_Value2Msg_GetValueType(nodeMsg),
                             AQH_Value2Msg_GetValueNom(nodeMsg),
                             AQH_Value2Msg_GetValueDenom(nodeMsg));
  GWEN_MsgEndpoint2_AddSendMessage(ep, ipcMsg);
}



void _forwardAnyMsgToIpc(GWEN_MSG_ENDPOINT2 *ep, const GWEN_MSG *nodeMsg)
{
  GWEN_MSG *ipcMsg;

  ipcMsg=AQH_ForwardIpcMsg_new(AQH_MSGTYPE_IPC_FORWARD, GWEN_Msg_GetConstBuffer(nodeMsg), GWEN_Msg_GetBytesInBuffer(nodeMsg));
  GWEN_MsgEndpoint2_AddSendMessage(ep, ipcMsg);
}