/****************************************************************************
** GeomIO Library
** Copyright Fougue (2 Mar. 2015)
** contact@fougsys.fr
**
** This software is a reusable library whose purpose is to provide complete
** I/O support for various CAD file formats (eg. STL)
**
** This software is governed by the CeCILL-B license under French law and
** abiding by the rules of distribution of free software.  You can  use,
** modify and/ or redistribute the software under the terms of the CeCILL-B
** license as circulated by CEA, CNRS and INRIA at the following URL
** "http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html".
****************************************************************************/

#include "string_parse.h"

#include "helper_stream.h"
#include "string_utils.h"
#define GMIO_USE_FAST_ATOF
#ifdef GMIO_USE_FAST_ATOF
#  include "fast_atof.h"
#endif

#include <errno.h>
#include <stdlib.h>

void gmio_string_stream_fwd_iterator_init(gmio_string_stream_fwd_iterator_t *it)
{
    /* Trick: declaring the buffer exhausted will actually trigger the first
     * call to gmio_stream_read() inside gmio_next_char()
     */
    it->buffer.len = 0;
    it->buffer_pos = it->buffer.max_len;
    gmio_next_char(it);
}

const char *gmio_current_char(const gmio_string_stream_fwd_iterator_t *it)
{
    if (it->buffer_pos < it->buffer.len)
        return it->buffer.ptr + it->buffer_pos;
    return NULL;
}

GMIO_INLINE gmio_bool_t gmio_is_next_char_buffered(
        const gmio_string_stream_fwd_iterator_t *it)
{
    return (it->buffer_pos + 1) < it->buffer.len ? GMIO_TRUE : GMIO_FALSE;
}

GMIO_INLINE const char* gmio_next_char_from_buffer(
        gmio_string_stream_fwd_iterator_t *it)
{
    ++(it->buffer_pos);
    return it->buffer.ptr + it->buffer_pos;
}

GMIO_INLINE const char* gmio_next_char_from_stream(
        gmio_string_stream_fwd_iterator_t *it)
{
    /* Read next chunk of data */
    it->buffer_pos = 0;
    it->buffer.len = gmio_stream_read(
                it->stream, it->buffer.ptr, sizeof(char), it->buffer.max_len);
    if (it->buffer.len > 0) {
        if (it->stream_read_hook != NULL)
            it->stream_read_hook(it->cookie, &it->buffer);
        return it->buffer.ptr;
    }

    return NULL;
}

const char *gmio_next_char(gmio_string_stream_fwd_iterator_t *it)
{
    if (gmio_is_next_char_buffered(it) == GMIO_TRUE)
        return gmio_next_char_from_buffer(it);
    return gmio_next_char_from_stream(it);
}

void gmio_skip_spaces(gmio_string_stream_fwd_iterator_t *it)
{
    const char* curr_char = gmio_current_char(it);
    while (curr_char != NULL && gmio_clocale_isspace(*curr_char))
        curr_char = gmio_next_char(it);
}

int gmio_eat_word(
        gmio_string_stream_fwd_iterator_t *it, gmio_string_buffer_t *buffer)
{
    const char* stream_curr_char = NULL;
    int isspace_res = 0;
    size_t i = 0;

    if (buffer == NULL || buffer->ptr == NULL)
        return -1;

    buffer->len = 0;
    gmio_skip_spaces(it);
    stream_curr_char = gmio_current_char(it);
    if (stream_curr_char == NULL) { /* Empty word */
        buffer->ptr[0] = 0;
        buffer->len = 0;
        return 0;
    }

    while (i < buffer->max_len
           && stream_curr_char != NULL
           && isspace_res == 0)
    {
        isspace_res = gmio_clocale_isspace(*stream_curr_char);
        if (isspace_res == 0) {
            buffer->ptr[i] = *stream_curr_char;
            stream_curr_char = gmio_next_char(it);
            ++i;
        }
    }

    if (i < buffer->max_len) {
        buffer->ptr[i] = 0; /* End string with terminating null byte */
        buffer->len = i;
        if (stream_curr_char != NULL
                || gmio_stream_at_end(it->stream) == GMIO_TRUE)
        {
            return 0;
        }
        return -3;
    }
    return -4;
}

int gmio_get_float32(const char *str, gmio_float32_t *value_ptr)
{
#if defined(GMIO_USE_FAST_ATOF)
    const char* end_ptr = NULL;
    *value_ptr = fast_atof(str, &end_ptr);
#elif defined(GMIO_HAVE_STRTOF_FUNC) /* Requires C99 */
    char* end_ptr = NULL;
    *value_ptr = strtof(str, &end_ptr);
#else
    char* end_ptr = NULL;
    *value_ptr = (gmio_float32_t)strtod(str, &end_ptr);
#endif

    if (end_ptr == str || errno == ERANGE)
        return -1;

    return 0;
}

gmio_bool_t gmio_checked_next_chars(
        gmio_string_stream_fwd_iterator_t *it, const char *str)
{
    size_t pos = 0;
    const char* curr_char = gmio_current_char(it);
    gmio_bool_t same = curr_char != NULL && *curr_char == *str;

    while (same) {
        curr_char = gmio_next_char(it);
        same = curr_char != NULL && *curr_char == str[++pos];
    }

    return same;
}