#include <stdlib.h>
#include <stdint.h>
#include <string.h>

#include "eos.h"
#include "event.h"
#include "dev/net.h"

#include "cell.h"

static eos_evt_handler_t evt_handler[EOS_CELL_MAX_MTYPE];

static void cell_handle_msg(unsigned char type, unsigned char *buffer, uint16_t len) {
    unsigned char mtype;
    unsigned char idx;

    if ((buffer == NULL) || (len < 1)) {
        eos_net_bad_handler(type, buffer, len);
        return;
    }

    mtype = buffer[0];
    idx = (mtype & EOS_CELL_MTYPE_MASK) >> 4;
    if ((idx < EOS_CELL_MAX_MTYPE) && evt_handler[idx]) {
        evt_handler[idx](mtype & ~EOS_CELL_MTYPE_MASK, buffer, len);
    } else {
        eos_net_bad_handler(type, buffer, len);
    }
}

void eos_cell_init(void) {
    int i;

    for (i=0; i<EOS_CELL_MAX_MTYPE; i++) {
        evt_handler[i] = NULL;
    }
    eos_net_set_handler(EOS_NET_MTYPE_CELL, cell_handle_msg);
}

void eos_cell_set_handler(unsigned char mtype, eos_evt_handler_t handler) {
    unsigned char idx = (mtype & EOS_CELL_MTYPE_MASK) >> 4;

    if (idx < EOS_CELL_MAX_MTYPE) evt_handler[idx] = handler;
}

eos_evt_handler_t eos_cell_get_handler(unsigned char mtype) {
    unsigned char idx = (mtype & EOS_CELL_MTYPE_MASK) >> 4;

    if (idx < EOS_CELL_MAX_MTYPE) return evt_handler[idx];
    return NULL;
}

int eos_cell_send_buffer(unsigned char *buffer, uint16_t buf_len, uint16_t offset, int sync) {
    buffer -= offset;
    return eos_net_send_async(EOS_NET_MTYPE_CELL, buffer, buf_len + offset, 1);
}

int eos_cell_status_parse(unsigned char *buffer, uint16_t len, uint8_t *status, uint8_t *connected) {
    if (len < 2) return EOS_ERR_SIZE;

    if (buffer[0] != (EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_STATUS)) return EOS_ERR_NET;
    buffer++;
    len--;

    *status = buffer[0];
    buffer++;
    len--;

    if (*status == EOS_CELL_STATUS_PPP) {
        if (len < 1) return EOS_ERR_SIZE;
        if (connected) *connected = buffer[0];
        buffer++;
        len--;
    }
    return EOS_OK;
}

int eos_cell_status(uint8_t *status, uint8_t *connected, unsigned char *buffer) {
    unsigned char type;
    uint16_t len;
    int do_release;
    int rv;

    do_release = 0;
    if (buffer == NULL) {
        buffer = eos_net_alloc();
        do_release = 1;
    }

    type = EOS_NET_MTYPE_CELL;
    len = 1;
    buffer[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_STATUS;

    rv = eos_net_xchg(&type, buffer, &len);
    if (rv) goto cell_status_fin;

    if (type != EOS_NET_MTYPE_CELL) {
        rv = EOS_ERR_NET;
        goto cell_status_fin;
    }

    rv = eos_cell_status_parse(buffer, len, status, connected);

cell_status_fin:
    if (do_release) eos_net_free(buffer, 1);
    return rv;
}

int eos_cell_uart_take(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_TAKE;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}

int eos_cell_uart_give(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_GIVE;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}

unsigned char *eos_cell_uart_data_buffer(uint16_t *offset) {
    unsigned char *buffer;

    buffer = eos_net_alloc();
    buffer[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_DATA;
    *offset = 1;
    return buffer + *offset;
}

int eos_cell_voice_dial(char *num, unsigned char *buffer, int sync) {
    int async;
    size_t num_len;

    num_len = strlen(num);
    if (num_len > EOS_CELL_SIZE_PHNUM) return EOS_ERR_SIZE;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_VOICE | EOS_CELL_MTYPE_VOICE_DIAL;
    memcpy(buffer + 1, num, num_len);
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1 + num_len, async, 1);
}

int eos_cell_voice_answer(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_VOICE | EOS_CELL_MTYPE_VOICE_ANSWER;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}

int eos_cell_voice_hangup(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_VOICE | EOS_CELL_MTYPE_VOICE_HANGUP;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}

unsigned char *eos_cell_voice_pcm_buffer(uint16_t *offset) {
    unsigned char *buffer;

    buffer = eos_net_alloc();
    buffer[0] = EOS_CELL_MTYPE_VOICE | EOS_CELL_MTYPE_VOICE_PCM;
    *offset = 1;
    return buffer + *offset;
}

int eos_cell_sms_send(char *addr, char *txt, unsigned char *buffer, int sync) {
    int async;
    size_t addr_len, txt_len;
    uint16_t len;

    addr_len = strlen(addr);
    txt_len = strlen(txt);
    if (addr_len > EOS_CELL_SMS_SIZE_ADDR) return EOS_ERR_SIZE;
    if (txt_len > EOS_CELL_SMS_SIZE_TXT) return EOS_ERR_SIZE;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_SMS | EOS_CELL_MTYPE_SMS_MSG;
    buffer[1] = 0;
    buffer[2] = 0;
    if (*addr == '+') {
        buffer[3] = EOS_CELL_SMS_ADDRTYPE_INTL;
        addr++;
        addr_len--;
    } else {
        buffer[3] = EOS_CELL_SMS_ADDRTYPE_OTHER;
    }
    buffer[4] = addr_len;
    len = 5;
    memcpy(buffer + len, addr, addr_len);
    len += addr_len;
    memcpy(buffer + len, txt, txt_len);
    len += txt_len;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, len, async, 1);
}

