src/libstddjb/skagetln.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

/* ISC license. */

#include <errno.h>
#include <skalibs/buffer.h>
#include <skalibs/siovec.h>
#include <skalibs/stralloc.h>
#include <skalibs/skamisc.h>

int skagetln (buffer *b, stralloc *sa, char sep)
{
  unsigned int start = sa->len ;
  for (;;)
  {
    siovec_t v[2] ;
    unsigned int pos ;
    int r ;
    buffer_rpeek(b, v) ;
    pos = siovec_bytechr(v, 2, sep) ;
    r = pos < buffer_len(b) ; pos += r ;
    if (!stralloc_readyplus(sa, pos)) return -1 ;
    buffer_getnofill(b, sa->s + sa->len, pos) ; sa->len += pos ;
    if (r) return 1 ;
    r = buffer_fill(b) ;
    if (r < 0) return r ;
    if (!r) return (sa->s && (sa->len > start)) ? (errno = EPIPE, -1) : 0 ;
  }
}