/******************************************************************************
 * GPS HAL (hardware abstraction layer) for HD2/Leo
 * 
 * leo-gps.c
 * 
 * Copyright (C) 2006-2009 The Android Open Source Project
 * Copyright (C) 2009-2010 The XDAndroid Project
 * Copyright (C) 2010      dan1j3l @ xda-developers
 * Copyright (C) 2011      tytung  @ xda-developers
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 * 
 ******************************************************************************/

#include <errno.h>
#include <semaphore.h>
#include <pthread.h>
#include <fcntl.h>
#include <sys/epoll.h>
#include <math.h>
#include <time.h>
#include <sys/time.h>
#include <cutils/log.h>
#include <cutils/sockets.h>
#include <gps.h>

#define  LOG_TAG  "gps_leo"

#define  XTRA_BLOCK_SIZE  400
#define  ENABLE_NMEA 1

#define  DUMP_DATA  0
#define  GPS_DEBUG  1

#if GPS_DEBUG
#  define  D(...)   LOGD(__VA_ARGS__)
#else
#  define  D(...)   ((void)0)
#endif

#if ENABLE_NMEA
/* Since NMEA parser requires lcoks */
#define GPS_STATE_LOCK_FIX(_s)           \
{                                        \
    int ret;                             \
    do {                                 \
        ret = sem_wait(&(_s)->fix_sem);  \
    } while (ret < 0 && errno == EINTR); \
}

#define GPS_STATE_UNLOCK_FIX(_s)         \
    sem_post(&(_s)->fix_sem)

static void *gps_timer_thread( void*  arg );
#endif

static void *gps_get_position_thread( void*  arg );

static pthread_mutex_t get_position_mutex = PTHREAD_MUTEX_INITIALIZER;
static pthread_cond_t get_position_cond = PTHREAD_COND_INITIALIZER;

static pthread_mutex_t get_pos_ready_mutex = PTHREAD_MUTEX_INITIALIZER;
static pthread_cond_t get_pos_ready_cond = PTHREAD_COND_INITIALIZER;

static int started = 0;
static int active = 0;

void update_gps_location(GpsLocation *location);
void update_gps_status(GpsStatusValue value);
void update_gps_svstatus(GpsSvStatus *svstatus);
void update_gps_nmea(GpsUtcTime timestamp, const char* nmea, int length);

extern uint8_t get_cleanup_value();
extern uint8_t get_precision_value();

/*****************************************************************/
/*****************************************************************/
/*****                                                       *****/
/*****       N M E A   T O K E N I Z E R                     *****/
/*****                                                       *****/
/*****************************************************************/
/*****************************************************************/

/* this is the state of our connection */

typedef struct {
    const char*  p;
    const char*  end;
} Token;

#define  MAX_NMEA_TOKENS  32

typedef struct {
    int     count;
    Token   tokens[ MAX_NMEA_TOKENS ];
} NmeaTokenizer;

static int
nmea_tokenizer_init( NmeaTokenizer*  t, const char*  p, const char*  end )
{
    int    count = 0;
    char*  q;

    // the initial '$' is optional
    if (p < end && p[0] == '$')
        p += 1;

    // remove trailing newline
    if (end > p && end[-1] == '\n') {
        end -= 1;
        if (end > p && end[-1] == '\r')
            end -= 1;
    }

    // get rid of checksum at the end of the sentecne
    if (end >= p+3 && end[-3] == '*') {
        end -= 3;
    }

    while (p < end) {
        const char*  q = p;

        q = memchr(p, ',', end-p);
        if (q == NULL)
            q = end;

         if (count < MAX_NMEA_TOKENS) {
             t->tokens[count].p   = p;
             t->tokens[count].end = q;
             count += 1;
         }
        if (q < end)
            q += 1;

        p = q;
    }

    t->count = count;
    return count;
}

static Token
nmea_tokenizer_get( NmeaTokenizer*  t, int  index )
{
    Token  tok;
    static const char*  dummy = "";

    if (index < 0 || index >= t->count) {
        tok.p = tok.end = dummy;
    } else
        tok = t->tokens[index];

    return tok;
}

static int
str2int( const char*  p, const char*  end )
{
    int   result = 0;
    int   len    = end - p;

    if (len == 0) {
        return -1;
    }

    for ( ; len > 0; len--, p++ )
    {
        int  c;

        if (p >= end)
            goto Fail;

        c = *p - '0';
        if ((unsigned)c >= 10)
            goto Fail;

        result = result*10 + c;
    }
    return  result;

Fail:
    return -1;
}

static double
str2float( const char*  p, const char*  end )
{
    int   result = 0;
    int   len    = end - p;
    char  temp[16];

    if (len == 0) {
        return -1.0;
    }

    if (len >= (int)sizeof(temp))
        return 0.;

    memcpy( temp, p, len );
    temp[len] = 0;
    return strtod( temp, NULL );
}

/*****************************************************************/
/*****************************************************************/
/*****                                                       *****/
/*****       N M E A   P A R S E R                           *****/
/*****                                                       *****/
/*****************************************************************/
/*****************************************************************/

#define  NMEA_MAX_SIZE  255

