/* $Id$ */

#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <ctype.h>
#include <unistd.h>
#include <time.h>
#include <stdio.h>

#include "gpsd_config.h"
#include "gpsd.h"
#if defined(ONCORE_ENABLE) && defined(BINARY_ENABLE)

#include "bits.h"

/*@ +charint @*/
static char enableEa[]		= { 'E', 'a', 1 };
static char enableBb[]		= { 'B', 'b', 1 };
static char getfirmware[] 	= { 'C', 'j' };
static char enableEn[]		= { 'E', 'n', 1, 0, 100, 100, 1, 0,0,0,0,0,0,0,0,0,0 };
/*static char enableAt2[] 	= { 'A', 't', 2, };*/
static char pollAs[]		= { 'A', 's', 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0xff };
static char pollAt[]		= { 'A', 't', 0xff };
static char pollBo[]		= { 'B', 'o', 0x01 };
/*@ -charint @*/

/*
 * These routines are specific to this driver
 */

static	gps_mask_t oncore_parse_input(struct gps_device_t *);
static	gps_mask_t oncore_dispatch(struct gps_device_t *, unsigned char *, size_t );
static	gps_mask_t oncore_msg_navsol(struct gps_device_t *, unsigned char *, size_t );
static	gps_mask_t oncore_msg_utc_offset(struct gps_device_t *, unsigned char *, size_t );
static	gps_mask_t oncore_msg_svinfo(struct gps_device_t *, unsigned char *, size_t );
static	gps_mask_t oncore_msg_time_raim(struct gps_device_t *, unsigned char *, size_t );
static	gps_mask_t oncore_msg_firmware(struct gps_device_t *, unsigned char *, size_t );

/*
 * These methods may be called elsewhere in gpsd
 */
static	ssize_t oncore_control_send(struct gps_device_t *, char *, size_t );
static	void oncore_probe_wakeup(struct gps_device_t *);
static	void oncore_configurator(struct gps_device_t *, unsigned int );
static	bool oncore_set_speed(struct gps_device_t *, speed_t, char, int );
static	void oncore_set_mode(struct gps_device_t *, int );
static	void oncore_revert(struct gps_device_t *);
static	void oncore_wrapup(struct gps_device_t *);

/*
 * Decode the navigation solution message
 */
