update to version 25

1 files changed, 43 insertions, 0 deletions

diff --git a/src/getln.c b/src/getln.c
new file mode 100644
index 0000000..84c875c
--- /dev/null
+++ b/src/getln.c
@@ -0,0 +1,43 @@
+#include "byte.h"
+#include "getln.h"
+
+/**
+  * @file getln.c
+  * @author djb
+  * @ref qmail
+  * @brief evaluating 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)
+{
+  char *x;
+  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);
+  }
+}