typedef struct {
    int      pos;
    int      overflow;
    int      utc_year;
    int      utc_mon;
    int      utc_day;
    int      utc_diff;
    GpsLocation fix;
    GpsSvStatus sv_status;
    int      sv_status_changed;
    uint16_t fix_flags_cached;
    char     in[ NMEA_MAX_SIZE+1 ];
} NmeaReader;

enum {
    STATE_QUIT  = 0,
    STATE_INIT  = 1,
    STATE_START = 2
};

typedef struct {
    int                     init;
    int                     fd;
    GpsCallbacks            callbacks;
    GpsXtraCallbacks        xtra_callbacks;
    AGpsCallbacks           agps_callbacks;
    GpsStatus               status;
    pthread_t               thread;
    pthread_t               pos_thread;
#if ENABLE_NMEA
    pthread_t               tmr_thread;
    sem_t                   fix_sem;
#endif
    int                     fix_freq;
    int                     control[2];
    NmeaReader              reader;
} GpsState;

static GpsState  _gps_state[1];

static void
nmea_reader_update_utc_diff( NmeaReader*  r )
{
    time_t         now = time(NULL);
    struct tm      tm_local;
    struct tm      tm_utc;
    long           time_local, time_utc;

    gmtime_r( &now, &tm_utc );
    localtime_r( &now, &tm_local );

    time_local = mktime(&tm_local);
    time_utc = mktime(&tm_utc);

    r->utc_diff = time_local - time_utc;
    D("%s() is called. utc_diff = %d", __FUNCTION__, r->utc_diff);
}

static void
nmea_reader_init( NmeaReader*  r )
{
    D("%s() is called", __FUNCTION__);
    memset( r, 0, sizeof(*r) );

    r->fix_flags_cached = 0;
    r->pos      = 0;
    r->overflow = 0;
    r->utc_year = -1;
    r->utc_mon  = -1;
    r->utc_day  = -1;

    nmea_reader_update_utc_diff( r );
}

static int
nmea_reader_update_time( NmeaReader*  r, Token  tok )
{
    int        hour, minute;
    double     seconds;
    struct tm  tm;
    time_t     fix_time;

    if (tok.p + 6 > tok.end)
        return -1;

    if (r->utc_year < 0) {
        // no date yet, get current one
        time_t  now = time(NULL);
        gmtime_r( &now, &tm );
        r->utc_year = tm.tm_year + 1900;
        r->utc_mon  = tm.tm_mon + 1;
        r->utc_day  = tm.tm_mday;
    }

    hour    = str2int(tok.p,   tok.p+2);
    minute  = str2int(tok.p+2, tok.p+4);
    seconds = str2float(tok.p+4, tok.end);

    tm.tm_hour  = hour;
    tm.tm_min   = minute;
    tm.tm_sec   = (int) seconds;
    tm.tm_year  = r->utc_year - 1900;
    tm.tm_mon   = r->utc_mon - 1;
    tm.tm_mday  = r->utc_day;
    tm.tm_isdst = 0;

    fix_time = mktime( &tm ) + r->utc_diff;

#if DUMP_DATA
    D("fix_time=%d", fix_time); // UTC time + utc_diff
#endif

    r->fix.timestamp = (long long)fix_time * 1000 + (int)(seconds*1000)%1000;;
    return 0;
}

static int
nmea_reader_update_date( NmeaReader*  r, Token  date, Token  time )
{
    Token  tok = date;
    int    day, mon, year;

    if (tok.p + 6 != tok.end) {
        D("date not properly formatted: '%.*s'", tok.end-tok.p, tok.p);
        return -1;
    }
    day  = str2int(tok.p, tok.p+2);
    mon  = str2int(tok.p+2, tok.p+4);
    year = str2int(tok.p+4, tok.p+6) + 2000;

    if ((day|mon|year) < 0) {
        D("date not properly formatted: '%.*s'", tok.end-tok.p, tok.p);
        return -1;
    }

    r->utc_year  = year;
    r->utc_mon   = mon;
    r->utc_day   = day;

    return nmea_reader_update_time( r, time );
}

static double
convert_from_hhmm( Token  tok )
{
    double  val     = str2float(tok.p, tok.end);
    int     degrees = (int)(floor(val) / 100);
    double  minutes = val - degrees*100.;
    double  dcoord  = degrees + minutes / 60.0;
    return dcoord;
}

static int
nmea_reader_update_latlong( NmeaReader*  r,
                            Token        latitude,
                            char         latitudeHemi,
                            Token        longitude,
                            char         longitudeHemi )
{
    double   lat, lon;
    Token    tok;

    tok = latitude;
    if (tok.p + 6 > tok.end) {
        D("latitude is too short: '%.*s'", tok.end-tok.p, tok.p);
        return -1;
    }
    lat = convert_from_hhmm(tok);
    if (latitudeHemi == 'S')
        lat = -lat;

    tok = longitude;
    if (tok.p + 6 > tok.end) {
        D("longitude is too short: '%.*s'", tok.end-tok.p, tok.p);
        return -1;
    }
    lon = convert_from_hhmm(tok);
    if (longitudeHemi == 'W')
        lon = -lon;

    r->fix.flags    |= GPS_LOCATION_HAS_LAT_LONG;
    r->fix.latitude  = lat;
    r->fix.longitude = lon;
    return 0;
}