static gps_mask_t
oncore_msg_navsol(struct gps_device_t *session, unsigned char *buf, size_t data_len)
{
    gps_mask_t mask;
    unsigned char flags;
    double lat, lon, alt;
    float speed, track, dop;
    unsigned int i, j, st, nsv, off;
    int Bbused;
    struct tm unpacked_date;
    unsigned int nsec;

    if (data_len != 76)
	return 0;

    mask = ONLINE_SET;
    gpsd_report(LOG_IO, "oncore NAVSOL - navigation data\n");

    flags = getub(buf, 72);

    /*@ -predboolothers @*/
    if (flags & 0x20) {
	session->gpsdata.status = STATUS_FIX;
	session->gpsdata.fix.mode = MODE_3D;
    } else if (flags & 0x10) {
	session->gpsdata.status = STATUS_FIX;
	session->gpsdata.fix.mode = MODE_2D;
    } else {
	gpsd_report(LOG_WARN, "oncore NAVSOL no fix - flags 0x%02x\n", flags);
	session->gpsdata.fix.mode = MODE_NO_FIX;
	session->gpsdata.status = STATUS_NO_FIX;
    }
    mask |= MODE_SET;
    /*@ +predboolothers @*/

    /* Unless we have seen non-zero utc offset data, the time is GPS time
     * and not UTC time.  Do not use it.
     */
    if (session->context->leap_seconds) {
	unpacked_date.tm_mon	= (int)getub(buf, 4) - 1;
	unpacked_date.tm_mday	= (int)getub(buf, 5);
	unpacked_date.tm_year	= (int)getbeuw(buf, 6) - 1900;
	unpacked_date.tm_hour	= (int)getub(buf, 8);
	unpacked_date.tm_min	= (int)getub(buf, 9);
	unpacked_date.tm_sec	= (int)getub(buf, 10);
	nsec			= getbeul(buf, 11);

	/*@ -unrecog */
	session->gpsdata.fix.time = session->gpsdata.sentence_time =
	  (double)timegm(&unpacked_date)+nsec * 1e-9;
	/*@ +unrecog */
	mask |= TIME_SET;
	
#ifdef NTPSHM_ENABLE
	/* Only update the NTP time if we've seen the leap-seconds data. 
	 * Else we may be providing GPS time.
	 */
	if (session->context->enable_ntpshm)
	    (void)ntpshm_put(session, session->gpsdata.fix.time + 0.16);
#endif /* NTPSHM_ENABLE */

	gpsd_report(LOG_IO, "oncore NAVSOL - time: %04d-%02d-%02d %02d:%02d:%02d.%09d\n",
		    unpacked_date.tm_year+1900,
		    unpacked_date.tm_mon+1,
		    unpacked_date.tm_mday,
		    unpacked_date.tm_hour,
		    unpacked_date.tm_min,
		    unpacked_date.tm_sec,
		    nsec);
    }

    lat = getbesl(buf, 15) / 3600000.0;
    lon = getbesl(buf, 19) / 3600000.0;
    alt = getbesl(buf, 23) / 100.0;
    speed = getbeuw(buf, 31) / 100.0f;
    track = getbeuw(buf, 33) / 10.0f;
    dop = getbeuw(buf, 35) / 10.0f;

    gpsd_report(LOG_IO, "oncore NAVSOL - %lf %lf %.2lfm-%.2lfm | %.2fm/s %.1fdeg dop=%.1f\n", lat, lon, alt,wgs84_separation(lat,lon), speed, track, (float )dop);
    
    session->gpsdata.fix.latitude	= lat;
    session->gpsdata.fix.longitude	= lon;
    session->gpsdata.separation		= wgs84_separation(session->gpsdata.fix.latitude, session->gpsdata.fix.longitude);
    session->gpsdata.fix.altitude	= alt - session->gpsdata.separation;
    session->gpsdata.fix.speed		= speed;
    session->gpsdata.fix.track		= track;

    mask |= LATLON_SET | ALTITUDE_SET | SPEED_SET | TRACK_SET ;

#if 0
    session->gpsdata.satellites_used = GET_SATELLITES_USED();
    session->gpsdata.hdop		= GET_HDOP();
    session->gpsdata.vdop		= GET_VDOP();
    /* other DOP if available */
    mask |= HDOP_SET | VDOP_SET | USED_SET;
#endif

    gpsd_zero_satellites(&session->gpsdata);
    /* Merge the satellite information from the Bb message. */
    Bbused = 0;
    nsv = 0;
    for (i = st = 0; i < 8; i++) {
        int sv, mode, sn, status;

	off	= 40 + 4 * i;
	sv	= (int)getub(buf, off);
	mode	= (int)getub(buf, off+1);
	sn	= (int)getub(buf, off+2);
	status	= (int)getub(buf, off+3);

	gpsd_report(LOG_IO, "%2d %2d %2d %3d %02x\n",i,sv,mode,sn,status);

	if (sn) {
	    session->gpsdata.PRN[st]	= sv;
	    session->gpsdata.ss[st]	= (double)sn;
	    for (j = 0; (int)j < session->driver.oncore.visible; j++)
	        if (session->driver.oncore.PRN[j] == sv) {
		    session->gpsdata.elevation[st] = 
		      session->driver.oncore.elevation[j];
		    session->gpsdata.azimuth[st] = 
		      session->driver.oncore.azimuth[j];
		    Bbused |= 1 << j;
		    break;
		}
	    st++;
	    if (status & 0x80)
	      session->gpsdata.used[nsv++] = sv;
	}	
    }
    for (j = 0; (int)j < session->driver.oncore.visible; j++)
        /*@ -boolops @*/
        if (!(Bbused & (1 << j))) {
	    session->gpsdata.PRN[st] = session->driver.oncore.PRN[j];
	    session->gpsdata.elevation[st] = 
	      session->driver.oncore.elevation[j];
	    session->gpsdata.azimuth[st] = 
	      session->driver.oncore.azimuth[j];
	    st++;
	}
        /*@ +boolops @*/
    session->gpsdata.satellites_used = (int)nsv;
    session->gpsdata.satellites = (int)st;

    mask |= SATELLITE_SET | USED_SET;
    
    /* Some messages can only be polled.  As they are not so
     * important, would be enough to poll e.g. one message per cycle.
     */
    (void)oncore_control_send(session,pollAs,sizeof(pollAs));
    (void)oncore_control_send(session,pollAt,sizeof(pollAt));
    (void)oncore_control_send(session,pollBo,sizeof(pollBo));

    return mask;
}

