chiark - git - mdw - qmail/blob - getln2.c

   1 #include "substdio.h"
   2 #include "stralloc.h"
   3 #include "byte.h"
   4 #include "getln.h"
   5
   6 int getln2(ss,sa,cont,clen,sep)
   7 register substdio *ss;
   8 register stralloc *sa;
   9 /*@out@*/char **cont;
  10 /*@out@*/unsigned int *clen;
  11 int sep;
  12 {
  13   register char *x;
  14   register unsigned int i;
  15   int n;
  16
  17   if (!stralloc_ready(sa,0)) return -1;
  18   sa->len = 0;
  19
  20   for (;;) {
  21     n = substdio_feed(ss);
  22     if (n < 0) return -1;
  23     if (n == 0) { *clen = 0; return 0; }
  24     x = substdio_PEEK(ss);
  25     i = byte_chr(x,n,sep);
  26     if (i < n) { substdio_SEEK(ss,*clen = i + 1); *cont = x; return 0; }
  27     if (!stralloc_readyplus(sa,n)) return -1;
  28     i = sa->len;
  29     sa->len = i + substdio_get(ss,sa->s + i,n);
  30   }
  31 }