static int
nmea_reader_update_altitude( NmeaReader*  r,
                             Token        altitude,
                             Token        units,
                             Token        geoid_height )
{
    /*
     * Height can be measured in two ways.
     * The altitude we get from NMEA is H.
     * The altitude in gps.h is defined as h.
     * So the required output must be h = H + N.
     * 
     * h: Height (h) above the WGS84 reference ellipsoid.
     * H: Height (H) above Geoid (mean sea level).
     * N: Height of Geoid (mean sea level) above the WGS84 ellipsoid.
     */
    if (altitude.p >= altitude.end)
        return -1;

    if (geoid_height.p >= geoid_height.end)
        return -1;

    r->fix.flags   |= GPS_LOCATION_HAS_ALTITUDE;
    r->fix.altitude = str2float(altitude.p, altitude.end) + str2float(geoid_height.p, geoid_height.end);
    return 0;
}

static int
nmea_reader_update_accuracy( NmeaReader*  r,
                             Token        accuracy )
{
    Token   tok = accuracy;

    if (tok.p >= tok.end)
        return -1;

    r->fix.flags   |= GPS_LOCATION_HAS_ACCURACY;
    float precision = (float)get_precision_value();
    r->fix.accuracy = (float)str2float(tok.p, tok.end) * precision;
    return 0;
}

static int
nmea_reader_update_bearing( NmeaReader*  r,
                            Token        bearing )
{
    Token   tok = bearing;

    if (tok.p >= tok.end)
        return -1;

    r->fix.flags   |= GPS_LOCATION_HAS_BEARING;
    r->fix.bearing  = (float)str2float(tok.p, tok.end);
    return 0;
}

static int
nmea_reader_update_speed( NmeaReader*  r,
                          Token        speed )
{
    Token   tok = speed;

    if (tok.p >= tok.end)
        return -1;

    r->fix.flags   |= GPS_LOCATION_HAS_SPEED;
    // convert knots into m/sec (1 knot equals 1.852 km/h, 1 km/h equals 3.6 m/s)
    // since 1.852 / 3.6 is an odd value (periodic), we're calculating the quotient on the fly
    // to obtain maximum precision (we don't want 1.9999 instead of 2)
    r->fix.speed    = (float)str2float(tok.p, tok.end) * 1.852 / 3.6;
    return 0;
}