int _eos_cell_sms_parse(unsigned char *buffer, uint16_t len, char **addr, uint16_t *addr_len, char **txt, uint16_t *txt_len) {
    uint16_t _addr_len;

    if (len < 4 + EOS_CELL_SMS_SIZE_TS) return EOS_ERR_SIZE;

    if (buffer[0] != (EOS_CELL_MTYPE_SMS | EOS_CELL_MTYPE_SMS_MSG)) return EOS_ERR_NET;
    buffer += 3 + EOS_CELL_SMS_SIZE_TS;
    len -= 3 + EOS_CELL_SMS_SIZE_TS;

    _addr_len = *buffer;
    if (_addr_len > EOS_CELL_SMS_SIZE_ADDR) return EOS_ERR_SIZE;
    if ((_addr_len == 0) || (len < (_addr_len + 1))) return EOS_ERR_SIZE;
    if (addr && addr_len) {
        *addr = buffer + 1;
        *addr_len = _addr_len;
    }
    buffer += _addr_len + 1;
    len -= _addr_len + 1;

    if (len > EOS_CELL_SMS_SIZE_TXT) return EOS_ERR_SIZE;
    if (txt && txt_len) {
        *txt = buffer;
        *txt_len = len;
    }

    return EOS_OK;
}

int eos_cell_sms_parse(unsigned char *buffer, uint16_t len, char *addr, uint16_t addr_size, char *txt, uint16_t txt_size) {
    char *_addr, *_txt;
    uint16_t _addr_len, _txt_len;
    int rv;

    rv = _eos_cell_sms_parse(buffer, len, &_addr, &_addr_len, &_txt, &_txt_len);
    if (rv) return rv;
    if (addr_size <  _addr_len + 1) return EOS_ERR_SIZE;
    if (txt_size <  _txt_len + 1) return EOS_ERR_SIZE;
    memcpy(addr, _addr, _addr_len);
    addr[_addr_len] = '\0';
    memcpy(txt, _txt, _txt_len);
    txt[_txt_len] = '\0';

    return EOS_OK;
}

int eos_cell_pdp_get(unsigned char atype, char *arg, uint16_t arg_size, unsigned char *buffer) {
    unsigned char type;
    uint16_t len;
    int do_release;
    int rv;

    do_release = 0;
    if (buffer == NULL) {
        buffer = eos_net_alloc();
        do_release = 1;
    }

    type = EOS_NET_MTYPE_CELL;
    len = 1;
    buffer[0] = EOS_CELL_MTYPE_PDP | atype;

    rv = eos_net_xchg(&type, buffer, &len);
    if (rv) goto cell_pdp_get_fin;

    if ((type != EOS_NET_MTYPE_CELL) || (len == 0) || (buffer[0] != EOS_CELL_MTYPE_PDP | atype)) {
        rv = EOS_ERR_NET;
        goto cell_pdp_get_fin;
    }

    len--;
    if ((len > EOS_CELL_PDP_SIZE_ARG) || (len > arg_size - 1)) {
        rv = EOS_ERR_SIZE;
        goto cell_pdp_get_fin;
    }
    memcpy(buffer + 1, arg, len);
    arg[len] = '\0';

cell_pdp_get_fin:
    if (do_release) eos_net_free(buffer, 1);
    return rv;
}

int eos_cell_pdp_set(unsigned char atype, char *arg, unsigned char *buffer, int sync) {
    int async;
    size_t arg_len;

    arg_len = strlen(arg);
    if (arg_len > EOS_CELL_PDP_SIZE_ARG) return EOS_ERR_SIZE;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_PDP | atype;
    memcpy(buffer + 1, arg, arg_len);
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1 + arg_len, async, 1);
}

int eos_cell_pdp_get_apn(char *apn, uint16_t apn_size, unsigned char *buffer) {
    return eos_cell_pdp_get(EOS_CELL_MTYPE_PDP_GET_APN, apn, apn_size, buffer);
}

int eos_cell_pdp_set_apn(char *apn, unsigned char *buffer, int sync) {
    return eos_cell_pdp_set(EOS_CELL_MTYPE_PDP_SET_APN, apn, buffer, sync);
}

int eos_cell_pdp_get_usr(char *usr, uint16_t usr_size, unsigned char *buffer) {
    return eos_cell_pdp_get(EOS_CELL_MTYPE_PDP_GET_USR, usr, usr_size, buffer);
}

int eos_cell_pdp_set_usr(char *usr, unsigned char *buffer, int sync) {
    return eos_cell_pdp_set(EOS_CELL_MTYPE_PDP_SET_USR, usr, buffer, sync);
}

int eos_cell_pdp_get_pwd(char *pwd, uint16_t pwd_size, unsigned char *buffer) {
    return eos_cell_pdp_get(EOS_CELL_MTYPE_PDP_GET_PWD, pwd, pwd_size, buffer);
}

int eos_cell_pdp_set_pwd(char *pwd, unsigned char *buffer, int sync) {
    return eos_cell_pdp_set(EOS_CELL_MTYPE_PDP_SET_PWD, pwd, buffer, sync);
}

int eos_cell_pdp_connect(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_PDP | EOS_CELL_MTYPE_PDP_CONNECT;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}

int eos_cell_pdp_disconnect(unsigned char *buffer, int sync) {
    int async;

    if (buffer == NULL) {
        buffer = eos_net_alloc();
        async = 1;
    } else {
        async = !sync;
    }
    buffer[0] = EOS_CELL_MTYPE_PDP | EOS_CELL_MTYPE_PDP_DISCONNECT;
    return _eos_net_send(EOS_NET_MTYPE_CELL, buffer, 1, async, 1);
}