/**
 ******************************************************************************
 *
 * @file       fifo_buffer.c
 * @author     The OpenPilot Team, http://www.openpilot.org Copyright (C) 2010.
 * @brief      GPIO input functions
 * @see        The GNU Public License (GPL) Version 3
 *
 *****************************************************************************/
/*
 * 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
 * (at your option) 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, write to the Free Software Foundation, Inc.,
 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */

#include <string.h>

#include "fifo_buffer.h"

// *****************************************************************************
// circular buffer functions

uint16_t fifoBuf_getSize(t_fifo_buffer *buf)
{ // return the usable size of the buffer
    uint16_t buf_size = buf->buf_size;

    if (buf_size > 0) {
        return buf_size - 1;
    } else {
        return 0;
    }
}

uint16_t fifoBuf_getUsed(t_fifo_buffer *buf)
{ // return the number of bytes available in the rx buffer
    uint16_t rd = buf->rd;
    uint16_t wr = buf->wr;
    uint16_t buf_size  = buf->buf_size;

    uint16_t num_bytes = wr - rd;

    if (wr < rd) {
        num_bytes = (buf_size - rd) + wr;
    }

    return num_bytes;
}

uint16_t fifoBuf_getFree(t_fifo_buffer *buf)
{ // return the free space size in the buffer
    uint16_t buf_size  = buf->buf_size;

    uint16_t num_bytes = fifoBuf_getUsed(buf);

    return (buf_size - num_bytes) - 1;
}

void fifoBuf_clearData(t_fifo_buffer *buf)
{ // remove all data from the buffer
    buf->rd = buf->wr;
}

void fifoBuf_removeData(t_fifo_buffer *buf, uint16_t len)
{ // remove a number of bytes from the buffer
    uint16_t rd = buf->rd;
    uint16_t buf_size  = buf->buf_size;

    // get number of bytes available
    uint16_t num_bytes = fifoBuf_getUsed(buf);

    if (num_bytes > len) {
        num_bytes = len;
    }

    if (num_bytes < 1) {
        return; // nothing to remove
    }
    rd += num_bytes;
    if (rd >= buf_size) {
        rd -= buf_size;
    }

    buf->rd = rd;
}

int16_t fifoBuf_getBytePeek(t_fifo_buffer *buf)
{ // get a data byte from the buffer without removing it
    uint16_t rd = buf->rd;

    // get number of bytes available
    uint16_t num_bytes = fifoBuf_getUsed(buf);

    if (num_bytes < 1) {
        return -1; // no byte retuened
    }
    return buf->buf_ptr[rd]; // return the byte
}

int16_t fifoBuf_getByte(t_fifo_buffer *buf)
{ // get a data byte from the buffer
    uint16_t rd        = buf->rd;
    uint16_t buf_size  = buf->buf_size;
    uint8_t *buff      = buf->buf_ptr;

    // get number of bytes available
    uint16_t num_bytes = fifoBuf_getUsed(buf);

    if (num_bytes < 1) {
        return -1; // no byte returned
    }
    uint8_t b = buff[rd];
    if (++rd >= buf_size) {
        rd = 0;
    }

    buf->rd = rd;

    return b; // return the byte
}

uint16_t fifoBuf_getDataPeek(t_fifo_buffer *buf, void *data, uint16_t len)
{ // get data from the buffer without removing it
    uint16_t rd        = buf->rd;
    uint16_t buf_size  = buf->buf_size;
    uint8_t *buff      = buf->buf_ptr;

    // get number of bytes available
    uint16_t num_bytes = fifoBuf_getUsed(buf);

    if (num_bytes > len) {
        num_bytes = len;
    }

    if (num_bytes < 1) {
        return 0; // return number of bytes copied
    }
    uint8_t *p = (uint8_t *)data;
    uint16_t i = 0;

    while (num_bytes > 0) {
        uint16_t block_len = buf_size - rd;
        if (block_len > num_bytes) {
            block_len = num_bytes;
        }
        if (block_len == 1) {
            *((uint8_t *)(p + i)) = *((uint8_t *)(buff + rd));
        } else {
            memcpy(p + i, buff + rd, block_len);
        }
        i  += block_len;
        num_bytes -= block_len;
        rd += block_len;
        if (rd >= buf_size) {
            rd = 0;
        }
    }

    return i; // return number of bytes copied
}

uint16_t fifoBuf_getData(t_fifo_buffer *buf, void *data, uint16_t len)
{ // get data from our rx buffer
    uint16_t rd        = buf->rd;
    uint16_t buf_size  = buf->buf_size;
    uint8_t *buff      = buf->buf_ptr;

    // get number of bytes available
    uint16_t num_bytes = fifoBuf_getUsed(buf);

    if (num_bytes > len) {
        num_bytes = len;
    }

    if (num_bytes < 1) {
        return 0; // return number of bytes copied
    }
    uint8_t *p = (uint8_t *)data;
    uint16_t i = 0;

    while (num_bytes > 0) {
        uint16_t block_len = buf_size - rd;
        if (block_len > num_bytes) {
            block_len = num_bytes;
        }
        if (block_len == 1) {
            *((uint8_t *)(p + i)) = *((uint8_t *)(buff + rd));
        } else {
            memcpy(p + i, buff + rd, block_len);
        }
        i  += block_len;
        num_bytes -= block_len;
        rd += block_len;
        if (rd >= buf_size) {
            rd = 0;
        }
    }

    buf->rd = rd;

    return i; // return number of bytes copied
}

uint16_t fifoBuf_putByte(t_fifo_buffer *buf, const uint8_t b)
{ // add a data byte to the buffer
    uint16_t wr        = buf->wr;
    uint16_t buf_size  = buf->buf_size;
    uint8_t *buff      = buf->buf_ptr;

    uint16_t num_bytes = fifoBuf_getFree(buf);

    if (num_bytes < 1) {
        return 0;
    }

    buff[wr] = b;
    if (++wr >= buf_size) {
        wr = 0;
    }

    buf->wr = wr;

    return 1; // return number of bytes copied
}

uint16_t fifoBuf_putData(t_fifo_buffer *buf, const void *data, uint16_t len)
{ // add data to the buffer
    uint16_t wr        = buf->wr;
    uint16_t buf_size  = buf->buf_size;
    uint8_t *buff      = buf->buf_ptr;

    uint16_t num_bytes = fifoBuf_getFree(buf);

    if (num_bytes > len) {
        num_bytes = len;
    }

    if (num_bytes < 1) {
        return 0; // return number of bytes copied
    }
    uint8_t *p = (uint8_t *)data;
    uint16_t i = 0;

    while (num_bytes > 0) {
        uint16_t block_len = buf_size - wr;
        if (block_len > num_bytes) {
            block_len = num_bytes;
        }
        if (block_len == 1) {
            *((uint8_t *)(buff + wr)) = *((uint8_t *)(p + i));
        } else {
            memcpy(buff + wr, p + i, block_len);
        }
        i  += block_len;
        num_bytes -= block_len;
        wr += block_len;
        if (wr >= buf_size) {
            wr = 0;
        }
    }

    buf->wr = wr;

    return i; // return number of bytes copied
}

void fifoBuf_init(t_fifo_buffer *buf, const void *buffer, const uint16_t buffer_size)
{
    buf->buf_ptr  = (uint8_t *)buffer;
    buf->rd = 0;
    buf->wr = 0;
    buf->buf_size = buffer_size;
}

// *****************************************************************************