HEX
Server: Apache
System: Linux s198.coreserver.jp 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64
User: nagasaki (10062)
PHP: 7.1.33
Disabled: NONE
Upload Files
File: //usr/local/qlibs/getln.c
#include "byte.h"
#include "getln.h"

/**
	@file getln.c
	@author djb
	@source qmail
	@brief evaluting tokenized input arguments
*/

int getln(buffer *b,stralloc *sa,int *match,int sep)
{
  char *cont;
  unsigned int clen;

  if (sgetln(b,sa,&cont,&clen,sep) == -1) return -1;
  if (!clen) { *match = 0; return 0; }
  if (!stralloc_catb(sa,cont,clen)) return -1;
  *match = 1;
  return 0;
}

int sgetln(buffer *b,stralloc *sa,char **cont,unsigned int *clen,int sep)
{
  register char *x;
  register unsigned int i;
  int n;

  if (!stralloc_ready(sa,0)) return -1;
  sa->len = 0;

  for (;;) {
    n = buffer_feed(b);
    if (n < 0) return -1;
    if (n == 0) { *clen = 0; return 0; }
    x = buffer_PEEK(b);
    i = byte_chr(x,n,sep);
    if (i < n) { buffer_SEEK(b,*clen = i + 1); *cont = x; return 0; }
    if (!stralloc_readyplus(sa,n)) return -1;
    i = sa->len;
    sa->len = i + buffer_get(b,sa->s + i,n);
  }
}