static void
nmea_reader_parse( NmeaReader*  r )
{
   /* we received a complete sentence, now parse it to generate
    * a new GPS fix...
    */
    NmeaTokenizer  tzer[1];
    Token          tok;
    int            report_nmea = 0;

#if DUMP_DATA
    D("Received: %.*s", r->pos, r->in);
#endif
    if (r->pos < 9) {
#if DUMP_DATA
        D("Too short. discarded.");
#endif
        return;
    }

    nmea_tokenizer_init(tzer, r->in, r->in + r->pos);
/*
#if GPS_DEBUG
    {
        int  n;
        D("Found %d tokens", tzer->count);
        for (n = 0; n < tzer->count; n++) {
            Token  tok = nmea_tokenizer_get(tzer,n);
            D("size of %2d: '%d', ptr=%x", n, tok.end-tok.p, tok.p);
            D("%2d: '%.*s'", n, tok.end-tok.p, tok.p);
        }
    }
#endif
*/
    tok = nmea_tokenizer_get(tzer, 0);
    if (tok.p + 5 > tok.end) {
        D("sentence id '%.*s' too short, ignored.", tok.end-tok.p, tok.p);
        return;
    }

    // ignore first two characters.
    tok.p += 2;
    if ( !memcmp(tok.p, "GSV", 3) ) {
        // Satellites in View
        Token  tok_num_svs           = nmea_tokenizer_get(tzer, 3);
        int    num_svs = str2int(tok_num_svs.p, tok_num_svs.end);
        //report_nmea = 1;

        if (num_svs > 0) {
            Token tok_total_sentences= nmea_tokenizer_get(tzer, 1);
            Token tok_sentence_no    = nmea_tokenizer_get(tzer, 2);

            int sentence_no = str2int(tok_sentence_no.p, tok_sentence_no.end);
            int total_sentences = str2int(tok_total_sentences.p, tok_total_sentences.end);
            int curr;
            int i;

            if (sentence_no == 1) {
                r->sv_status_changed = 0;
                r->sv_status.num_svs = 0;
                memset( r->sv_status.sv_list, 0, sizeof(r->sv_status.sv_list) );
            }

            curr = (sentence_no - 1) * 4;
            i = 0;
            while (i < 4 && r->sv_status.num_svs < num_svs) {
                Token  tok_prn       = nmea_tokenizer_get(tzer, i*4 + 4);
                Token  tok_elevation = nmea_tokenizer_get(tzer, i*4 + 5);
                Token  tok_azimuth   = nmea_tokenizer_get(tzer, i*4 + 6);
                Token  tok_snr       = nmea_tokenizer_get(tzer, i*4 + 7);

                float snr = str2float(tok_snr.p, tok_snr.end);
                if (snr > 0) {
                    r->sv_status.sv_list[curr].prn       = str2int(tok_prn.p, tok_prn.end);
                    r->sv_status.sv_list[curr].elevation = str2float(tok_elevation.p, tok_elevation.end);
                    r->sv_status.sv_list[curr].azimuth   = str2float(tok_azimuth.p, tok_azimuth.end);
                    r->sv_status.sv_list[curr].snr       = snr;
                    r->sv_status.num_svs += 1;
                }
#if DUMP_DATA
                D("GSV sentence %2d of %d: prn=%2d", curr+1, num_svs, r->sv_status.sv_list[curr].prn);
#endif
                curr += 1;
                i += 1;
            }

            if (sentence_no == total_sentences) {
                r->sv_status_changed = 1;
            }
        }

    } else if ( !memcmp(tok.p, "GGA", 3) ) {
        // GPS fix
        Token  tok_fix_status        = nmea_tokenizer_get(tzer,6);
        report_nmea = 1;

        // Fix quality: {0 = invalid}, {1 = GPS fix}, ...
        if (tok_fix_status.p[0] > '0') {
            Token  tok_time          = nmea_tokenizer_get(tzer,1);
            Token  tok_latitude      = nmea_tokenizer_get(tzer,2);
            Token  tok_latitudeHemi  = nmea_tokenizer_get(tzer,3);
            Token  tok_longitude     = nmea_tokenizer_get(tzer,4);
            Token  tok_longitudeHemi = nmea_tokenizer_get(tzer,5);
            Token  tok_accuracy      = nmea_tokenizer_get(tzer,8);
            Token  tok_altitude      = nmea_tokenizer_get(tzer,9);
            Token  tok_altitudeUnits = nmea_tokenizer_get(tzer,10);
            Token  tok_geoidHeight   = nmea_tokenizer_get(tzer,11);

            nmea_reader_update_time(r, tok_time);
            nmea_reader_update_latlong(r, tok_latitude,
                                          tok_latitudeHemi.p[0],
                                          tok_longitude,
                                          tok_longitudeHemi.p[0]);
            nmea_reader_update_accuracy(r, tok_accuracy);
            nmea_reader_update_altitude(r, tok_altitude, tok_altitudeUnits, tok_geoidHeight);
        }

    } else if ( !memcmp(tok.p, "RMC", 3) ) {
        // Recommended minimum specific GPS/Transit data
        Token  tok_fix_status        = nmea_tokenizer_get(tzer, 2);
        report_nmea = 1;

        // Status: {A = active} or {V = void}
        if (tok_fix_status.p[0] == 'A') {
            Token  tok_time          = nmea_tokenizer_get(tzer,1);
            Token  tok_latitude      = nmea_tokenizer_get(tzer,3);
            Token  tok_latitudeHemi  = nmea_tokenizer_get(tzer,4);
            Token  tok_longitude     = nmea_tokenizer_get(tzer,5);
            Token  tok_longitudeHemi = nmea_tokenizer_get(tzer,6);
            Token  tok_speed         = nmea_tokenizer_get(tzer,7);
            Token  tok_bearing       = nmea_tokenizer_get(tzer,8);
            Token  tok_date          = nmea_tokenizer_get(tzer,9);

            nmea_reader_update_date( r, tok_date, tok_time );
            nmea_reader_update_latlong( r, tok_latitude,
                                           tok_latitudeHemi.p[0],
                                           tok_longitude,
                                           tok_longitudeHemi.p[0] );
            nmea_reader_update_bearing( r, tok_bearing );
            nmea_reader_update_speed  ( r, tok_speed );
        }

    } else if ( !memcmp(tok.p, "GSA", 3) ) {
        // GPS DOP and active satellites.
        Token  tok_fix_status        = nmea_tokenizer_get(tzer, 2);
        report_nmea = 1;
        r->sv_status.used_in_fix_mask = 0ul;

        // {3 = 3D fix}, {2 = 2D fix}, {1 = no fix}
        if (tok_fix_status.p[0] == '3' || tok_fix_status.p[0] == '2') {
            // We have accuracy in GGA
            //Token  tok_accuracy      = nmea_tokenizer_get(tzer, 16);
            //nmea_reader_update_accuracy(r, tok_accuracy);

            int i;
            for (i = 3; i <= 14; ++i) {
                Token  tok_prn       = nmea_tokenizer_get(tzer, i);
                int prn = str2int(tok_prn.p, tok_prn.end);
                if (prn > 0)
                    r->sv_status.used_in_fix_mask |= (1ul << (prn-1));
            }
        }
#if DUMP_DATA
        D("%s: used_in_fix_mask is 0x%x", __FUNCTION__, r->sv_status.used_in_fix_mask);
#endif
        r->sv_status_changed = 1;

    } else {
        tok.p -= 2;
#if DUMP_DATA
        D("unknown sentence '%.*s", tok.end-tok.p, tok.p);
#endif
    }
#if DUMP_DATA
    if (r->fix.flags) {
        char   temp[256];
        char*  p   = temp;
        char*  end = p + sizeof(temp);
        struct tm   utc;

        p += snprintf( p, end-p, "fix" );
        if (r->fix.flags & GPS_LOCATION_HAS_LAT_LONG) {
            p += snprintf(p, end-p, " lat=%g lon=%g", r->fix.latitude, r->fix.longitude);
        }
        if (r->fix.flags & GPS_LOCATION_HAS_ALTITUDE) {
            p += snprintf(p, end-p, " altitude=%g", r->fix.altitude);
        }
        if (r->fix.flags & GPS_LOCATION_HAS_SPEED) {
            p += snprintf(p, end-p, " speed=%g", r->fix.speed);
        }
        if (r->fix.flags & GPS_LOCATION_HAS_BEARING) {
            p += snprintf(p, end-p, " bearing=%g", r->fix.bearing);
        }
        if (r->fix.flags & GPS_LOCATION_HAS_ACCURACY) {
            p += snprintf(p, end-p, " accuracy=%g", r->fix.accuracy);
        }
        if (r->fix.flags & GPS_LOCATION_HAS_LAT_LONG) {
            time_t time = r->fix.timestamp / 1000;
            p += snprintf(p, end-p, " time=%s", ctime(&time) );
        }
        D("%s", temp);
    }
#endif
    if (report_nmea) {
        struct timeval tv;
        gettimeofday(&tv, NULL);
        update_gps_nmea(tv.tv_sec*1000+tv.tv_usec/1000, r->in, r->pos);
        report_nmea = 0;
    }
}

