/* $Id: ibuf_getnetstring.c 624 2005-08-23 18:21:54Z bruce $ */
#include <errno.h>
#include "ibuf.h"
#include "str/str.h"

/** Read a netstring from the given \c ibuf .

If the input is not a netstring, \c errno (and \c in->io.errnum ) will
be set to \c EPROTOTYPE and the state of \c in will be undefined.
*/
int ibuf_getnetstring(ibuf* in, struct str* s)
{
  unsigned long len;
  char ch;
  if (!ibuf_getu(in, &len)) return 0;
  if (!ibuf_getc(in, &ch)) return 0;
  if (ch != ':') {
    errno = in->io.errnum = EPROTOTYPE;
    return 0;
  }
  if (!str_ready(s, len)) return 0;
  if (!ibuf_read(in, s->s, len)) return 0;
  s->s[s->len = len] = 0;
  if (!ibuf_getc(in, &ch)) return 0;
  if (ch != ',') {
    errno = in->io.errnum = EPROTOTYPE;
    return 0;
  }
  return 1;
}

#ifdef SELFTEST_MAIN
#include <unistd.h>
#include "selftest.c"

ibuf in = {
  { -1, "0:,1:a,10:0123456789,4:", 23, 23, 0, 0, 0, 0, 0 },
  0, (ibuf_fn)read
};

MAIN
{
  static str s;
  while (ibuf_getnetstring(&in, &s))
    obuf_putf(&outbuf, "u{:}s{\n}", s.len, s.s);
}
#endif
#ifdef SELFTEST_EXP
0:
1:a
10:0123456789
#endif