/**
 * GPS Leap Seconds = UTC offset
 */
static gps_mask_t
oncore_msg_utc_offset(struct gps_device_t *session, unsigned char *buf, size_t data_len)
{
    int utc_offset;

    if (data_len != 8)
	return 0;

    gpsd_report(LOG_IO, "oncore UTCTIME - leap seconds\n");
    utc_offset = (int)getub(buf, 4);
    if (utc_offset == 0)
	return 0; /* that part of almanac not received yet */

    session->context->leap_seconds = utc_offset;
    session->context->valid |= LEAP_SECOND_VALID;
    return 0; /* no flag for leap seconds update */
}

/**
 * GPS Satellite Info
 */
static gps_mask_t
oncore_msg_svinfo(struct gps_device_t *session, unsigned char *buf, size_t data_len)
{
    unsigned int i, nchan;
    unsigned int off;
    int sv, el, az;
    int j;

    if (data_len != 92)
	return 0;

    gpsd_report(LOG_IO, "oncore SVINFO - satellite data\n");
    nchan = (unsigned int)getub(buf, 4);
    gpsd_report(LOG_IO, "oncore SVINFO - %d satellites:\n",nchan);
    /* Then we clamp the value to not read outside the table. */
    if (nchan > 12)
	nchan = 12;
    session->driver.oncore.visible = (int)nchan;
    for (i = 0; i < nchan; i++) {
	/* get info for one channel/satellite */
        off = 5+7*i;

	sv     = (int)getub(buf,   off);
	el     = (int)getub(buf,   off+3);
	az     = (int)getbeuw(buf, off+4);

	gpsd_report(LOG_IO, "%2d %2d %2d %3d\n",i,sv,el,az);

	/* Store for use when Ea messages come. */
	session->driver.oncore.PRN[i]		= sv;
	session->driver.oncore.elevation[i]	= el;
	session->driver.oncore.azimuth[i]	= az;
	/* If it has an entry in the satellite list, update it! */
	for (j = 0; j < session->gpsdata.satellites; j++)
	    if (session->gpsdata.PRN[j] == sv) {
		session->gpsdata.elevation[j]	= el;
		session->gpsdata.azimuth[j]	= az; 
	    }
    }

    return SATELLITE_SET;
}

/**
 * GPS Time RAIM
 */
static gps_mask_t
oncore_msg_time_raim(struct gps_device_t *session UNUSED, unsigned char *buf UNUSED, size_t data_len UNUSED)
{
    return 0;
}

/**
 * GPS Firmware
 */
static gps_mask_t
oncore_msg_firmware(struct gps_device_t *session UNUSED, unsigned char *buf UNUSED, size_t data_len UNUSED)
{
    return 0;
}

#define ONCTYPE(id2,id3) ((((unsigned int)id2)<<8)|(id3))

/**
 * Parse the data from the device
 */