static void
nmea_reader_addc( NmeaReader*  r, int  c )
{
    if (r->overflow) {
        r->overflow = (c != '\n');
        return;
    }

    if (r->pos >= (int) sizeof(r->in)-1 ) {
        r->overflow = 1;
        r->pos      = 0;
        return;
    }

    r->in[r->pos] = (char)c;
    r->pos       += 1;

    if (c == '\n') {
#if ENABLE_NMEA
        GPS_STATE_LOCK_FIX(_gps_state);
        nmea_reader_parse( r );
        GPS_STATE_UNLOCK_FIX(_gps_state);
#endif
        r->pos = 0;
    }
}

/*****************************************************************/
/*****************************************************************/
/*****                                                       *****/
/*****       C O N N E C T I O N   S T A T E                 *****/
/*****                                                       *****/
/*****************************************************************/
/*****************************************************************/

/* commands sent to the gps thread */
enum {
    CMD_QUIT  = 0,
    CMD_START = 1,
    CMD_STOP  = 2
};

static void gps_state_done( GpsState*  s ) {

    update_gps_status(GPS_STATUS_ENGINE_OFF);

    // tell the thread to quit, and wait for it
    char   cmd = CMD_QUIT;
    int    ret;
    void*  dummy;

    do { ret=write( s->control[0], &cmd, 1 ); }
    while (ret < 0 && errno == EINTR);

    pthread_join(s->thread, &dummy);
    pthread_join(s->pos_thread, &dummy);

    // close the control socket pair
    close( s->control[0] ); s->control[0] = -1;
    close( s->control[1] ); s->control[1] = -1;

    // close connection to the GPS daemon
    close( s->fd ); s->fd = -1;

    s->init = STATE_QUIT;
#if ENABLE_NMEA
    sem_destroy(&s->fix_sem);
#endif
}

static void gps_state_start( GpsState*  s ) {
    // Navigation started.
    update_gps_status(GPS_STATUS_SESSION_BEGIN);

    char  cmd = CMD_START;
    int   ret;

    do { ret=write( s->control[0], &cmd, 1 ); }
    while (ret < 0 && errno == EINTR);

    if (ret != 1)
        D("%s: could not send CMD_START command: ret=%d: %s",
        __FUNCTION__, ret, strerror(errno));
}

static void gps_state_stop( GpsState*  s ) {
    // Navigation ended.
    update_gps_status(GPS_STATUS_SESSION_END);

    char  cmd = CMD_STOP;
    int   ret;

    do { ret=write( s->control[0], &cmd, 1 ); }
    while (ret < 0 && errno == EINTR);

    if (ret != 1)
        D("%s: could not send CMD_STOP command: ret=%d: %s",
        __FUNCTION__, ret, strerror(errno));
}

static int epoll_register( int  epoll_fd, int  fd ) {
    struct epoll_event  ev;
    int                 ret, flags;

    /* important: make the fd non-blocking */
    flags = fcntl(fd, F_GETFL);
    fcntl(fd, F_SETFL, flags | O_NONBLOCK);

    ev.events  = EPOLLIN;
    ev.data.fd = fd;
    do {
        ret = epoll_ctl( epoll_fd, EPOLL_CTL_ADD, fd, &ev );
    } while (ret < 0 && errno == EINTR);
    return ret;
}

static int epoll_deregister( int  epoll_fd, int  fd ) {
    int  ret;
    do {
        ret = epoll_ctl( epoll_fd, EPOLL_CTL_DEL, fd, NULL );
    } while (ret < 0 && errno == EINTR);
    return ret;
}

void update_gps_location(GpsLocation *location) {
#if DUMP_DATA
    D("%s(): GpsLocation=%f, %f", __FUNCTION__, location->latitude, location->longitude);
#endif
    GpsState*  state = _gps_state;
    //Should be made thread safe...
    if(state->callbacks.location_cb)
        state->callbacks.location_cb(location);
}

void update_gps_status(GpsStatusValue value) {
    D("%s(): GpsStatusValue=%d", __FUNCTION__, value);
    GpsState*  state = _gps_state;
    //Should be made thread safe...
    state->status.status=value;
    if(state->callbacks.status_cb)
        state->callbacks.status_cb(&state->status);
}

