/********************************************************************
** @source JEEPS packet reading and acknowledging functions
**
** @author Copyright (C) 1999 Alan Bleasby
** @version 1.0
** @modified Dec 28 1999 Alan Bleasby. First version
** @modified Copyright (C) 2006 Robert Lipe
** @@
**
** This library is free software; you can redistribute it and/or
** modify it under the terms of the GNU Library General Public
** License as published by the Free Software Foundation; either
** version 2 of the License, or (at your option) any later version.
**
** This library is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
** Library General Public License for more details.
**
** You should have received a copy of the GNU Library General Public
** License along with this library; if not, write to the
** Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
** Boston, MA  02110-1301, USA.
********************************************************************/

#include <cerrno>
#include <cstdio>
#include <cstdlib>
#include <ctime>

#include "jeeps/gps.h"
#include "jeeps/gpsserial.h"


/* @func GPS_Time_Now ***********************************************
**
** Get current time
**
** @return [time_t] number of bytes read
**********************************************************************/

time_t GPS_Time_Now()
{
  time_t secs;

  if (time(&secs) < 0) {
    perror("time");
    gps_errno = HARDWARE_ERROR;
    GPS_Error("GPS_Time_Now: Error reading time");
    return 0;
  }

  return secs;
}







/* @func GPS_Serial_Packet_Read ***********************************************
**
** Read a packet
**
** @param [r] fd [int32] file descriptor
** @param [w] packet [GPS_PPacket *] packet string
**
** @return [int32] number of bytes read
**********************************************************************/

int32 GPS_Serial_Packet_Read(gpsdevh* fd, GPS_PPacket* packet)
{
  time_t start;
  int32 len = 0;
  UC u;
  UC* p;
  UC chk = 0, chk_read;
  const char* m1;
  const char* m2;
  bool isDLE = false;
  p = packet->data;

  start = GPS_Time_Now();
  GPS_Diag("Rx Data:");
  while (GPS_Time_Now() < start + GPS_TIME_OUT) {
    if (GPS_Serial_Chars_Ready(fd)) {
      if (GPS_Serial_Read(fd, &u, 1) < 0) {
        perror("read");
        GPS_Error("GPS_Packet_Read: Read error");
        gps_errno = FRAMING_ERROR;
        return 0;
      }

      GPS_Diag("%02x ", u);

      if (!len) {
        if (u != DLE) {
          (void) fprintf(stderr, "GPS_Packet_Read: No DLE.  Data received, but probably not a garmin packet.\n");
          (void) fflush(stderr);
          return 0;
        }
        ++len;
        continue;
      }

      if (len == 1) {
        packet->type = u;
        ++len;
        continue;
      }

      if (u == DLE) {
        if (isDLE) {
          isDLE = false;
          continue;
        }
        isDLE = true;
      }

      if (len == 2) {
        packet->n = u;
        len = -1;
        continue;
      }

      if (u == ETX)
        if (isDLE) {
          if (p - packet->data - 2 != packet->n) {
            GPS_Error("GPS_Packet_Read: Bad count");
            gps_errno = FRAMING_ERROR;
            return 0;
          }
          chk_read = *(p - 2);

          unsigned int i;
          for (i = 0, p = packet->data; i < packet->n; ++i) {
            chk -= *p++;
          }
          chk -= packet->type;
          chk -= packet->n;
          if (chk != chk_read) {
            GPS_Error("CHECKSUM: Read error\n");
            gps_errno = FRAMING_ERROR;
            return 0;
          }

          m1 = Get_Pkt_Type(packet->type, packet->data[0], &m2);
          if (gps_show_bytes) {
            GPS_Diag(" ");
            for (unsigned j = 0; j < packet->n; j++) {
              char c = packet->data[j];
              GPS_Diag("%c", isascii(c) && isalnum(c) ? c : '.');
            }
            GPS_Diag(" ");
          }
          GPS_Diag("(%-8s%s)\n", m1, m2 ? m2 : "");
          return packet->n;
        }

      if (p - packet->data >= MAX_GPS_PACKET_SIZE) {
        GPS_Error("GPS_Serial_Packet_Read: Bad payload size/no ETX found");
        gps_errno = FRAMING_ERROR;
        return 0;
      }
      *p++ = u;
    }
  }


  GPS_Error("GPS_Packet_Read: Timeout.  No data received.");
  gps_errno = SERIAL_ERROR;

  return 0;
}



/* @func GPS_Get_Ack *************************************************
**
** Check that returned packet is an ack for the packet sent
**
** @param [r] fd [int32] file descriptor
** @param [r] tra [GPS_PPacket *] packet just transmitted
** @param [r] rec [GPS_PPacket *] packet to receive
**
** @return [bool] true if ACK
**********************************************************************/

bool GPS_Serial_Get_Ack(gpsdevh *fd, GPS_PPacket *tra, GPS_PPacket *rec)
{
  if (!GPS_Serial_Packet_Read(fd, rec)) {
    return false;
  }

  if (LINK_ID[0].Pid_Ack_Byte != rec->type) {
    gps_error = FRAMING_ERROR;
    /* rjl	return 0; */
  }

  if (*rec->data != tra->type) {
    gps_error = FRAMING_ERROR;
    return false;
  }

  return true;
}