/*@ +charint @*/
gps_mask_t oncore_dispatch(struct gps_device_t *session, unsigned char *buf, size_t len)
{
    unsigned int type;

    if (len == 0)
	return 0;

    type = ONCTYPE(buf[2],buf[3]);

    /* we may need to dump the raw packet */
    gpsd_report(LOG_RAW, "raw oncore packet type 0x%04x length %zd: %s\n",
	type, len, gpsd_hexdump_wrapper(buf, len, LOG_WARN));

    (void)snprintf(session->gpsdata.tag, sizeof(session->gpsdata.tag),
	"MOT-%c%c", type>>8, type&0xff);

    switch (type)
    {
    case ONCTYPE('B','b'):
	return oncore_msg_svinfo(session, buf, len);
    case ONCTYPE('E','a'):
	return oncore_msg_navsol(session, buf, len);
    case ONCTYPE('E','n'):
	return oncore_msg_time_raim(session, buf, len);
    case ONCTYPE('C','j'):
	return oncore_msg_firmware(session, buf, len);
    case ONCTYPE('B','o'):
	return oncore_msg_utc_offset(session, buf, len);
    case ONCTYPE('A','s'):
	return 0; /* position hold mode */
    case ONCTYPE('A','t'):
	return 0; /* position hold position */

    default:
	/* XXX This gets noisy in a hurry. Change once your driver works */
	gpsd_report(LOG_WARN, "unknown packet id @@%c%c length %zd: %s\n",
	    type>>8, type&0xff, len, gpsd_hexdump_wrapper(buf, len, LOG_WARN));
	return 0;
    }
}
/*@ -charint @*/

/**********************************************************
 *
 * Externally called routines below here
 *
 **********************************************************/

static void oncore_probe_wakeup(struct gps_device_t *session)
{
    (void)oncore_control_send(session,getfirmware,sizeof(getfirmware));
}

#ifdef ALLOW_CONTROLSEND
/**
 * Write data to the device, doing any required padding or checksumming
 */
/*@ +charint -usedef -compdef @*/
static ssize_t oncore_control_send(struct gps_device_t *session,
				   char *msg, size_t msglen)
{
    size_t i;
    char checksum = 0;
    
    session->msgbuf[0] = '@';
    session->msgbuf[1] = '@';
    for (i = 0; i < msglen; i++) {
	 checksum ^= session->msgbuf[i+2] = msg[i];
    }
    session->msgbuf[msglen + 2] = checksum;
    session->msgbuf[msglen + 3] = '\r';
    session->msgbuf[msglen + 4] = '\n';
    session->msgbuflen = msglen + 5;
    
    gpsd_report(LOG_IO, "writing oncore control type %c%c:%s\n",
		msg[0],msg[1], gpsd_hexdump_wrapper(session->msgbuf, session->msgbuflen, LOG_IO));
    return gpsd_write(session, session->msgbuf, session->msgbuflen);
}
/*@ -charint +usedef +compdef @*/
#endif /* ALLOW_CONTROLSEND */

#ifdef ALLOW_RECONFIGURE
static void oncore_configurator(struct gps_device_t *session, unsigned int seq UNUSED)
{
    (void)oncore_control_send(session,enableEa,sizeof(enableEa));
    (void)oncore_control_send(session,enableBb,sizeof(enableBb));
    (void)oncore_control_send(session,enableEn,sizeof(enableEn));
    /*(void)oncore_control_send(session,enableAt2,sizeof(enableAt2));*/
    /*(void)oncore_control_send(session,pollAs,sizeof(pollAs));*/
    (void)oncore_control_send(session,pollBo,sizeof(pollBo));
}

/*
 * This is the entry point to the driver. When the packet sniffer recognizes
 * a packet for this driver, it calls this method which passes the packet to
 * the binary processor or the nmea processor, depending on the session type.
 */
