/****************************************************************************
 * 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 "./getvalues.h"
#include "../utils.h"

#include "aqhome/msg/msg_node.h"
#include "aqhome/ipc/msg_ipc_result.h"
#include "aqhome/ipc/data/msg_data_values.h"
#include "aqhome/ipc/data/ipc_data.h"

#include <gwenhywfar/args.h>
#include <gwenhywfar/i18n.h>
#include <gwenhywfar/debug.h>
#include <gwenhywfar/text.h>

#include <time.h>
#include <unistd.h>


#define I18S(msg) msg
#define I18N(msg) GWEN_I18N_Translate(PACKAGE, msg)


static int _doGetValues(GWEN_DB_NODE *dbArgs);
static void _sendCommand(GWEN_MSG_ENDPOINT *epTcp);




int AQH_Tool_GetValues(GWEN_DB_NODE *dbGlobalArgs, int argc, char **argv)
{
  GWEN_DB_NODE *dbLocalArgs;
  int rv;
  const GWEN_ARGS args[]= {
    {
      GWEN_ARGS_FLAGS_HAS_ARGUMENT, /* flags */
      GWEN_ArgsType_Char,           /* type */
      "tcpAddress",                 /* name */
      0,                            /* minnum */
      1,                            /* maxnum */
      "t",                          /* short option */
      "tcpaddress",                 /* long option */
      I18S("Specify TCP address to connect to (defaults to 127.0.0.1)"),
      I18S("Specify TCP address to connect to (defaults to 127.0.0.1)")
    },
    {
      GWEN_ARGS_FLAGS_HAS_ARGUMENT, /* flags */
      GWEN_ArgsType_Int,            /* type */
      "tcpPort",                    /* name */
      0,                            /* minnum */
      1,                            /* maxnum */
      "P",                          /* short option */
      "tcpport",                    /* long option */
      I18S("Specify the TCP port to listen on"),
      I18S("Specify the TCP port to listen on")
    },
    {
      GWEN_ARGS_FLAGS_HAS_ARGUMENT, /* flags */
      GWEN_ArgsType_Int,            /* type */
      "timeout",                    /* name */
      0,                            /* minnum */
      1,                            /* maxnum */
      "T",                          /* short option */
      NULL,                         /* long option */
      I18S("Specify timeout in seconds for response"),
      I18S("Specify timeout in seconds for response")
    },
    {
      GWEN_ARGS_FLAGS_HELP | GWEN_ARGS_FLAGS_LAST, /* flags */
      GWEN_ArgsType_Int,             /* type */
      "help",                       /* name */
      0,                            /* minnum */
      0,                            /* maxnum */
      "h",                          /* short option */
      "help",                       /* long option */
      "Show this help screen",      /* short description */
      "Show this help screen"       /* long description */
    }
  };

  dbLocalArgs=GWEN_DB_GetGroup(dbGlobalArgs, GWEN_DB_FLAGS_DEFAULT, "local");
  rv=GWEN_Args_Check(argc, argv, 1,
                     GWEN_ARGS_MODE_ALLOW_FREEPARAM,
                     args,
                     dbLocalArgs);
  if (rv==GWEN_ARGS_RESULT_ERROR) {
    fprintf(stderr, "ERROR: Could not parse arguments\n");
    return 1;
  }
  else if (rv==GWEN_ARGS_RESULT_HELP) {
    GWEN_BUFFER *ubuf;

    ubuf=GWEN_Buffer_new(0, 1024, 0, 1);
    if (GWEN_Args_Usage(args, ubuf, GWEN_ArgsOutType_Txt)) {
      fprintf(stderr, "ERROR: Could not create help string\n");
      return 1;
    }
    fprintf(stderr, "%s\n", GWEN_Buffer_GetStart(ubuf));
    GWEN_Buffer_free(ubuf);
    return 0;
  }

  return _doGetValues(dbLocalArgs);
}



int _doGetValues(GWEN_DB_NODE *dbArgs)
{
  GWEN_MSG_ENDPOINT *epTcp;
  int timeoutInSeconds;
  GWEN_MSG *msg;

  epTcp=Utils_SetupIpcEndpoint(dbArgs);
  if (epTcp==NULL) {
    DBG_ERROR(NULL, "ERROR creating TCP connection");
    return 2;
  }

  timeoutInSeconds=GWEN_DB_GetIntValue(dbArgs, "timeout", 0, 5);

  fprintf(stdout, "Sending GetValues request\n");

  _sendCommand(epTcp);

  for (;;) {
    uint16_t code;

    msg=Utils_WaitForSpecificIpcMessage(epTcp, AQH_MSGTYPE_IPC_DATA_GETVALUES_RSP, timeoutInSeconds);
    if (msg==NULL) {
      DBG_ERROR(NULL, "No response received");
      return 2;
    }
    code=GWEN_IpcMsg_GetCode(msg);
    if (code==AQH_MSGTYPE_IPC_DATA_GETVALUES_RSP) {
      if (AQH_ValuesDataIpcMsg_IsValid(msg)) {
        uint32_t numValues;
        uint32_t i;

        numValues=AQH_ValuesDataIpcMsg_GetNumValues(msg);
        for(i=0; i<numValues; i++) {
          uint64_t valueId;
          const char *valueName;
          const char *valueUnits;

          valueId=AQH_ValuesDataIpcMsg_GetValueId(msg, i);
          valueName=AQH_ValuesDataIpcMsg_GetValueName(msg, i);
          valueUnits=AQH_ValuesDataIpcMsg_GetValueUnits(msg, i);

          fprintf(stdout, "%lu\t%s\t%s\n",
                  (unsigned long int) valueId,
                  valueName?valueName:"",
                  valueUnits?valueUnits:"");
        }
        if (AQH_ValuesDataIpcMsg_GetFlags(msg) & AQH_MSGDATA_VALUES_FLAGS_LASTMSG) {
          DBG_INFO(NULL, "Last message received");
          break;
        }
      }
      else {
        DBG_ERROR(NULL, "Invalid message received");
        GWEN_MsgEndpoint_free(epTcp);
        return 3;
      }
    }
    else if (code==AQH_MSGTYPE_IPC_DATA_RESULT) {
      uint32_t resultCode;

      resultCode=AQH_ResultIpcMsg_GetResultCode(msg);
      fprintf(stderr, "ERROR: %d\n", resultCode);
      GWEN_MsgEndpoint_free(epTcp);
      return 3;
    }
    else {
      DBG_INFO(NULL, "Unexpected message \"%d\"", code);
      GWEN_MsgEndpoint_free(epTcp);
      return 3;
    }
  } /* for */

  GWEN_MsgEndpoint_free(epTcp);
  return 0;
}



void _sendCommand(GWEN_MSG_ENDPOINT *epTcp)
{
  GWEN_MSG *msgOut;

  msgOut=GWEN_IpcMsg_new(AQH_IPC_PROTOCOL_DATA_ID, AQH_IPC_PROTOCOL_DATA_VERSION, AQH_MSGTYPE_IPC_DATA_GETVALUES_REQ, 0, NULL);
  GWEN_MsgEndpoint_AddSendMessage(epTcp, msgOut);
}