//vio_string.c:

/*
 *      Copyright (C) Philipp 'ph3-der-loewe' Schafft - 2009-2011
 *
 *  This file is part of libroar a part of RoarAudio,
 *  a cross-platform sound system for both, home and professional use.
 *  See README for details.
 *
 *  This file is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License version 3
 *  as published by the Free Software Foundation.
 *
 *  libroar 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 software; see the file COPYING.  If not, write to
 *  the Free Software Foundation, 51 Franklin Street, Fifth Floor,
 *  Boston, MA 02110-1301, USA.
 *
 *  NOTE for everyone want's to change something and send patches:
 *  read README and HACKING! There a addition information on
 *  the license of this document you need to read before you send
 *  any patches.
 *
 *  NOTE for uses of non-GPL (LGPL,...) software using libesd, libartsc
 *  or libpulse*:
 *  The libs libroaresd, libroararts and libroarpulse link this lib
 *  and are therefore GPL. Because of this it may be illigal to use
 *  them with any software that uses libesd, libartsc or libpulse*.
 */

#include "libroar.h"

int     roar_vio_putc    (struct roar_vio_calls * vio, char c) {
 return roar_vio_write(vio, &c, 1);
}

int     roar_vio_getc    (struct roar_vio_calls * vio) {
 unsigned char c;

 if ( roar_vio_read(vio, &c, 1) != 1 )
  return EOF;

 return c;
}

int     roar_vio_printf(struct roar_vio_calls * vio, const char *format, ...) {
 va_list ap;
 int ret;
 char buf[8192];

 va_start(ap, format);
 ret = vsnprintf(buf, 8192, format, ap);
 va_end(ap);

 return roar_vio_write(vio, buf, ret);
}

char *  roar_vio_fgets   (struct roar_vio_calls * vio, char * s, size_t size) {
 size_t  have = 0;
 size_t  need = size;
 ssize_t ret;
 char    cur;
 char    buf[1024];
 roar_off_t   offs;
 char  * eol;

 if ( size == 0 )
  return s;

 if ( vio == NULL || s == NULL )
  return NULL;

 // space for the \0
 size -= 1;

 if ( (offs = roar_vio_lseek(vio, 0, SEEK_CUR)) == (roar_off_t)-1 ) {
  // need to use the one byte at a time methode
  while ( have < size ) {
   if ( roar_vio_read(vio, &cur, 1) != 1 )
    break;

   s[have] = cur;
     have++;

   if ( cur == '\n' )
    break;
  }
 } else {
  // can use the optimized version
  eol = NULL;

  memset(s, '+', size);

  while ( have < size && eol == NULL ) {
   ret = roar_vio_read(vio, buf, need > 1023 ? 1023 : need);

   if ( ret == -1 || ret == 0 )
    break;

   ROAR_DBG("roar_vio_fgets(*): have=%u", (unsigned int) have);

   buf[1023] = 0;
   if ( (eol = strstr(buf, "\n")) == NULL ) {
    memcpy(s, buf, ret);
    s    += ret;
    have += ret;
    need -= ret;
   } else {
    offs = eol - buf - ret + 1;
    if ( roar_vio_lseek(vio, offs, SEEK_CUR) == -1 )
     return NULL;

    ROAR_DBG("roar_vio_fgets(*): have=%u", (unsigned int) have);
    ROAR_DBG("roar_vio_fgets(*): eol - buf=%lli", (long long) (eol - buf));

    ret = (size_t)(eol - buf);
    ret++;
    ROAR_DBG("roar_vio_fgets(*): ret=%lli", (long long) ret);

    memcpy(s, buf, ret);
    have += ret;

    ROAR_DBG("roar_vio_fgets(*): have=%u", (unsigned int) have);

    break;
   }
   ROAR_DBG("roar_vio_fgets(*): have=%u", (unsigned int) have);
  }

 }

 ROAR_DBG("roar_vio_fgets(*): have=%u", (unsigned int) have);

 if ( !have )
  return NULL;

 s[have] = 0;

 return s;
}

//ll