static gps_mask_t oncore_parse_input(struct gps_device_t *session)
{
    gps_mask_t st;

    if (session->packet.type == ONCORE_PACKET){
	st = oncore_dispatch(session, session->packet.outbuffer, session->packet.outbuflen);
	session->gpsdata.driver_mode = MODE_BINARY;
	return st;
#ifdef NMEA_ENABLE
    } else if (session->packet.type == NMEA_PACKET) {
	st = nmea_parse((char *)session->packet.outbuffer, session);
	session->gpsdata.driver_mode = MODE_NMEA;
	return st;
#endif /* NMEA_ENABLE */
    } else
	return 0;
}

static bool oncore_set_speed(struct gps_device_t *session UNUSED,
			     speed_t speed UNUSED,
			     char parity UNUSED,
			     int stopbits UNUSED)
{
    /* 
     * Set port operating mode, speed, parity, stopbits etc. here.
     * Note: parity is passed as 'N'/'E'/'O', but you should program 
     * defensively and allow 0/1/2 as well.
     */
    return false;
}

/*
 * Switch between NMEA and binary mode, if supported
 */
static void oncore_set_mode(struct gps_device_t *session, int mode)
{
    if (mode == MODE_NMEA) {
	/* send the mode switch control string */
	/* oncore_to_nmea(session->gpsdata.gps_fd,session->gpsdata.baudrate);*/
	session->gpsdata.driver_mode = MODE_NMEA;
	/* 
	 * Anticipatory switching works only when the packet getter is the
	 * generic one and it recognizes packets of the type this driver 
	 * is expecting.  This should be the normal case.
	 */
	(void)gpsd_switch_driver(session, "Generic NMEA");
    } else {
	session->back_to_nmea = false;
	session->gpsdata.driver_mode = MODE_BINARY;
    }
}

static void oncore_revert(struct gps_device_t *session UNUSED)
{
   /*
    * Reverse what the .configurator method changed.
    */
}
#endif /* ALLOW_RECONFIGURE */

static void oncore_wrapup(struct gps_device_t *session UNUSED)
{
   /*
    * Do release actions that are independent of whether the .configurator 
    * method ran or not.
    */
}

/* This is everything we export */
const struct gps_type_t oncore_binary = {
    /* Full name of type */
    .type_name        = "oncore binary",
    /* associated lexer packet type */
    .packet_type      = ONCORE_PACKET,
    /* Response string that identifies device (not active) */
    .trigger          = NULL,
    /* Number of satellite channels supported by the device */
    .channels         = 12,
    /* Startup-time device detector */
    .probe_detect     = NULL,
    /* Wakeup to be done before each baud hunt */
    .probe_wakeup     = oncore_probe_wakeup,
    /* Initialize the device and get subtype */
    .probe_subtype    = NULL,
    /* Packet getter (using default routine) */
    .get_packet       = generic_get,
    /* Parse message packets */
    .parse_packet     = oncore_parse_input,
    /* RTCM handler (using default routine) */
    .rtcm_writer      = pass_rtcm,
#ifdef ALLOW_CONTROLSEND
    /* Control string sender - should provide checksum and headers/trailer */
    .control_send   = oncore_control_send,
#endif /* ALLOW_CONTROLSEND */
#ifdef ALLOW_RECONFIGURE
    /* Enable what reports we need */
    .configurator     = oncore_configurator,
    /* Speed (baudrate) switch */
    .speed_switcher   = oncore_set_speed,
    /* Switch to NMEA mode */
    .mode_switcher    = oncore_set_mode,
    /* Message delivery rate switcher (not active) */
    .rate_switcher    = NULL,
    /* Minimum cycle time of the device */
    .min_cycle        = 1,
    /* Undo the actions of .configurator */
    .revert           = oncore_revert,
#endif /* ALLOW_RECONFIGURE */
    /* Puts device back to original settings */
    .wrapup           = oncore_wrapup,
};
#endif /* defined(ONCORE_ENABLE) && defined(BINARY_ENABLE) */