void update_gps_svstatus(GpsSvStatus *svstatus) {
#if DUMP_DATA
    D("%s(): GpsSvStatus.num_svs=%d", __FUNCTION__, svstatus->num_svs);
#endif
    GpsState*  state = _gps_state;
    //Should be made thread safe...
    if(state->callbacks.sv_status_cb)
        state->callbacks.sv_status_cb(svstatus);
}

void update_gps_nmea(GpsUtcTime timestamp, const char* nmea, int length) {
#if DUMP_DATA
    D("%s(): length=%d, NMEA=%.*s", __FUNCTION__, length, length, nmea);
#endif
    GpsState*  state = _gps_state;
    //Should be made thread safe...
    if(state->callbacks.nmea_cb)
        state->callbacks.nmea_cb(timestamp, nmea, length);
}

/* this is the main thread, it waits for commands from gps_state_start/stop and,
 * when started, messages from the NMEA SMD. these are simple NMEA sentences
 * that must be parsed to be converted into GPS fixes sent to the framework
 */
static void* gps_state_thread( void*  arg ) {
    GpsState*   state = (GpsState*) arg;
    NmeaReader  *reader;
    int         epoll_fd   = epoll_create(2);
    int         gps_fd     = state->fd;
    int         control_fd = state->control[1];

    reader = &state->reader;
    nmea_reader_init( reader );

    // register control file descriptors for polling
    epoll_register( epoll_fd, control_fd );
    if (gps_fd > -1) {
        epoll_register( epoll_fd, gps_fd );
    }

    D("gps thread running");

    // now loop
    for (;;) {
        struct epoll_event   events[2];
        int                  ne, nevents;

        nevents = epoll_wait( epoll_fd, events, gps_fd>-1 ? 2 : 1, -1 );
        if (nevents < 0) {
            if (errno != EINTR)
                LOGE("epoll_wait() unexpected error: %s", strerror(errno));
            continue;
        }
        //D("gps thread received %d events", nevents);
        for (ne = 0; ne < nevents; ne++) {
            if ((events[ne].events & (EPOLLERR|EPOLLHUP)) != 0) {
                LOGE("EPOLLERR or EPOLLHUP after epoll_wait() !?");
                goto Exit;
            }
            if ((events[ne].events & EPOLLIN) != 0) {
                int  fd = events[ne].data.fd;

                if (fd == control_fd) {
                    char  cmd = 255;
                    int   ret;
                    //D("gps control fd event");
                    do {
                        ret = read( fd, &cmd, 1 );
                    } while (ret < 0 && errno == EINTR);
    
                    if (cmd == CMD_QUIT) {
                        D("gps thread quitting on demand");
                        active = 0;
                        pthread_cond_signal(&get_pos_ready_cond);
                        pthread_cond_signal(&get_position_cond);
                        goto Exit;
                    } else if (cmd == CMD_START) {
                        if (!started) {
                            D("gps thread starting  location_cb=%p", state->callbacks.location_cb);
                            started = 1;
                            pthread_cond_signal(&get_position_cond);
#if ENABLE_NMEA
                            state->init = STATE_START;
                            if ( pthread_create( &state->tmr_thread, NULL, gps_timer_thread, state ) != 0 ) {
                                LOGE("could not create gps_timer_thread: %s", strerror(errno));
                                started = 0;
                                state->init = STATE_INIT;
                                goto Exit;
                            }
#endif
                       }
                    } else if (cmd == CMD_STOP) {
                        if (started) {
                            D("gps thread stopping");
                            started = 0;
                            pthread_cond_signal(&get_pos_ready_cond);
#if ENABLE_NMEA
                            void*  dummy;
                            state->init = STATE_INIT;
                            pthread_join(state->tmr_thread, &dummy);
#endif
                            exit_gps_rpc();
                        }
                    }
                } else if (fd == gps_fd) {
                    char  buf[512];
                    int   nn, ret;
#if DUMP_DATA
                    D("gps fd event");
#endif
                    do {
                        ret = read( fd, buf, sizeof(buf) );
                    } while (ret < 0 && errno == EINTR);

                    if (ret > 0) {
                        for (nn = 0; nn < ret; nn++) {
                            nmea_reader_addc( reader, buf[nn] );
#if DUMP_DATA & 0
                            D("%2d, nmea_reader_addc() is called", nn+1);
#endif
                        }
                    }
#if DUMP_DATA
                    D("gps fd event end");
#endif
                } else {
                    LOGE("epoll_wait() returned unkown fd %d ?", fd);
                }
            }
        }
    }
Exit:
    return NULL;
}

#if ENABLE_NMEA
static void* gps_timer_thread( void*  arg ) {
    D("%s() running", __FUNCTION__);
    GpsState   *state = (GpsState*) arg;
    NmeaReader *r = &(state->reader);
    r->fix.flags = 0;
    r->fix_flags_cached = 0;
    r->sv_status_changed = 0;
    r->sv_status.num_svs = 0;
    memset( r->sv_status.sv_list, 0, sizeof(r->sv_status.sv_list) );

    do {
        GPS_STATE_LOCK_FIX(state);

#if DUMP_DATA
        D("r->fix.flags = 0x%x", r->fix.flags);
#endif
        if (r->fix.flags & GPS_LOCATION_HAS_LAT_LONG) {
            if (r->fix_flags_cached > 0)
                r->fix.flags |= r->fix_flags_cached;
            r->fix_flags_cached = r->fix.flags;
            update_gps_location( &r->fix );
#if DUMP_DATA
            D("r->fix.flags = 0x%x", r->fix.flags);
#endif
            r->fix.flags = 0;
        }

        if (r->sv_status_changed) {
            update_gps_svstatus( &r->sv_status );
            r->sv_status_changed = 0;
        }

        GPS_STATE_UNLOCK_FIX(state);

        uint64_t microseconds = (state->fix_freq * 1000000) - 500000;
        usleep(microseconds);
        //D("%s() usleep(%ld)", __FUNCTION__, microseconds);

    } while(state->init == STATE_START);

    D("%s() destroyed", __FUNCTION__);
    return NULL;
}
#endif

void pdsm_pd_callback() {
    pthread_cond_signal(&get_pos_ready_cond);
}

static void* gps_get_position_thread( void*  arg ) {
    D("%s() running", __FUNCTION__);
    GpsState*  s = _gps_state;
    while(active)
    {
        while(started)
        {
            gps_get_position();
            pthread_mutex_lock(&get_pos_ready_mutex);
            pthread_cond_wait(&get_pos_ready_cond, &get_pos_ready_mutex);
            pthread_mutex_unlock(&get_pos_ready_mutex);
        }
        pthread_mutex_lock(&get_position_mutex);
        pthread_cond_wait(&get_position_cond, &get_position_mutex);
        pthread_mutex_unlock(&get_position_mutex);
    }
    D("%s() destroyed", __FUNCTION__);
    return NULL;
}

static void gps_state_init( GpsState*  state ) {

    update_gps_status(GPS_STATUS_ENGINE_ON);

    state->init       = STATE_INIT;;
    state->control[0] = -1;
    state->control[1] = -1;
    state->fix_freq   = -1;
#if ENABLE_NMEA
    state->fd         = open("/dev/smd27", O_RDONLY);
#else
    state->fd         = -1;
#endif

    active = 1;

#if ENABLE_NMEA
    if ( sem_init(&state->fix_sem, 0, 1) != 0 ) {
        LOGE("gps semaphore initialization failed: %s", strerror(errno));
        goto Fail;
    }
#endif

    if ( socketpair( AF_LOCAL, SOCK_STREAM, 0, state->control ) < 0 ) {
        LOGE("could not create thread control socket pair: %s", strerror(errno));
        goto Fail;
    }

    if ( pthread_create( &state->thread, NULL, gps_state_thread, state ) != 0 ) {
        LOGE("could not create gps thread: %s", strerror(errno));
        goto Fail;
    }

    if ( pthread_create( &state->pos_thread, NULL, gps_get_position_thread, NULL ) != 0 ) {
        LOGE("could not create gps_get_position_thread: %s", strerror(errno));
        goto Fail;
    }

    if(init_gps_rpc())
        goto Fail;

    D("gps state initialized");
    return;

Fail:
    gps_state_done( state );
}

/*****************************************************************/
/*****************************************************************/
/*****                                                       *****/
/*****       I N T E R F A C E                               *****/
/*****                                                       *****/
/*****************************************************************/
/*****************************************************************/

/***** GpsXtraInterface *****/

static int gps_xtra_init(GpsXtraCallbacks* callbacks) {
    D("%s() is called", __FUNCTION__);
    GpsState*  s = _gps_state;

    s->xtra_callbacks = *callbacks;

    return 0;
}

static int gps_xtra_inject_xtra_data(char* data, int length) {
    D("%s() is called", __FUNCTION__);
    D("gps_xtra_inject_xtra_data: xtra size = %d, data ptr = 0x%x\n", length, (int) data);
    GpsState*  s = _gps_state;
    if (!s->init)
        return 0;

    int rpc_ret_val = -1;
    int ret_val = -1;
    unsigned char *xtra_data_ptr;
    uint32_t  part_len;
    uint8_t   part;
    uint8_t   total_parts;
    uint16_t  len_injected;

    total_parts = (length / XTRA_BLOCK_SIZE);
    if ((total_parts % XTRA_BLOCK_SIZE) != 0)
    {
        total_parts += 1;
    }

    uint8_t part_no = total_parts % 10;
    if (part_no > 0)
        part_no = total_parts - part_no;
    else
        part_no = total_parts - 5;

    len_injected = 0; // O bytes injected
    // XTRA injection starts with part 1
    D("gps_xtra_inject_xtra_data: inject part = %d/%d, len = %d\n", 1, total_parts, XTRA_BLOCK_SIZE);
    D("gps_xtra_inject_xtra_data: ......");
    for (part = 1; part <= total_parts; part++)
    {
        part_len = XTRA_BLOCK_SIZE;
        if (XTRA_BLOCK_SIZE > (length - len_injected))
        {
            part_len = length - len_injected;
        }
        xtra_data_ptr = data + len_injected;

        if (part > part_no) // reduce the number of the xtra debugging info
            D("gps_xtra_inject_xtra_data: inject part = %d/%d, len = %d\n", part, total_parts, part_len);

        if (part < total_parts)
        {
            rpc_ret_val = gps_xtra_set_data(xtra_data_ptr, part_len, part, total_parts);
            if (rpc_ret_val == -1)
            {
                D("gps_xtra_set_data() for xtra returned %d \n", rpc_ret_val);
                ret_val = EINVAL; // return error
                break;
            }
        }
        else // part == total_parts
        {
            ret_val = gps_xtra_set_data(xtra_data_ptr, part_len, part, total_parts);
            break; // done with injection
        }

        len_injected += part_len;
    }

    return ret_val;
}

void xtra_download_request() {
    D("%s() is called", __FUNCTION__);
     GpsState*  state = _gps_state;
     //Should be made thread safe...
    if(state->xtra_callbacks.download_request_cb)
        state->xtra_callbacks.download_request_cb();
}

static const GpsXtraInterface  sGpsXtraInterface = {
    gps_xtra_init,
    gps_xtra_inject_xtra_data,
};

/***** AGpsInterface *****/

static void agps_init(AGpsCallbacks* callbacks) {
    D("%s() is called", __FUNCTION__);
    GpsState*  s = _gps_state;

    s->agps_callbacks = *callbacks;
}

static int agps_data_conn_open(const char* apn) {
    D("%s() is called", __FUNCTION__);
    D("apn=%s", apn);
    /* not yet implemented */
    return 0;
}

static int agps_data_conn_closed() {
    D("%s() is called", __FUNCTION__);
    /* not yet implemented */
    return 0;
}

static int agps_data_conn_failed() {
    D("%s() is called", __FUNCTION__);
    /* not yet implemented */
    return 0;
}

static int agps_set_server(AGpsType type, const char* hostname, int port) {
    D("%s() is called", __FUNCTION__);
    D("type=%d, hostname=%s, port=%d", type, hostname, port);
    /* not yet implemented */
    return 0;
}

static const AGpsInterface  sAGpsInterface = {
    agps_init,
    agps_data_conn_open,
    agps_data_conn_closed,
    agps_data_conn_failed,
    agps_set_server,
};

/***** GpsInterface *****/

static int gps_init(GpsCallbacks* callbacks) {
    D("%s() is called", __FUNCTION__);
    GpsState*  s = _gps_state;

    if (!s->init)
        gps_state_init(s);

    s->callbacks = *callbacks;

    return 0;
}

static void gps_cleanup() {
    D("%s() is called", __FUNCTION__);
    if (get_cleanup_value()) {
        GpsState*  s = _gps_state;

        if (s->init) {
            gps_state_done(s);
            cleanup_gps_rpc_clients();
        }
    }
}

static int gps_start() {
    D("%s: called", __FUNCTION__);

    GpsState*  s = _gps_state;

    if (!s->init) {
        D("%s: called with uninitialized state !!", __FUNCTION__);
        return -1;
    }

    gps_state_start(s);
    return 0;
}

static int gps_stop() {
    D("%s: called", __FUNCTION__);

    GpsState*  s = _gps_state;

    if (!s->init) {
        D("%s: called with uninitialized state !!", __FUNCTION__);
        return -1;
    }

    gps_state_stop(s);
    return 0;
}

static int gps_inject_time(GpsUtcTime time, int64_t timeReference, int uncertainty) {
    D("%s() is called", __FUNCTION__);
    D("time=%lld, timeReference=%lld, uncertainty=%d", time, timeReference, uncertainty);
    GpsState*  s = _gps_state;
    if (!s->init)
        return 0;

    int ret_val = -1;
    ret_val = gps_xtra_inject_time_info(time, timeReference, uncertainty);
    return ret_val;
}

static int gps_inject_location(double latitude, double longitude, float accuracy) {
    D("%s() is called", __FUNCTION__);
    D("latitude=%f, longitude=%f, accuracy=%f", latitude, longitude, accuracy);
    /* not yet implemented */
    return 0;
}

static void gps_delete_aiding_data(GpsAidingData flags) {
    D("%s() is called", __FUNCTION__);
    D("flags=%d", flags);
    /* not yet implemented */
}

static int gps_set_position_mode(GpsPositionMode mode, int fix_frequency) {
    D("%s() is called", __FUNCTION__);
    D("fix_frequency=%d", fix_frequency);
    GpsState*  s = _gps_state;
    if (!s->init)
        return 0;

    if (fix_frequency == 0) {
        //We don't handle single shot requests atm...
        //So one every 1 seconds will it be.
        fix_frequency = 1;
    } else if (fix_frequency > 1800) { //30mins
        fix_frequency = 1800;
    }
    // fix_frequency is only used by NMEA version
    s->fix_freq = fix_frequency;
    return 0;
}

static const void* gps_get_extension(const char* name) {
    D("%s('%s') is called", __FUNCTION__, name);
    if (!strcmp(name, GPS_XTRA_INTERFACE)) {
        return &sGpsXtraInterface;
    } else if (!strcmp(name, AGPS_INTERFACE)) {
        return &sAGpsInterface;
    }
    return NULL;
}

static const GpsInterface  hardwareGpsInterface = {
    gps_init,
    gps_start,
    gps_stop,
    gps_cleanup,
    gps_inject_time,
    gps_inject_location,
    gps_delete_aiding_data,
    gps_set_position_mode,
    gps_get_extension,
};

const GpsInterface* gps_get_hardware_interface()
{
    D("%s() is called", __FUNCTION__);
    return &hardwareGpsInterface;
}

// END OF FILE