initial commit with rc for skalibs-2.0.0.0

497 files changed, 10425 insertions, 0 deletions

diff --git a/src/libstddjb/absolutepath.c b/src/libstddjb/absolutepath.c
new file mode 100644
index 0000000..9a7a19f
--- /dev/null
+++ b/src/libstddjb/absolutepath.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+#include <skalibs/djbunix.h>
+
+int sarealpath (stralloc *sa, char const *path)
+{
+  return sarealpath_tmp(sa, path, &satmp) ;
+}
diff --git a/src/libstddjb/absolutepath_tmp.c b/src/libstddjb/absolutepath_tmp.c
new file mode 100644
index 0000000..79a613a
--- /dev/null
+++ b/src/libstddjb/absolutepath_tmp.c
@@ -0,0 +1,62 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sarealpath_tmp (stralloc *sa, char const *path, stralloc *tmp)
+{
+  unsigned int tmpbase = tmp->len ;
+  unsigned int base = sa->len ;
+  unsigned int loop = 48 ;
+  int fdhere ;
+  int wasnull = !sa->s ;
+
+  if (!path) return (errno = EINVAL, -1) ;
+  if (!stralloc_cats(sa, path)) return -1 ;
+  fdhere = open_read(".") ;
+  if (fdhere == -1)
+  {
+    if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+    return -1 ;
+  }
+
+  do
+  {
+    tmp->len = tmpbase ;
+    if (!loop--) { errno = ELOOP ; goto err ; }
+    if (!sadirname(tmp, sa->s + base, sa->len - base)
+     || !stralloc_0(tmp)
+     || (chdir(tmp->s + tmpbase) == -1))
+      goto err ;
+    tmp->len = tmpbase ;
+    if (!sabasename(tmp, sa->s + base, sa->len - base)
+     || !stralloc_0(tmp)) goto err ;
+    sa->len = base ;
+  }
+  while (sareadlink(sa, tmp->s + tmpbase) >= 0) ;
+
+  if ((errno != EINVAL)
+   || (sagetcwd(sa) == -1)
+   || ((sa->len > base + 1) && !stralloc_catb(sa, "/", 1))
+   || ((--tmp->len > tmpbase) && (tmp->s[tmpbase] != '/') && !stralloc_catb(sa, tmp->s + tmpbase, tmp->len - tmpbase)))
+    goto err ;
+
+  tmp->len = tmpbase ;
+  fd_chdir(fdhere) ;
+  fd_close(fdhere) ;
+  return 0 ;
+
+err:
+  {
+    register int e = errno ;
+    tmp->len = tmpbase ;
+    fd_chdir(fdhere) ;
+    fd_close(fdhere) ;
+    if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+    errno = e ;
+  }
+  return -1 ;
+}
diff --git a/src/libstddjb/alloc-internal.h b/src/libstddjb/alloc-internal.h
new file mode 100644
index 0000000..918b5df
--- /dev/null
+++ b/src/libstddjb/alloc-internal.h
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#ifndef ALLOC_0_H
+#define ALLOC_0_H
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/alloc.h>
+
+#ifdef SKALIBS_HASMALLOC0
+
+#include <stdlib.h>
+
+#define alloc_0 (aligned_char_ref)malloc(0)
+
+#else
+
+extern aligned_char_ref alloc_0 ;
+
+#endif
+
+#endif
diff --git a/src/libstddjb/alloc.c b/src/libstddjb/alloc.c
new file mode 100644
index 0000000..e3f89dd
--- /dev/null
+++ b/src/libstddjb/alloc.c
@@ -0,0 +1,49 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <stdlib.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/alloc.h>
+#include "alloc-internal.h"
+
+#ifdef DEBUG_ALLOC
+# include "buffer.h"
+# include "strerr2.h"
+# include "lolstdio.h"
+# define PLM(...) (bprintf(buffer_2, "%s: debug_alloc: ", PROG), bprintf(buffer_2, __VA_ARGS__), buffer_putflush(buffer_2, "\n", 1))
+#endif
+
+aligned_char_ref alloc (unsigned int n)
+{
+  register aligned_char_ref p = n ? (aligned_char_ref)malloc(n) : (aligned_char_ref)alloc_0 ;
+#ifdef DEBUG_ALLOC
+  static unsigned int counter = 0 ;
+  PLM("alloc(%u): %p. Allocated: %u", n, p, ++counter) ;
+#endif
+  return p ;
+}
+
+void alloc_free (void *p)
+{
+  register int e = errno ;
+#ifdef DEBUG_ALLOC
+  static unsigned int counter = 0 ;
+  PLM("alloc_free(%p). Freed: %u", p, ++counter) ;
+#endif
+#ifndef SKALIBS_HASMALLOC0
+  if (p != alloc_0)
+#endif
+  free(p) ;
+  errno = e ;
+}
+
+int alloc_realloc (aligned_char_ref *x, unsigned int n)
+{
+  aligned_char_ref y = n ? (aligned_char_ref)realloc(*x, n) : (free(*x), alloc_0) ;
+#ifdef DEBUG_ALLOC
+  PLM("alloc_realloc(&%p) -> new address = %p", *x, y) ;
+#endif
+  if (!y) return 0 ;
+  *x = y ;
+  return 1 ;
+}
diff --git a/src/libstddjb/alloc_0.c b/src/libstddjb/alloc_0.c
new file mode 100644
index 0000000..2175262
--- /dev/null
+++ b/src/libstddjb/alloc_0.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/alloc.h>
+#include "alloc-internal.h"
+
+#ifndef SKALIBS_HASMALLOC0
+
+#define ALIGNMENT 16
+static union { unsigned char blah[ALIGNMENT] ; long double ld ; } const zeroblock ;
+aligned_char_ref alloc_0 = (aligned_char_ref)(&zeroblock) ;
+
+#endif
diff --git a/src/libstddjb/allread.c b/src/libstddjb/allread.c
new file mode 100644
index 0000000..9f3d3bc
--- /dev/null
+++ b/src/libstddjb/allread.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/allreadwrite.h>
+
+unsigned int allread (int fd, char *buf, unsigned int len)
+{
+  return allreadwrite(&fd_read, fd, buf, len) ;
+}
diff --git a/src/libstddjb/allreadwrite.c b/src/libstddjb/allreadwrite.c
new file mode 100644
index 0000000..7e7867b
--- /dev/null
+++ b/src/libstddjb/allreadwrite.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+unsigned int allreadwrite (iofunc_t_ref op, int fd, register char *buf, register unsigned int len)
+{
+  register unsigned int written = 0 ;
+  while (len)
+  {
+    register int w = (*op)(fd, buf, len) ;
+    if (!w) errno = EPIPE ;
+    if (w <= 0) break ;
+    written += w ;
+    buf += w ;
+    len -= w ;
+  }
+  return written ;
+}
diff --git a/src/libstddjb/allwrite.c b/src/libstddjb/allwrite.c
new file mode 100644
index 0000000..61c8ad7
--- /dev/null
+++ b/src/libstddjb/allwrite.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/allreadwrite.h>
+
+unsigned int allwrite (int fd, char const *buf, unsigned int len)
+{
+  return allreadwrite((iofunc_t_ref)&fd_write, fd, (char *)buf, len) ;
+}
diff --git a/src/libstddjb/baprintf.c b/src/libstddjb/baprintf.c
new file mode 100644
index 0000000..63ea5a7
--- /dev/null
+++ b/src/libstddjb/baprintf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <stdarg.h>
+#include <skalibs/bufalloc.h>
+#include <skalibs/lolstdio.h>
+
+int baprintf (bufalloc *ba, char const *format, ...)
+{
+  va_list args ;
+  int r ;
+  va_start(args, format) ;
+  r = vbaprintf(ba, format, args) ;
+  va_end(args) ;
+  return r ;
+}
diff --git a/src/libstddjb/basename.c b/src/libstddjb/basename.c
new file mode 100644
index 0000000..4eb4080
--- /dev/null
+++ b/src/libstddjb/basename.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+char *basename (char *s)
+{
+  static stralloc basename_sa = STRALLOC_ZERO ;
+  static char dot0[2] = "." ;
+  char *dot = dot0 ;
+  if (!s) return dot ;
+  basename_sa.len = 0 ;
+  if (!sabasename(&basename_sa, s, str_len(s))) return 0 ;
+  if (!stralloc_0(&basename_sa)) return 0 ;
+  return basename_sa.s ;
+}
diff --git a/src/libstddjb/bitarray_and.c b/src/libstddjb/bitarray_and.c
new file mode 100644
index 0000000..d2f491e
--- /dev/null
+++ b/src/libstddjb/bitarray_and.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+void bitarray_and (unsigned char *c, unsigned char const *a, unsigned char const *b, unsigned int n)
+{
+  unsigned int len = bitarray_div8(n) ;
+  register unsigned int i = 0 ;
+  for (; i < len ; i++) c[i] = a[i] & b[i] ;
+}
diff --git a/src/libstddjb/bitarray_clearsetn.c b/src/libstddjb/bitarray_clearsetn.c
new file mode 100644
index 0000000..b3f46f1
--- /dev/null
+++ b/src/libstddjb/bitarray_clearsetn.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+void bitarray_clearsetn (register unsigned char *s, register unsigned int a, register unsigned int b, register int h)
+{
+  if (!b) return ;
+  b += a ;
+  if ((a >> 3) == ((b-1) >> 3))
+  {
+    register unsigned char mask = ((1 << (a & 7)) - 1) ^ ((1 << (b & 7)) - 1) ;
+    if (h) s[a>>3] |= mask ; else s[a>>3] &= ~mask ;
+  }
+  else
+  {
+    register unsigned char mask = ~((1 << (a & 7)) - 1) ;
+    register unsigned int i = (a>>3) + 1 ;
+    if (h) s[a>>3] |= mask ; else s[a>>3] &= ~mask ;
+    mask = h ? 0xff : 0x00 ;
+    for (; i < b>>3 ; i++) s[i] = mask ;
+    mask = (1 << (b & 7)) - 1 ;
+    if (h) s[b>>3] |= mask ; else s[b>>3] &= ~mask ;
+  }
+}
diff --git a/src/libstddjb/bitarray_firstclear.c b/src/libstddjb/bitarray_firstclear.c
new file mode 100644
index 0000000..80b6fbb
--- /dev/null
+++ b/src/libstddjb/bitarray_firstclear.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+unsigned int bitarray_firstclear (register unsigned char const *s, unsigned int max)
+{
+  unsigned int n = bitarray_div8(max) ;
+  register unsigned int i = 0 ;
+  for (; i < n ; i++) if (s[i] != 0xffU) break ;
+  if (i == n) return max ;
+  i <<= 3 ;
+  while ((i < max) && bitarray_peek(s, i)) i++ ;
+  return i ;
+}
diff --git a/src/libstddjb/bitarray_firstset.c b/src/libstddjb/bitarray_firstset.c
new file mode 100644
index 0000000..de3d27e
--- /dev/null
+++ b/src/libstddjb/bitarray_firstset.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+unsigned int bitarray_firstset (register unsigned char const *s, unsigned int max)
+{
+  unsigned int n = bitarray_div8(max) ;
+  register unsigned int i = 0 ;
+  for (; i < n ; i++) if (s[i]) break ;
+  if (i == n) return max ;
+  i <<= 3 ;
+  while ((i < max) && !bitarray_peek(s, i)) i++ ;
+  return i ;
+}
diff --git a/src/libstddjb/bitarray_not.c b/src/libstddjb/bitarray_not.c
new file mode 100644
index 0000000..4bd95ad
--- /dev/null
+++ b/src/libstddjb/bitarray_not.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+void bitarray_not (register unsigned char *s, register unsigned int a, register unsigned int b)
+{
+  if (!b) return ;
+  b += a ;
+  if ((a >> 3) == ((b-1) >> 3))
+    s[a>>3] ^= ((1 << (a & 7)) - 1) ^ ((a << (b & 7)) - 1) ;
+  else
+  {
+    register unsigned int i = (a>>3) + 1 ;
+    s[a>>3] ^= ~((1 << (a & 7)) - 1) ;
+    for (; i < (b>>3) - 1 ; i++) s[i] = ~s[i] ;
+    s[b>>3] ^= (1 << (b & 7)) - 1 ;
+  }
+}
diff --git a/src/libstddjb/bitarray_or.c b/src/libstddjb/bitarray_or.c
new file mode 100644
index 0000000..9e9e6b3
--- /dev/null
+++ b/src/libstddjb/bitarray_or.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+void bitarray_or (unsigned char *c, unsigned char const *a, unsigned char const *b, unsigned int n)
+{
+  unsigned int len = bitarray_div8(n) ;
+  register unsigned int i = 0 ;
+  for (; i < len ; i++) c[i] = a[i] | b[i] ;
+}
diff --git a/src/libstddjb/bitarray_testandpoke.c b/src/libstddjb/bitarray_testandpoke.c
new file mode 100644
index 0000000..5075f1d
--- /dev/null
+++ b/src/libstddjb/bitarray_testandpoke.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+int bitarray_testandpoke (register unsigned char *s, register unsigned int n, register int h)
+{
+  register unsigned char mask = 1 << (n & 7) ;
+  register unsigned char c = s[n>>3] ;
+  s[n>>3] = h ? c | mask : c & ~mask ;
+  return (c & mask) ? 1 : 0 ;
+}
diff --git a/src/libstddjb/bitarray_xor.c b/src/libstddjb/bitarray_xor.c
new file mode 100644
index 0000000..8b16f25
--- /dev/null
+++ b/src/libstddjb/bitarray_xor.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+void bitarray_xor (unsigned char *c, unsigned char const *a, unsigned char const *b, unsigned int n)
+{
+  unsigned int len = bitarray_div8(n) ;
+  register unsigned int i = 0 ;
+  for (; i < len ; i++) c[i] = a[i] ^ b[i] ;
+}
diff --git a/src/libstddjb/bprintf.c b/src/libstddjb/bprintf.c
new file mode 100644
index 0000000..56617ad
--- /dev/null
+++ b/src/libstddjb/bprintf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <stdarg.h>
+#include <skalibs/buffer.h>
+#include <skalibs/lolstdio.h>
+
+int bprintf (buffer *b, char const *format, ...)
+{
+  va_list args ;
+  int r ;
+  va_start(args, format) ;
+  r = vbprintf(b, format, args) ;
+  va_end(args) ;
+  return r ;
+}
diff --git a/src/libstddjb/bufalloc_1.c b/src/libstddjb/bufalloc_1.c
new file mode 100644
index 0000000..6e636ca
--- /dev/null
+++ b/src/libstddjb/bufalloc_1.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/allreadwrite.h>
+#include <skalibs/bufalloc.h>
+
+static bufalloc b = BUFALLOC_INIT(&fd_write, 1) ;
+bufalloc_ref bufalloc_1 = &b ;
diff --git a/src/libstddjb/bufalloc_2.c b/src/libstddjb/bufalloc_2.c
new file mode 100644
index 0000000..bcf97da
--- /dev/null
+++ b/src/libstddjb/bufalloc_2.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/allreadwrite.h>
+#include <skalibs/bufalloc.h>
+
+static bufalloc b = BUFALLOC_INIT(&fd_write, 2) ;
+bufalloc_ref bufalloc_2 = &b ;
diff --git a/src/libstddjb/bufalloc_clean.c b/src/libstddjb/bufalloc_clean.c
new file mode 100644
index 0000000..28bd35e
--- /dev/null
+++ b/src/libstddjb/bufalloc_clean.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/bufalloc.h>
+
+void bufalloc_clean (register bufalloc_ref ba)
+{
+  if (ba->p)
+  {
+    byte_copy(ba->x.s, ba->x.len - ba->p, ba->x.s + ba->p) ;
+    ba->x.len -= ba->p ;
+    ba->p = 0 ;
+  }
+}
diff --git a/src/libstddjb/bufalloc_flush.c b/src/libstddjb/bufalloc_flush.c
new file mode 100644
index 0000000..49b2eb1
--- /dev/null
+++ b/src/libstddjb/bufalloc_flush.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/allreadwrite.h>
+#include <skalibs/bufalloc.h>
+
+int bufalloc_flush (bufalloc_ref ba)
+{
+  ba->p += allreadwrite((iofunc_t_ref)ba->op, ba->fd, ba->x.s + ba->p, ba->x.len - ba->p) ;
+  bufalloc_clean(ba) ;
+  return !ba->x.len ;
+}
diff --git a/src/libstddjb/bufalloc_getfd.c b/src/libstddjb/bufalloc_getfd.c
new file mode 100644
index 0000000..d24ab88
--- /dev/null
+++ b/src/libstddjb/bufalloc_getfd.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/bufalloc.h>
+
+int bufalloc_getfd (bufalloc const *ba)
+{
+  return bufalloc_fd(ba) ;
+}
diff --git a/src/libstddjb/bufalloc_getlen.c b/src/libstddjb/bufalloc_getlen.c
new file mode 100644
index 0000000..696e41d
--- /dev/null
+++ b/src/libstddjb/bufalloc_getlen.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/bufalloc.h>
+
+unsigned int bufalloc_getlen (bufalloc const *ba)
+{
+  return bufalloc_len(ba) ;
+}
diff --git a/src/libstddjb/bufalloc_init.c b/src/libstddjb/bufalloc_init.c
new file mode 100644
index 0000000..ddb6b6b
--- /dev/null
+++ b/src/libstddjb/bufalloc_init.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/bufalloc.h>
+
+void bufalloc_init (bufalloc_ref ba, int (*op)(int, char const *, unsigned int), int fd)
+{
+  ba->x.len = 0 ;
+  ba->op = op ;
+  ba->fd = fd ;
+  ba->p = 0 ;
+}
diff --git a/src/libstddjb/buffer_0.c b/src/libstddjb/buffer_0.c
new file mode 100644
index 0000000..50dc6dc
--- /dev/null
+++ b/src/libstddjb/buffer_0.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_INSIZE] ;
+buffer buffer_0_ = BUFFER_INIT(&buffer_read, 0, buf, BUFFER_INSIZE) ;
diff --git a/src/libstddjb/buffer_0f1.c b/src/libstddjb/buffer_0f1.c
new file mode 100644
index 0000000..685577c
--- /dev/null
+++ b/src/libstddjb/buffer_0f1.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_INSIZE] ;
+buffer buffer_0f1_ = BUFFER_INIT(&buffer_flush1read, 0, buf, BUFFER_INSIZE) ;
diff --git a/src/libstddjb/buffer_0small.c b/src/libstddjb/buffer_0small.c
new file mode 100644
index 0000000..849edec
--- /dev/null
+++ b/src/libstddjb/buffer_0small.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_INSIZE_SMALL] ;
+buffer buffer_0small_ = BUFFER_INIT(&buffer_read, 0, buf, BUFFER_INSIZE_SMALL) ;
diff --git a/src/libstddjb/buffer_1.c b/src/libstddjb/buffer_1.c
new file mode 100644
index 0000000..088d421
--- /dev/null
+++ b/src/libstddjb/buffer_1.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_OUTSIZE] ;
+buffer buffer_1_ = BUFFER_INIT(&buffer_write, 1, buf, BUFFER_OUTSIZE) ;
diff --git a/src/libstddjb/buffer_1small.c b/src/libstddjb/buffer_1small.c
new file mode 100644
index 0000000..6e9cfa2
--- /dev/null
+++ b/src/libstddjb/buffer_1small.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_OUTSIZE_SMALL] ;
+buffer buffer_1small_ = BUFFER_INIT(&buffer_write, 1, buf, BUFFER_OUTSIZE_SMALL) ;
diff --git a/src/libstddjb/buffer_2.c b/src/libstddjb/buffer_2.c
new file mode 100644
index 0000000..9bc4e3f
--- /dev/null
+++ b/src/libstddjb/buffer_2.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/buffer.h>
+
+static char buf[BUFFER_ERRSIZE] ;
+buffer buffer_2_ = BUFFER_INIT(&buffer_write, 2, buf, BUFFER_ERRSIZE) ;
diff --git a/src/libstddjb/buffer_fill.c b/src/libstddjb/buffer_fill.c
new file mode 100644
index 0000000..c158abe
--- /dev/null
+++ b/src/libstddjb/buffer_fill.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/cbuffer.h>
+
+int buffer_fill (buffer *b)
+{
+  siovec_t v[2] ;
+  register int r ;
+  if (buffer_isfull(b)) return (errno = ENOBUFS, -1) ;
+  buffer_wpeek(b, v) ;
+  r = (*b->op)(b->fd, v, 2, b->aux) ;
+  if (r <= 0) return r ;
+  cbuffer_WSEEK(&b->c, r) ;
+  return r ;
+}
diff --git a/src/libstddjb/buffer_flush.c b/src/libstddjb/buffer_flush.c
new file mode 100644
index 0000000..ca6ca6b
--- /dev/null
+++ b/src/libstddjb/buffer_flush.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_flush (buffer *b)
+{
+  for (;;)
+  {
+    siovec_t v[2] ;
+    register int r ;
+    buffer_rpeek(b, v) ;
+    if (!v[0].len && !v[1].len) break ;
+    r = (*b->op)(b->fd, v, 2, b->aux) ;
+    if (r <= 0) return 0 ;
+    cbuffer_RSEEK(&b->c, r) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_flush1read.c b/src/libstddjb/buffer_flush1read.c
new file mode 100644
index 0000000..9dcdf81
--- /dev/null
+++ b/src/libstddjb/buffer_flush1read.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_flush1read (int fd, siovec_t const *v, unsigned int n, void *aux)
+{
+  if (!buffer_flush(buffer_1)) return -1 ;
+  return buffer_read(fd, v, n, aux) ;
+}
diff --git a/src/libstddjb/buffer_get.c b/src/libstddjb/buffer_get.c
new file mode 100644
index 0000000..dcfa8e7
--- /dev/null
+++ b/src/libstddjb/buffer_get.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_get (buffer *b, char *s, unsigned int len)
+{
+  unsigned int w = 0 ;
+  register int r = buffer_getall(b, s, len, &w) ;
+  return r == -1 ? errno == EPIPE ? (errno = 0, 0) : -1 :
+         !r ? (errno = EWOULDBLOCK, -1) : (int)w ;
+}
diff --git a/src/libstddjb/buffer_getall.c b/src/libstddjb/buffer_getall.c
new file mode 100644
index 0000000..34db9df
--- /dev/null
+++ b/src/libstddjb/buffer_getall.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/buffer.h>
+
+int buffer_getall (buffer_ref b, char *buf, unsigned int len, unsigned int *w)
+{
+  if (*w > len) return (errno = EINVAL, -1) ;
+  *w += buffer_getnofill(b, buf + *w, len - *w) ;
+  while (*w < len)
+  {
+    register int r = sanitize_read(buffer_fill(b)) ;
+    if (r <= 0) return r ;
+    *w += buffer_getnofill(b, buf + *w, len - *w) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_getallnf.c b/src/libstddjb/buffer_getallnf.c
new file mode 100644
index 0000000..8a97a31
--- /dev/null
+++ b/src/libstddjb/buffer_getallnf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_getallnofill (buffer_ref b, char *s, unsigned int len)
+{
+  register unsigned int r = buffer_getnofill(b, s, len) ;
+  if (r < len)
+  {
+    buffer_unget(b, r) ;
+    return (errno = ENOBUFS, 0) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_getfd.c b/src/libstddjb/buffer_getfd.c
new file mode 100644
index 0000000..224beec
--- /dev/null
+++ b/src/libstddjb/buffer_getfd.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+
+int buffer_getfd (buffer const *b)
+{
+  return buffer_fd(b) ;
+}
diff --git a/src/libstddjb/buffer_getlen.c b/src/libstddjb/buffer_getlen.c
new file mode 100644
index 0000000..73289a7
--- /dev/null
+++ b/src/libstddjb/buffer_getlen.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+
+unsigned int buffer_getlen (buffer const *b)
+{
+  return buffer_len(b) ;
+}
diff --git a/src/libstddjb/buffer_getv.c b/src/libstddjb/buffer_getv.c
new file mode 100644
index 0000000..0f8f848
--- /dev/null
+++ b/src/libstddjb/buffer_getv.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/diuint.h>
+#include <skalibs/siovec.h>
+
+int buffer_getv (buffer *b, siovec_t const *v, unsigned int n)
+{
+  diuint w = DIUINT_ZERO ;
+  register int r = buffer_getvall(b, v, n, &w) ;
+  return r == -1 ? errno == EPIPE ? (errno = 0, 0) : -1 :
+         !r ? (errno = EWOULDBLOCK, -1) :
+         (int)(siovec_len(v, w.left) + w.right) ;
+}
diff --git a/src/libstddjb/buffer_getvall.c b/src/libstddjb/buffer_getvall.c
new file mode 100644
index 0000000..b6eeb46
--- /dev/null
+++ b/src/libstddjb/buffer_getvall.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/diuint.h>
+#include <skalibs/siovec.h>
+
+int buffer_getvall (buffer *b, siovec_t const *v, unsigned int n, diuint *w)
+{
+  if (w->left > n || (w->left == n && w->right) || w->right >= v[w->left].len)
+    return (errno = EINVAL, -1) ;
+  for (; w->left < n ; w->left++, w->right = 0)
+  {
+    register int r = buffer_getall(b, v[w->left].s, v[w->left].len, &w->right) ;
+    if (r <= 0) return r ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_getvallnf.c b/src/libstddjb/buffer_getvallnf.c
new file mode 100644
index 0000000..2f4b82d
--- /dev/null
+++ b/src/libstddjb/buffer_getvallnf.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_getvallnofill (buffer_ref b, siovec_t const *v, unsigned int n)
+{
+  register unsigned int r = buffer_getvnofill(b, v, n) ;
+  if (r < siovec_len(v, n))
+  {
+    buffer_unget(b, r) ;
+    return (errno = ENOBUFS, 0) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_init.c b/src/libstddjb/buffer_init.c
new file mode 100644
index 0000000..09d4910
--- /dev/null
+++ b/src/libstddjb/buffer_init.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_init_aux (buffer *b, buffer_io_func_t *op, int fd, char *s, unsigned int len, void *aux)
+{
+  if (!cbuffer_init(&b->c, s, len)) return 0 ;
+  b->fd = fd ;
+  b->op = op ;
+  b->aux = aux ;
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_put.c b/src/libstddjb/buffer_put.c
new file mode 100644
index 0000000..56baaa7
--- /dev/null
+++ b/src/libstddjb/buffer_put.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+
+int buffer_put (buffer *b, char const *s, unsigned int len)
+{
+  unsigned int w = 0 ;
+  if (!buffer_putall(b, s, len, &w)) return -1 ;
+  return (int)w ;
+}
diff --git a/src/libstddjb/buffer_putall.c b/src/libstddjb/buffer_putall.c
new file mode 100644
index 0000000..16facc2
--- /dev/null
+++ b/src/libstddjb/buffer_putall.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_putall (buffer *b, char const *s, unsigned int len, unsigned int *written)
+{
+  if (*written > len) return (errno = EINVAL, 0) ;
+  for (;;)
+  {
+    *written += buffer_putnoflush(b, s + *written, len - *written) ;
+    if (*written >= len) return 1 ;
+    buffer_flush(b) ;
+    if (buffer_isfull(b)) return 0 ;
+  }
+}
diff --git a/src/libstddjb/buffer_putallnf.c b/src/libstddjb/buffer_putallnf.c
new file mode 100644
index 0000000..1cf3c5e
--- /dev/null
+++ b/src/libstddjb/buffer_putallnf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_putallnoflush (buffer *b, char const *s, unsigned int len)
+{
+  register unsigned int r = buffer_putnoflush(b, s, len) ;
+  if (r < len)
+  {
+    buffer_unput(b, r) ;
+    return (errno = ENOBUFS, 0) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_putflush.c b/src/libstddjb/buffer_putflush.c
new file mode 100644
index 0000000..609d88b
--- /dev/null
+++ b/src/libstddjb/buffer_putflush.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+
+int buffer_putflush (buffer *b, char const *s, unsigned int len)
+{
+  int r = buffer_put(b, s, len) ;
+  if (r < 0) return -1 ;
+  if (!buffer_flush(b)) return -1 ;
+  return r ;
+}
diff --git a/src/libstddjb/buffer_putv.c b/src/libstddjb/buffer_putv.c
new file mode 100644
index 0000000..a1530d2
--- /dev/null
+++ b/src/libstddjb/buffer_putv.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/diuint.h>
+#include <skalibs/siovec.h>
+
+int buffer_putv (buffer *b, siovec_t const *v, unsigned int n)
+{
+  diuint w = DIUINT_ZERO ;
+  if (!buffer_putvall(b, v, n, &w)) return -1 ;
+  return (int)(siovec_len(v, w.left) + w.right) ;
+}
diff --git a/src/libstddjb/buffer_putvall.c b/src/libstddjb/buffer_putvall.c
new file mode 100644
index 0000000..d6297c1
--- /dev/null
+++ b/src/libstddjb/buffer_putvall.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/diuint.h>
+#include <skalibs/siovec.h>
+
+int buffer_putvall (buffer *b, siovec_t const *v, unsigned int n, diuint *w)
+{
+  if (w->left > n || (w->left == n && w->right) || w->right >= v[w->left].len)
+    return (errno = EINVAL, 0) ;
+  for (; w->left < n ; w->left++, w->right = 0)
+    if (!buffer_putall(b, v[w->left].s, v[w->left].len, &w->right)) return 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_putvallnf.c b/src/libstddjb/buffer_putvallnf.c
new file mode 100644
index 0000000..cada660
--- /dev/null
+++ b/src/libstddjb/buffer_putvallnf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+
+int buffer_putvallnoflush (buffer *b, siovec_t const *v, unsigned int n)
+{
+  register unsigned int r = buffer_putvnoflush(b, v, n) ;
+  if (r < siovec_len(v, n))
+  {
+    buffer_unput(b, r) ;
+    return (errno = ENOBUFS, 0) ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/buffer_putvflush.c b/src/libstddjb/buffer_putvflush.c
new file mode 100644
index 0000000..46f9e03
--- /dev/null
+++ b/src/libstddjb/buffer_putvflush.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_putvflush (buffer *b, siovec_t const *v, unsigned int n)
+{
+  int r = buffer_putv(b, v, n) ;
+  if (r < 0) return -1 ;
+  if (!buffer_flush(b)) return -1 ;
+  return r ;
+}
diff --git a/src/libstddjb/buffer_read.c b/src/libstddjb/buffer_read.c
new file mode 100644
index 0000000..150bc15
--- /dev/null
+++ b/src/libstddjb/buffer_read.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_read (int fd, siovec_t const *v, unsigned int n, void *aux)
+{
+  struct iovec iov[n] ;
+  iovec_from_siovec(iov, v, n) ;
+  (void)aux ;
+  return fd_readv(fd, iov, n) ;
+}
diff --git a/src/libstddjb/buffer_write.c b/src/libstddjb/buffer_write.c
new file mode 100644
index 0000000..40ffd46
--- /dev/null
+++ b/src/libstddjb/buffer_write.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+
+int buffer_write (int fd, siovec_t const *v, unsigned int n, void *aux)
+{
+  struct iovec iov[n] ;
+  iovec_from_siovec(iov, v, n) ;
+  (void)aux ;
+  return fd_writev(fd, iov, n) ;
+}
diff --git a/src/libstddjb/byte_chr.c b/src/libstddjb/byte_chr.c
new file mode 100644
index 0000000..e9caef5
--- /dev/null
+++ b/src/libstddjb/byte_chr.c
@@ -0,0 +1,33 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/bytestr.h>
+
+#ifndef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <string.h>
+
+unsigned int byte_chr (char const *s, unsigned int n, int c)
+{
+  register void *p = memchr(s, c, n) ;
+  return p ? (unsigned int)((char *)p - s) : n ;
+}
+
+#else
+
+unsigned int byte_chr (char const *s, unsigned int n, int c)
+{
+  register char ch = c ;
+  register char const *t = s ;
+
+  for (;;)
+  {
+    if (!n) break; if (*t == ch) break; ++t; --n;
+    if (!n) break; if (*t == ch) break; ++t; --n;
+    if (!n) break; if (*t == ch) break; ++t; --n;
+    if (!n) break; if (*t == ch) break; ++t; --n;
+  }
+  return t - s ;
+}
+
+#endif
diff --git a/src/libstddjb/byte_copy.c b/src/libstddjb/byte_copy.c
new file mode 100644
index 0000000..410fb95
--- /dev/null
+++ b/src/libstddjb/byte_copy.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+void byte_copy (register char *to, register unsigned int n, register char const *from)
+{
+  while (n--) *to++ = *from++ ;
+}
+
+#endif
diff --git a/src/libstddjb/byte_count.c b/src/libstddjb/byte_count.c
new file mode 100644
index 0000000..5e3f8af
--- /dev/null
+++ b/src/libstddjb/byte_count.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+unsigned int byte_count (register char const *s, register unsigned int len, register char b)
+{
+  register unsigned int n = 0 ;
+  while (len--) if (*s++ == b) n++ ;
+  return n ;
+}
diff --git a/src/libstddjb/byte_cr.c b/src/libstddjb/byte_cr.c
new file mode 100644
index 0000000..d81e7cf
--- /dev/null
+++ b/src/libstddjb/byte_cr.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+void byte_copyr (register char *to, register unsigned int n, register char const *from)
+{
+  to += n ;
+  from += n ;
+  for (;;)
+  {
+    if (!n) return; *--to = *--from; --n;
+    if (!n) return; *--to = *--from; --n;
+    if (!n) return; *--to = *--from; --n;
+    if (!n) return; *--to = *--from; --n;
+  }
+}
+
+#endif
diff --git a/src/libstddjb/byte_diff.c b/src/libstddjb/byte_diff.c
new file mode 100644
index 0000000..9e7f107
--- /dev/null
+++ b/src/libstddjb/byte_diff.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+int byte_diff (register char const *s, register unsigned int n, register char const *t)
+{
+  for (;;)
+  {
+    if (!n) return 0; if (*s != *t) break; ++s; ++t; --n;
+    if (!n) return 0; if (*s != *t) break; ++s; ++t; --n;
+    if (!n) return 0; if (*s != *t) break; ++s; ++t; --n;
+    if (!n) return 0; if (*s != *t) break; ++s; ++t; --n;
+  }
+  return ((int)(unsigned int)(unsigned char) *s)
+       - ((int)(unsigned int)(unsigned char) *t) ;
+}
+
+#endif
diff --git a/src/libstddjb/byte_in.c b/src/libstddjb/byte_in.c
new file mode 100644
index 0000000..60625c5
--- /dev/null
+++ b/src/libstddjb/byte_in.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+unsigned int byte_in (char const *s, register unsigned int n, register char const *sep, register unsigned int len)
+{
+  register char const *t = s ;
+  while (n--)
+  {
+    if (byte_chr(sep, len, *t) < len) break ;
+    ++t ;
+  }
+  return t - s ;
+}
diff --git a/src/libstddjb/byte_rchr.c b/src/libstddjb/byte_rchr.c
new file mode 100644
index 0000000..3564c36
--- /dev/null
+++ b/src/libstddjb/byte_rchr.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+unsigned int byte_rchr (register char const *s, unsigned int n, int c)
+{
+  register unsigned int i = n ;
+  register char ch = c ;
+  s += n ;
+  while (i--) if (*--s == ch) return i ;
+  return n ;
+}
diff --git a/src/libstddjb/byte_zero.c b/src/libstddjb/byte_zero.c
new file mode 100644
index 0000000..6751210
--- /dev/null
+++ b/src/libstddjb/byte_zero.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+void byte_zero (void *p, register unsigned int n)
+{
+  register char *s = (char *)p ;
+  while (n--) *s++ = 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/case_diffb.c b/src/libstddjb/case_diffb.c
new file mode 100644
index 0000000..1931c0f
--- /dev/null
+++ b/src/libstddjb/case_diffb.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+int case_diffb (char const *s, unsigned int len, char const *t)
+{
+  register unsigned char x = 0, y = 0 ;
+  unsigned char const d = 'a' - 'A' ;
+
+  while (len-- && (x == y))
+  {
+    x = *s++ ;
+    if (('a' <= x) && (x <= 'z')) x -= d ;
+    y = *t++ ;
+    if (('a' <= y) && (y <= 'z')) y -= d ;
+  }
+  return (int)(x - y) ;
+}
diff --git a/src/libstddjb/case_diffs.c b/src/libstddjb/case_diffs.c
new file mode 100644
index 0000000..2731408
--- /dev/null
+++ b/src/libstddjb/case_diffs.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+int case_diffs (char const *s, char const *t)
+{
+  register unsigned char x = 1, y = 1 ;
+  unsigned char const d = 'a' - 'A' ;
+
+  while (x && (x == y))
+  {
+    x = *s++ ;
+    if (('a' <= x) && (x <= 'z')) x -= d ;
+    y = *t++ ;
+    if (('a' <= y) && (y <= 'z')) y -= d ;
+  }
+  return (int)(x - y) ;
+}
diff --git a/src/libstddjb/case_lowerb.c b/src/libstddjb/case_lowerb.c
new file mode 100644
index 0000000..9f51ed5
--- /dev/null
+++ b/src/libstddjb/case_lowerb.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+void case_lowerb (register char *s, unsigned int len)
+{
+  register unsigned char const d = 'a' - 'A' ;
+  while (len--)
+  {
+    if (('A' <= *s) && (*s <= 'Z')) *s += d ;
+    ++s ;
+  }
+}
diff --git a/src/libstddjb/case_lowers.c b/src/libstddjb/case_lowers.c
new file mode 100644
index 0000000..5999786
--- /dev/null
+++ b/src/libstddjb/case_lowers.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+void case_lowers (register char *s)
+{
+  register unsigned char const d = 'a' - 'A' ;
+  while (*s)
+  {
+    if (('A' <= *s) && (*s <= 'Z')) *s += d ;
+    ++s ;
+  }
+}
diff --git a/src/libstddjb/case_startb.c b/src/libstddjb/case_startb.c
new file mode 100644
index 0000000..cae0fb4
--- /dev/null
+++ b/src/libstddjb/case_startb.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+int case_startb (register char const *s, unsigned int slen, register char const *t)
+{
+  register unsigned int tlen = str_len(t) ;
+  return slen < tlen ? 0 : !case_diffb(s, tlen, t) ;
+}
diff --git a/src/libstddjb/case_str.c b/src/libstddjb/case_str.c
new file mode 100644
index 0000000..14409c3
--- /dev/null
+++ b/src/libstddjb/case_str.c
@@ -0,0 +1,32 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/sysdeps.h>
+
+#if defined(SKALIBS_HASSTRCASESTR) && !defined(SKALIBS_FLAG_REPLACE_LIBC)
+
+#include <skalibs/nonposix.h>
+#include <string.h>
+#include <skalibs/bytestr.h>
+
+unsigned int case_str (char const *haystack, char const *needle)
+{
+  register char *p = strcasestr(haystack, needle) ;
+  return p ? p - haystack : str_len(haystack) ;
+}
+
+#else
+
+#include <skalibs/bytestr.h>
+
+unsigned int case_str (char const *haystack, char const *needle)
+{
+  unsigned int nlen = str_len(needle) ;
+  register char const *p = haystack ;
+  if (!nlen) return 0 ;
+  for (; *p ; p++)
+    if (!case_diffb(p, nlen, needle)) return p - haystack ;
+  return str_len(haystack) ;
+}
+
+#endif
diff --git a/src/libstddjb/case_upperb.c b/src/libstddjb/case_upperb.c
new file mode 100644
index 0000000..54ceab4
--- /dev/null
+++ b/src/libstddjb/case_upperb.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+void case_upperb (register char *s, unsigned int len)
+{
+  register unsigned char const d = 'a' - 'A' ;
+  while (len--)
+  {
+    if (('a' <= *s) && (*s <= 'z')) *s -= d ;
+    ++s ;
+  }
+}
diff --git a/src/libstddjb/case_uppers.c b/src/libstddjb/case_uppers.c
new file mode 100644
index 0000000..cf2875a
--- /dev/null
+++ b/src/libstddjb/case_uppers.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+void case_uppers (register char *s)
+{
+  register unsigned char const d = 'a' - 'A' ;
+  while (*s)
+  {
+    if (('a' <= *s) && (*s <= 'z')) *s -= d ;
+    ++s ;
+  }
+}
diff --git a/src/libstddjb/cbuffer_get.c b/src/libstddjb/cbuffer_get.c
new file mode 100644
index 0000000..544cbb2
--- /dev/null
+++ b/src/libstddjb/cbuffer_get.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+unsigned int cbuffer_get (cbuffer_t *b, char *s, unsigned int len)
+{
+  siovec_t v[2] ;
+  cbuffer_rpeek(b, v) ;
+  return cbuffer_RSEEK(b, siovec_gather(v, 2, s, len)) ;
+}
diff --git a/src/libstddjb/cbuffer_getv.c b/src/libstddjb/cbuffer_getv.c
new file mode 100644
index 0000000..3db638f
--- /dev/null
+++ b/src/libstddjb/cbuffer_getv.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+unsigned int cbuffer_getv (cbuffer_t *b, siovec_t const *v, unsigned int n)
+{
+  siovec_t vsrc[2] ;
+  cbuffer_rpeek(b, vsrc) ;
+  return cbuffer_RSEEK(b, siovec_deal(v, n, vsrc, 2)) ;
+}
diff --git a/src/libstddjb/cbuffer_init.c b/src/libstddjb/cbuffer_init.c
new file mode 100644
index 0000000..eba4765
--- /dev/null
+++ b/src/libstddjb/cbuffer_init.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/cbuffer.h>
+
+int cbuffer_init (cbuffer_t *b, char *s, unsigned int len)
+{
+  if (len < 2) return (errno = EINVAL, 0) ;
+  b->x = s ;
+  b->a = len ;
+  b->p = b->n = 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/cbuffer_put.c b/src/libstddjb/cbuffer_put.c
new file mode 100644
index 0000000..12f513e
--- /dev/null
+++ b/src/libstddjb/cbuffer_put.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+unsigned int cbuffer_put (cbuffer_t *b, char const *s, unsigned int len)
+{
+  siovec_t v[2] ;
+  cbuffer_wpeek(b, v) ;
+  return cbuffer_WSEEK(b, siovec_scatter(v, 2, s, len)) ;
+}
diff --git a/src/libstddjb/cbuffer_putv.c b/src/libstddjb/cbuffer_putv.c
new file mode 100644
index 0000000..66bed05
--- /dev/null
+++ b/src/libstddjb/cbuffer_putv.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+unsigned int cbuffer_putv (cbuffer_t *b, siovec_t const *v, unsigned int n)
+{
+  siovec_t vdest[2] ;
+  cbuffer_wpeek(b, vdest) ;
+  return cbuffer_WSEEK(b, siovec_deal(vdest, 2, v, n)) ;
+}
diff --git a/src/libstddjb/cbuffer_rpeek.c b/src/libstddjb/cbuffer_rpeek.c
new file mode 100644
index 0000000..22a1ef5
--- /dev/null
+++ b/src/libstddjb/cbuffer_rpeek.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+void cbuffer_rpeek (cbuffer_t *b, siovec_t *v)
+{
+  v[0].s = b->x + b->p ;
+  if (b->n >= b->p)
+  {
+    v[0].len = b->n - b->p ;
+    v[1].s = 0 ;
+    v[1].len = 0 ;
+  }
+  else
+  {
+    v[0].len = b->a - b->p ;
+    v[1].s = b->x ;
+    v[1].len = b->n ;
+  }
+}
diff --git a/src/libstddjb/cbuffer_rseek.c b/src/libstddjb/cbuffer_rseek.c
new file mode 100644
index 0000000..4a98511
--- /dev/null
+++ b/src/libstddjb/cbuffer_rseek.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+
+unsigned int cbuffer_rseek (cbuffer_t *b, unsigned int len)
+{
+  register unsigned int max = cbuffer_len(b) ;
+  if (len > max) len = max ;
+  return cbuffer_RSEEK(b, len) ;
+}
diff --git a/src/libstddjb/cbuffer_unget.c b/src/libstddjb/cbuffer_unget.c
new file mode 100644
index 0000000..d1591e6
--- /dev/null
+++ b/src/libstddjb/cbuffer_unget.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+
+unsigned int cbuffer_unget (cbuffer_t *b, unsigned int len)
+{
+  register unsigned int max = cbuffer_available(b) ;
+  if (len > max) len = max ;
+  return cbuffer_UNGET(b, len) ;
+}
diff --git a/src/libstddjb/cbuffer_unput.c b/src/libstddjb/cbuffer_unput.c
new file mode 100644
index 0000000..8221ca0
--- /dev/null
+++ b/src/libstddjb/cbuffer_unput.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+
+unsigned int cbuffer_unput (cbuffer_t *b, unsigned int len)
+{
+  register unsigned int max = cbuffer_len(b) ;
+  if (len > max) len = max ;
+  return cbuffer_UNPUT(b, len) ;
+}
diff --git a/src/libstddjb/cbuffer_wpeek.c b/src/libstddjb/cbuffer_wpeek.c
new file mode 100644
index 0000000..a2c6a63
--- /dev/null
+++ b/src/libstddjb/cbuffer_wpeek.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+#include <skalibs/siovec.h>
+
+void cbuffer_wpeek (cbuffer_t *b, siovec_t *v)
+{
+  unsigned int last = (b->a - 1 + b->p) % b->a ;
+  v[0].s = b->x + b->n ;
+  if (last >= b->n)
+  {
+    v[0].len = last - b->n ;
+    v[1].s = 0 ;
+    v[1].len = 0 ;
+  }
+  else
+  {
+    v[0].len = b->a - b->n ;
+    v[1].s = b->x ;
+    v[1].len = last ;
+  }
+}
diff --git a/src/libstddjb/cbuffer_wseek.c b/src/libstddjb/cbuffer_wseek.c
new file mode 100644
index 0000000..6b90ab6
--- /dev/null
+++ b/src/libstddjb/cbuffer_wseek.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/cbuffer.h>
+
+unsigned int cbuffer_wseek (cbuffer_t *b, unsigned int len)
+{
+  register unsigned int max = cbuffer_available(b) ;
+  if (len > max) len = max ; 
+  return cbuffer_WSEEK(b, len) ;
+}
diff --git a/src/libstddjb/cdb_findnext.c b/src/libstddjb/cdb_findnext.c
new file mode 100644
index 0000000..2559bc2
--- /dev/null
+++ b/src/libstddjb/cdb_findnext.c
@@ -0,0 +1,67 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/uint32.h>
+#include <skalibs/cdb.h>
+
+static int match (struct cdb *c, char const *key, unsigned int len, uint32 pos)
+{
+  char buf[1024] ;
+  while (len > 0)
+  {
+    register unsigned int n = 1024 ;
+    if (n > len) n = len ;
+    if (cdb_read(c, buf, n, pos) < 0) return -1 ;
+    if (byte_diff(buf, n, key)) return 0 ;
+    pos += n ; key += n ; len -= n ;
+  }
+  return 1 ;
+}
+
+int cdb_findnext (struct cdb *c, char const *key, unsigned int len)
+{
+  char buf[8] ;
+  uint32 pos ;
+  uint32 u ;
+
+  if (!c->loop)
+  {
+    u = cdb_hash(key, len) ;
+    if (cdb_read(c, buf, 8, (u << 3) & 2047) < 0) return -1 ;
+    uint32_unpack(buf + 4, &c->hslots) ;
+    if (!c->hslots) return 0 ;
+    uint32_unpack(buf, &c->hpos) ;
+    c->khash = u ;
+    u >>= 8 ;
+    u %= c->hslots ;
+    u <<= 3 ;
+    c->kpos = c->hpos + u ;
+  }
+
+  while (c->loop < c->hslots)
+  {
+    if (cdb_read(c, buf, 8, c->kpos) < 0) return -1 ;
+    uint32_unpack(buf + 4, &pos) ;
+    if (!pos) return 0 ;
+    c->loop++ ;
+    c->kpos += 8 ;
+    if (c->kpos == c->hpos + (c->hslots << 3)) c->kpos = c->hpos ;
+    uint32_unpack(buf, &u) ;
+    if (u == c->khash)
+    {
+      if (cdb_read(c, buf, 8, pos) < 0) return -1 ;
+      uint32_unpack(buf, &u) ;
+      if (u == len)
+	  switch (match(c, key, len, pos + 8))
+      {
+        case -1:
+          return -1 ;
+        case 1:
+          uint32_unpack(buf + 4, &c->dlen) ;
+          c->dpos = pos + 8 + len ;
+          return 1 ;
+      }
+    }
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/cdb_free.c b/src/libstddjb/cdb_free.c
new file mode 100644
index 0000000..dcf9675
--- /dev/null
+++ b/src/libstddjb/cdb_free.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/mman.h>
+#include <skalibs/cdb.h>
+
+extern void cdb_free (struct cdb *c)
+{
+  if (c->map) munmap(c->map, c->size) ;
+  *c = cdb_zero ;
+}
diff --git a/src/libstddjb/cdb_hash.c b/src/libstddjb/cdb_hash.c
new file mode 100644
index 0000000..9eedf54
--- /dev/null
+++ b/src/libstddjb/cdb_hash.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/cdb.h>
+
+uint32 cdb_hashadd (uint32 h, unsigned char c)
+{
+  h += (h << 5) ;
+  return h ^ c ;
+}
+
+uint32 cdb_hash (char const *buf, unsigned int len)
+{
+  uint32 h = CDB_HASHSTART ;
+  while (len--) h = cdb_hashadd(h, *buf++) ;
+  return h ;
+}
diff --git a/src/libstddjb/cdb_init_map.c b/src/libstddjb/cdb_init_map.c
new file mode 100644
index 0000000..bf8eb9d
--- /dev/null
+++ b/src/libstddjb/cdb_init_map.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/mman.h>
+#include <skalibs/cdb.h>
+
+int cdb_init_map (struct cdb *c, int fd, int domap)
+{
+  if (domap)
+  {
+    struct stat st ;
+    char *map ;
+    if (fstat(fd, &st) < 0) return 0 ;
+    map = mmap(0, st.st_size, PROT_READ, MAP_SHARED, fd, 0) ;
+    if (map == MAP_FAILED) return 0 ;
+    c->fd = -fd-2 ;
+    c->map = map ;
+    c->size = st.st_size ;
+  }
+  else c->fd = fd ;
+  return 1 ;
+}
diff --git a/src/libstddjb/cdb_make.c b/src/libstddjb/cdb_make.c
new file mode 100644
index 0000000..0ec3423
--- /dev/null
+++ b/src/libstddjb/cdb_make.c
@@ -0,0 +1,145 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/uint32.h>
+#include <skalibs/diuint32.h>
+#include <skalibs/genalloc.h>
+#include <skalibs/buffer.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/cdb.h>
+#include <skalibs/cdb_make.h>
+
+static void cdb_make_free (struct cdb_make *c)
+{
+  struct cdb_make zero = CDB_MAKE_ZERO ;
+  genalloc_free(diuint32, &c->hplist) ;
+  *c = zero ;
+}
+
+int cdb_make_start (struct cdb_make *c, int fd)
+{
+  c->hplist = genalloc_zero ;
+  c->fd = fd ;
+  c->pos = 2048 ;
+  buffer_init(&c->b, &buffer_write, fd, c->buf, BUFFER_OUTSIZE) ;
+  return seek_set(fd, c->pos) ;
+}
+
+static int posplus (struct cdb_make *c, uint32 len)
+{
+  register uint32 newpos = c->pos + len ;
+  if (newpos < len) return (errno = ENOMEM, 0) ;
+  c->pos = newpos ;
+  return 1 ;
+}
+
+static int cdb_make_addend (struct cdb_make *c, unsigned int keylen, unsigned int datalen, uint32 h)
+{
+  diuint32 blah = { h, c->pos } ;
+  if (!genalloc_append(diuint32, &c->hplist, &blah) || !posplus(c, 8) || !posplus(c, keylen) || !posplus(c, datalen))
+  {
+    cdb_make_free(c) ;
+    return -1 ;
+  }
+  return 0 ;
+}
+
+static int cdb_make_addbegin (struct cdb_make *c, unsigned int keylen, unsigned int datalen)
+{
+  char buf[8] ;
+  if ((keylen > 0xffffffff) || (datalen > 0xffffffff))
+  {
+    errno = ENOMEM ;
+    goto err ;
+  }
+  uint32_pack(buf, keylen) ;
+  uint32_pack(buf + 4, datalen) ;
+  if (buffer_put(&c->b, buf, 8) < 0) goto err ;
+  return 0 ;
+err:
+  cdb_make_free(c) ;
+  return -1 ;
+}
+
+int cdb_make_add (struct cdb_make *c, char const *key, unsigned int keylen, char const *data, unsigned int datalen)
+{
+  if ((cdb_make_addbegin(c, keylen, datalen) < 0)
+   || (buffer_put(&c->b, key, keylen) < 0)
+   || (buffer_put(&c->b, data, datalen) < 0)
+   || (cdb_make_addend(c, keylen, datalen, cdb_hash(key, keylen)) < 0))
+    return -1 ;
+  return 0 ;
+}
+
+int cdb_make_finish (struct cdb_make *c)
+{
+  uint32 count[256] ;
+  uint32 start[256] ;
+  char final[2048] ;
+  unsigned int size = 1 ;
+  unsigned int n = genalloc_len(diuint32, &c->hplist) ;
+  register unsigned int i = 0 ;
+  register diuint32 *hp = genalloc_s(diuint32, &c->hplist) ;
+
+  for ( ; i < 256 ; i++) count[i] = 0 ;
+  for (i = 0 ; i < n ; i++) ++count[hp[i].left & 255] ;
+
+  {
+    register uint32 u = 0 ;
+    for (i = 0 ; i < 256 ; i++) start[i] = u += count[i] ; /* bounded by n */
+    for (i = 0 ; i < 256 ; i++)
+    {
+      u = count[i] << 1 ;
+      if (u > size) size = u ;
+    }
+    size += n ; /* no overflow possible up to now */
+    u = 0xffffffffUL ; u /= sizeof(diuint32) ;
+    if (size > u) return (errno = ENOMEM, -1) ;
+  }
+  i = n ;
+  {
+    diuint32 split[size] ;
+    while (i--) split[--start[hp[i].left & 255]] = hp[i] ;
+    genalloc_free(diuint32, &c->hplist) ;
+    hp = split + n ;
+
+    for (i = 0 ; i < 256 ; ++i)
+    {
+      char buf[8] ;
+      register uint32 k = count[i] ;
+      register uint32 len = k << 1 ; /* no overflow possible */
+      register diuint32 *p = split + start[i] ;
+      register unsigned int j = 0 ;
+
+      uint32_pack(final + (i << 3), c->pos) ;
+      uint32_pack(final + (i << 3) + 4, len) ;
+
+      for ( ; j < len ; j++) hp[j].left = hp[j].right = 0 ;
+      for (j = 0 ; j < k ; j++)
+      {
+        register uint32 where = (p->left >> 8) % len ;
+        while (hp[where].right) if (++where == len) where = 0 ;
+        hp[where] = *p++ ;
+      }
+
+      for (j = 0 ; j < len ; j++)
+      {
+        uint32_pack(buf, hp[j].left) ;
+        uint32_pack(buf + 4, hp[j].right) ;
+        if (buffer_put(&c->b, buf, 8) < 0) goto err0 ;
+        if (!posplus(c, 8)) goto err0 ;
+      }
+    }
+  }
+
+  if (!buffer_flush(&c->b)) goto err0 ;
+  if (seek_begin(c->fd) == -1) goto err0 ;
+  if (buffer_putflush(&c->b, final, 2048) < 0) goto err0 ;
+  cdb_make_free(c) ;
+  return 0 ;
+
+err0:
+  cdb_make_free(c) ;
+  return -1 ;
+}
diff --git a/src/libstddjb/cdb_mapfile.c b/src/libstddjb/cdb_mapfile.c
new file mode 100644
index 0000000..f26ad3c
--- /dev/null
+++ b/src/libstddjb/cdb_mapfile.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/cdb.h>
+
+int cdb_mapfile (struct cdb *c, char const *file)
+{
+  int fd = open_readb(file) ;
+  if (fd < 0) return 0 ;
+  if (!cdb_init_map(c, fd, 1))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+    return 0 ;
+  }
+  fd_close(fd) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/cdb_nextkey.c b/src/libstddjb/cdb_nextkey.c
new file mode 100644
index 0000000..28925fe
--- /dev/null
+++ b/src/libstddjb/cdb_nextkey.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/cdb.h>
+
+int cdb_nextkey (struct cdb *c, uint32 *kpos)
+{
+  char buf[8] ;
+  uint32 eod, klen ;
+  if (cdb_read(c, buf, 4, 0) < 0) return -1 ;
+  uint32_unpack(buf, &eod) ;
+  if (eod < 8 || eod - 8 < *kpos) return 0 ;
+  c->kpos = *kpos + 8 ;
+  if (c->kpos < *kpos) return -1 ; /* wraparound */
+  cdb_findstart(c) ;
+  c->hslots = 1 ;
+  if (cdb_read(c, buf, 8, *kpos) < 0) return -1 ;
+  uint32_unpack(buf, &klen) ;
+  uint32_unpack(buf + 4, &c->dlen) ;
+  c->dpos = c->kpos + klen ;
+  *kpos += 8 + klen + c->dlen ;
+  return 1 ;
+}
diff --git a/src/libstddjb/cdb_read.c b/src/libstddjb/cdb_read.c
new file mode 100644
index 0000000..76fbd63
--- /dev/null
+++ b/src/libstddjb/cdb_read.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/error.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/uint32.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/cdb.h>
+
+int cdb_read (struct cdb *c, char *buf, unsigned int len, uint32 pos)
+{
+  if (c->map)
+  {
+    if ((pos > c->size) || (c->size - pos < len)) return (errno = EPROTO, -1) ;
+    byte_copy(buf, len, c->map + pos) ;
+  }
+  else
+  {
+    if (seek_set(c->fd, pos) < 0) return -1 ;
+    if (allread(c->fd, buf, len) < len) return -1 ;
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/cdb_successor.c b/src/libstddjb/cdb_successor.c
new file mode 100644
index 0000000..5660692
--- /dev/null
+++ b/src/libstddjb/cdb_successor.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/cdb.h>
+
+int cdb_successor (struct cdb *c, char const *key, unsigned int klen)
+{
+  uint32 kpos ;
+  if (key)
+  {
+    register int r = cdb_find(c, key, klen) ;
+    if (r < 1) return r ;
+    kpos = c->dpos + c->dlen ;
+  }
+  else cdb_traverse_init(c, &kpos) ;
+  return cdb_nextkey(c, &kpos) ;
+}
diff --git a/src/libstddjb/cdb_zero.c b/src/libstddjb/cdb_zero.c
new file mode 100644
index 0000000..ce70444
--- /dev/null
+++ b/src/libstddjb/cdb_zero.c
@@ -0,0 +1,5 @@
+/* ISC license. */
+
+#include <skalibs/cdb.h>
+
+struct cdb const cdb_zero = CDB_ZERO ;
diff --git a/src/libstddjb/child_spawn.c b/src/libstddjb/child_spawn.c
new file mode 100644
index 0000000..aa937fd
--- /dev/null
+++ b/src/libstddjb/child_spawn.c
@@ -0,0 +1,228 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/sysdeps.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <sys/wait.h>
+#include <unistd.h>
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/uint.h>
+#include <skalibs/webipc.h>
+
+#ifdef SKALIBS_HASPOSIXSPAWN
+
+#include <stdlib.h>
+#include <spawn.h>
+#include <skalibs/config.h>
+
+#else
+
+#include <skalibs/sig.h>
+#include <skalibs/strerr2.h>
+
+#endif
+
+#define NOFDVAR "SKALIBS_CHILD_SPAWN_FDS"
+
+
+ /*
+    If n = 0 : child's stdin and stdout are the same as the parent's
+    If n = 1 : Unix socket between parent and child.
+               Additional canals, if needed, may be fd-passed through it.
+    If n >= 2 : pipes between parent and child.
+                Parent reads on even ones, writes on odd ones.
+ */
+
+pid_t child_spawn (char const *prog, char const *const *argv, char const *const *envp, int *fds, unsigned int n)
+{
+#ifdef SKALIBS_HASPOSIXSPAWN
+  posix_spawn_file_actions_t actions ;
+  posix_spawnattr_t attr ;
+#endif
+  int p[n ? n : 1][2] ;
+  int syncpipe[2] ;
+  pid_t pid ;
+  int e ;
+  unsigned int m = sizeof(NOFDVAR) ;
+  unsigned int i ;
+  char modifs[m + 1 + n * UINT_FMT] ;
+  byte_copy(modifs, sizeof(NOFDVAR), NOFDVAR "=") ;
+  if (n == 1)
+  {
+    if (ipc_pair_b(p[0]) < 0) return 0 ;
+  }
+  else if (n >= 2)
+  {
+    for (i = 0 ; i < n ; i++) if (pipe(p[i]) < 0) { e = errno ; goto errp ; }
+  }
+  if (pipe(syncpipe) < 0) { e = errno ; goto errp ; }
+  if (coe(syncpipe[1]) < 0) { e = errno ; goto errsp ; }
+  for (i = 0 ; i < n ; i++)
+    if ((ndelay_on(p[i][i & 1]) < 0) || (coe(p[i][i & 1]) < 0))
+    {
+      e = errno ; goto errsp ;
+    }
+  for (i = 2 ; i < n ; i++)
+  {
+    m += uint_fmt(modifs + m, p[i][!(i & 1)]) ;
+    if (i+1 < n) modifs[m++] = ',' ;
+  }
+  modifs[m++] = 0 ;
+
+#ifdef SKALIBS_HASPOSIXSPAWN
+
+  e = posix_spawnattr_init(&attr) ;
+  if (e) goto errsp ;
+  {
+    sigset_t set ;
+    sigemptyset(&set) ;
+    e = posix_spawnattr_setsigmask(&attr, &set) ;
+  }
+  if (e) goto errattr ;
+  e = posix_spawn_file_actions_init(&actions) ;
+  if (e) goto errattr ;
+  e = posix_spawn_file_actions_addclose(&actions, syncpipe[0]) ;
+  if (e) goto erractions ;
+  switch (n)
+  {
+    case 0 :
+       break ;
+    case 1 :
+      e = posix_spawn_file_actions_adddup2(&actions, p[0][1], 1) ;
+      if (e) goto erractions ;
+      e = posix_spawn_file_actions_addclose(&actions, p[0][1]) ;
+      if (e) goto erractions ;
+      e = posix_spawn_file_actions_adddup2(&actions, 1, 0) ;
+      if (e) goto erractions ;
+      break ;
+    default : 
+      e = posix_spawn_file_actions_adddup2(&actions, p[1][0], 0) ;
+      if (e) goto erractions ;
+      e = posix_spawn_file_actions_addclose(&actions, p[1][0]) ;
+      if (e) goto erractions ;
+      e = posix_spawn_file_actions_adddup2(&actions, p[0][1], 1) ;
+      if (e) goto erractions ;
+      e = posix_spawn_file_actions_addclose(&actions, p[0][1]) ;
+      if (e) goto erractions ;
+      break ;
+  }
+  {
+    int haspath = !!env_get("PATH") ;
+    unsigned int envlen = env_len(envp) ;
+    char const *newenv[envlen + 2] ;
+    if (!env_merge(newenv, envlen+2, envp, envlen, modifs, m)) goto errsp ;
+    if (!haspath && (setenv("PATH", SKALIBS_DEFAULTPATH, 0) < 0))
+    {
+      e = errno ; goto erractions ;
+    }
+    e = posix_spawnp(&pid, prog, &actions, &attr, (char *const *)argv, (char *const *)newenv) ;
+    if (!haspath) unsetenv("PATH") ;
+    if (e) goto erractions ;
+  }
+
+  posix_spawn_file_actions_destroy(&actions) ;
+  posix_spawnattr_destroy(&attr) ;
+
+#else
+
+  pid = fork() ;
+  if (pid < 0) { e = errno ; goto errsp ; }
+  else if (!pid)
+  {
+    unsigned int len = str_len(PROG) ;
+    char name[len + 9] ;
+    byte_copy(name, len, PROG) ;
+    byte_copy(name + len, 9, " (child)") ;
+    PROG = name ;
+    fd_close(syncpipe[0]) ;
+    switch (n)
+    {
+      case 0 :
+      {
+        int fd = open2("/dev/null", O_RDONLY) ;
+        if (fd < 0) goto syncdie ;
+        if (fd_move(0, fd) < 0) goto syncdie ;
+        fd = open2("/dev/null", O_WRONLY) ;
+        if (fd < 0) goto syncdie ;
+        if (fd_move(1, fd) < 0) goto syncdie ;
+        break ;
+      }
+      case 1 :
+        if (fd_move(1, p[0][1]) < 0) goto syncdie ;
+        if (fd_copy(0, 1) < 0) goto syncdie ;
+        break ;
+      default :
+        if (fd_move2(0, p[1][0], 1, p[0][1]) < 0) goto syncdie ;
+        break ;
+    }
+    sig_blocknone() ;
+    pathexec_r_name(prog, argv, envp, env_len(envp), modifs, m) ;
+
+  syncdie:
+    {
+      char c = errno ;
+      fd_write(syncpipe[1], &c, 1) ;
+    }
+    _exit(127) ;
+  }
+
+#endif
+
+  fd_close(syncpipe[1]) ;
+  {
+    char c ;
+    syncpipe[1] = fd_read(syncpipe[0], &c, 1) ;
+    if (syncpipe[1])
+    {
+      if (syncpipe[1] < 0) e = errno ;
+      else
+      {
+        kill(pid, SIGKILL) ;
+        e = c ;
+      }
+      wait_pid(pid, &syncpipe[1]) ;
+      goto errsp0 ;
+    }
+  }
+  if (waitpid_nointr(pid, &e, WNOHANG))
+  {
+    e = WEXITSTATUS(e) == 127 ? EIO : 0 ;
+    goto errsp0 ;
+  }
+
+  fd_close(syncpipe[0]) ;
+  for (i = n ; i ; i--)
+  {
+    fd_close(p[i-1][i & 1]) ;
+    fds[i-1] = p[i-1][!(i & 1)] ;
+  }
+  return pid ;
+
+#ifdef SKALIBS_HASPOSIXSPAWN
+ erractions:
+  posix_spawn_file_actions_destroy(&actions) ;
+ errattr:
+  posix_spawnattr_destroy(&attr) ;
+#endif
+ errsp:
+  fd_close(syncpipe[1]) ;
+ errsp0:
+  fd_close(syncpipe[0]) ;
+  i = n ;
+ errp:
+  while (i--)
+  {
+    fd_close(p[i][1]) ;
+    fd_close(p[i][0]) ;
+  }
+  errno = e ;
+  return 0 ;
+}
diff --git a/src/libstddjb/child_spawn0.c b/src/libstddjb/child_spawn0.c
new file mode 100644
index 0000000..b96b2ef
--- /dev/null
+++ b/src/libstddjb/child_spawn0.c
@@ -0,0 +1,73 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <sys/types.h>
+#include <errno.h>
+
+#ifdef SKALIBS_HASPOSIXSPAWN
+
+#include <spawn.h>
+#include <stdlib.h>
+#include <skalibs/config.h>
+#include <skalibs/env.h>
+
+pid_t child_spawn0 (char const *prog, char const *const *argv, char const *const *envp)
+{
+  pid_t pid ;
+  int e ;
+  int haspath = !!env_get("PATH") ;
+  if (!haspath && (setenv("PATH", SKALIBS_DEFAULTPATH, 0) < 0)) return 0 ;
+  e = posix_spawnp(&pid, prog, 0, 0, (char *const *)argv, (char *const *)envp) ;
+  if (!haspath) unsetenv("PATH") ;
+  return e ? (errno = e, 0) : pid ;
+}
+
+#else
+
+#include <unistd.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/djbunix.h>
+
+pid_t child_spawn0 (char const *prog, char const *const *argv, char const *const *envp)
+{
+  int e ;
+  int p[2] ;
+  pid_t pid ;
+  if (pipecoe(p) < 0) return 0 ;
+  pid = fork() ;
+  if (pid < 0)
+  {
+    e = errno ;
+    fd_close(p[1]) ;
+    fd_close(p[0]) ;
+    errno = e ;
+    return 0 ;
+  }
+  if (pid)
+  {
+    fd_close(p[0]) ;
+    pathexec_run(prog, argv, envp) ;
+    e = errno ;
+    fd_write(p[1], (char *)&e, sizeof(e)) ;
+    _exit(127) ;
+  }
+  fd_close(p[1]) ;
+  p[1] = fd_read(p[0], (char *)&e, sizeof(e)) ;
+  if (p[1] < 0)
+  {
+    e = errno ;
+    fd_close(p[0]) ;
+    errno = e ;
+    return 0 ;
+  }
+  fd_close(p[0]) ;
+  if (p[1] == sizeof(e))
+  {
+    wait_pid(pid, &p[0]) ;
+    errno = e ;
+    return 0 ;
+  }
+  return pid ;
+}
+
+#endif
diff --git a/src/libstddjb/child_spawn1.c b/src/libstddjb/child_spawn1.c
new file mode 100644
index 0000000..bb51ab9
--- /dev/null
+++ b/src/libstddjb/child_spawn1.c
@@ -0,0 +1,115 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+#ifdef SKALIBS_HASPOSIXSPAWN
+
+#include <spawn.h>
+#include <stdlib.h>
+#include <skalibs/config.h>
+#include <skalibs/env.h>
+
+pid_t child_spawn1 (char const *prog, char const *const *argv, char const *const *envp, int *fd, int to)
+{
+  posix_spawn_file_actions_t actions ;
+  int e ;
+  int p[2] ;
+  pid_t pid ;
+  int haspath = !!env_get("PATH") ;
+  if (pipe(p) < 0) return 0 ;
+  to = !!to ;
+  e = posix_spawn_file_actions_init(&actions) ;
+  if (e) goto err ;
+  e = posix_spawn_file_actions_addclose(&actions, p[!to]) ;
+  if (e) goto erractions ;
+  e = posix_spawn_file_actions_adddup2(&actions, p[to], to) ;
+  if (e) goto erractions ;
+  if (!haspath && (setenv("PATH", SKALIBS_DEFAULTPATH, 0) < 0)) { e = errno ; goto erractions ; }
+  e = posix_spawnp(&pid, prog, &actions, 0, (char *const *)argv, (char *const *)envp) ;
+  if (!haspath) unsetenv("PATH") ;
+  posix_spawn_file_actions_destroy(&actions) ;
+  fd_close(p[to]) ;
+  if (e) goto errp ;
+  *fd = p[!to] ;
+  return pid ;
+
+ erractions:
+  posix_spawn_file_actions_destroy(&actions) ;
+ err:
+  fd_close(p[to]) ;
+ errp:
+  fd_close(p[!to]) ;
+  errno = e ;
+  return 0 ;
+}
+
+#else
+
+#include <skalibs/allreadwrite.h>
+
+pid_t child_spawn1 (char const *prog, char const *const *argv, char const *const *envp, int *fd, int to)
+{
+  int e ;
+  int syncp[2] ;
+  int p[2] ;
+  pid_t pid ;
+  if (pipe(p) < 0) return 0 ;
+  if (pipecoe(syncp) < 0)
+  {
+    e = errno ;
+    fd_close(p[1]) ;
+    fd_close(p[0]) ;
+    errno = e ;
+    return 0 ;
+  }
+  to = !!to ;
+  pid = fork() ;
+  if (pid < 0)
+  {
+    e = errno ;
+    fd_close(syncp[1]) ;
+    fd_close(syncp[0]) ;
+    fd_close(p[1]) ;
+    fd_close(p[0]) ;
+    errno = e ;
+    return 0 ;
+  }
+  if (pid)
+  {
+    fd_close(syncp[0]) ;
+    fd_close(p[!to]) ;
+    if (fd_move(to, p[to]) < 0) goto err ;
+    pathexec_run(prog, argv, envp) ;
+err:
+    e = errno ;
+    fd_write(syncp[1], (char *)&e, sizeof(e)) ;
+    _exit(127) ;
+  }
+  fd_close(syncp[1]) ;
+  fd_close(p[to]) ;
+  syncp[1] = fd_read(syncp[0], (char *)&e, sizeof(e)) ;
+  if (syncp[1] < 0)
+  {
+    e = errno ;
+    fd_close(syncp[0]) ;
+    fd_close(p[!to]) ;
+    errno = e ;
+    return 0 ;
+  }
+  fd_close(syncp[0]) ;
+  if (syncp[1] == sizeof(e))
+  {
+    fd_close(p[!to]) ;
+    wait_pid(pid, &syncp[1]) ;
+    errno = e ;
+    return 0 ;
+  }
+  *fd = p[!to] ;
+  return pid ;
+}
+
+#endif
diff --git a/src/libstddjb/coe.c b/src/libstddjb/coe.c
new file mode 100644
index 0000000..a12f9cb
--- /dev/null
+++ b/src/libstddjb/coe.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int coe (int fd)
+{
+   register int flags = fcntl(fd, F_GETFD, 0) ;
+   if (flags < 0) return -1 ;
+   return fcntl(fd, F_SETFD, flags | FD_CLOEXEC) ;
+}
diff --git a/src/libstddjb/deepsleepuntil.c b/src/libstddjb/deepsleepuntil.c
new file mode 100644
index 0000000..77ac080
--- /dev/null
+++ b/src/libstddjb/deepsleepuntil.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+
+void deepsleepuntil (tain_t const *deadline, tain_t *stamp)
+{
+  iopause_fd x ;
+  while (tain_less(stamp, deadline)) iopause_stamp(&x, 0, deadline, stamp) ;
+}
diff --git a/src/libstddjb/dir_close.c b/src/libstddjb/dir_close.c
new file mode 100644
index 0000000..0af6f0e
--- /dev/null
+++ b/src/libstddjb/dir_close.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/direntry.h>
+
+int dir_close (DIR *dir)
+{
+  register unsigned int done = 0 ;
+doit:
+  done++ ;
+  if (!closedir(dir)) return 0 ;
+  if (errno == EINTR) goto doit ;
+  return ((errno == EBADF) && (done > 1)) ? 0 : -1 ;
+}
diff --git a/src/libstddjb/dirname.c b/src/libstddjb/dirname.c
new file mode 100644
index 0000000..1def443
--- /dev/null
+++ b/src/libstddjb/dirname.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+char *dirname (char *s)
+{
+  static stralloc dirname_sa = STRALLOC_ZERO ;
+  static char dot0[2] = "." ;
+  char *dot = dot0 ;
+  if (!s) return dot ;
+  dirname_sa.len = 0 ;
+  if (!sadirname(&dirname_sa, s, str_len(s))) return 0 ;
+  if (!stralloc_0(&dirname_sa)) return 0 ;
+  return dirname_sa.s ;
+}
diff --git a/src/libstddjb/djbtime-internal.h b/src/libstddjb/djbtime-internal.h
new file mode 100644
index 0000000..26ffc81
--- /dev/null
+++ b/src/libstddjb/djbtime-internal.h
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#ifndef DJBTIME_INTERNAL_H
+#define DJBTIME_INTERNAL_H
+
+#include <skalibs/uint64.h>
+
+
+/* Leap second handling, for UTC <--> TAI conversions */
+
+#define LEAPSECS_MAX 39
+#define LEAPSECS_FILE SKALIBS_ETC "/leapsecs.dat"
+extern uint64 *leapsecs_here ;
+
+extern int leapsecs_init_r (char const *, uint64 *) ;
+#define leapsecs_init() leapsecs_init_r(LEAPSECS_FILE, leapsecs_here)
+extern int leapsecs_add_r (uint64 *, char const *, uint64 *, int) ;
+#define leapsecs_add(t, h) leapsecs_add_r(t, LEAPSECS_FILE, leapsecs_here, h)
+extern int leapsecs_sub_r (uint64 *, char const *, uint64 *) ;
+#define leapsecs_sub(t) leapsecs_sub_r((t), LEAPSECS_FILE, leapsecs_here)
+
+
+#endif
diff --git a/src/libstddjb/doublefork.c b/src/libstddjb/doublefork.c
new file mode 100644
index 0000000..5a1f7b1
--- /dev/null
+++ b/src/libstddjb/doublefork.c
@@ -0,0 +1,53 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/uint64.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/djbunix.h>
+
+pid_t doublefork ()
+{
+  char pack[8] ;
+  int fd[2] ;
+  pid_t child ;
+  if (pipe(fd) == -1) return -1 ;
+  child = fork() ;
+  switch (child)
+  {
+    case -1:
+    {
+      register int e = errno ;
+      fd_close(fd[1]) ;
+      fd_close(fd[0]) ;
+      errno = e ;
+      return -1 ;
+    }
+    case 0:
+    {
+      pid_t pid ;
+      fd_close(fd[0]) ;
+      pid = fork() ;
+      switch (pid)
+      {
+        case -1: _exit(errno) ;
+        case 0: fd_close(fd[1]) ; return 0 ;
+      }
+      uint64_pack_big(pack, (uint64)pid) ;
+      _exit((allwrite(fd[1], pack, 8) < 8) ? errno : 0) ;
+    }
+  }
+  fd_close(fd[1]) ;
+  {
+    uint64 grandchild = 0 ;
+    int wstat ;
+    if (allread(fd[0], pack, 8) < 8) grandchild = 1 ;
+    fd_close(fd[0]) ;
+    wait_pid(child, &wstat) ;
+    if (grandchild) return (errno = WIFSIGNALED(wstat) ? EINTR : WEXITSTATUS(wstat), -1) ;
+    uint64_unpack_big(pack, &grandchild) ;
+    return (pid_t)grandchild ;
+  }
+}
diff --git a/src/libstddjb/env_addmodif.c b/src/libstddjb/env_addmodif.c
new file mode 100644
index 0000000..4c34479
--- /dev/null
+++ b/src/libstddjb/env_addmodif.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/env.h>
+
+int env_addmodif (stralloc *sa, char const *s, char const *t)
+{
+  unsigned int oldlen = sa->len ;
+  if (!s) return 1 ;
+  if (!stralloc_cats(sa, s)) return 0 ;
+  if ((t && (!stralloc_catb(sa, "=", 1) || !stralloc_cats(sa, t)))
+   || !stralloc_0(sa))
+  {
+    sa->len = oldlen ;
+    return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/env_get.c b/src/libstddjb/env_get.c
new file mode 100644
index 0000000..927955f
--- /dev/null
+++ b/src/libstddjb/env_get.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/env.h>
+#include <skalibs/environ.h>
+
+char const *env_get (char const *s)
+{
+  return env_get2((char const **)environ, s) ;
+}
diff --git a/src/libstddjb/env_get2.c b/src/libstddjb/env_get2.c
new file mode 100644
index 0000000..612cf6a
--- /dev/null
+++ b/src/libstddjb/env_get2.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+
+char const *env_get2 (char const *const *envp, char const *s)
+{
+  unsigned int i ;
+  unsigned int len ;
+
+  if (!s) return 0 ;
+  len = str_len(s) ;
+  for (i = 0 ; envp[i] ; ++i)
+    if (str_start(envp[i], s)
+     && (envp[i][len] == '='))
+      return envp[i] + len + 1 ;
+  return 0 ;
+}
diff --git a/src/libstddjb/env_len.c b/src/libstddjb/env_len.c
new file mode 100644
index 0000000..7e0bea8
--- /dev/null
+++ b/src/libstddjb/env_len.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/env.h>
+
+unsigned int env_len (register char const *const *e)
+{
+  register unsigned int i = 0 ;
+  while (*e++) i++ ;
+  return i ;
+}
diff --git a/src/libstddjb/env_make.c b/src/libstddjb/env_make.c
new file mode 100644
index 0000000..dd5139f
--- /dev/null
+++ b/src/libstddjb/env_make.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+
+int env_make (char const **v, unsigned int argc, char const *s, unsigned int len)
+{
+  while (argc--)
+  {
+    register unsigned int n = str_len(s) + 1 ;
+    if (n > len) return (errno = EINVAL, 0) ;
+    *v++ = s ; s += n ; len -= n ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/env_merge.c b/src/libstddjb/env_merge.c
new file mode 100644
index 0000000..2a0e5bd
--- /dev/null
+++ b/src/libstddjb/env_merge.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+
+unsigned int env_merge (char const **v, unsigned int vmax, char const *const *envp, unsigned int envlen, char const *modifs, unsigned int modiflen)
+{
+  unsigned int n = byte_count(modifs, modiflen, '\0') ;
+  unsigned int vlen = envlen ;
+  register unsigned int i = 0 ;
+  if (envlen + n + 1 > vmax) return (errno = ENAMETOOLONG, 0) ;
+  for (; i < envlen ; i++) v[i] = envp[i] ;
+  for (i = 0 ; i < modiflen ; i += str_len(modifs + i) + 1)
+  {
+    unsigned int split = str_chr(modifs + i, '=') ;
+    register unsigned int j = 0 ;
+    for (; j < vlen ; j++)
+      if (!byte_diff(modifs + i, split, v[j]) && (v[j][split] == '=')) break ;
+    if (j < vlen) v[j] = v[--vlen] ;
+    if (modifs[i + split]) v[vlen++] = modifs + i ;
+  }
+  v[vlen++] = 0 ;
+  return vlen ;
+}
diff --git a/src/libstddjb/env_string.c b/src/libstddjb/env_string.c
new file mode 100644
index 0000000..7f97859
--- /dev/null
+++ b/src/libstddjb/env_string.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/env.h>
+
+int env_string (stralloc *sa, char const *const *envp, unsigned int envlen)
+{
+  unsigned int salen = sa->len ;
+  register unsigned int i = 0 ;
+  for (; i < envlen ; i++)
+  {
+    if (!stralloc_cats(sa, envp[i]) || !stralloc_0(sa))
+    {
+      sa->len = salen ;
+      return 0 ;
+    }
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/envalloc_0.c b/src/libstddjb/envalloc_0.c
new file mode 100644
index 0000000..114f69e
--- /dev/null
+++ b/src/libstddjb/envalloc_0.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/genalloc.h>
+#include <skalibs/envalloc.h>
+
+int envalloc_0 (genalloc *v)
+{
+  char const *z = 0 ;
+  return genalloc_append(char const *, v, &z) ;
+}
diff --git a/src/libstddjb/envalloc_make.c b/src/libstddjb/envalloc_make.c
new file mode 100644
index 0000000..1cc44b9
--- /dev/null
+++ b/src/libstddjb/envalloc_make.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/env.h>
+#include <skalibs/genalloc.h>
+#include <skalibs/envalloc.h>
+
+int envalloc_make (genalloc *v, unsigned int argc, char const *s, unsigned int len)
+{
+  int wasnull = !v->s ;
+  if (!genalloc_readyplus(char const *, v, argc+1)) return 0 ;
+  if (!env_make(genalloc_s(char const *, v) + genalloc_len(char const *, v), argc, s, len))
+  {
+    if (wasnull) genalloc_free(char const *, v) ;
+    return 0 ;
+  }
+  genalloc_setlen(char const *, v, genalloc_len(char const *, v) + argc) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/envalloc_merge.c b/src/libstddjb/envalloc_merge.c
new file mode 100644
index 0000000..9134b84
--- /dev/null
+++ b/src/libstddjb/envalloc_merge.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+#include <skalibs/genalloc.h>
+#include <skalibs/envalloc.h>
+
+int envalloc_merge (genalloc *v, char const *const *envp, unsigned int envlen, char const *modifs, unsigned int modiflen)
+{
+  unsigned int n = envlen + 1 + byte_count(modifs, modiflen, '\0') ;
+  if (!genalloc_readyplus(char const *, v, n)) return 0 ;
+  n = env_merge(genalloc_s(char const *, v) + genalloc_len(char const *, v), n, envp, envlen, modifs, modiflen) ;
+  genalloc_setlen(char const *, v, genalloc_len(char const *, v) + n) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/envalloc_uniq.c b/src/libstddjb/envalloc_uniq.c
new file mode 100644
index 0000000..181128a
--- /dev/null
+++ b/src/libstddjb/envalloc_uniq.c
@@ -0,0 +1,31 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/genalloc.h>
+#include <skalibs/envalloc.h>
+
+int envalloc_uniq (genalloc *v, char delim)
+{
+  unsigned int m = 0 ;
+  register unsigned int i = 0 ;
+  for (; i < genalloc_len(char const *, v) ; i++)
+  {
+    register unsigned int j = i+1 ;
+    char const *s = genalloc_s(char const *, v)[i] ;
+    unsigned int n = str_chr(s, delim) ;
+    if (delim && !s[n]) return (errno = EINVAL, -1) ;
+    for (; j < genalloc_len(char const *, v) ; j++)
+    {
+      register char const **p = genalloc_s(char const *, v) ;
+      if (!str_diffn(s, p[j], n))
+      {
+        register unsigned int len = genalloc_len(char const *, v) - 1 ;
+        genalloc_setlen(char const *, v, len) ;
+        p[j] = p[len] ;
+        m++ ;
+      }
+    }
+  }
+  return (int)m ;
+}
diff --git a/src/libstddjb/envdir.c b/src/libstddjb/envdir.c
new file mode 100644
index 0000000..7866c7a
--- /dev/null
+++ b/src/libstddjb/envdir.c
@@ -0,0 +1,84 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+#include <skalibs/direntry.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+#define MAXVARSIZE 4095
+
+int envdir_internal (char const *path, stralloc *modifs, unsigned int options, char nullis)
+{
+  char buf[MAXVARSIZE + 1] ;
+  unsigned int n = 0 ;
+  unsigned int pathlen = str_len(path) ;
+  unsigned int modifbase = modifs->len ;
+  int wasnull = !modifs->s ;
+  DIR *dir ;
+  if (!nullis) return (errno = EINVAL, -1) ;
+  dir = opendir(path) ;
+  if (!dir) return -1 ;
+  for (;;)
+  {
+    direntry *d ;
+    unsigned int len ;
+    register int r ;
+    errno = 0 ;
+    d = readdir(dir) ;
+    if (!d) break ;
+    if (d->d_name[0] == '.') continue ;
+    len = str_len(d->d_name) ;
+    if (str_chr(d->d_name, '=') < len) continue ;
+    {
+      char tmp[pathlen + len + 2] ;
+      byte_copy(tmp, pathlen, path) ;
+      tmp[pathlen] = '/' ;
+      byte_copy(tmp + pathlen + 1, len + 1, d->d_name) ;
+      r = openreadnclose(tmp, buf, MAXVARSIZE) ;
+    }
+    if (r < 0)
+    {
+      if (errno == ENOENT) errno = EIDRM ;
+      goto err ;
+    }
+    else if (r > 0)
+    {
+      if (options & SKALIBS_ENVDIR_VERBATIM)
+      {
+        if (!(options & SKALIBS_ENVDIR_NOCHOMP) && (buf[r-1] == '\n')) r-- ;
+      }
+      else
+      {
+        r = byte_chr(buf, r, '\n') ;
+        if (!(options & SKALIBS_ENVDIR_NOCHOMP))
+        {
+          while (r--) if ((buf[r] != ' ') && (buf[r] != '\t') && (buf[r] != '\r')) break ;
+          r++ ;
+        }
+      }
+      {
+        register unsigned int i = 0 ;
+        for (; i < (unsigned int)r ; i++) if (!buf[i]) buf[i] = nullis ;
+      }
+      buf[r++] = 0 ;
+      if (!env_addmodif(modifs, d->d_name, buf)) goto err ;
+    }
+    else if (!env_addmodif(modifs, d->d_name, 0)) goto err ;
+    n++ ;
+  }
+  if (errno) goto err ;
+  dir_close(dir) ;
+  return n ;
+
+ err:
+  {
+    register int e = errno ;
+    dir_close(dir) ;
+    if (wasnull) stralloc_free(modifs) ; else modifs->len = modifbase ;
+    errno = e ;
+    return -1 ;
+  }
+}
diff --git a/src/libstddjb/error_str.c b/src/libstddjb/error_str.c
new file mode 100644
index 0000000..6aca43f
--- /dev/null
+++ b/src/libstddjb/error_str.c
@@ -0,0 +1,277 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/error.h>
+
+#ifndef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <string.h>
+
+char const *error_str (register int i)
+{
+  return (char const *)strerror(i) ;
+}
+
+#else
+
+#include <errno.h>
+
+#define X(e, s) case e : return s ;
+#define Y(e, s) if (i == e) return s ;
+
+char const *error_str (register int i)
+{
+    Y(EWOULDBLOCK, "input/output would block")
+    Y(EAGAIN, "temporary failure")
+    Y(EINVAL, "invalid argument")
+
+  switch (i)
+  {
+    X(0, "no error")
+    X(EINTR, "interrupted system call")
+    X(ENOMEM, "out of memory")
+    X(ENOENT, "file does not exist")
+    X(ETXTBSY, "text busy")
+    X(EIO, "input/output error")
+    X(EEXIST, "file already exists")
+    X(ETIMEDOUT, "timed out")
+    X(EINPROGRESS, "operation in progress")
+    X(EPIPE, "broken pipe")
+    X(EPERM, "permission denied")
+    X(EACCES, "access denied")
+    X(ENODEV, "device not configured")
+    X(EPROTO, "protocol error")
+    X(EISDIR, "is a directory")
+    X(ECONNREFUSED, "connection refused")
+    X(ENOTDIR, "not a directory")
+    X(ENOTSOCK, "not a socket")
+    X(EDOM, "input out of range")
+    X(ENOBUFS, "out of buffer space")
+
+#ifdef ESRCH
+    X(ESRCH, "no such process")
+#endif
+#ifdef E2BIG
+    X(E2BIG, "argument list too long")
+#endif
+#ifdef ENOEXEC
+    X(ENOEXEC, "exec format error")
+#endif
+#ifdef EBADF
+    X(EBADF, "file descriptor not open")
+#endif
+#ifdef ECHILD
+    X(ECHILD, "no child processes")
+#endif
+#ifdef EDEADLK
+    X(EDEADLK, "operation would cause deadlock")
+#endif
+#ifdef EFAULT
+    X(EFAULT, "bad address")
+#endif
+#ifdef ENOTBLK
+    X(ENOTBLK, "not a block device")
+#endif
+#ifdef EBUSY
+    X(EBUSY, "device busy")
+#endif
+#ifdef EXDEV
+    X(EXDEV, "cross-device link")
+#endif
+#ifdef ENFILE
+    X(ENFILE, "system cannot open more files")
+#endif
+#ifdef EMFILE
+    X(EMFILE, "process cannot open more files")
+#endif
+#ifdef ENOTTY
+    X(ENOTTY, "not a tty")
+#endif
+#ifdef EFBIG
+    X(EFBIG, "file too big")
+#endif
+#ifdef ENOSPC
+    X(ENOSPC, "out of disk space")
+#endif
+#ifdef ESPIPE
+    X(ESPIPE, "unseekable descriptor")
+#endif
+#ifdef EROFS
+    X(EROFS, "read-only file system")
+#endif
+#ifdef EMLINK
+    X(EMLINK, "too many links")
+#endif
+#ifdef ERANGE
+    X(ERANGE, "output out of range")
+#endif
+#ifdef EALREADY
+    X(EALREADY, "operation already in progress")
+#endif
+#ifdef EDESTADDRREQ
+    X(EDESTADDRREQ, "destination address required")
+#endif
+#ifdef EMSGSIZE
+    X(EMSGSIZE, "message too long")
+#endif
+#ifdef EPROTOTYPE
+    X(EPROTOTYPE, "incorrect protocol type")
+#endif
+#ifdef ENOPROTOOPT
+    X(ENOPROTOOPT, "protocol not available")
+#endif
+#ifdef EPROTONOSUPPORT
+    X(EPROTONOSUPPORT, "protocol not supported")
+#endif
+#ifdef ESOCKTNOSUPPORT
+    X(ESOCKTNOSUPPORT, "socket type not supported")
+#endif
+#ifdef EOPNOTSUPP
+    X(EOPNOTSUPP, "operation not supported")
+#endif
+#ifdef EPFNOSUPPORT
+    X(EPFNOSUPPORT, "protocol family not supported")
+#endif
+#ifdef EAFNOSUPPORT
+    X(EAFNOSUPPORT, "address family not supported")
+#endif
+#ifdef EADDRINUSE
+    X(EADDRINUSE, "address already used")
+#endif
+#ifdef EADDRNOTAVAIL
+    X(EADDRNOTAVAIL, "address not available")
+#endif
+#ifdef ENETDOWN
+    X(ENETDOWN, "network down")
+#endif
+#ifdef ENETUNREACH
+    X(ENETUNREACH, "network unreachable")
+#endif
+#ifdef ENETRESET
+    X(ENETRESET, "network reset")
+#endif
+#ifdef ECONNABORTED
+    X(ECONNABORTED, "connection aborted")
+#endif
+#ifdef ECONNRESET
+    X(ECONNRESET, "connection reset")
+#endif
+#ifdef EISCONN
+    X(EISCONN, "already connected")
+#endif
+#ifdef ENOTCONN
+    X(ENOTCONN, "not connected")
+#endif
+#ifdef ESHUTDOWN
+    X(ESHUTDOWN, "socket shut down")
+#endif
+#ifdef ETOOMANYREFS
+    X(ETOOMANYREFS, "too many references")
+#endif
+#ifdef ELOOP
+    X(ELOOP, "symbolic link loop")
+#endif
+#ifdef ENAMETOOLONG
+    X(ENAMETOOLONG, "file name too long")
+#endif
+#ifdef EHOSTDOWN
+    X(EHOSTDOWN, "host down")
+#endif
+#ifdef EHOSTUNREACH
+    X(EHOSTUNREACH, "host unreachable")
+#endif
+#ifdef ENOTEMPTY
+    X(ENOTEMPTY, "directory not empty")
+#endif
+#ifdef EPROCLIM
+    X(EPROCLIM, "too many processes")
+#endif
+#ifdef EUSERS
+    X(EUSERS, "too many users")
+#endif
+#ifdef EDQUOT
+    X(EDQUOT, "disk quota exceeded")
+#endif
+#ifdef ESTALE
+    X(ESTALE, "stale NFS file handle")
+#endif
+#ifdef EREMOTE
+    X(EREMOTE, "too many levels of remote in path")
+#endif
+#ifdef EBADRPC
+    X(EBADRPC, "RPC structure is bad")
+#endif
+#ifdef ERPCMISMATCH
+    X(ERPCMISMATCH, "RPC version mismatch")
+#endif
+#ifdef EPROGUNAVAIL
+    X(EPROGUNAVAIL, "RPC program unavailable")
+#endif
+#ifdef EPROGMISMATCH
+    X(EPROGMISMATCH, "program version mismatch")
+#endif
+#ifdef EPROCUNAVAIL
+    X(EPROCUNAVAIL, "bad procedure for program")
+#endif
+#ifdef ENOLCK
+    X(ENOLCK, "no locks available")
+#endif
+#ifdef ENOSYS
+    X(ENOSYS, "system call not available")
+#endif
+#ifdef EFTYPE
+    X(EFTYPE, "bad file type")
+#endif
+#ifdef EAUTH
+    X(EAUTH, "authentication error")
+#endif
+#ifdef ENEEDAUTH
+    X(ENEEDAUTH, "not authenticated")
+#endif
+#ifdef ENOSTR
+    X(ENOSTR, "not a stream device")
+#endif
+#ifdef ETIME
+    X(ETIME, "timer expired")
+#endif
+#ifdef ENOSR
+    X(ENOSR, "out of stream resources")
+#endif
+#ifdef ENOMSG
+    X(ENOMSG, "no message of desired type")
+#endif
+#ifdef EBADMSG
+    X(EBADMSG, "bad message type")
+#endif
+#ifdef EIDRM
+    X(EIDRM, "identifier removed")
+#endif
+#ifdef ENONET
+    X(ENONET, "machine not on network")
+#endif
+#ifdef ERREMOTE
+    X(ERREMOTE, "object not local")
+#endif
+#ifdef ENOLINK
+    X(ENOLINK, "link severed")
+#endif
+#ifdef EADV
+    X(EADV, "advertise error")
+#endif
+#ifdef ESRMNT
+    X(ESRMNT, "srmount error")
+#endif
+#ifdef ECOMM
+    X(ECOMM, "communication error")
+#endif
+#ifdef EMULTIHOP
+    X(EMULTIHOP, "multihop attempted")
+#endif
+#ifdef EREMCHG
+    X(EREMCHG, "remote address changed")
+#endif
+    default : return "unknown error" ;
+  }
+}
+
+#endif
diff --git a/src/libstddjb/error_temp.c b/src/libstddjb/error_temp.c
new file mode 100644
index 0000000..48a54f5
--- /dev/null
+++ b/src/libstddjb/error_temp.c
@@ -0,0 +1,78 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/error.h>
+
+int error_temp (register int e)
+{
+  if (error_isagain(e)) return 1 ;
+  switch (e)
+  {
+    case 0 :
+    case EINTR :
+    case ENOMEM :
+    case ETXTBSY :
+    case EIO :
+    case ETIMEDOUT :
+    case ENOBUFS :
+#ifdef EDEADLK
+    case EDEADLK :
+#endif
+#ifdef EBUSY
+    case EBUSY :
+#endif
+#ifdef ENFILE
+    case ENFILE :
+#endif
+#ifdef EFBIG
+    case EFBIG :
+#endif
+#ifdef ENOSPC
+    case ENOSPC :
+#endif
+#ifdef ENETDOWN
+    case ENETDOWN :
+#endif
+#ifdef ENETUNREACH
+    case ENETUNREACH :
+#endif
+#ifdef ENETRESET
+    case ENETRESET :
+#endif
+#ifdef ECONNABORTED
+    case ECONNABORTED :
+#endif
+#ifdef ECONNRESET
+    case ECONNRESET :
+#endif
+#ifdef ETOOMANYREFS
+    case ETOOMANYREFS :
+#endif
+#ifdef ECONNREFUSED
+    case ECONNREFUSED :
+#endif
+#ifdef EHOSTDOWN
+    case EHOSTDOWN :
+#endif
+#ifdef EHOSTUNREACH
+    case EHOSTUNREACH :
+#endif
+#ifdef EPROCLIM
+    case EPROCLIM :
+#endif
+#ifdef EUSERS
+    case EUSERS :
+#endif
+#ifdef EDQUOT
+    case EDQUOT :
+#endif
+#ifdef ESTALE
+    case ESTALE :
+#endif
+#ifdef ENOLCK
+    case ENOLCK :
+#endif
+      return 1 ;
+    default : return 0 ;
+  }
+}
diff --git a/src/libstddjb/execvep.c b/src/libstddjb/execvep.c
new file mode 100644
index 0000000..1639236
--- /dev/null
+++ b/src/libstddjb/execvep.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+
+void execvep (char const *file, char const *const *argv, char const *const *envp, char const *path)
+{
+  if (!path) errno = EINVAL ;
+  else if (file[str_chr(file, '/')])
+    execve(file, (char *const *)argv, (char *const *)envp) ; /* execve prototype sucks */
+  else
+  {
+    unsigned int pathlen = str_len(path) + 1 ;
+    unsigned int filelen = str_len(file) ;
+    int savederrno = 0 ;
+    while (pathlen)
+    {
+      unsigned int split = byte_chr(path, pathlen - 1, ':') ;
+      if (split)
+      {
+        char tmp[split + 2 + filelen] ;
+        byte_copy(tmp, split, path) ;
+        tmp[split] = '/' ;
+        byte_copy(tmp + split + 1, filelen + 1, file) ;
+        execve(tmp, (char *const *)argv, (char *const *)envp) ;
+        if (errno != ENOENT)
+        {
+          savederrno = errno ;
+          if ((errno != EACCES) && (errno != EPERM) && (errno != EISDIR)) break ;
+        }
+      }
+      path += split+1 ; pathlen -= split+1 ;
+    }
+    if (savederrno) errno = savederrno ;
+  }
+}
diff --git a/src/libstddjb/fd_cat.c b/src/libstddjb/fd_cat.c
new file mode 100644
index 0000000..5682f02
--- /dev/null
+++ b/src/libstddjb/fd_cat.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/iobuffer.h>
+#include <skalibs/djbunix.h>
+
+int fd_cat (int from, int to)
+{
+  iobuffer b ;
+  unsigned int n = 0 ;
+  if (!iobuffer_init(&b, from, to)) return -1 ;
+  for (;;)
+  {
+    register int r = iobuffer_fill(&b) ;
+    if (r < 0) goto err ;
+    else if (!r) break ;
+    if (!iobuffer_flush(&b)) goto err ;
+    n += r ;
+  }
+  iobuffer_finish(&b) ;
+  return n ;
+
+ err:
+  iobuffer_finish(&b) ;
+  return -1 ;
+}
diff --git a/src/libstddjb/fd_catn.c b/src/libstddjb/fd_catn.c
new file mode 100644
index 0000000..ca78546
--- /dev/null
+++ b/src/libstddjb/fd_catn.c
@@ -0,0 +1,42 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/iobuffer.h>
+#include <skalibs/djbunix.h>
+
+unsigned int fd_catn (int from, int to, unsigned int n)
+{
+  unsigned int w = 0 ;
+  if (n >= IOBUFFER_SIZE)
+  {
+    iobuffer b ;
+    if (!iobuffer_init(&b, from, to)) return 0 ;
+    while (n >= IOBUFFER_SIZE)
+    {
+      register int r = iobuffer_fill(&b) ;
+      if (r <= 0)
+      {
+        iobuffer_finish(&b) ;
+        if (!r) errno = EPIPE ;
+        return w ;
+      }
+      if (!iobuffer_flush(&b))
+      {
+        iobuffer_finish(&b) ;
+        return w ;
+      }
+      n -= r ; w += r ;
+    }
+    iobuffer_finish(&b) ;
+  }
+
+  {
+    char buf[n] ;
+    unsigned int r = allread(from, buf, n) ;
+    unsigned int v = 0 ;
+    if (r) v = allwrite(to, buf, r) ;
+    w += v ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/fd_chdir.c b/src/libstddjb/fd_chdir.c
new file mode 100644
index 0000000..e09656e
--- /dev/null
+++ b/src/libstddjb/fd_chdir.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_chdir (int d)
+{
+  register int r ;
+  do
+    r = fchdir(d) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_chmod.c b/src/libstddjb/fd_chmod.c
new file mode 100644
index 0000000..a70c537
--- /dev/null
+++ b/src/libstddjb/fd_chmod.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+ /* OpenBSD manages to bork the fchmod declaration */
+#include <skalibs/nonposix.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_chmod (int fd, unsigned int mode)
+{
+  register int r ;
+  do
+    r = fchmod(fd, (mode_t)mode) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_chown.c b/src/libstddjb/fd_chown.c
new file mode 100644
index 0000000..8aa36c8
--- /dev/null
+++ b/src/libstddjb/fd_chown.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_chown (int fd, unsigned int uid, unsigned int gid)
+{
+  register int r ;
+  do
+    r = fchown(fd, (uid_t)uid, (gid_t)gid) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_close.c b/src/libstddjb/fd_close.c
new file mode 100644
index 0000000..8b107f6
--- /dev/null
+++ b/src/libstddjb/fd_close.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_close (int fd)
+{
+  register unsigned int i = 0 ;
+doit:
+  if (!close(fd)) return 0 ;
+  i++ ;
+  if (errno == EINTR) goto doit ;
+  return ((errno == EBADF) && (i > 1)) ? 0 : -1 ;
+}
diff --git a/src/libstddjb/fd_copy.c b/src/libstddjb/fd_copy.c
new file mode 100644
index 0000000..b051eaf
--- /dev/null
+++ b/src/libstddjb/fd_copy.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_copy (int to, int from)
+{
+  register int r ;
+  if (to == from) return (errno = EINVAL, -1) ;
+  do
+    r = dup2(from, to) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_copy2.c b/src/libstddjb/fd_copy2.c
new file mode 100644
index 0000000..5537329
--- /dev/null
+++ b/src/libstddjb/fd_copy2.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_copy2 (int to1, int from1, int to2, int from2)
+{
+  if ((to1 == from2) || (to2 == from1)) return (errno = EINVAL, -1) ;
+  if (fd_copy(to1, from1) == -1) return -1 ;
+  if (fd_copy(to2, from2) == -1)
+  {
+    if (to1 != from1) fd_close(to1) ;
+    return -1 ;
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/fd_ensure_open.c b/src/libstddjb/fd_ensure_open.c
new file mode 100644
index 0000000..b399af2
--- /dev/null
+++ b/src/libstddjb/fd_ensure_open.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int fd_ensure_open (int fd, int w)
+{
+  int dummy ;
+  if (fcntl(fd, F_GETFD, &dummy) < 0)
+  {
+    int newfd ;
+    if (errno != EBADF) return 0 ;
+    newfd = open2("/dev/null", w ? O_WRONLY : O_RDONLY) ;
+    if (newfd < 0) return 0 ;
+    if (fd_move(fd, newfd) < 0)
+    {
+      register int e = errno ;
+      fd_close(newfd) ;
+      errno = e ;
+      return 0 ;
+    }
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/fd_move.c b/src/libstddjb/fd_move.c
new file mode 100644
index 0000000..d79f8ac
--- /dev/null
+++ b/src/libstddjb/fd_move.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_move (int to, int from)
+{
+  register int r ;
+  if (to == from) return 0 ;
+  do
+    r = dup2(from, to) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return (r == -1) ? -1 : fd_close(from) ;
+}
diff --git a/src/libstddjb/fd_move2.c b/src/libstddjb/fd_move2.c
new file mode 100644
index 0000000..7894e2f
--- /dev/null
+++ b/src/libstddjb/fd_move2.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_move2 (int to1, int from1, int to2, int from2)
+{
+  register int tmp = from2 ;
+  if (to1 == from1) return fd_move(to2, from2) ;
+  if (to2 == from2) return fd_move(to1, from1) ;
+  if (from1 == from2) return (to1 == to2) ? fd_move(to1, from1) : (errno = EINVAL, -1) ;
+  if (to1 == to2) return (errno = EINVAL, -1) ;
+  if (from2 == to1)
+  {
+    tmp = dup(from2) ;
+    if (tmp == -1) return -1 ;
+  }
+  if (fd_copy(to1, from1) == -1)
+  {
+    register int e = errno ;
+    if (from2 != tmp) fd_close(tmp) ;
+    errno = e ;
+    return -1 ;
+  }
+  if (fd_copy(to2, tmp) == -1)
+  {
+    register int e = errno ;
+    fd_close(to1) ;
+    if (from2 != tmp) fd_move(from2, tmp) ;
+    errno = e ;
+    return -1 ;
+  }
+  if (from1 != to2) fd_close(from1) ;
+  fd_close(tmp) ;
+  return 0 ;
+}
diff --git a/src/libstddjb/fd_read.c b/src/libstddjb/fd_read.c
new file mode 100644
index 0000000..22a296b
--- /dev/null
+++ b/src/libstddjb/fd_read.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_read (int fd, char *buf, unsigned int len)
+{
+  register int r ;
+  do r = read(fd, buf, len) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_readv.c b/src/libstddjb/fd_readv.c
new file mode 100644
index 0000000..c97d7ab
--- /dev/null
+++ b/src/libstddjb/fd_readv.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_readv (int fd, struct iovec const *v, unsigned int vlen)
+{
+  register int r ;
+  do r = readv(fd, v, vlen) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_recv.c b/src/libstddjb/fd_recv.c
new file mode 100644
index 0000000..592dc8e
--- /dev/null
+++ b/src/libstddjb/fd_recv.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_recv (int fd, char *buf, unsigned int len, unsigned int flags)
+{
+  register int r ;
+  do r = recv(fd, buf, len, (int)flags) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_select.c b/src/libstddjb/fd_select.c
new file mode 100644
index 0000000..846485d
--- /dev/null
+++ b/src/libstddjb/fd_select.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <sys/select.h>
+
+int fd_select (int n, fd_set *rfds, fd_set *wfds, fd_set *xfds, struct timeval *tv)
+{
+  register int r ;
+  do
+    r = select(n, rfds, wfds, xfds, tv) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_send.c b/src/libstddjb/fd_send.c
new file mode 100644
index 0000000..cdc3dd2
--- /dev/null
+++ b/src/libstddjb/fd_send.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_send (int fd, char const *buf, unsigned int len, unsigned int flags)
+{
+  register int r ;
+  do r = send(fd, buf, len, (int)flags) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_sync.c b/src/libstddjb/fd_sync.c
new file mode 100644
index 0000000..db54136
--- /dev/null
+++ b/src/libstddjb/fd_sync.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int fd_sync (int fd)
+{
+  register int r ;
+  do
+    r = fsync(fd) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_write.c b/src/libstddjb/fd_write.c
new file mode 100644
index 0000000..636bce9
--- /dev/null
+++ b/src/libstddjb/fd_write.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_write (int fd, char const *buf, unsigned int len)
+{
+  register int r ;
+  do r = write(fd, buf, len) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fd_writev.c b/src/libstddjb/fd_writev.c
new file mode 100644
index 0000000..d48d7f1
--- /dev/null
+++ b/src/libstddjb/fd_writev.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+
+int fd_writev (int fd, struct iovec const *v, unsigned int vlen)
+{
+  register int r ;
+  do r = writev(fd, v, vlen) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/fmtscan-internal.h b/src/libstddjb/fmtscan-internal.h
new file mode 100644
index 0000000..b1cac3e
--- /dev/null
+++ b/src/libstddjb/fmtscan-internal.h
@@ -0,0 +1,105 @@
+/* ISC license. */
+
+#ifndef FMTSCAN_INTERNAL_H
+#define FMTSCAN_INTERNAL_H
+
+#include <errno.h>
+#include <limits.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+#define SCANB(bits) \
+unsigned int uint##bits##_scan_base (char const *s, uint##bits *u, unsigned char base) \
+{ \
+  static uint##bits const max = (uint##bits)(-1) ; \
+  uint##bits result = 0 ; \
+  unsigned int pos = 0 ; \
+  for (;; pos++) \
+  { \
+    register unsigned char c = fmtscan_num(s[pos], base) ; \
+    if ((c >= base) || (result > ((max - c) / base))) break ; \
+    result = result * base + c ; \
+  } \
+  if (pos) *u = result ; \
+  return pos ; \
+} \
+
+#define SCANB0(bits) \
+unsigned int uint##bits##0_scan_base (char const *s, uint##bits *u, unsigned char base) \
+{ \
+  register unsigned int pos = uint##bits##_scan_base(s, u, base) ; \
+  if (!pos) return (errno = EINVAL, 0) ; \
+  if (!s[pos]) return pos ; \
+  errno = (fmtscan_num(s[pos], base) < base) ? EDOM : EINVAL ; \
+  return 0 ; \
+} \
+
+#define SCANS(type, cstname) \
+unsigned int type##_scan (char const *s, type *n) \
+{ \
+  unsigned type tmp ; \
+  register unsigned int r = 0 ; \
+  register unsigned int sign = 0 ; \
+  if (*s == '-') \
+  { \
+    r = 1 + u##type##_scan(s+1, &tmp) ; \
+    if (r == 1) return 0 ; \
+    if (tmp == 0) *n = 0 ; \
+    else \
+    { \
+      if (tmp-1 > -(cstname##_MIN+1)) \
+      { \
+        tmp /= 10 ; \
+        r-- ; \
+      } \
+      *n = cstname##_MIN + (-(cstname##_MIN+1) - (tmp-1)) ; \
+    } \
+    return r ; \
+  } \
+  if (*s == '+') (s++, sign++) ; \
+  r = u##type##_scan(s, &tmp) ; \
+  if (!r) return 0 ; \
+  r += sign ; \
+  if (tmp > cstname##_MAX) \
+  { \
+    tmp /= 10 ; \
+    r-- ; \
+  } \
+  *n = tmp ; \
+  return r ; \
+} \
+
+#define SCANL(bits) \
+unsigned int uint##bits##_scanlist (uint##bits *tab, unsigned int max, char const *s, unsigned int *num) \
+{ \
+  unsigned int i = 0, len = 0 ; \
+  for (; s[len] && (i < max) ; i++) \
+  { \
+    register unsigned int w = uint##bits##_scan(s + len, tab + i) ; \
+    if (!w) break ; \
+    len += w ; \
+    while (byte_chr(",:; \t\r\n", 7, s[len]) < 7) len++ ; \
+  } \
+  *num = i ; \
+  return len ; \
+} \
+
+#define FMTL(bits) \
+unsigned int uint##bits##_fmtlist (char *s, uint##bits const *tab, unsigned int n) \
+{ \
+  unsigned int i = 0, len = 0 ; \
+  for (; i < n ; i++) \
+  { \
+    register unsigned int w = uint##bits##_fmt(s, tab[i]) ; \
+    len += w ; \
+    if (s) \
+    { \
+      s += w ; \
+      if (i < n-1) { *s++ = ',' ; len++ ; } \
+    } \
+  } \
+  return len ; \
+} \
+
+
+#endif
diff --git a/src/libstddjb/fmtscan_asc.c b/src/libstddjb/fmtscan_asc.c
new file mode 100644
index 0000000..c33c0ec
--- /dev/null
+++ b/src/libstddjb/fmtscan_asc.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned char fmtscan_asc (unsigned char c)
+{
+  static char const *tab = "0123456789abcdefghijklmnopqrstuvwxyz" ;
+  return (c >= 36) ? 0 : tab[c] ;
+}
diff --git a/src/libstddjb/fmtscan_num.c b/src/libstddjb/fmtscan_num.c
new file mode 100644
index 0000000..094eb2a
--- /dev/null
+++ b/src/libstddjb/fmtscan_num.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned char fmtscan_num (register unsigned char c, unsigned char n)
+{
+  return
+    ((c < '0') || (n > 36)) ? n :
+    (n <= 10) ? (c - '0' <= n) ? c - '0' : n :
+    (c - '0' <= 9) ? c - '0' :
+    (c < 'A') ? n :
+    (c - 'A' < n - 10) ? c - 'A' + 10 :
+    (c < 'a') ? n :
+    (c - 'a' < n - 10) ? c - 'a' + 10 :
+    n ;
+}
diff --git a/src/libstddjb/genalloc_deepfree.c b/src/libstddjb/genalloc_deepfree.c
new file mode 100644
index 0000000..cda800a
--- /dev/null
+++ b/src/libstddjb/genalloc_deepfree.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+
+void genalloc_deepfree_size (genalloc *g, freefunc_t_ref f, unsigned int size)
+{
+  unsigned int len = g->len / size ;
+  register unsigned int i = 0 ;
+  for (; i < len ; i++) (*f)(g->s + i * size) ;
+  stralloc_free(g) ;
+}
diff --git a/src/libstddjb/genwrite_flush_bufalloc.c b/src/libstddjb/genwrite_flush_bufalloc.c
new file mode 100644
index 0000000..6383246
--- /dev/null
+++ b/src/libstddjb/genwrite_flush_bufalloc.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bufalloc.h>
+#include <skalibs/genwrite.h>
+
+int genwrite_flush_bufalloc (void *target)
+{
+  register bufalloc *ba = target ;
+  return bufalloc_flush(ba) ;
+}
diff --git a/src/libstddjb/genwrite_flush_buffer.c b/src/libstddjb/genwrite_flush_buffer.c
new file mode 100644
index 0000000..d30f3e6
--- /dev/null
+++ b/src/libstddjb/genwrite_flush_buffer.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/genwrite.h>
+
+int genwrite_flush_buffer (void *target)
+{
+  register buffer *b = target ;
+  return buffer_flush(b) ;
+}
diff --git a/src/libstddjb/genwrite_flush_stralloc.c b/src/libstddjb/genwrite_flush_stralloc.c
new file mode 100644
index 0000000..f623941
--- /dev/null
+++ b/src/libstddjb/genwrite_flush_stralloc.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/genwrite.h>
+
+int genwrite_flush_stralloc (void *target)
+{
+  (void)target ;
+  return 1 ;
+}
diff --git a/src/libstddjb/genwrite_put_bufalloc.c b/src/libstddjb/genwrite_put_bufalloc.c
new file mode 100644
index 0000000..6aabe1c
--- /dev/null
+++ b/src/libstddjb/genwrite_put_bufalloc.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/bufalloc.h>
+#include <skalibs/genwrite.h>
+
+int genwrite_put_bufalloc (void *target, char const *s, unsigned int len)
+{
+  register bufalloc *ba = target ;
+  return bufalloc_put(ba, s, len) ? (int)len : -1 ;
+}
diff --git a/src/libstddjb/genwrite_put_buffer.c b/src/libstddjb/genwrite_put_buffer.c
new file mode 100644
index 0000000..1c85725
--- /dev/null
+++ b/src/libstddjb/genwrite_put_buffer.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/genwrite.h>
+
+int genwrite_put_buffer (void *target, char const *s, unsigned int len)
+{
+  register buffer *b = target ;
+  return buffer_put(b, s, len) ;
+}
diff --git a/src/libstddjb/genwrite_put_stralloc.c b/src/libstddjb/genwrite_put_stralloc.c
new file mode 100644
index 0000000..2a8a8e8
--- /dev/null
+++ b/src/libstddjb/genwrite_put_stralloc.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/genwrite.h>
+
+int genwrite_put_stralloc (void *target, char const *s, unsigned int len)
+{
+  register stralloc *sa = target ;
+  return stralloc_catb(sa, s, len) ? (int)len : -1 ;
+}
diff --git a/src/libstddjb/genwrite_stderr.c b/src/libstddjb/genwrite_stderr.c
new file mode 100644
index 0000000..1d6bae3
--- /dev/null
+++ b/src/libstddjb/genwrite_stderr.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/genwrite.h>
+
+genwrite_t genwrite_stderr = GENWRITE_BUFFER_INIT(buffer_2) ;
diff --git a/src/libstddjb/genwrite_stdout.c b/src/libstddjb/genwrite_stdout.c
new file mode 100644
index 0000000..4fec080
--- /dev/null
+++ b/src/libstddjb/genwrite_stdout.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/genwrite.h>
+
+genwrite_t genwrite_stdout = GENWRITE_BUFFER_INIT(buffer_1) ;
diff --git a/src/libstddjb/getlnmax.c b/src/libstddjb/getlnmax.c
new file mode 100644
index 0000000..e3fde8f
--- /dev/null
+++ b/src/libstddjb/getlnmax.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/buffer.h>
+#include <skalibs/skamisc.h>
+
+int getlnmax (buffer *b, char *d, unsigned int max, unsigned int *w, char sep)
+{
+  if (max < *w) return (errno = EINVAL, -1) ;
+  for (;;)
+  {
+    siovec_t v[2] ;
+    unsigned int len = buffer_len(b) ;
+    unsigned int pos ;
+    int r ;
+    buffer_rpeek(b, v) ;
+    if (len > max - *w) len = max - *w ;
+    pos = siovec_bytechr(v, 2, sep) ;
+    if (pos > len) pos = len ;
+    r = pos < len ;
+    buffer_getnofill(b, d + *w, pos + r) ; *w += pos ;
+    if (*w >= max) return (errno = ERANGE, -1) ;
+    if (r) return 1 ;
+    r = buffer_fill(b) ;
+    if (r <= 0) return r ;
+  }
+}
diff --git a/src/libstddjb/getlnmaxsep.c b/src/libstddjb/getlnmaxsep.c
new file mode 100644
index 0000000..2bde443
--- /dev/null
+++ b/src/libstddjb/getlnmaxsep.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/buffer.h>
+#include <skalibs/skamisc.h>
+
+int getlnmaxsep (buffer *b, char *d, unsigned int max, unsigned int *w, char const *sep, unsigned int seplen)
+{
+  if (max < *w) return (errno = EINVAL, -1) ;
+  for (;;)
+  {
+    siovec_t v[2] ;
+    unsigned int len = buffer_len(b) ;
+    unsigned int pos ;
+    int r ;
+    buffer_rpeek(b, v) ;
+    if (len > max - *w) len = max - *w ;
+    pos = siovec_bytein(v, 2, sep, seplen) ;
+    if (pos > len) pos = len ;
+    r = pos < len ;
+    buffer_getnofill(b, d + *w, pos + r) ; *w += pos ;
+    if (*w >= max) return (errno = ERANGE, -1) ;
+    if (r) return 1 ;
+    r = buffer_fill(b) ;
+    if (r <= 0) return r ;
+  }
+}
diff --git a/src/libstddjb/getpeereid.c b/src/libstddjb/getpeereid.c
new file mode 100644
index 0000000..bf70aca
--- /dev/null
+++ b/src/libstddjb/getpeereid.c
@@ -0,0 +1,68 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASGETPEEREID
+/* syscall exists - do nothing */
+
+#else
+
+#ifdef SKALIBS_HASSOPEERCRED
+/* implementation with SO_PEERCRED */
+
+#include <skalibs/nonposix.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/getpeereid.h>
+
+int getpeereid (int s, uid_t *u, gid_t *g)
+{
+  struct ucred blah ;
+  unsigned int len = sizeof(blah) ;
+
+  if (getsockopt(s, SOL_SOCKET, SO_PEERCRED, &blah, &len) == -1)
+    return -1 ;
+  *u = blah.uid ;
+  *g = blah.gid ;
+  return 0 ;
+}
+
+#else
+
+#ifdef SKALIBS_HASGETPEERUCRED
+/* implementation with getpeerucred() */
+
+#include <skalibs/nonposix.h>
+#include <sys/types.h>
+#include <ucred.h>
+
+int getpeereid (int s, uid_t *u, gid_t *g)
+{
+  ucred_t *cred ;
+  if (getpeerucred(s, &cred) == -1) return -1 ;
+  *u = ucred_geteuid(cred) ;
+  *g = ucred_getegid(cred) ;
+  ucred_free(cred) ;
+  return 0 ;
+}
+
+#else
+
+/* can't find a real implementation, make a stub */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <skalibs/getpeereid.h>
+
+int getpeereid (int s, uid_t *uid, gid_t *gid)
+{
+  (void)s ;
+  *uid = *gid = -1 ;
+  errno = ENOSYS ;
+  return -1 ;
+}
+
+#endif
+#endif
+#endif
diff --git a/src/libstddjb/int_scan.c b/src/libstddjb/int_scan.c
new file mode 100644
index 0000000..2547a04
--- /dev/null
+++ b/src/libstddjb/int_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint.h>
+#include "fmtscan-internal.h"
+
+SCANS(int, INT)
diff --git a/src/libstddjb/iobuffer_fill.c b/src/libstddjb/iobuffer_fill.c
new file mode 100644
index 0000000..991dffc
--- /dev/null
+++ b/src/libstddjb/iobuffer_fill.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobuffer_fill (iobuffer_ref b)
+{
+  if (b->isk)
+  {
+    register int r = iobufferk_fill(&b->x.k) ;
+    if (r >= 0 || errno != ENOSYS || !iobuffer_salvage(b)) return r ;
+  }
+  return iobufferu_fill(&b->x.u) ;
+}
diff --git a/src/libstddjb/iobuffer_flush.c b/src/libstddjb/iobuffer_flush.c
new file mode 100644
index 0000000..543744b
--- /dev/null
+++ b/src/libstddjb/iobuffer_flush.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobuffer_flush (iobuffer_ref b)
+{
+  if (b->isk)
+  {
+    if (iobufferk_flush(&b->x.k)) return 1 ;
+    if (errno != ENOSYS || !iobuffer_salvage(b)) return 0 ;
+  }
+  return iobufferu_flush(&b->x.u) ;
+}
diff --git a/src/libstddjb/iobuffer_init.c b/src/libstddjb/iobuffer_init.c
new file mode 100644
index 0000000..561379a
--- /dev/null
+++ b/src/libstddjb/iobuffer_init.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/iobuffer.h>
+
+int iobuffer_init (iobuffer_ref b, int fdin, int fdout)
+{
+  if (!iobufferk_init(&b->x.k, fdin, fdout)) goto user ;
+  if (!iobufferk_isworking(&b->x.k)) goto fk ;
+  b->isk = 1 ;
+  return 1 ;
+ fk:
+  iobufferk_finish(&b->x.k) ;
+ user:
+  if (!iobufferu_init(&b->x.u, fdin, fdout)) return 0 ;
+  b->isk = 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/iobuffer_kfromu.c b/src/libstddjb/iobuffer_kfromu.c
new file mode 100644
index 0000000..28785e6
--- /dev/null
+++ b/src/libstddjb/iobuffer_kfromu.c
@@ -0,0 +1,41 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <sys/uio.h>
+#include <skalibs/buffer.h>
+#include <skalibs/iobuffer.h>
+#include <skalibs/siovec.h>
+
+int iobuffer_kfromu (iobufferk_ref k, iobufferu_ref u)
+{
+  struct iovec iov[2] ;
+  siovec_t v[2] ;
+  int r ;
+  buffer_rpeek(&u->b[0], v) ;
+  iovec_from_siovec(iov, v, 2) ;
+  r = vmsplice(k->p[1], iov, 2, 0) ;
+  if (r < 0) return 0 ;
+  k->n += r ;
+  buffer_rseek(&u->b[0], (unsigned int)r) ;
+  u->b[1].c.p = u->b[0].c.p ;
+  return iobufferu_isempty(u) ;
+}
+
+#else
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobuffer_kfromu (iobufferk_ref k, iobufferu_ref u)
+{
+  (void)k ;
+  (void)u ;
+  return (errno = ENOSYS, 0) ;
+}
+
+#endif
diff --git a/src/libstddjb/iobuffer_salvage.c b/src/libstddjb/iobuffer_salvage.c
new file mode 100644
index 0000000..b434568
--- /dev/null
+++ b/src/libstddjb/iobuffer_salvage.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/iobuffer.h>
+
+int iobuffer_salvage (iobuffer_ref b)
+{
+  iobufferu u ;
+  if (!b->isk) return 1 ;
+  if (!iobufferu_init(&u, b->x.k.fd[0], b->x.k.fd[1])) return 0 ;
+  if (!iobuffer_ufromk(&u, &b->x.k)) goto err ;
+  iobufferk_finish(&b->x.k) ;
+  b->x.u = u ;
+  b->isk = 0 ;
+  return 1 ;
+
+err:
+  iobufferu_finish(&u) ;
+  return 0 ;
+}
diff --git a/src/libstddjb/iobuffer_ufromk.c b/src/libstddjb/iobuffer_ufromk.c
new file mode 100644
index 0000000..efb0368
--- /dev/null
+++ b/src/libstddjb/iobuffer_ufromk.c
@@ -0,0 +1,39 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <skalibs/iobuffer.h>
+
+int iobuffer_ufromk (iobufferu_ref u, iobufferk_ref k)
+{
+  int in = u->b[0].fd ;
+  u->b[0].fd = k->p[0] ;
+  while (k->n)
+  {
+    register int r = iobufferu_fill(u) ;
+    if (r <= 0) goto err ;
+    k->n -= r ;
+  }
+  u->b[0].fd = in ;
+  return 1 ;
+
+ err:
+  u->b[0].fd = in ;
+  return 0 ;
+}
+
+#else
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobuffer_ufromk (iobufferu_ref u, iobufferk_ref k)
+{
+  (void)u ;
+  (void)k ;
+  return (errno = ENOSYS, 0) ;
+}
+
+#endif
diff --git a/src/libstddjb/iobufferk_fill.c b/src/libstddjb/iobufferk_fill.c
new file mode 100644
index 0000000..50ac403
--- /dev/null
+++ b/src/libstddjb/iobufferk_fill.c
@@ -0,0 +1,49 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+static int iobufferk_tee (iobufferk_ref k)
+{
+  register int r = tee(k->fd[0], k->fd[1], IOBUFFERK_SIZE - k->n, k->nb & 1 ? SPLICE_F_NONBLOCK : 0) ;
+  if (r > 0) k->n += r ;
+  return r ;
+}
+
+static int iobufferk_splice (iobufferk_ref k)
+{
+  register int r = splice(k->fd[0], 0, k->fd[1], 0, IOBUFFERK_SIZE, k->nb ? SPLICE_F_NONBLOCK : 0) ;
+  if (r > 0) k->n += r ;
+  if ((r < 0) && (errno == EINVAL)) errno = ENOSYS ;
+  return r ;
+}
+
+static int iobufferk_fill_3 (iobufferk_ref k)
+{
+  register int r = splice(k->fd[0], 0, k->p[1], 0, IOBUFFERK_SIZE - k->n, k->nb & 1 ? SPLICE_F_NONBLOCK : 0) ;
+  if (r > 0) k->n += r ;
+  if ((r < 0) && (errno == EINVAL)) errno = ENOSYS ;
+  return r ;
+}
+
+iobufferk_io_func_t_ref const iobufferk_fill_f[4] =
+{
+  &iobufferk_tee, &iobufferk_splice, &iobufferk_splice, &iobufferk_fill_3
+} ;
+
+#else
+
+#include <skalibs/iobuffer.h>
+
+iobufferk_io_func_t_ref const iobufferk_fill_f[4] =
+{
+  &iobufferk_nosys, &iobufferk_nosys, &iobufferk_nosys, &iobufferk_nosys
+} ;
+
+#endif
diff --git a/src/libstddjb/iobufferk_finish.c b/src/libstddjb/iobufferk_finish.c
new file mode 100644
index 0000000..ef20d57
--- /dev/null
+++ b/src/libstddjb/iobufferk_finish.c
@@ -0,0 +1,50 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <errno.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/iobuffer.h>
+
+static void iobufferk_nop (iobufferk_ref k)
+{
+  (void)k ;
+}
+
+static void iobufferk_finish_0 (iobufferk_ref k)
+{
+  register int e = errno ;
+  fd_close(k->p[1]) ;
+  errno = e ;
+}
+
+static void iobufferk_finish_3 (iobufferk_ref k)
+{
+  register int e = errno ;
+  fd_close(k->p[1]) ;
+  fd_close(k->p[0]) ;
+  errno = e ;
+}
+
+iobufferk_finish_func_t_ref const iobufferk_finish_f[4] =
+{
+  &iobufferk_finish_0, &iobufferk_nop, &iobufferk_nop, &iobufferk_finish_3
+} ;
+
+#else
+
+#include <skalibs/iobuffer.h>
+
+static void iobufferk_nop (iobufferk_ref k)
+{
+  (void)k ;
+}
+
+iobufferk_finish_func_t_ref const iobufferk_finish_f[4] =
+{
+  &iobufferk_nop, &iobufferk_nop, &iobufferk_nop, &iobufferk_nop
+} ;
+
+#endif
diff --git a/src/libstddjb/iobufferk_flush.c b/src/libstddjb/iobufferk_flush.c
new file mode 100644
index 0000000..fb51e32
--- /dev/null
+++ b/src/libstddjb/iobufferk_flush.c
@@ -0,0 +1,61 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+static int iobufferk_flush_0 (iobufferk_ref k)
+{
+  while (k->n)
+  {
+    register int r = splice(k->fd[0], 0, k->p[1], 0, k->n, 0) ;
+    if (r < 0) return 0 ;
+    else if (!r) break ;
+    k->n -= r ;
+  }
+  return 1 ;
+}
+
+static int fakeflush (iobufferk_ref k)
+{
+  k->n = 0 ;
+  return 1 ;
+}
+
+static int iobufferk_flush_3 (iobufferk_ref k)
+{
+  while (k->n)
+  {
+    register int r = splice(k->p[0], 0, k->fd[1], 0, k->n, SPLICE_F_MORE | (k->nb & 2 ? SPLICE_F_NONBLOCK : 0)) ;
+    if (r < 0)
+    {
+      if (errno == EINVAL) errno = ENOSYS ;
+      return 0 ;
+    }
+    else if (!r) return (errno = EPIPE, 0) ;
+    k->n -= r ;
+  }
+  return 1 ;
+}
+
+iobufferk_io_func_t_ref const iobufferk_flush_f[4] =
+{
+  &iobufferk_flush_0, &fakeflush, &fakeflush, &iobufferk_flush_3
+} ;
+
+#else
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+iobufferk_io_func_t_ref const iobufferk_flush_f[4] =
+{
+  &iobufferk_nosys, &iobufferk_nosys, &iobufferk_nosys, &iobufferk_nosys
+} ;
+
+#endif
diff --git a/src/libstddjb/iobufferk_init.c b/src/libstddjb/iobufferk_init.c
new file mode 100644
index 0000000..03f7fae
--- /dev/null
+++ b/src/libstddjb/iobufferk_init.c
@@ -0,0 +1,78 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/iobuffer.h>
+
+static int iobufferk_init_0 (iobufferk_ref k)
+{
+  register int fd = open_write("/dev/null") ;
+  if (fd < 0) return 0 ;
+  if (coe(fd) < 0)
+  {
+    fd_close(fd) ;
+    return 0 ;
+  }
+  k->p[0] = -1 ;
+  k->p[1] = fd ;
+  return 1 ;
+}
+
+static int iobufferk_nofd (iobufferk_ref k)
+{
+  k->p[0] = k->p[1] = -1 ;
+  return 1 ;
+}
+
+static int iobufferk_init_3 (iobufferk_ref k)
+{
+  return (pipenbcoe(k->p) >= 0) ;
+}
+
+static iobufferk_io_func_t_ref iobufferk_init_f[4] =
+{
+  &iobufferk_init_0, &iobufferk_nofd, &iobufferk_nofd, &iobufferk_init_3
+} ;
+
+int iobufferk_init (iobufferk_ref k, int fdin, int fdout)
+{
+  iobufferk tmp ;
+  struct stat st ;
+  register int r ;
+  if (fstat(fdin, &st) < 0) return 0 ;
+  r = fcntl(fdin, F_GETFL) ;
+  if (r < 0) return 0 ;
+  tmp.type = !S_ISFIFO(st.st_mode) ;
+  tmp.nb = !!(r & O_NONBLOCK) ;
+  if (fstat(fdout, &st) < 0) return 0 ;
+  r = fcntl(fdout, F_GETFL) ;
+  if (r < 0) return 0 ;
+  tmp.type |= (!S_ISFIFO(st.st_mode) << 1) ;
+  tmp.nb |= (r & O_NONBLOCK) ? 2 : 0 ;
+  tmp.fd[0] = fdin ;
+  tmp.fd[1] = fdout ;
+  tmp.n = 0 ;
+  if (!(*iobufferk_init_f[tmp.type])(&tmp)) return 0 ;
+  *k = tmp ;
+  return 1 ;
+}
+
+#else
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferk_init (iobufferk_ref k, int fdin, int fdout)
+{
+  (void)k ;
+  (void)fdin ;
+  (void)fdout ;
+  return (errno = ENOSYS, 0) ;
+}
+
+#endif
diff --git a/src/libstddjb/iobufferk_isworking.c b/src/libstddjb/iobufferk_isworking.c
new file mode 100644
index 0000000..f02b7e0
--- /dev/null
+++ b/src/libstddjb/iobufferk_isworking.c
@@ -0,0 +1,48 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASSPLICE
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferk_isworking (iobufferk_ref k)
+{
+ /* for now splice() with a length of 0 returns 0 no matter what, so this */
+ /* test is useless. splice() should test the underlying filesystems even */
+ /* if the length is 0. */
+
+# if 0
+
+  register int e = errno ;
+  if (splice(k->fd[0], 0, k->p[1], 0, 0, 0) < 0) goto no ;
+  if (splice(k->p[0], 0, k->fd[1], 0, 0, 0) < 0) goto no ;
+  errno = e ;
+  return 1 ;
+ no:
+  errno = e ;
+  return 0 ;
+
+# else
+
+  (void)k ;
+  return 1 ;
+
+# endif
+}
+
+#else
+
+#include <skalibs/iobuffer.h>
+
+int iobufferk_isworking (iobufferk_ref k)
+{
+  (void)k ;
+  return 0 ;
+}
+
+#endif
+
diff --git a/src/libstddjb/iobufferk_nosys.c b/src/libstddjb/iobufferk_nosys.c
new file mode 100644
index 0000000..46f8be4
--- /dev/null
+++ b/src/libstddjb/iobufferk_nosys.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferk_nosys (iobufferk_ref k)
+{
+  (void)k ;
+  return (errno = ENOSYS, -1) ;
+}
diff --git a/src/libstddjb/iobufferu_fill.c b/src/libstddjb/iobufferu_fill.c
new file mode 100644
index 0000000..7ebb67c
--- /dev/null
+++ b/src/libstddjb/iobufferu_fill.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferu_fill (iobufferu_ref b)
+{
+  register int r = buffer_fill(&b->b[0]) ;
+  b->b[1].c.n = b->b[0].c.n ;
+  return r ;
+}
diff --git a/src/libstddjb/iobufferu_finish.c b/src/libstddjb/iobufferu_finish.c
new file mode 100644
index 0000000..eb3749e
--- /dev/null
+++ b/src/libstddjb/iobufferu_finish.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/alloc.h>
+#include <skalibs/iobuffer.h>
+
+void iobufferu_finish (iobufferu_ref b)
+{
+  alloc_free(b->buf) ;
+}
diff --git a/src/libstddjb/iobufferu_flush.c b/src/libstddjb/iobufferu_flush.c
new file mode 100644
index 0000000..734fab1
--- /dev/null
+++ b/src/libstddjb/iobufferu_flush.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/buffer.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferu_flush (iobufferu_ref b)
+{
+  register int r = buffer_flush(&b->b[1]) ;
+  b->b[0].c.p = b->b[1].c.p ;
+  return r ;
+}
diff --git a/src/libstddjb/iobufferu_init.c b/src/libstddjb/iobufferu_init.c
new file mode 100644
index 0000000..e9ea5c8
--- /dev/null
+++ b/src/libstddjb/iobufferu_init.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/alloc.h>
+#include <skalibs/buffer.h>
+#include <skalibs/iobuffer.h>
+
+int iobufferu_init (iobufferu_ref b, int fdin, int fdout)
+{
+  register char *x = alloc(IOBUFFERU_SIZE) ;
+  if (!x) return 0 ;
+  b->buf = x ;
+  buffer_init(&b->b[0], &buffer_read, fdin, x, IOBUFFERU_SIZE) ;
+  buffer_init(&b->b[1], &buffer_write, fdout, x, IOBUFFERU_SIZE) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/iopause.c b/src/libstddjb/iopause.c
new file mode 100644
index 0000000..38e3b54
--- /dev/null
+++ b/src/libstddjb/iopause.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/iopause.h>
+
+#ifdef SKALIBS_HASPPOLL
+
+iopause_func_t_ref const iopause_ = &iopause_ppoll ;
+
+#else
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_PREFERSELECT
+
+iopause_func_t_ref const iopause_ = &iopause_select ;
+
+#else
+
+iopause_func_t_ref const iopause_ = &iopause_poll ;
+
+#endif
+
+#endif
diff --git a/src/libstddjb/iopause_poll.c b/src/libstddjb/iopause_poll.c
new file mode 100644
index 0000000..e4e4da1
--- /dev/null
+++ b/src/libstddjb/iopause_poll.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <poll.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+
+int iopause_poll (iopause_fd *x, unsigned int len, tain_t const *deadline, tain_t const *stamp)
+{
+  register int millisecs = 0 ;
+  if (!deadline) millisecs = -1 ;
+  else if (tain_less(stamp, deadline))
+  {
+    tain_t t ;
+    tain_sub(&t, deadline, stamp) ;
+    millisecs = tain_to_millisecs(&t) ;
+  }
+  return poll(x, len, millisecs) ;
+}
diff --git a/src/libstddjb/iopause_ppoll.c b/src/libstddjb/iopause_ppoll.c
new file mode 100644
index 0000000..b181d0a
--- /dev/null
+++ b/src/libstddjb/iopause_ppoll.c
@@ -0,0 +1,44 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASPPOLL
+
+#define _GNU_SOURCE
+#include <errno.h>
+#include <time.h>
+#include <poll.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+
+int iopause_ppoll (iopause_fd *x, unsigned int len, tain_t const *deadline, tain_t const *stamp)
+{
+  struct timespec ts = { .tv_sec = 0, .tv_nsec = 0 } ;
+  if (deadline && tain_less(stamp, deadline))
+  {
+    tain_t delta ;
+    tain_sub(&delta, deadline, stamp) ;
+    if (!timespec_from_tain_relative(&ts, &delta))
+    {
+      if (errno != ERANGE) return -1 ;
+      else deadline = 0 ;
+    }
+  }
+  return ppoll(x, len, deadline ? &ts : 0, 0) ;
+}
+
+#else
+
+#include <errno.h>
+#include <skalibs/iopause.h>
+
+int iopause_ppoll (iopause_fd *x, unsigned int len, tain_t const *deadline, tain_t const *stamp)
+{
+  (void)x ;
+  (void)len ;
+  (void)deadline ;
+  (void)stamp ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/iopause_select.c b/src/libstddjb/iopause_select.c
new file mode 100644
index 0000000..a9c6529
--- /dev/null
+++ b/src/libstddjb/iopause_select.c
@@ -0,0 +1,63 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <string.h>  /* Solaris... */
+#include <errno.h>
+#include <sys/select.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+
+int iopause_select (iopause_fd *x, unsigned int len, tain_t const *deadline, tain_t const *stamp)
+{
+  struct timeval tv = { .tv_sec = 0, .tv_usec = 0 } ;
+  int nfds = 0 ;
+  fd_set rfds, wfds, xfds ;
+  int r ;
+  
+  FD_ZERO(&rfds) ;
+  FD_ZERO(&wfds) ;
+  FD_ZERO(&xfds) ;
+  if (deadline && tain_less(stamp, deadline))
+  {
+    tain_t delta ;
+    tain_sub(&delta, deadline, stamp) ;
+    if (!timeval_from_tain_relative(&tv, &delta))
+    {
+      if (errno != ERANGE) return -1 ;
+      else deadline = 0 ;
+    }
+  }
+
+  {
+    register unsigned int i = 0 ;
+    for (; i < len ; i++)
+    {
+      x[i].revents = 0 ;
+      if (x[i].fd >= 0)
+      {
+        if (x[i].fd >= nfds) nfds = x[i].fd + 1 ;
+        if (x[i].events & IOPAUSE_READ) FD_SET(x[i].fd, &rfds) ;
+        if (x[i].events & IOPAUSE_WRITE) FD_SET(x[i].fd, &wfds) ;
+        if (x[i].events & IOPAUSE_EXCEPT) FD_SET(x[i].fd, &xfds) ;
+      }
+    }
+  }
+
+  r = select(nfds, &rfds, &wfds, &xfds, deadline ? &tv : 0) ;
+
+  if (r > 0)
+  {
+    register unsigned int i = 0 ;
+    for (; i < len ; i++) if (x[i].fd >= 0)
+    {
+      if ((x[i].events & IOPAUSE_READ) && FD_ISSET(x[i].fd, &rfds))
+        x[i].revents |= IOPAUSE_READ ;
+      if ((x[i].events & IOPAUSE_WRITE) && FD_ISSET(x[i].fd, &wfds))
+        x[i].revents |= IOPAUSE_WRITE ;
+      if ((x[i].events & IOPAUSE_EXCEPT) && FD_ISSET(x[i].fd, &xfds))
+        x[i].revents |= IOPAUSE_EXCEPT ;
+    }
+  }
+
+  return r ;
+}
diff --git a/src/libstddjb/iopause_stamp.c b/src/libstddjb/iopause_stamp.c
new file mode 100644
index 0000000..d9a7e31
--- /dev/null
+++ b/src/libstddjb/iopause_stamp.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+
+extern int iopause_stamp (iopause_fd *x, unsigned int n, tain_t const *deadline, tain_t *stamp)
+{
+  register int r ;
+  do
+  {
+    r = iopause(x, n, deadline, stamp) ;
+    if (stamp)
+    {
+      int e = errno ;
+      tain_now(stamp) ;
+      errno = e ;
+    }
+  }
+  while ((r < 0) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/iovec_from_siovec.c b/src/libstddjb/iovec_from_siovec.c
new file mode 100644
index 0000000..154cca5
--- /dev/null
+++ b/src/libstddjb/iovec_from_siovec.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <skalibs/siovec.h>
+
+void iovec_from_siovec (struct iovec *iov, siovec_t const *v, unsigned int n)
+{
+  while (n--)
+  {
+    iov[n].iov_base = v[n].s ;
+    iov[n].iov_len = v[n].len ;
+  }
+}
diff --git a/src/libstddjb/ip46_scan.c b/src/libstddjb/ip46_scan.c
new file mode 100644
index 0000000..97ebe4d
--- /dev/null
+++ b/src/libstddjb/ip46_scan.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/ip46.h>
+
+#include <skalibs/fmtscan.h>
+#include <skalibs/ip46.h>
+
+unsigned int ip46full_scan (char const *s, ip46full_t_ref ip)
+{
+  unsigned int len = ip6_scan(s, ip->ip) ;
+  if (len) ip->is6 = 1 ;
+  else
+  {
+    len = ip4_scan(s, ip->ip) ;
+    if (len) ip->is6 = 0 ;
+  }
+  return len ;
+}
diff --git a/src/libstddjb/ip46_scanlist.c b/src/libstddjb/ip46_scanlist.c
new file mode 100644
index 0000000..37f2e18
--- /dev/null
+++ b/src/libstddjb/ip46_scanlist.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <skalibs/ip46.h>
+
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip46full_scanlist (ip46full_t_ref out, unsigned int max, char const *s, unsigned int *num)
+{
+  unsigned int n = 0, w = 0 ;
+  for (; s[w] && (n < max) ; n++)
+  {
+    ip46full_t z ;
+    register unsigned int i = ip6_scan(s + w, z.ip) ;
+    if (i) z.is6 = 1 ;
+    else
+    {
+      i = ip4_scan(s + w, z.ip) ;
+      if (!i) break ;
+      z.is6 = 0 ;
+    }
+    out[n] = z ;
+    w += i ;
+    while (byte_chr(",; \t\r\n", 6, s[w]) < 6) w++ ;
+  }
+  *num = n ;
+  return w ;
+}
diff --git a/src/libstddjb/ip4_fmt.c b/src/libstddjb/ip4_fmt.c
new file mode 100644
index 0000000..4c2f6a3
--- /dev/null
+++ b/src/libstddjb/ip4_fmt.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip4_fmt (char *s, char const *ip)
+{
+  unsigned int len = 0 ;
+  unsigned int i, j ;
+  for (j = 0 ; j < 4 ; j++)
+  {
+    i = uint32_fmt(s, (uint32)(unsigned char) ip[j]) ;
+    len += i ;
+    if (s) s += i ;
+    if (j == 3) break ;
+    if (s) *s++ = '.' ;
+    ++len ;
+  }
+  return len ;
+}
diff --git a/src/libstddjb/ip4_fmtu32.c b/src/libstddjb/ip4_fmtu32.c
new file mode 100644
index 0000000..d4833e8
--- /dev/null
+++ b/src/libstddjb/ip4_fmtu32.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip4_fmtu32 (char *s, uint32 ip)
+{
+  char pack[4] ;
+  uint32_pack_big(pack, ip) ;
+  return ip4_fmt(s, pack) ;
+}
diff --git a/src/libstddjb/ip4_scan.c b/src/libstddjb/ip4_scan.c
new file mode 100644
index 0000000..2873cd4
--- /dev/null
+++ b/src/libstddjb/ip4_scan.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/uint.h>
+
+unsigned int ip4_scan (char const *s, char *ip)
+{
+  register unsigned int j = 0 ;
+  unsigned int len = 0 ;
+  for (; j < 4 ; j++)
+  {
+    unsigned int u ;
+    register unsigned int i = uint_scan(s, &u) ;
+    if (!i) return 0 ;
+    ip[j] = (char)u ;
+    s += i ;
+    len += i ;
+    if (j == 3) break ;
+    if (*s != '.') return 0 ;
+    ++s ;
+    ++len ;
+  }
+  return len ;
+}
diff --git a/src/libstddjb/ip4_scanlist.c b/src/libstddjb/ip4_scanlist.c
new file mode 100644
index 0000000..f1e3ccc
--- /dev/null
+++ b/src/libstddjb/ip4_scanlist.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip4_scanlist (char *out, unsigned int max, char const *s, unsigned int *num)
+{
+  unsigned int n = 0, w = 0 ;
+  for (; s[w] && (n < max) ; n++)
+  {
+    register unsigned int i = ip4_scan(s + w, out + (n << 2)) ;
+    if (!i) break ;
+    w += i ;
+    while (byte_chr(",:; \t\r\n", 7, s[w]) < 7) w++ ;
+  }
+  *num = n ;
+  return w ;
+}
diff --git a/src/libstddjb/ip4_scanlist_u32.c b/src/libstddjb/ip4_scanlist_u32.c
new file mode 100644
index 0000000..26a4e38
--- /dev/null
+++ b/src/libstddjb/ip4_scanlist_u32.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip4_scanlist_u32 (uint32 *out, unsigned int max, char const *s, unsigned int *num)
+{
+  unsigned int n = 0, w = 0 ;
+  for (; s[w] && (n < max) ; n++)
+  {
+    register unsigned int i = ip4_scanu32(s + w, out + n) ;
+    if (!i) break ;
+    w += i ;
+    while (byte_chr(",:; \t\r\n", 7, s[w]) < 7) w++ ;
+  }
+  *num = n ;
+  return w ;
+}
diff --git a/src/libstddjb/ip4_scanu32.c b/src/libstddjb/ip4_scanu32.c
new file mode 100644
index 0000000..a305926
--- /dev/null
+++ b/src/libstddjb/ip4_scanu32.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip4_scanu32 (char const *s, uint32 *ip)
+{
+  char pack[4] ;
+  register unsigned int r = ip4_scan(s, pack) ;
+  if (r) uint32_unpack_big(pack, ip) ;
+  return r ;
+}
diff --git a/src/libstddjb/ip6_fmt.c b/src/libstddjb/ip6_fmt.c
new file mode 100644
index 0000000..afd8a21
--- /dev/null
+++ b/src/libstddjb/ip6_fmt.c
@@ -0,0 +1,79 @@
+/* ISC license. */
+
+#include <skalibs/diuint.h>
+#include <skalibs/fmtscan.h>
+
+#define px(c) ((j || (c)) ? (*s++ = fmtscan_asc(c), 1) : 0)
+
+static inline unsigned int xfmt16 (char *s, char const *key)
+{
+  register unsigned int j = 0 ;
+  j += px((unsigned char)key[0] >> 4) ;
+  j += px((unsigned char)key[0] & 15) ;
+  j += px((unsigned char)key[1] >> 4) ;
+  j += px((unsigned char)key[1] & 15) ;
+  return j ? j : (*s = '0', 1) ;
+}
+
+static inline unsigned int find_colcol (char const *key, unsigned int *pos)
+{
+  diuint z[4] = { DIUINT_ZERO, DIUINT_ZERO, DIUINT_ZERO, DIUINT_ZERO } ;
+  unsigned int j = 0 ;
+  unsigned int max = 0 ;
+  register int iszero = 0 ;
+  register unsigned int i = 0 ;
+  for ( ; i < 8 ; i++)
+  {
+    if (key[i<<1] || key[(i<<1)+1])
+    {
+      if (iszero)
+      {
+        iszero = 0 ;
+        z[j].right = i - z[j].left ;
+        if (z[j].right > max) max = z[j].right ;
+        j++ ;
+      }
+    }
+    else
+    {
+      if (!iszero)
+      {
+        iszero = 1 ;
+        z[j].left = i ;
+      }
+    }
+  }
+  if (iszero)
+  {
+    z[j].right = 8 - z[j].left ;
+    if (z[j].right > max) max = z[j].right ;
+    j++ ;
+  }
+
+  if (max >= 2)
+    for (i = 0 ; i < j ; i++) if (z[i].right == max) return (*pos = z[i].left, max) ;
+  return 0 ; 
+}
+
+unsigned int ip6_fmt (char *s, char const *ip6)
+{
+  unsigned int w = 0 ;
+  register unsigned int i = 0 ;
+  unsigned int pos = 8 ;
+  unsigned int len = find_colcol(ip6, &pos) ;
+  for (; i < 8 ; i++)
+  {
+    if (i == pos)
+    {
+      if (!i) s[w++] = ':' ;
+      s[w++] = ':' ;
+      i += len-1 ;
+    }
+    else
+    {
+      w += xfmt16(s + w, ip6 + (i<<1)) ;
+      if (i < 7) s[w++] = ':' ;
+    }
+  }
+  return w ;
+}
diff --git a/src/libstddjb/ip6_scan.c b/src/libstddjb/ip6_scan.c
new file mode 100644
index 0000000..cb2dc49
--- /dev/null
+++ b/src/libstddjb/ip6_scan.c
@@ -0,0 +1,35 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip6_scan (char const *s, char *ip6)
+{
+  static const unsigned char class[256] = "2222222222222222222222222222222222222222222222220000000000122222200000022222222222222222222222222000000222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222" ;
+  static const unsigned char table[5][3] = { "\024#\005", "\024\"\005", "\024\005\006", "\005\002\005", "\024\t\016" } ;
+  uint16 tmp[8] = { 0, 0, 0, 0, 0, 0, 0, 0 } ;
+  unsigned int pos = 8, j = 0, state = 0, i = 0 ;
+
+  while (state < 5)
+  {
+    register unsigned char c = table[state][class[(unsigned char)s[i]] - '0'] ;
+    state = c & 7 ;
+    if (c & 0x20) { if (pos < 8) state = 5 ; else pos = j ; }
+    if (c & 0x10)
+    {
+     if (tmp[j] & 0xf000) state = 5 ;
+     else tmp[j] = (tmp[j] << 4) + fmtscan_num(s[i], 16) ;
+    }
+    if (c & 0x08) if ((++j > 7) && (state < 5)) state = 5 ;
+    i++ ;
+  }
+
+  if (((pos < 8) && (j > 6)) || ((pos == 8) && (j < 8))) state = 5 ;
+  if (state == 5) return (errno = EINVAL, 0) ; 
+  for (state = j ; state > pos ; state--) tmp[state - j + 7] = tmp[state - 1] ;
+  for (; state < pos + 8 - j ; state++) tmp[state] = 0 ;
+
+  for (j = 0 ; j < 8 ; j++) uint16_pack_big(ip6 + (j<<1), tmp[j]) ;
+  return i - 1 ;
+}
diff --git a/src/libstddjb/ip6_scanlist.c b/src/libstddjb/ip6_scanlist.c
new file mode 100644
index 0000000..8d751a6
--- /dev/null
+++ b/src/libstddjb/ip6_scanlist.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int ip6_scanlist (char *out, unsigned int max, char const *s, unsigned int *num)
+{
+  unsigned int n = 0, w = 0 ;
+  for (; s[w] && (n < max) ; n++)
+  {
+    char ip[16] ;
+    register unsigned int i = ip6_scan(s + w, ip) ;
+    if (!i) break ;
+    byte_copy(out + (n << 4), 16, ip) ;
+    w += i ;
+    while (byte_chr(",; \t\r\n", 6, s[w]) < 6) w++ ;
+  }
+  *num = n ;
+  return w ;
+}
diff --git a/src/libstddjb/ipc_accept.c b/src/libstddjb/ipc_accept.c
new file mode 100644
index 0000000..dc3eae7
--- /dev/null
+++ b/src/libstddjb/ipc_accept.c
@@ -0,0 +1,48 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/webipc.h>
+
+int ipc_accept_internal (int s, char *p, unsigned int l, int *trunc, unsigned int options)
+{
+  struct sockaddr_un sa ;
+  socklen_t dummy = sizeof sa ;
+  register int fd ;
+  byte_zero((char*)&sa, (unsigned int)dummy) ;
+  do
+#ifdef SKALIBS_HASACCEPT4
+    fd = accept4(s, (struct sockaddr *)&sa, &dummy, ((options & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((options & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0)) ;
+#else
+    fd = accept(s, (struct sockaddr *)&sa, &dummy) ;
+#endif
+  while ((fd == -1) && (errno == EINTR)) ;
+  if (fd == -1) return -1 ;
+#ifndef SKALIBS_HASACCEPT4
+  if ((((options & DJBUNIX_FLAG_NB) ? ndelay_on(fd) : ndelay_off(fd)) < 0)
+   || (((options & DJBUNIX_FLAG_COE) ? coe(fd) : uncoe(fd)) < 0))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+    return -1 ;
+  }
+#endif
+
+  if (p)
+  {
+    dummy = byte_chr(sa.sun_path, dummy, 0) ;
+    *trunc = 1 ;
+    if (!l) return fd ;
+    if (l < (dummy + 1)) dummy = l - 1 ;
+    else *trunc = 0 ;
+    byte_copy(p, dummy, sa.sun_path) ;
+    p[dummy] = 0 ;
+  }
+  return fd ;
+}
diff --git a/src/libstddjb/ipc_bind.c b/src/libstddjb/ipc_bind.c
new file mode 100644
index 0000000..2bb8678
--- /dev/null
+++ b/src/libstddjb/ipc_bind.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/error.h>
+#include <skalibs/webipc.h>
+
+int ipc_bind (int s, char const *p)
+{
+  struct sockaddr_un sa ;
+  register unsigned int l = str_len(p) ;
+  if (l > IPCPATH_MAX) return (errno = EPROTO, -1) ;
+  byte_zero((char *)&sa, sizeof sa) ;
+  sa.sun_family = AF_UNIX ;
+  byte_copy(sa.sun_path, l+1, p) ;
+  return bind(s, (struct sockaddr *)&sa, sizeof sa) ;
+}
diff --git a/src/libstddjb/ipc_bind_reuse.c b/src/libstddjb/ipc_bind_reuse.c
new file mode 100644
index 0000000..31db745
--- /dev/null
+++ b/src/libstddjb/ipc_bind_reuse.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <unistd.h>
+#include <skalibs/webipc.h>
+
+int ipc_bind_reuse (int s, char const *p)
+{
+  unsigned int opt = 1 ;
+  setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof opt) ;
+  unlink(p) ;
+  return ipc_bind(s, p) ;
+}
diff --git a/src/libstddjb/ipc_connect.c b/src/libstddjb/ipc_connect.c
new file mode 100644
index 0000000..6c5eac2
--- /dev/null
+++ b/src/libstddjb/ipc_connect.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/error.h>
+#include <skalibs/webipc.h>
+
+int ipc_connect (int s, char const *p)
+{
+  struct sockaddr_un sa ;
+  unsigned int l = str_len(p) ;
+  if (l > IPCPATH_MAX) return (errno = EPROTO, 0) ;
+  byte_zero((char *) &sa, sizeof sa) ;
+  sa.sun_family = AF_UNIX ;
+  byte_copy(sa.sun_path, l+1, p) ;
+  if (connect(s, (struct sockaddr *)&sa, sizeof sa) == -1)
+  {
+    if (errno == EINTR) errno = EINPROGRESS ;
+    return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/ipc_connected.c b/src/libstddjb/ipc_connected.c
new file mode 100644
index 0000000..4965c9f
--- /dev/null
+++ b/src/libstddjb/ipc_connected.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/webipc.h>
+
+int ipc_connected (int s)
+{
+  struct sockaddr_un sa ;
+  socklen_t dummy = sizeof sa ;
+  if (getpeername(s, (struct sockaddr *)&sa, &dummy) == -1)
+  {
+    char ch ;
+    fd_read(s, &ch, 1) ; /* sets errno */
+    return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/ipc_dgram.c b/src/libstddjb/ipc_dgram.c
new file mode 100644
index 0000000..ac61ee7
--- /dev/null
+++ b/src/libstddjb/ipc_dgram.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/webipc.h>
+
+int ipc_datagram_internal (unsigned int flags)
+{
+  return socket_internal(AF_UNIX, SOCK_DGRAM, 0, flags) ;
+}
diff --git a/src/libstddjb/ipc_eid.c b/src/libstddjb/ipc_eid.c
new file mode 100644
index 0000000..81f608a
--- /dev/null
+++ b/src/libstddjb/ipc_eid.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <skalibs/getpeereid.h>
+#include <skalibs/webipc.h>
+
+int ipc_eid (int s, unsigned int *u, unsigned int *g)
+{
+  uid_t dummyu ;
+  gid_t dummyg ;
+  if (getpeereid(s, &dummyu, &dummyg) < 0) return -1 ;
+  *u = (unsigned int)dummyu ;
+  *g = (unsigned int)dummyg ;
+  return 0 ;
+}
diff --git a/src/libstddjb/ipc_listen.c b/src/libstddjb/ipc_listen.c
new file mode 100644
index 0000000..a96be58
--- /dev/null
+++ b/src/libstddjb/ipc_listen.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h> 
+#include <sys/socket.h>
+#include <skalibs/webipc.h>
+
+int ipc_listen (int s, int backlog)
+{
+  return listen(s, backlog) ;
+}
diff --git a/src/libstddjb/ipc_local.c b/src/libstddjb/ipc_local.c
new file mode 100644
index 0000000..57ffb37
--- /dev/null
+++ b/src/libstddjb/ipc_local.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/webipc.h>
+
+int ipc_local (int s, char *p, unsigned int l, int *trunc)
+{
+  struct sockaddr_un sa ;
+  socklen_t dummy = sizeof sa ;
+  byte_zero((char *)&sa, sizeof sa) ;
+  if (getsockname(s, (struct sockaddr *)&sa, &dummy) == -1) return -1 ;
+  dummy = byte_chr(sa.sun_path, dummy, 0) ;
+  *trunc = 1 ;
+  if (!l) return 0 ;
+  if (l < (dummy + 1)) dummy = l - 1 ;
+  else *trunc = 0 ;
+  byte_copy(p, dummy, sa.sun_path) ;
+  p[dummy] = 0 ;
+  return 0 ;
+}
diff --git a/src/libstddjb/ipc_pair.c b/src/libstddjb/ipc_pair.c
new file mode 100644
index 0000000..6038d17
--- /dev/null
+++ b/src/libstddjb/ipc_pair.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/webipc.h>
+
+int ipc_pair_internal (int *sv, unsigned int flags)
+{
+  return socketpair_internal(AF_UNIX, SOCK_STREAM, 0, flags, sv) ;
+}
diff --git a/src/libstddjb/ipc_recv.c b/src/libstddjb/ipc_recv.c
new file mode 100644
index 0000000..80806e7
--- /dev/null
+++ b/src/libstddjb/ipc_recv.c
@@ -0,0 +1,33 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/error.h>
+#include <skalibs/webipc.h>
+
+int ipc_recv (int fd, char *s, unsigned int len, char *path)
+{
+  struct sockaddr_un sa ;
+  socklen_t total = sizeof sa ;
+  char tmp[len] ;
+  register int r ;
+  do r = recvfrom(fd, tmp, len, 0, (struct sockaddr *)&sa, &total) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if (r < 0) return r ;
+  if (sa.sun_family != AF_UNIX) return (errno = EPROTO, -1) ;
+  if (path)
+  {
+    if (total == sizeof(sa_family_t)) path[0] = 0 ;
+    else
+    {
+      unsigned int l = str_len(sa.sun_path) ;
+      if (l > IPCPATH_MAX) return (errno = EPROTO, -1) ;
+      byte_copy(path, l+1, sa.sun_path) ;
+    }
+  }
+  byte_copy(s, r, tmp) ;
+  return r ;
+}
diff --git a/src/libstddjb/ipc_send.c b/src/libstddjb/ipc_send.c
new file mode 100644
index 0000000..0e71d98
--- /dev/null
+++ b/src/libstddjb/ipc_send.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/error.h>
+#include <skalibs/webipc.h>
+
+int ipc_send (int fd, char const *s, unsigned int len, char const *path)
+{
+  struct sockaddr_un sa ;
+  register unsigned int l = str_len(path) ;
+  if (l > IPCPATH_MAX) return (errno = EPROTO, -1) ;
+  byte_zero(&sa, sizeof sa) ;
+  sa.sun_family = AF_UNIX ;
+  byte_copy(sa.sun_path, l+1, path) ;
+  return sendto(fd, s, len, 0, (struct sockaddr *)&sa, sizeof sa) ;
+}
diff --git a/src/libstddjb/ipc_stream.c b/src/libstddjb/ipc_stream.c
new file mode 100644
index 0000000..c2c6c1b
--- /dev/null
+++ b/src/libstddjb/ipc_stream.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/webipc.h>
+
+int ipc_stream_internal (unsigned int flags)
+{
+  return socket_internal(AF_UNIX, SOCK_STREAM, 0, flags) ;
+}
diff --git a/src/libstddjb/ipc_timed_connect.c b/src/libstddjb/ipc_timed_connect.c
new file mode 100644
index 0000000..4f8e73d
--- /dev/null
+++ b/src/libstddjb/ipc_timed_connect.c
@@ -0,0 +1,26 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/error.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+#include <skalibs/webipc.h>
+
+int ipc_timed_connect (int s, char const *path, tain_t const *deadline, tain_t *stamp)
+{
+  if (!ipc_connect(s, path))
+  {
+    iopause_fd x = { s, IOPAUSE_WRITE, 0 } ;
+    if (!error_isagain(errno) && !error_isalready(errno)) return 0 ;
+    for (;;)
+    {
+      register int r = iopause_stamp(&x, 1, deadline, stamp) ;
+      if (r < 0) return 0 ;
+      else if (!r) return (errno = ETIMEDOUT, 0) ;
+      else if (x.revents & IOPAUSE_EXCEPT) return 0 ;
+      else if (x.revents & IOPAUSE_WRITE) break ;
+    }
+    if (!ipc_connected(s)) return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/leapsecs_add.c b/src/libstddjb/leapsecs_add.c
new file mode 100644
index 0000000..c24486b
--- /dev/null
+++ b/src/libstddjb/leapsecs_add.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include "djbtime-internal.h"
+
+int leapsecs_add_r (uint64 *t, char const *file, uint64 *leapsecs, int hit)
+{
+  uint64 u = *t ;
+  int n = leapsecs_init_r(file, leapsecs) ;
+  register unsigned int i = 0 ;
+  if (n < 0) return -1 ;
+  for (; i < (unsigned int)n ; i++)
+  {
+    if (u < leapsecs[i]) break ;
+    if (!hit || (leapsecs[i] < u)) ++u ;
+  }
+  *t = u ;
+  return n ;
+}
diff --git a/src/libstddjb/leapsecs_here.c b/src/libstddjb/leapsecs_here.c
new file mode 100644
index 0000000..3ecdfd1
--- /dev/null
+++ b/src/libstddjb/leapsecs_here.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/uint64.h>
+#include "djbtime-internal.h"
+
+static uint64 leapsecs_here_tab[LEAPSECS_MAX+1] ;
+uint64 *leapsecs_here = leapsecs_here_tab ;
diff --git a/src/libstddjb/leapsecs_init.c b/src/libstddjb/leapsecs_init.c
new file mode 100644
index 0000000..41f9b89
--- /dev/null
+++ b/src/libstddjb/leapsecs_init.c
@@ -0,0 +1,34 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbunix.h>
+#include "djbtime-internal.h"
+
+static unsigned int leapsecs_len (uint64 const *data)
+{
+  register unsigned int i = 1 ;
+  while (data[i]) i++ ;
+  return i ;
+}
+
+static int leapsecs_read (char const *file, uint64 *data)
+{
+  char s[LEAPSECS_MAX * sizeof(uint64)] ;
+  register int n = openreadnclose(file, s, LEAPSECS_MAX * sizeof(uint64)) ;
+  if (n < 0) return -1 ;
+  if (n % sizeof(uint64)) return (errno = EINVAL, -1) ;
+  n /= sizeof(uint64) ;
+  {
+    register unsigned int i = 0 ;
+    for (; i < (unsigned int)n ; i++)
+      uint64_unpack_big(s + i * sizeof(uint64), data + i) ;
+  }
+  data[n] = 0 ;
+  return n ;
+}
+
+int leapsecs_init_r (char const *file, uint64 *data)
+{
+  return data[0] ? (int)leapsecs_len(data) : leapsecs_read(file, data) ;
+}
diff --git a/src/libstddjb/leapsecs_sub.c b/src/libstddjb/leapsecs_sub.c
new file mode 100644
index 0000000..271f592
--- /dev/null
+++ b/src/libstddjb/leapsecs_sub.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include "djbtime-internal.h"
+
+int leapsecs_sub_r (uint64 *t, char const *file, uint64 *leapsecs)
+{
+  uint64 u = *t ;
+  uint64 d = 0 ;
+  int n = leapsecs_init_r(file, leapsecs) ;
+  register unsigned int i = 0 ;
+  register int hit = 0 ;
+  if (n < 0) return -1 ;
+  for (; i < (unsigned int)n ; i++)
+  {
+    if (u < leapsecs[i]) break ;
+    ++d ;
+    if (u == leapsecs[i]) hit = 1 ;
+  }
+  *t = u - d ;
+  return hit ;
+}
diff --git a/src/libstddjb/localtm_fmt.c b/src/libstddjb/localtm_fmt.c
new file mode 100644
index 0000000..ee083ef
--- /dev/null
+++ b/src/libstddjb/localtm_fmt.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <time.h>
+#include <skalibs/uint.h>
+#include <skalibs/djbtime.h>
+
+unsigned int localtm_fmt (char *s, struct tm const *l)
+{
+  char *p = s ;
+  p += uint_fmt(p, 1900 + l->tm_year) ; *p++ = '-' ;
+  uint0_fmt(p, 1 + l->tm_mon, 2) ; p += 2 ; *p++ = '-' ;
+  uint0_fmt(p, l->tm_mday, 2) ; p += 2 ; *p++ = ' ' ;
+  uint0_fmt(p, l->tm_hour, 2) ; p += 2 ; *p++ = ':' ;
+  uint0_fmt(p, l->tm_min, 2) ; p += 2 ; *p++ = ':' ;
+  uint0_fmt(p, l->tm_sec, 2) ; p += 2 ;
+  return p - s ;
+}
diff --git a/src/libstddjb/localtm_from_ltm64.c b/src/libstddjb/localtm_from_ltm64.c
new file mode 100644
index 0000000..63c5aac
--- /dev/null
+++ b/src/libstddjb/localtm_from_ltm64.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+/* OpenBSD needs that for EOVERFLOW. wtfbsdseriously */
+#define _BSD_SOURCE
+
+#include <sys/types.h>
+#include <errno.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int localtm_from_ltm64 (struct tm *l, uint64 uu, int tz)
+{
+  if (uu < TAI_MAGIC) return (errno = EINVAL, 0) ;
+  uu -= TAI_MAGIC ;
+  if (uu > 0xFFFFFFFFUL) return (errno = EOVERFLOW, 0) ;
+  {
+    time_t u = (time_t)uu ;
+    if (tz ? !localtime_r(&u, l) : !gmtime_r(&u, l)) return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/localtm_from_sysclock.c b/src/libstddjb/localtm_from_sysclock.c
new file mode 100644
index 0000000..939bb21
--- /dev/null
+++ b/src/libstddjb/localtm_from_sysclock.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+int localtm_from_sysclock (struct tm *l, uint64 u, int tz)
+{
+  if (!ltm64_from_sysclock(&u)) return 0 ;
+  return localtm_from_ltm64(l, u, tz) ;
+}
diff --git a/src/libstddjb/localtm_from_tai.c b/src/libstddjb/localtm_from_tai.c
new file mode 100644
index 0000000..ad12cf2
--- /dev/null
+++ b/src/libstddjb/localtm_from_tai.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int localtm_from_tai (struct tm *l, tai_t const *t, int tz)
+{
+  uint64 u ;
+  if (!ltm64_from_tai(&u, t)) return 0 ;
+  return localtm_from_ltm64(l, u, tz) ;
+}
diff --git a/src/libstddjb/localtm_from_utc.c b/src/libstddjb/localtm_from_utc.c
new file mode 100644
index 0000000..697621c
--- /dev/null
+++ b/src/libstddjb/localtm_from_utc.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+int localtm_from_utc (struct tm *l, uint64 u, int tz)
+{
+  if (!ltm64_from_utc(&u)) return 0 ;
+  return localtm_from_ltm64(l, u, tz) ;
+}
diff --git a/src/libstddjb/localtm_scan.c b/src/libstddjb/localtm_scan.c
new file mode 100644
index 0000000..b028883
--- /dev/null
+++ b/src/libstddjb/localtm_scan.c
@@ -0,0 +1,40 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <time.h>
+#include <skalibs/djbtime.h>
+#include <skalibs/uint.h>
+
+unsigned int localtm_scan (char const *s, struct tm *l)
+{
+  struct tm ll = { .tm_isdst = -1 } ;
+  unsigned int n = 0 ; unsigned int u ;
+  register unsigned int i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (u < 1900) goto fail ; u -= 1900 ; ll.tm_year = u ;
+  if (s[n++] != '-') goto fail ;
+  i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (!u || (u > 12)) goto fail ; u-- ; ll.tm_mon = u ;
+  if (s[n++] != '-') goto fail ;
+  i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (!u || (u > 31)) goto fail ; ll.tm_mday = u ;
+  if ((s[n] != ' ') && (s[n] != 'T')) goto fail ; n++ ;
+  i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (u > 23) goto fail ; ll.tm_hour = u ;
+  if (s[n++] != ':') goto fail ;
+  i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (u > 59) goto fail ; ll.tm_min = u ;
+  if (s[n++] != ':') goto fail ;
+  i = uint_scan(s+n, &u) ;
+  if (!i) goto fail ; n += i ;
+  if (u > 60) goto fail ; ll.tm_sec = u ;
+  if (mktime(&ll) == (time_t)-1) goto fail ;
+  *l = ll ;
+  return n ;
+ fail:
+  return (errno = EINVAL, 0) ;
+}
diff --git a/src/libstddjb/localtmn_fmt.c b/src/libstddjb/localtmn_fmt.c
new file mode 100644
index 0000000..79a869d
--- /dev/null
+++ b/src/libstddjb/localtmn_fmt.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/djbtime.h>
+
+unsigned int localtmn_fmt (char *s, localtmn_t const *l)
+{
+  char *p = s ;
+  p += localtm_fmt(p, &l->tm) ; *p++ = '.' ;
+  uint320_fmt(p, l->nano, 9) ; p += 9 ;
+  return p - s ;
+}
diff --git a/src/libstddjb/localtmn_from_sysclock.c b/src/libstddjb/localtmn_from_sysclock.c
new file mode 100644
index 0000000..2d4e4fd
--- /dev/null
+++ b/src/libstddjb/localtmn_from_sysclock.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int localtmn_from_sysclock (localtmn_t_ref l, tain_t const *a, int tz)
+{
+  struct tm t ;
+  if (!localtm_from_sysclock(&t, a->sec.x, tz)) return 0 ;
+  l->tm = t ;
+  l->nano = a->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/localtmn_from_tain.c b/src/libstddjb/localtmn_from_tain.c
new file mode 100644
index 0000000..a3d3f6e
--- /dev/null
+++ b/src/libstddjb/localtmn_from_tain.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int localtmn_from_tain (localtmn_t_ref l, tain_t const *a, int tz)
+{
+  struct tm t ;
+  if (!localtm_from_tai(&t, tain_secp(a), tz)) return 0 ;
+  l->tm = t ;
+  l->nano = a->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/localtmn_scan.c b/src/libstddjb/localtmn_scan.c
new file mode 100644
index 0000000..f33ab51
--- /dev/null
+++ b/src/libstddjb/localtmn_scan.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/djbtime.h>
+
+unsigned int localtmn_scan (char const *s, localtmn_t_ref l)
+{
+  localtmn_t m ;
+  unsigned int n = localtm_scan(s, &m.tm) ;
+  if (!n) return 0 ;
+  s += n ;
+  if (*s++ != '.') m.nano = 0 ;
+  else
+  {
+    register unsigned int b = uint32_scan(s, &m.nano) ;
+    if (!b) return 0 ;
+    s += b ; n += b ;
+  }
+  *l = m ;
+  return n ;
+}
diff --git a/src/libstddjb/lock_ex.c b/src/libstddjb/lock_ex.c
new file mode 100644
index 0000000..fde901b
--- /dev/null
+++ b/src/libstddjb/lock_ex.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASFLOCK
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/file.h>
+#include <skalibs/djbunix.h>
+
+int lock_ex (int fd)
+{
+  register int r ;
+  do
+    r = flock(fd, LOCK_EX) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int lock_ex (int fd)
+{
+  register int r ;
+  do
+    r = lockf(fd, F_LOCK, 0) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#endif
diff --git a/src/libstddjb/lock_exnb.c b/src/libstddjb/lock_exnb.c
new file mode 100644
index 0000000..7fed9f0
--- /dev/null
+++ b/src/libstddjb/lock_exnb.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASFLOCK
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/file.h>
+#include <skalibs/djbunix.h>
+
+int lock_exnb (int fd)
+{
+  register int r ;
+  do
+    r = flock(fd, LOCK_EX | LOCK_NB) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int lock_exnb (int fd)
+{
+  register int r ;
+  do
+    r = lockf(fd, F_TLOCK, 0) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if ((r == -1) && (errno == EACCES)) errno = EAGAIN ;
+  return r ;
+}
+
+#endif
diff --git a/src/libstddjb/lock_sh.c b/src/libstddjb/lock_sh.c
new file mode 100644
index 0000000..4a42dc1
--- /dev/null
+++ b/src/libstddjb/lock_sh.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASFLOCK
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/file.h>
+#include <skalibs/djbunix.h>
+
+int lock_sh (int fd)
+{
+  register int r ;
+  do
+    r = flock(fd, LOCK_SH) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int lock_sh (int fd)
+{
+  register int r ;
+  do
+    r = lockf(fd, F_LOCK, 0) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#endif
diff --git a/src/libstddjb/lock_shnb.c b/src/libstddjb/lock_shnb.c
new file mode 100644
index 0000000..6a8fd42
--- /dev/null
+++ b/src/libstddjb/lock_shnb.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASFLOCK
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/file.h>
+#include <skalibs/djbunix.h>
+
+int lock_shnb (int fd)
+{
+  register int r ;
+  do
+    r = flock(fd, LOCK_SH | LOCK_NB) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int lock_shnb (int fd)
+{
+  register int r ;
+  do
+    r = lockf(fd, F_TLOCK, 0) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if ((r == -1) && (errno == EACCES)) errno = EAGAIN ;
+  return r ;
+}
+
+#endif
diff --git a/src/libstddjb/lock_un.c b/src/libstddjb/lock_un.c
new file mode 100644
index 0000000..099716a
--- /dev/null
+++ b/src/libstddjb/lock_un.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASFLOCK
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/file.h>
+#include <skalibs/djbunix.h>
+
+int lock_un (int fd)
+{
+  register int r ;
+  do
+    r = flock(fd, LOCK_UN) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int lock_un (int fd)
+{
+  register int r ;
+  do
+    r = lockf(fd, F_ULOCK, 0) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#endif
diff --git a/src/libstddjb/lolprintf.c b/src/libstddjb/lolprintf.c
new file mode 100644
index 0000000..90cc5fc
--- /dev/null
+++ b/src/libstddjb/lolprintf.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <stdarg.h>
+#include <skalibs/buffer.h>
+#include <skalibs/lolstdio.h>
+
+int lolprintf (char const *format, ...)
+{
+  va_list args ;
+  int r ;
+  va_start(args, format) ;
+  r = vbprintf(buffer_1, format, args) ;
+  va_end(args) ;
+  return r ;
+}
diff --git a/src/libstddjb/long_fmt.c b/src/libstddjb/long_fmt.c
new file mode 100644
index 0000000..552fe47
--- /dev/null
+++ b/src/libstddjb/long_fmt.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/ulong.h>
+
+unsigned int long_fmt (char *fmt, long n)
+{
+  if (n >= 0) return ulong_fmt(fmt, n) ;
+  if (fmt) *fmt++ = '-' ;
+  return 1 + ulong_fmt(fmt, -n) ;
+}
diff --git a/src/libstddjb/long_scan.c b/src/libstddjb/long_scan.c
new file mode 100644
index 0000000..34a5e1a
--- /dev/null
+++ b/src/libstddjb/long_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/ulong.h>
+#include "fmtscan-internal.h"
+
+SCANS(long, LONG)
diff --git a/src/libstddjb/ltm64_from_localtm.c b/src/libstddjb/ltm64_from_localtm.c
new file mode 100644
index 0000000..6169f04
--- /dev/null
+++ b/src/libstddjb/ltm64_from_localtm.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <time.h>
+#include <skalibs/tai.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+int ltm64_from_localtm (uint64 *uu, struct tm const *l)
+{
+  struct tm ll = *l ;
+  time_t u = mktime(&ll) ;
+  if (u == (time_t)-1) return (errno = EINVAL, 0) ;
+  *uu = TAI_MAGIC + u ;
+  return 1 ;
+}
diff --git a/src/libstddjb/ltm64_from_sysclock.c b/src/libstddjb/ltm64_from_sysclock.c
new file mode 100644
index 0000000..54aca39
--- /dev/null
+++ b/src/libstddjb/ltm64_from_sysclock.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+#include <skalibs/tai.h>
+
+int ltm64_from_sysclock (uint64 *u)
+{
+  tai_t t = { *u + 10U } ;
+  return ltm64_from_tai(u, &t) ;
+}
+
+#else
+
+int ltm64_from_sysclock (uint64 *u)
+{
+  return ltm64_from_utc(u) ;
+}
+
+#endif
diff --git a/src/libstddjb/ltm64_from_tai.c b/src/libstddjb/ltm64_from_tai.c
new file mode 100644
index 0000000..c0650c5
--- /dev/null
+++ b/src/libstddjb/ltm64_from_tai.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_TZISRIGHT
+
+int ltm64_from_tai (uint64 *u, tai_t const *t)
+{
+  *u = t->x - 10U ;
+  return 1 ;
+}
+
+#else
+
+int ltm64_from_tai (uint64 *u, tai_t const *t)
+{
+  return utc_from_tai(u, t) ;
+}
+
+#endif
diff --git a/src/libstddjb/ltm64_from_utc.c b/src/libstddjb/ltm64_from_utc.c
new file mode 100644
index 0000000..8d66813
--- /dev/null
+++ b/src/libstddjb/ltm64_from_utc.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+#include "djbtime-internal.h"
+
+#ifdef SKALIBS_FLAG_TZISRIGHT
+
+int ltm64_from_utc (uint64 *u)
+{
+  return (leapsecs_add(u, 0) >= 0) ;
+}
+
+#else
+
+int ltm64_from_utc (uint64 *u)
+{
+  (void)u ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/mininetstring_read.c b/src/libstddjb/mininetstring_read.c
new file mode 100644
index 0000000..6a38523
--- /dev/null
+++ b/src/libstddjb/mininetstring_read.c
@@ -0,0 +1,44 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/uint32.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/mininetstring.h>
+
+int mininetstring_read (int fd, stralloc *sa, uint32 *w)
+{
+  if (!*w)
+  {
+    char pack[2] ;
+    switch (fd_read(fd, pack, 2))
+    {
+      case -1 : return -1 ;
+      case 0 : return 0 ;
+      case 1 : *w = ((uint32)pack[0] << 8) | (1U << 31) ; break ;
+      case 2 : *w = ((uint32)pack[0] << 8) | (uint32)pack[1] | (1U << 30) ; break ;
+      default : return (errno = EDOM, -1) ;
+    }
+  }
+  if (*w & (1U << 31))
+  {
+    char c ;
+    switch (fd_read(fd, &c, 1))
+    {
+      case -1 : return -1 ;
+      case 0 : return (errno = EPIPE, -1) ;
+      case 1 : *w |= (uint32)c | (1U << 30) ; *w &= ~(1U << 31) ; break ;
+      default : return (errno = EDOM, -1) ;
+    }
+  }
+  if (*w & (1U << 30))
+  {
+    if (!stralloc_readyplus(sa, *w & ~(1U << 30))) return -1 ;
+    *w &= ~(1U << 30) ;
+  }
+  {
+    register unsigned int r = allread(fd, sa->s + sa->len, *w) ;
+    sa->len += r ; *w -= r ;
+  }
+  return *w ? -1 : 1 ;
+}
diff --git a/src/libstddjb/mininetstring_write.c b/src/libstddjb/mininetstring_write.c
new file mode 100644
index 0000000..6b31f17
--- /dev/null
+++ b/src/libstddjb/mininetstring_write.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/uint32.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/mininetstring.h>
+
+int mininetstring_write (int fd, char const *s, uint16 len, uint32 *w)
+{
+  if (!w)
+  {
+    char pack[2] ;
+    uint16_pack_big(pack, len) ;
+    switch (fd_write(fd, pack, 2))
+    {
+      case -1 : return -1 ;
+      case 0 : return (errno = EAGAIN, -1) ;
+      case 1 : *w = (1U << 31) ; break ;
+      case 2 : *w = len ; break ;
+      default : return (errno = EDOM, -1) ;
+    }
+  }
+  if (*w & (1U << 31))
+  {
+    char c = len & 0xFFU ;
+    switch (fd_write(fd, &c, 1))
+    {
+      case -1 : return -1 ;
+      case 0 : return (errno = EAGAIN, -1) ;
+      case 1 : *w = len ; break ;
+      default : return (errno = EDOM, -1) ;
+    }
+  }
+  *w -= allwrite(fd, s + len - *w, *w) ;
+  return *w ? -1 : 1 ;
+}
diff --git a/src/libstddjb/ndelay_off.c b/src/libstddjb/ndelay_off.c
new file mode 100644
index 0000000..828acfa
--- /dev/null
+++ b/src/libstddjb/ndelay_off.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int ndelay_off (int fd)
+{
+  register int got = fcntl(fd, F_GETFL) ;
+  return (got == -1) ? -1 : fcntl(fd, F_SETFL, got & ~O_NONBLOCK) ;
+}
diff --git a/src/libstddjb/ndelay_on.c b/src/libstddjb/ndelay_on.c
new file mode 100644
index 0000000..186590b
--- /dev/null
+++ b/src/libstddjb/ndelay_on.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int ndelay_on (int fd)
+{
+  register int got = fcntl(fd, F_GETFL) ;
+  return (got == -1) ? -1 : fcntl(fd, F_SETFL, got | O_NONBLOCK) ;
+}
diff --git a/src/libstddjb/netstring_append.c b/src/libstddjb/netstring_append.c
new file mode 100644
index 0000000..9c14f49
--- /dev/null
+++ b/src/libstddjb/netstring_append.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/uint.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/netstring.h>
+
+int netstring_appendb (stralloc *sa, char const *s, unsigned int len)
+{
+  char fmt[UINT_FMT] ;
+  unsigned int n = uint_fmt(fmt, len) ;
+  if (!stralloc_readyplus(sa, len + n + 2)) return 0 ;
+  fmt[n] = ':' ;
+  byte_copy(sa->s + sa->len, n+1, fmt) ;
+  byte_copy(sa->s + sa->len + n+1, len, s) ;
+  sa->s[sa->len + n+1 + len] = ',' ;
+  sa->len += n + 2 + len ;
+  return 1 ;
+}
diff --git a/src/libstddjb/netstring_appendv.c b/src/libstddjb/netstring_appendv.c
new file mode 100644
index 0000000..1fc1406
--- /dev/null
+++ b/src/libstddjb/netstring_appendv.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <skalibs/uint.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/netstring.h>
+
+int netstring_appendv (stralloc *sa, siovec_t const *v, unsigned int n)
+{
+  char fmt[UINT_FMT] ;
+  unsigned int len = 0, pos ;
+  register unsigned int i = 0 ;
+  for (; i < n ; i++) len += v[i].len ;
+  pos = uint_fmt(fmt, len) ;
+  if (!stralloc_readyplus(sa, len + pos + 2)) return 0 ;
+  fmt[pos] = ':' ;
+  byte_copy(sa->s + sa->len, pos+1, fmt) ;
+  sa->len += pos+1 ;
+  for (i = 0 ; i < n ; i++)
+  {
+    byte_copy(sa->s + sa->len, v[i].len, v[i].s) ;
+    sa->len += v[i].len ;
+  }
+  sa->s[sa->len++] = ',' ;
+  return 1 ;
+}
diff --git a/src/libstddjb/netstring_decode.c b/src/libstddjb/netstring_decode.c
new file mode 100644
index 0000000..a81756b
--- /dev/null
+++ b/src/libstddjb/netstring_decode.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/fmtscan.h>
+#include <skalibs/netstring.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/uint.h>
+
+int netstring_decode (stralloc *sa, char const *s, unsigned int len)
+{
+  unsigned int nlen ;
+  register unsigned int pos ;
+  if (!len) return 0 ;
+  pos = uint_scan(s, &nlen) ;
+  if (pos >= len) return (errno = EINVAL, -1) ;
+  if (s[pos] != ':') return (errno = EINVAL, -1) ;
+  s += pos+1 ; len -= pos+1 ;
+  if (len <= nlen) return (errno = EINVAL, -1) ;
+  if (s[nlen] != ',') return (errno = EINVAL, -1) ;
+  if (!stralloc_catb(sa, s, nlen)) return -1 ;
+  return pos + nlen + 2 ;
+}
diff --git a/src/libstddjb/netstring_encode.c b/src/libstddjb/netstring_encode.c
new file mode 100644
index 0000000..c13abd6
--- /dev/null
+++ b/src/libstddjb/netstring_encode.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/netstring.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/uint.h>
+
+int netstring_encode (stralloc *sa, char const *s, unsigned int len)
+{
+  char fmt[UINT_FMT] ;
+  unsigned int pos = uint_fmt(fmt, len) ;
+  if (!stralloc_readyplus(sa, pos + len + 2)) return 0 ;
+  stralloc_catb(sa, fmt, pos) ;
+  stralloc_catb(sa, ":", 1) ;
+  stralloc_catb(sa, s, len) ;
+  stralloc_catb(sa, ",", 1) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/netstring_get.c b/src/libstddjb/netstring_get.c
new file mode 100644
index 0000000..6f6c602
--- /dev/null
+++ b/src/libstddjb/netstring_get.c
@@ -0,0 +1,54 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/uint.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/buffer.h>
+#include <skalibs/cbuffer.h>
+#include <skalibs/error.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/netstring.h>
+
+int netstring_okeof (buffer *b, unsigned int w)
+{
+  return (errno == EPIPE) && !w && buffer_isempty(b) ? (errno = 0, 1) : 0 ;
+}
+
+int netstring_get (buffer *b, stralloc *sa, unsigned int *state)
+{
+  if (!*state)
+  {
+    unsigned int n ;
+    unsigned int len ;
+    char buf[UINT_FMT] ;
+    if (b->c.a < UINT_FMT+1) return (errno = EINVAL, -1) ;
+    for (;;)
+    {
+      register int r ;
+      len = buffer_getnofill(b, buf, UINT_FMT) ;
+      n = byte_chr(buf, len, ':') ;  /* XXX: accepts :, as a valid netstring */
+      if (n >= UINT_FMT)
+      {
+        buffer_unget(b, len) ;
+        return (errno = EPROTO, -1) ;
+      }
+      if (n < len) break ;
+      buffer_unget(b, len) ;
+      r = sanitize_read(buffer_fill(b)) ;
+      if (r <= 0) return r ;
+    }
+    buffer_unget(b, len - n - 1) ;
+    if (!n || n != uint_scan(buf, &len)) return (errno = EPROTO, -1) ;
+    if (!stralloc_readyplus(sa, len + 1)) return -1 ;
+    *state = len + 1 ;
+  }
+  {
+    unsigned int w = 0 ;
+    register int r = buffer_getall(b, sa->s + sa->len, *state, &w) ;
+    sa->len += w ;
+    *state -= w ;
+    if (r <= 0) return r ;
+  }
+  return (sa->s[--sa->len] == ',') ? 1 : (errno = EPROTO, -1) ;
+}
diff --git a/src/libstddjb/netstring_put.c b/src/libstddjb/netstring_put.c
new file mode 100644
index 0000000..5a27b25
--- /dev/null
+++ b/src/libstddjb/netstring_put.c
@@ -0,0 +1,36 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/netstring.h>
+#include <skalibs/uint.h>
+
+int netstring_put (buffer *b, char const *s, unsigned int len, unsigned int *written)
+{
+  char fmt[UINT_FMT] ;
+  unsigned int n = uint_fmt(fmt, len) ;
+  if (*written > len + n + 2) return (errno = EINVAL, 0) ;
+  fmt[n] = ':' ;
+  if (*written < n + 1)
+  {
+    unsigned int w = *written ;
+    int r = buffer_putall(b, fmt, n+1, &w) ;
+    if (r < 0) return (*written = w, 0) ;
+    *written = n+1 ;
+  }
+  if (*written < n+1 + len)
+  {
+    unsigned int w = *written - (n+1) ;
+    int r = buffer_putall(b, s, len, &w) ;
+    *written = w + (n+1) ;
+    if (r < 0) return (*written = n+1 + w, 0) ;
+    *written = n+1 + len ;
+  }
+  {
+    unsigned int w = 0 ;
+    int r = buffer_putall(b, ",", 1, &w) ;
+    if (r < 0) return 0 ;
+  }
+  *written = 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/ntp_from_tain.c b/src/libstddjb/ntp_from_tain.c
new file mode 100644
index 0000000..43d5a42
--- /dev/null
+++ b/src/libstddjb/ntp_from_tain.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int ntp_from_tain (uint64 *u, tain_t const *a)
+{
+  uint64 secs, frac ;
+  if (!utc_from_tai(&secs, tain_secp(a))) return 0 ;
+  secs += NTP_OFFSET ;
+  if (secs < TAI_MAGIC + 2147483648UL) goto ifail ;
+  secs -= TAI_MAGIC ;
+  if (secs >= ((uint64)3 << 31)) goto ifail ;
+  secs &= (secs < ((uint64)1 << 32)) ? 0xFFFFFFFFUL : 0x7FFFFFFFUL ;
+  frac = ((uint64)a->nano << 32) / 1000000000UL ;
+  *u = (secs << 32) + frac ;
+  return 1 ;
+ ifail:
+  errno = EINVAL ;
+  return 0 ;
+}
diff --git a/src/libstddjb/open2.c b/src/libstddjb/open2.c
new file mode 100644
index 0000000..780f345
--- /dev/null
+++ b/src/libstddjb/open2.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <errno.h>
+
+int open2 (char const *s, unsigned int flags)
+{
+  register int r ;
+  do
+    r = open(s, (int)flags) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/open3.c b/src/libstddjb/open3.c
new file mode 100644
index 0000000..f990d63
--- /dev/null
+++ b/src/libstddjb/open3.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <errno.h>
+
+int open3 (char const *s, unsigned int flags, unsigned int mode)
+{
+  register int r ;
+  do
+    r = open(s, (int)flags, (mode_t)mode) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/open_append.c b/src/libstddjb/open_append.c
new file mode 100644
index 0000000..7486312
--- /dev/null
+++ b/src/libstddjb/open_append.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_append (char const *fn)
+{
+  return open3(fn, O_WRONLY | O_NONBLOCK | O_APPEND | O_CREAT, 0666) ;
+}
diff --git a/src/libstddjb/open_create.c b/src/libstddjb/open_create.c
new file mode 100644
index 0000000..db072d1
--- /dev/null
+++ b/src/libstddjb/open_create.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_create (char const *fn)
+{
+  return open3(fn, O_WRONLY | O_NONBLOCK | O_CREAT, 0666) ;
+}
diff --git a/src/libstddjb/open_excl.c b/src/libstddjb/open_excl.c
new file mode 100644
index 0000000..83c7770
--- /dev/null
+++ b/src/libstddjb/open_excl.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_excl (char const *fn)
+{
+  return open3(fn, O_WRONLY | O_CREAT | O_EXCL | O_NONBLOCK, 0666) ;
+}
diff --git a/src/libstddjb/open_read.c b/src/libstddjb/open_read.c
new file mode 100644
index 0000000..cc1b191
--- /dev/null
+++ b/src/libstddjb/open_read.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_read (char const *fn)
+{
+  return open2(fn, O_RDONLY | O_NONBLOCK) ;
+}
diff --git a/src/libstddjb/open_readb.c b/src/libstddjb/open_readb.c
new file mode 100644
index 0000000..a8b0518
--- /dev/null
+++ b/src/libstddjb/open_readb.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/djbunix.h>
+
+int open_readb (char const *fn)
+{
+  register int fd = open_read(fn) ;
+  if (fd == -1) return -1 ;
+  if (ndelay_off(fd) == -1)
+  {
+    fd_close(fd) ;
+    return -1 ;
+  }
+  return fd ;
+}
diff --git a/src/libstddjb/open_trunc.c b/src/libstddjb/open_trunc.c
new file mode 100644
index 0000000..b34e3c2
--- /dev/null
+++ b/src/libstddjb/open_trunc.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_trunc (char const *fn)
+{
+  return open3(fn, O_WRONLY | O_NONBLOCK | O_TRUNC | O_CREAT, 0666) ;
+}
diff --git a/src/libstddjb/open_write.c b/src/libstddjb/open_write.c
new file mode 100644
index 0000000..42a92c3
--- /dev/null
+++ b/src/libstddjb/open_write.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int open_write (char const *fn)
+{
+  return open2(fn, O_WRONLY | O_NONBLOCK) ;
+}
diff --git a/src/libstddjb/openreadclose.c b/src/libstddjb/openreadclose.c
new file mode 100644
index 0000000..cf9a736
--- /dev/null
+++ b/src/libstddjb/openreadclose.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int openreadclose (char const *fn, stralloc *sa, unsigned int bufsize)
+{
+  int fd = open_readb(fn) ;
+  if (fd == -1) return (errno == ENOENT) ? 0 : -1 ;
+  if (!slurp(sa, fd))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+    return -1 ;
+  }
+  fd_close(fd) ;
+  (void)bufsize ;
+  return 0 ;
+}
diff --git a/src/libstddjb/openreadfileclose.c b/src/libstddjb/openreadfileclose.c
new file mode 100644
index 0000000..90e6b47
--- /dev/null
+++ b/src/libstddjb/openreadfileclose.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int openreadfileclose (char const *file, stralloc *sa, unsigned int limit)
+{
+  unsigned int n ;
+  int fd = open_readb(file) ;
+  if (fd < 0) return 0 ;
+  {
+    struct stat st ;
+    if (fstat(fd, &st) < 0) goto err ;
+    n = st.st_size ;
+  }
+  if (limit && (limit < n)) n = limit ;
+  if (!stralloc_ready_tuned(sa, sa->len + n, 0, 0, 1)) goto err ;
+  {
+    register unsigned int r = allread(fd, sa->s + sa->len, n) ;
+    sa->len += r ;
+    if (r < n) goto err ;
+  }
+  fd_close(fd) ;
+  return 1 ;
+
+err:
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/openreadnclose.c b/src/libstddjb/openreadnclose.c
new file mode 100644
index 0000000..b0cf5d0
--- /dev/null
+++ b/src/libstddjb/openreadnclose.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/djbunix.h>
+
+int openreadnclose (char const *file, char *s, unsigned int n)
+{
+  register int r ;
+  int fd = open_readb(file) ;
+  if (fd == -1) return -1 ;
+  r = allread(fd, s, n) ;
+  if (r == -1)
+  {
+    fd_close(fd) ;
+    return -1 ;
+  }
+  fd_close(fd) ;
+  if ((r > 0) && (r < (int)n)) errno = EPIPE ;
+  return r ;
+}
diff --git a/src/libstddjb/openslurpclose.c b/src/libstddjb/openslurpclose.c
new file mode 100644
index 0000000..5f67d76
--- /dev/null
+++ b/src/libstddjb/openslurpclose.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int openslurpclose (stralloc *sa, char const *fn)
+{
+  int r ;
+  int e ;
+  int fd = open_readb(fn) ;
+  if (fd == -1) return 0 ;
+  r = slurp(sa, fd) ;
+  e = errno ;
+  fd_close(fd) ;
+  errno = e ;
+  return r ;
+}
diff --git a/src/libstddjb/openwritenclose_suffix.c b/src/libstddjb/openwritenclose_suffix.c
new file mode 100644
index 0000000..1c538ed
--- /dev/null
+++ b/src/libstddjb/openwritenclose_suffix.c
@@ -0,0 +1,29 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <unistd.h>
+#include <stdio.h>     /* for rename() */
+#include <skalibs/uint64.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+
+int openwritenclose_suffix_internal (char const *fn, char const *s, unsigned int n, uint64 *dev, uint64 *ino, int dosync, char const *suffix)
+{
+  uint64 tmpdev, tmpino ;
+  unsigned int len = str_len(fn) ;
+  unsigned int suffixlen = str_len(suffix) ;
+  char tmp[len + suffixlen + 1] ;
+  byte_copy(tmp, len, fn) ;
+  byte_copy(tmp + len, suffixlen + 1, suffix) ;
+  if (!openwritenclose_unsafe_internal(tmp, s, n, dev ? &tmpdev : 0, ino ? &tmpino : 0, dosync)) return 0 ;	
+  if (rename(tmp, fn) < 0)
+  {
+    register int e = errno ;
+    unlink(tmp) ;
+    errno = e ;
+    return 0 ;
+  }
+  if (dev) *dev = tmpdev ;
+  if (ino) *ino = tmpino ;
+  return 1 ;
+}
diff --git a/src/libstddjb/openwritenclose_unsafe.c b/src/libstddjb/openwritenclose_unsafe.c
new file mode 100644
index 0000000..427f6a6
--- /dev/null
+++ b/src/libstddjb/openwritenclose_unsafe.c
@@ -0,0 +1,32 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <errno.h>
+#include <unistd.h>
+#include <skalibs/uint64.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/djbunix.h>
+
+int openwritenclose_unsafe_internal (char const *fn, char const *s, unsigned int len, uint64 *dev, uint64 *ino, int dosync)
+{
+  struct stat st ;
+  int fd = open_trunc(fn) ;
+  if (fd < 0) return 0 ;
+  if (allwrite(fd, s, len) < len) goto fail ;
+  if ((dev || ino) && (fstat(fd, &st) < 0)) goto fail ;
+  if (dosync && (fd_sync(fd) < 0) && (errno != EINVAL)) goto fail ;
+  fd_close(fd) ;
+  if (dev) *dev = (uint64)st.st_dev ;
+  if (ino) *ino = (uint64)st.st_ino ;
+  return 1 ;
+
+ fail:
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    unlink(fn) ;
+    errno = e ;
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/pathexec.c b/src/libstddjb/pathexec.c
new file mode 100644
index 0000000..b7b088e
--- /dev/null
+++ b/src/libstddjb/pathexec.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/env.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/environ.h>
+
+void pathexec (char const *const *argv)
+{
+  pathexec_fromenv(argv, (char const **)environ, env_len((char const **)environ)) ;
+}
diff --git a/src/libstddjb/pathexec0.c b/src/libstddjb/pathexec0.c
new file mode 100644
index 0000000..5241452
--- /dev/null
+++ b/src/libstddjb/pathexec0.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <unistd.h>
+#include <skalibs/djbunix.h>
+
+void pathexec0 (char const *const *argv)
+{
+  if (!argv[0]) _exit(0) ;
+  pathexec(argv) ;
+}
diff --git a/src/libstddjb/pathexec0_run.c b/src/libstddjb/pathexec0_run.c
new file mode 100644
index 0000000..818877e
--- /dev/null
+++ b/src/libstddjb/pathexec0_run.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <skalibs/djbunix.h>
+
+void pathexec0_run (char const *const *argv, char const *const *envp)
+{
+  if (!argv[0]) _exit(0) ;
+  pathexec_run(argv[0], argv, envp) ;
+}
diff --git a/src/libstddjb/pathexec_fromenv.c b/src/libstddjb/pathexec_fromenv.c
new file mode 100644
index 0000000..df8b0e6
--- /dev/null
+++ b/src/libstddjb/pathexec_fromenv.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/env.h>
+#include <skalibs/djbunix.h>
+
+static stralloc plus = STRALLOC_ZERO ;
+
+int pathexec_env (char const *s, char const *t) /* historic, bad name */
+{
+  return env_addmodif(&plus, s, t) ;
+}
+
+void pathexec_fromenv (char const *const *argv, char const *const *envp, unsigned int envlen)
+{
+  pathexec_r(argv, envp, envlen, plus.s, plus.len) ;
+}
diff --git a/src/libstddjb/pathexec_r.c b/src/libstddjb/pathexec_r.c
new file mode 100644
index 0000000..eb4a894
--- /dev/null
+++ b/src/libstddjb/pathexec_r.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/djbunix.h>
+
+void pathexec_r (char const *const *argv, char const *const *envp, unsigned int envlen, char const *modifs, unsigned int modiflen)
+{
+  pathexec_r_name(argv[0], argv, envp, envlen, modifs, modiflen) ;
+}
diff --git a/src/libstddjb/pathexec_r_name.c b/src/libstddjb/pathexec_r_name.c
new file mode 100644
index 0000000..c5caf4e
--- /dev/null
+++ b/src/libstddjb/pathexec_r_name.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+#include <skalibs/djbunix.h>
+
+void pathexec_r_name (char const *file, char const *const *argv, char const *const *envp, unsigned int envlen, char const *modifs, unsigned int modiflen)
+{
+  unsigned int n = envlen + 1 + byte_count(modifs, modiflen, '\0') ;
+  char const *v[n] ;
+  if (env_merge(v, n, envp, envlen, modifs, modiflen))
+    pathexec_run(file, argv, v) ;
+}
diff --git a/src/libstddjb/pathexec_run.c b/src/libstddjb/pathexec_run.c
new file mode 100644
index 0000000..ced2ae6
--- /dev/null
+++ b/src/libstddjb/pathexec_run.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/env.h>
+#include <skalibs/djbunix.h>
+
+void pathexec_run (char const *file, char const *const *argv, char const *const *envp)
+{
+  register char const *path = env_get("PATH") ;
+  if (!path) path = SKALIBS_DEFAULTPATH ;
+  execvep(file, argv, envp, path) ;
+}
diff --git a/src/libstddjb/pipe_internal.c b/src/libstddjb/pipe_internal.c
new file mode 100644
index 0000000..d5354de
--- /dev/null
+++ b/src/libstddjb/pipe_internal.c
@@ -0,0 +1,45 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_HASPIPE2
+
+#define _NETBSD_SOURCE
+#define _GNU_SOURCE
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int pipe_internal (int *p, unsigned int flags)
+{
+  return pipe2(p, ((flags & DJBUNIX_FLAG_COE) ? O_CLOEXEC : 0) | ((flags & DJBUNIX_FLAG_NB) ? O_NONBLOCK : 0)) ;
+}
+
+#else
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int pipe_internal (int *p, unsigned int flags)
+{
+  int pi[2] ;
+  if (pipe(pi) < 0) return -1 ;
+  if (flags & DJBUNIX_FLAG_COE)
+    if ((coe(pi[0]) < 0) || (coe(pi[1]) < 0)) goto err ;
+  if (flags & DJBUNIX_FLAG_NB)
+    if ((ndelay_on(pi[0]) < 0) || (ndelay_on(pi[1]) < 0)) goto err ;
+  p[0] = pi[0] ; p[1] = pi[1] ;
+  return 0 ;
+ err:
+  {
+    register int e = errno ;
+    fd_close(pi[1]) ;
+    fd_close(pi[0]) ;
+    errno = e ;
+  }
+  return -1 ;
+}
+
+#endif
diff --git a/src/libstddjb/prog.c b/src/libstddjb/prog.c
new file mode 100644
index 0000000..f6c683c
--- /dev/null
+++ b/src/libstddjb/prog.c
@@ -0,0 +1,7 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/strerr2.h>
+
+char const *PROG = "(none)" ;
diff --git a/src/libstddjb/prot.c b/src/libstddjb/prot.c
new file mode 100644
index 0000000..6714cfb
--- /dev/null
+++ b/src/libstddjb/prot.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <unistd.h>
+#include <pwd.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+int prot_setuidgid (char const *name)
+{
+  struct passwd *pw = getpwnam(name) ;
+  if (!pw)
+  {
+    if (!errno) errno = ESRCH ;
+    return 0 ;
+  }
+  return !prot_grps(name) && !setgid(pw->pw_gid) && !setuid(pw->pw_uid) ;
+}
diff --git a/src/libstddjb/prot_grps.c b/src/libstddjb/prot_grps.c
new file mode 100644
index 0000000..cc4ba0d
--- /dev/null
+++ b/src/libstddjb/prot_grps.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/nonposix.h>
+#include <unistd.h>
+#include <grp.h>
+#include <limits.h>
+#include <skalibs/setgroups.h>
+#include <skalibs/djbunix.h>
+
+int prot_grps (char const *name)
+{
+  gid_t tab[NGROUPS_MAX] ;
+  int n = prot_readgroups(name, tab, NGROUPS_MAX) ;
+  return n < 0 ? -1 : setgroups(n, tab) ;
+}
diff --git a/src/libstddjb/prot_readgroups.c b/src/libstddjb/prot_readgroups.c
new file mode 100644
index 0000000..5559882
--- /dev/null
+++ b/src/libstddjb/prot_readgroups.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <sys/types.h>
+#include <grp.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+
+int prot_readgroups (char const *name, gid_t *tab, unsigned int max)
+{
+  unsigned int n = 0 ;
+  for (;;)
+  {
+    struct group *gr ;
+    register char **member ;
+    errno = 0 ;
+    if (n >= max) break ;
+    gr = getgrent() ;
+    if (!gr) break ;
+    for (member = gr->gr_mem ; *member ; member++)
+      if (!str_diff(name, *member)) break ;
+    if (*member) tab[n++] = gr->gr_gid ;
+  }
+  endgrent() ;
+  return errno ? -1 : (int)n ;
+}
diff --git a/src/libstddjb/realpath.c b/src/libstddjb/realpath.c
new file mode 100644
index 0000000..f286137
--- /dev/null
+++ b/src/libstddjb/realpath.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/skamisc.h>
+#include <skalibs/djbunix.h>
+
+char *realpath (char const *name, char *buf)
+{
+  return realpath_tmp(name, buf, &satmp) ;
+}
diff --git a/src/libstddjb/realpath_tmp.c b/src/libstddjb/realpath_tmp.c
new file mode 100644
index 0000000..8f877dd
--- /dev/null
+++ b/src/libstddjb/realpath_tmp.c
@@ -0,0 +1,26 @@
+/* ISC license. */
+
+#include <limits.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+#ifndef PATH_MAX
+# define PATH_MAX 4095
+#endif
+
+char *realpath_tmp (char const *name, char *buf, stralloc *tmp)
+{
+  unsigned int tmpbase = tmp->len ;
+  if (sarealpath(tmp, name) == -1) return (char *)0 ;
+  if (tmp->len - tmpbase > PATH_MAX)
+  {
+    tmp->len = tmpbase ;
+    return (errno = ENAMETOOLONG, (char *)0) ;
+  }
+  byte_copy(buf, tmp->len - tmpbase, tmp->s + tmpbase) ;
+  buf[tmp->len - tmpbase] = 0 ;
+  tmp->len = tmpbase ;
+  return buf ;
+}
diff --git a/src/libstddjb/rm_rf.c b/src/libstddjb/rm_rf.c
new file mode 100644
index 0000000..3f8c00d
--- /dev/null
+++ b/src/libstddjb/rm_rf.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/skamisc.h>
+#include <skalibs/djbunix.h>
+
+int rm_rf (char const *filename)
+{
+  return rm_rf_tmp(filename, &satmp) ;
+}
diff --git a/src/libstddjb/rm_rf_in_tmp.c b/src/libstddjb/rm_rf_in_tmp.c
new file mode 100644
index 0000000..8a0a9ec
--- /dev/null
+++ b/src/libstddjb/rm_rf_in_tmp.c
@@ -0,0 +1,93 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/direntry.h>
+#include <skalibs/djbunix.h>
+
+static int rmstarindir (DIR *dir, stralloc *tmp, unsigned int ipos) /* WARNING: closes dir */
+{
+  unsigned int tmpbase = tmp->len ;
+  for (;;)
+  {
+    register direntry *d ;
+    errno = 0 ;
+    d = readdir(dir) ;
+    if (!d) break ;
+    if (d->d_name[0] == '.')
+      if (((d->d_name[1] == '.') && (d->d_name[2] == 0)) || (d->d_name[1] == 0))
+        continue ;
+    if (!stralloc_cats(tmp, d->d_name) || !stralloc_0(tmp)) goto closeanderr ;
+  }
+  if (errno) goto closeanderr ;
+  dir_close(dir) ;
+
+  {
+    unsigned int tmpstop = tmp->len ;
+    unsigned int fnbase = str_len(tmp->s + ipos) ;
+    unsigned int i = tmpbase ;
+    if (!stralloc_readyplus(tmp, fnbase+1)) goto err ;
+    stralloc_catb(tmp, tmp->s + ipos, fnbase) ;
+    stralloc_catb(tmp, "/", 1) ;
+    fnbase = tmp->len ;
+    for (; i < tmpstop ; i += tmp->len - fnbase)
+    {
+      register unsigned int n = str_len(tmp->s + i) ;
+      tmp->len = fnbase ;
+      if (!stralloc_readyplus(tmp, n+1)) goto err ;
+      stralloc_catb(tmp, tmp->s + i, n+1) ;
+      if (rm_rf_in_tmp(tmp, tmpstop) == -1) goto err ;
+    }
+  }
+  tmp->len = tmpbase ;
+  return 0 ;
+
+closeanderr:
+  {
+    register int e = errno ;
+    dir_close(dir) ;
+    errno = e ;
+  }
+err:
+  tmp->len = tmpbase ;
+  return -1 ;
+}
+
+int rm_rf_in_tmp (stralloc *tmp, unsigned int ipos)
+{
+  if (unlink(tmp->s + ipos) == 0) return 0 ;
+  if (errno == ENOENT) return 0 ;
+  if ((errno != EISDIR) && (errno != EPERM)) return -1 ;
+  {
+    register int h = (errno == EPERM) ;
+    register DIR *dir = opendir(tmp->s + ipos) ;
+    if (!dir)
+    {
+      if (h && (errno == ENOTDIR)) errno = EPERM ;
+      return -1 ;
+    }
+    if (rmstarindir(dir, tmp, ipos) == -1) return -1 ;
+  }
+  return rmdir(tmp->s + ipos) ;
+}
+
+int rmstar_tmp (char const *dirname, stralloc *tmp)
+{
+  unsigned int tmpbase = tmp->len ;
+  if (!stralloc_cats(tmp, dirname)) return -1 ;
+  if (!stralloc_0(tmp)) goto err ;
+  {
+    register DIR *dir = opendir(dirname) ;
+    if (!dir) goto err ;
+    if (rmstarindir(dir, tmp, tmpbase) == -1) goto err ;
+  }
+  tmp->len = tmpbase ;
+  return 0 ;
+
+err:
+  tmp->len = tmpbase ;
+  return -1 ;
+}
diff --git a/src/libstddjb/rm_rf_tmp.c b/src/libstddjb/rm_rf_tmp.c
new file mode 100644
index 0000000..6e434d7
--- /dev/null
+++ b/src/libstddjb/rm_rf_tmp.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int rm_rf_tmp (char const *filename, stralloc *tmp)
+{
+  unsigned int tmpbase = tmp->len ;
+  if (!stralloc_cats(tmp, filename)) return -1 ;
+  if (!stralloc_0(tmp)) goto err ;
+  if (rm_rf_in_tmp(tmp, tmpbase) == -1) goto err ;
+  tmp->len = tmpbase ;
+  return 0 ;
+
+err:
+  tmp->len = tmpbase ;
+  return -1 ;
+}
diff --git a/src/libstddjb/rmstar.c b/src/libstddjb/rmstar.c
new file mode 100644
index 0000000..1870274
--- /dev/null
+++ b/src/libstddjb/rmstar.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/skamisc.h>
+#include <skalibs/djbunix.h>
+
+int rmstar (char const *dirname)
+{
+  return rmstar_tmp(dirname, &satmp) ;
+}
diff --git a/src/libstddjb/sabasename.c b/src/libstddjb/sabasename.c
new file mode 100644
index 0000000..829b2a7
--- /dev/null
+++ b/src/libstddjb/sabasename.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sabasename (stralloc *sa, char const *s, unsigned int len)
+{
+  if (!len) return stralloc_catb(sa, ".", 1) ;
+  while (len && (s[len-1] == '/')) len-- ;
+  if (!len) return stralloc_catb(sa, "/", 1) ;
+  {
+    register unsigned int i = byte_rchr(s, len, '/') ;
+    i = (i == len) ? 0 : i+1 ;
+    return stralloc_catb(sa, s + i, len - i) ;
+  }
+}
diff --git a/src/libstddjb/sadirname.c b/src/libstddjb/sadirname.c
new file mode 100644
index 0000000..9fc4802
--- /dev/null
+++ b/src/libstddjb/sadirname.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sadirname (stralloc *sa, char const *s, unsigned int len)
+{
+  if (!len) return stralloc_catb(sa, ".", 1) ;
+  while (len && (s[len-1] == '/')) len-- ;
+  if (!len) return stralloc_catb(sa, "/", 1) ;
+  {
+    register unsigned int i = byte_rchr(s, len, '/') ;
+    return (i == len) ? stralloc_catb(sa, ".", 1) :
+           (i == 0)   ? stralloc_catb(sa, "/", 1) :
+                        stralloc_catb(sa, s, i) ;
+  }
+}
diff --git a/src/libstddjb/sagetcwd.c b/src/libstddjb/sagetcwd.c
new file mode 100644
index 0000000..d8c5dea
--- /dev/null
+++ b/src/libstddjb/sagetcwd.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sagetcwd (stralloc *sa)
+{
+  unsigned int n = 128 ;
+  int wasnull = !sa->s ;
+
+  for (;;)
+  {
+    if (!stralloc_readyplus(sa, n)) goto err ;
+    if (getcwd(sa->s + sa->len, n)) break ;
+    if (errno != ERANGE) goto err ;
+    n += 128 ;
+  }
+  sa->len += str_len(sa->s + sa->len) ;
+  return 0 ;
+
+err:
+  if (wasnull) stralloc_free(sa) ;
+  return -1 ;
+}
diff --git a/src/libstddjb/sagethostname.c b/src/libstddjb/sagethostname.c
new file mode 100644
index 0000000..500a95c
--- /dev/null
+++ b/src/libstddjb/sagethostname.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sagethostname (stralloc *sa)
+{
+  unsigned int n = 128 ;
+  int wasnull = !sa->s ;
+
+  for (;;)
+  {
+    if (!stralloc_readyplus(sa, n)) goto err ;
+    sa->s[sa->len + n - 2] = 0 ;
+    if (gethostname(sa->s + sa->len, n) == -1) goto err ;
+    if (!sa->s[sa->len + n - 2]) break ;
+    n += 128 ;
+  }
+  sa->len += str_len(sa->s + sa->len) ;
+  return 0 ;
+
+err:
+  if (wasnull) stralloc_free(sa) ;
+  return -1 ;
+}
diff --git a/src/libstddjb/sanitize_read.c b/src/libstddjb/sanitize_read.c
new file mode 100644
index 0000000..bd8eee3
--- /dev/null
+++ b/src/libstddjb/sanitize_read.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/error.h>
+
+int sanitize_read (int r)
+{
+  return r == -1 ? error_isagain(errno) ? (errno = 0, 0) : -1 :
+         !r ? (errno = EPIPE, -1) : r ;
+}
diff --git a/src/libstddjb/sareadlink.c b/src/libstddjb/sareadlink.c
new file mode 100644
index 0000000..d6c2a4e
--- /dev/null
+++ b/src/libstddjb/sareadlink.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+int sareadlink (stralloc *sa, char const *path)
+{
+  unsigned int n = 128 ;
+  int wasnull = !sa->s ;
+  register int r ;
+
+  for (;;)
+  {
+    if (!stralloc_readyplus(sa, n)) goto err ;
+    r = readlink(path, sa->s + sa->len, n) ;
+    if (r < 0) goto err ;
+    if ((unsigned int)r < n) break ;
+    n += 128 ;
+  }
+  sa->len += r ;
+  return 0 ;
+
+err:
+  if (wasnull) stralloc_free(sa) ;
+  return -1 ;
+}
diff --git a/src/libstddjb/satmp.c b/src/libstddjb/satmp.c
new file mode 100644
index 0000000..833c74f
--- /dev/null
+++ b/src/libstddjb/satmp.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+
+stralloc satmp = STRALLOC_ZERO ;
diff --git a/src/libstddjb/sauniquename.c b/src/libstddjb/sauniquename.c
new file mode 100644
index 0000000..5a6ad83
--- /dev/null
+++ b/src/libstddjb/sauniquename.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/skamisc.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/tai.h>
+#include <skalibs/uint.h>
+
+int sauniquename (stralloc *sa)
+{
+  unsigned int base = sa->len ;
+  int wasnull = !sa->s ;
+
+  if (!stralloc_readyplus(sa, TIMESTAMP + UINT_FMT + 131)) return -1 ;
+  sa->s[base] = ':' ;
+  timestamp(sa->s + base + 1) ;
+  sa->s[base + 1 + TIMESTAMP] = ':' ;
+  sa->len = base + 2 + TIMESTAMP ;
+  sa->len += uint_fmt(sa->s + sa->len, getpid()) ;
+  sa->s[sa->len++] = ':' ;
+  if (sagethostname(sa) == -1) goto err ;
+  return 0 ;
+
+err:
+  if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+  return -1 ;
+}
diff --git a/src/libstddjb/seek_cur.c b/src/libstddjb/seek_cur.c
new file mode 100644
index 0000000..cdfdac7
--- /dev/null
+++ b/src/libstddjb/seek_cur.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <skalibs/djbunix.h>
+
+long seek_cur (int fd)
+{
+  return (long)lseek(fd, 0, SEEK_CUR) ;
+}
diff --git a/src/libstddjb/seek_set.c b/src/libstddjb/seek_set.c
new file mode 100644
index 0000000..b5883ac
--- /dev/null
+++ b/src/libstddjb/seek_set.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <skalibs/djbunix.h>
+
+#define SET 0 /* sigh */
+
+int seek_set (int fd, long pos)
+{
+  if (lseek(fd, (off_t) pos, SET) == -1) return -1 ;
+  return 0 ;
+}
diff --git a/src/libstddjb/selfpipe-internal.h b/src/libstddjb/selfpipe-internal.h
new file mode 100644
index 0000000..994c179
--- /dev/null
+++ b/src/libstddjb/selfpipe-internal.h
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#ifndef SELFPIPE_INTERNAL_H
+#define SELFPIPE_INTERNAL_H
+
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+
+extern sigset_t selfpipe_caught ;
+
+#ifdef SKALIBS_HASSIGNALFD
+
+extern int selfpipe_fd ;
+
+#else
+
+#include <skalibs/sig.h>
+
+extern int selfpipe[2] ;
+#define selfpipe_fd selfpipe[0]
+
+extern struct skasigaction const selfpipe_ssa ;
+
+#endif
+
+#endif
diff --git a/src/libstddjb/selfpipe_finish.c b/src/libstddjb/selfpipe_finish.c
new file mode 100644
index 0000000..47a889f
--- /dev/null
+++ b/src/libstddjb/selfpipe_finish.c
@@ -0,0 +1,35 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/djbunix.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+
+void selfpipe_finish (void)
+{
+  sigprocmask(SIG_UNBLOCK, &selfpipe_caught, 0) ;
+  sigemptyset(&selfpipe_caught) ;
+  fd_close(selfpipe_fd) ;
+  selfpipe_fd = -1 ;
+}
+
+#else
+
+#include <skalibs/sig.h>
+#include <skalibs/nsig.h>
+
+void selfpipe_finish (void)
+{
+  sig_restoreto(&selfpipe_caught, NSIG) ;
+  sigemptyset(&selfpipe_caught) ;
+  fd_close(selfpipe[1]) ;
+  fd_close(selfpipe[0]) ;
+  selfpipe[0] = selfpipe[1] = -1 ;
+}
+
+#endif
diff --git a/src/libstddjb/selfpipe_init.c b/src/libstddjb/selfpipe_init.c
new file mode 100644
index 0000000..bd26d2f
--- /dev/null
+++ b/src/libstddjb/selfpipe_init.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+#include <sys/signalfd.h>
+#else
+#include <skalibs/djbunix.h>
+#endif
+
+int selfpipe_init (void)
+{
+  if (selfpipe_fd >= 0) return (errno = EBUSY, -1) ;
+  sigemptyset(&selfpipe_caught) ;
+#ifdef SKALIBS_HASSIGNALFD
+  selfpipe_fd = signalfd(-1, &selfpipe_caught, SFD_NONBLOCK | SFD_CLOEXEC) ;
+#else
+  if (pipenbcoe(selfpipe) < 0) return -1 ;
+#endif
+  return selfpipe_fd ;
+}
diff --git a/src/libstddjb/selfpipe_internal.c b/src/libstddjb/selfpipe_internal.c
new file mode 100644
index 0000000..e5d5d95
--- /dev/null
+++ b/src/libstddjb/selfpipe_internal.c
@@ -0,0 +1,31 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include "selfpipe-internal.h"
+
+sigset_t selfpipe_caught ;
+
+#ifdef SKALIBS_HASSIGNALFD
+
+int selfpipe_fd = -1 ;
+
+#else
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/djbunix.h>
+
+int selfpipe[2] = { -1, -1 } ;
+
+static void selfpipe_trigger (int s)
+{
+  char c = (char)s ;
+  fd_write(selfpipe[1], &c, 1) ;
+}
+
+struct skasigaction const selfpipe_ssa = { &selfpipe_trigger, SKASA_NOCLDSTOP | SKASA_MASKALL } ;
+
+#endif
diff --git a/src/libstddjb/selfpipe_read.c b/src/libstddjb/selfpipe_read.c
new file mode 100644
index 0000000..b68e67d
--- /dev/null
+++ b/src/libstddjb/selfpipe_read.c
@@ -0,0 +1,31 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/allreadwrite.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+
+#include <sys/signalfd.h>
+
+int selfpipe_read (void)
+{
+  struct signalfd_siginfo buf ;
+  register int r = sanitize_read(fd_read(selfpipe_fd, (char *)&buf, sizeof(struct signalfd_siginfo))) ;
+  return (r <= 0) ? r : (int)buf.ssi_signo ;
+}
+      
+#else
+
+int selfpipe_read (void)
+{
+  char c ;
+  register int r = sanitize_read((fd_read(selfpipe_fd, &c, 1))) ;
+  return (r <= 0) ? r : (int)c ;
+}
+
+#endif
+
diff --git a/src/libstddjb/selfpipe_trap.c b/src/libstddjb/selfpipe_trap.c
new file mode 100644
index 0000000..f07db64
--- /dev/null
+++ b/src/libstddjb/selfpipe_trap.c
@@ -0,0 +1,51 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+
+#include <sys/signalfd.h>
+
+int selfpipe_trap (int sig)
+{
+  sigset_t ss = selfpipe_caught ;
+  sigset_t old ;
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  if ((sigaddset(&ss, sig) < 0) || (sigprocmask(SIG_BLOCK, &ss, &old) < 0))
+    return -1 ;
+  if (signalfd(selfpipe_fd, &ss, SFD_NONBLOCK | SFD_CLOEXEC) < 0)
+  {
+    int e = errno ;
+    sigprocmask(SIG_SETMASK, &old, 0) ;
+    errno = e ;
+    return -1 ;
+  }
+  selfpipe_caught = ss ;
+  return 0 ;
+}
+
+#else
+
+#include <skalibs/sig.h>
+
+int selfpipe_trap (int sig)
+{
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  if (sig_catcha(sig, &selfpipe_ssa) < 0) return -1 ;
+  if (sigaddset(&selfpipe_caught, sig) < 0)
+  {
+    int e = errno ;
+    sig_restore(sig) ;
+    errno = e ;
+    return -1 ;
+  }
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/selfpipe_trapset.c b/src/libstddjb/selfpipe_trapset.c
new file mode 100644
index 0000000..f8c35ee
--- /dev/null
+++ b/src/libstddjb/selfpipe_trapset.c
@@ -0,0 +1,64 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+
+#include <sys/signalfd.h>
+
+int selfpipe_trapset (sigset_t const *set)
+{
+  sigset_t old ;
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  if (sigprocmask(SIG_SETMASK, set, &old) < 0) return -1 ;
+  if (signalfd(selfpipe_fd, set, SFD_NONBLOCK | SFD_CLOEXEC) < 0)
+  {
+    int e = errno ;
+    sigprocmask(SIG_SETMASK, &old, 0) ;
+    errno = e ;
+    return -1 ;
+  }
+  selfpipe_caught = *set ;
+  return 0 ;
+}
+
+#else
+
+#include <skalibs/sig.h>
+#include <skalibs/nsig.h>
+
+int selfpipe_trapset (sigset_t const *set)
+{
+  unsigned int i = 1 ;
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  for (; i <= NSIG ; i++)
+  {
+    register int h = sigismember(set, i) ;
+    if (h < 0) continue ;
+    if (h)
+    {
+      if (sig_catcha(i, &selfpipe_ssa) < 0) break ;
+    }
+    else if (sigismember(&selfpipe_caught, i))
+    {
+      if (sig_restore(i) < 0) break ;
+    }
+  }
+  if (i <= NSIG)
+  {
+    int e = errno ;
+    sig_restoreto(set, i) ;
+    errno = e ;
+    return -1 ;
+  }
+  selfpipe_caught = *set ;
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/selfpipe_untrap.c b/src/libstddjb/selfpipe_untrap.c
new file mode 100644
index 0000000..776f2d7
--- /dev/null
+++ b/src/libstddjb/selfpipe_untrap.c
@@ -0,0 +1,54 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include "selfpipe-internal.h"
+#include <skalibs/selfpipe.h>
+
+#ifdef SKALIBS_HASSIGNALFD
+
+#include <sys/signalfd.h>
+
+int selfpipe_untrap (int sig)
+{
+  sigset_t ss = selfpipe_caught ;
+  sigset_t blah ;
+  register int r = sigismember(&selfpipe_caught, sig) ;
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  if (r < 0) return -1 ;
+  if (!r) return (errno = EINVAL, -1) ;
+  if ((sigdelset(&ss, sig) < 0)
+   || (signalfd(selfpipe_fd, &ss, SFD_NONBLOCK | SFD_CLOEXEC) < 0))
+    return -1 ;
+  sigemptyset(&blah) ;
+  sigaddset(&blah, sig) ;
+  if (sigprocmask(SIG_UNBLOCK, &blah, 0) < 0)
+  {
+    int e = errno ;
+    signalfd(selfpipe_fd, &selfpipe_caught, SFD_NONBLOCK | SFD_CLOEXEC) ;
+    errno = e ;
+    return -1 ;
+  }
+  selfpipe_caught = ss ;
+  return 0 ;
+}
+
+#else
+
+#include <skalibs/sig.h>
+
+int selfpipe_untrap (int sig)
+{
+  register int r = sigismember(&selfpipe_caught, sig) ;
+  if (selfpipe_fd < 0) return (errno = EBADF, -1) ;
+  if (r < 0) return -1 ;
+  if (!r) return (errno = EINVAL, -1) ;
+  if (sig_restore(sig) < 0) return -1 ;
+  sigdelset(&selfpipe_caught, sig) ;
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/sgetopt.c b/src/libstddjb/sgetopt.c
new file mode 100644
index 0000000..7e6bdf6
--- /dev/null
+++ b/src/libstddjb/sgetopt.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#undef SUBGETOPT_SHORT
+
+#include <skalibs/buffer.h>
+#include <skalibs/sgetopt.h>
+
+int sgetopt_r (int argc, char const *const *argv, char const *opts, subgetopt_t *o)
+{
+  char c = (char)subgetopt_r(argc, argv, opts, o) ;
+  if (o->err && ((c == '?') || (c == ':')))
+  {
+    buffer_puts(buffer_2, o->prog ? o->prog : argv[0]) ;
+    buffer_put(buffer_2, ": ", 2) ;
+    buffer_puts(buffer_2, ((c == '?') && argv[o->ind] && (o->ind < argc)) ?
+     "illegal option" : "option requires an argument") ;
+    buffer_put(buffer_2, " -- ", 4) ;
+    buffer_put(buffer_2, &c, 1) ;
+    buffer_putflush(buffer_2, "\n", 1) ;
+  }
+  return (int)c ;
+}
diff --git a/src/libstddjb/short_scan.c b/src/libstddjb/short_scan.c
new file mode 100644
index 0000000..898ba9f
--- /dev/null
+++ b/src/libstddjb/short_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/ushort.h>
+#include "fmtscan-internal.h"
+
+SCANS(short, SHRT)
diff --git a/src/libstddjb/sig.c b/src/libstddjb/sig.c
new file mode 100644
index 0000000..334b79a
--- /dev/null
+++ b/src/libstddjb/sig.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+int sig_alarm = SIGALRM ;
+int sig_child = SIGCHLD ;
+int sig_stop = SIGSTOP ;
+int sig_cont = SIGCONT ;
+int sig_hangup = SIGHUP ;
+int sig_int = SIGINT ;
+int sig_kill = SIGKILL ;
+int sig_pipe = SIGPIPE ;
+int sig_term = SIGTERM ;
+int sig_usr1 = SIGUSR1 ;
+int sig_usr2 = SIGUSR2 ;
+int sig_quit = SIGQUIT ;
+int sig_abort = SIGABRT ;
diff --git a/src/libstddjb/sig_block.c b/src/libstddjb/sig_block.c
new file mode 100644
index 0000000..89ae51f
--- /dev/null
+++ b/src/libstddjb/sig_block.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_block (int sig)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigaddset(&ss, sig) ;
+  sigprocmask(SIG_BLOCK, &ss, 0) ;
+}
diff --git a/src/libstddjb/sig_blocknone.c b/src/libstddjb/sig_blocknone.c
new file mode 100644
index 0000000..8498f0f
--- /dev/null
+++ b/src/libstddjb/sig_blocknone.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_blocknone (void)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigprocmask(SIG_SETMASK, &ss, 0) ;
+}
diff --git a/src/libstddjb/sig_blockset.c b/src/libstddjb/sig_blockset.c
new file mode 100644
index 0000000..206c157
--- /dev/null
+++ b/src/libstddjb/sig_blockset.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_blockset (sigset_t const *set)
+{
+  sigprocmask(SIG_SETMASK, set, 0) ;
+}
diff --git a/src/libstddjb/sig_catch.c b/src/libstddjb/sig_catch.c
new file mode 100644
index 0000000..d0a72df
--- /dev/null
+++ b/src/libstddjb/sig_catch.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/sig.h>
+
+int sig_catch (int sig, skasighandler_t_ref f)
+{
+  struct skasigaction ssa = { f, SKASA_MASKALL | SKASA_NOCLDSTOP } ;
+  return sig_catcha(sig, &ssa) ;
+}
diff --git a/src/libstddjb/sig_pause.c b/src/libstddjb/sig_pause.c
new file mode 100644
index 0000000..7de8ff5
--- /dev/null
+++ b/src/libstddjb/sig_pause.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_pause (void)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigsuspend(&ss) ;
+}
diff --git a/src/libstddjb/sig_push.c b/src/libstddjb/sig_push.c
new file mode 100644
index 0000000..96e5fb2
--- /dev/null
+++ b/src/libstddjb/sig_push.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/sig.h>
+
+int sig_push (int sig, skasighandler_t_ref f)
+{
+  struct skasigaction ssa = { f, SKASA_MASKALL | SKASA_NOCLDSTOP } ;
+  return sig_pusha(sig, &ssa) ;
+}
diff --git a/src/libstddjb/sig_restoreto.c b/src/libstddjb/sig_restoreto.c
new file mode 100644
index 0000000..523b14a
--- /dev/null
+++ b/src/libstddjb/sig_restoreto.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_restoreto (sigset_t const *set, unsigned int n)
+{
+  register unsigned int i = 1 ;
+  for (; i <= n ; i++)
+  {
+    register int h = sigismember(set, i) ;
+    if (h < 0) continue ;
+    if (h) sig_restore(i) ;
+  }
+}
diff --git a/src/libstddjb/sig_shield.c b/src/libstddjb/sig_shield.c
new file mode 100644
index 0000000..ee5d9a9
--- /dev/null
+++ b/src/libstddjb/sig_shield.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_shield (void)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigaddset(&ss, SIGTERM) ;
+  sigaddset(&ss, SIGQUIT) ;
+  sigaddset(&ss, SIGABRT) ;
+  sigaddset(&ss, SIGINT) ;
+  sigaddset(&ss, SIGPIPE) ;
+  sigaddset(&ss, SIGHUP) ;
+  sigprocmask(SIG_BLOCK, &ss, 0) ;
+}
diff --git a/src/libstddjb/sig_stack.c b/src/libstddjb/sig_stack.c
new file mode 100644
index 0000000..c414a88
--- /dev/null
+++ b/src/libstddjb/sig_stack.c
@@ -0,0 +1,29 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/sig.h>
+#include <skalibs/nsig.h>
+
+static struct skasigaction skasigstack[NSIG][SIGSTACKSIZE] ;
+static unsigned int sigsp[NSIG] ;
+
+int sig_pusha (int sig, struct skasigaction const *ssa)
+{
+  if ((sig <= 0) || (sig > NSIG)) return (errno = EINVAL, -1) ;
+  if (sigsp[sig-1] >= SIGSTACKSIZE) return (errno = ENOBUFS, -1) ;
+  if (skasigaction(sig, ssa, &skasigstack[sig-1][sigsp[sig-1]]) == -1)
+      return -1 ;
+  return ++sigsp[sig-1] ;
+}
+
+int sig_pop (int sig)
+{
+  if ((sig <= 0) || (sig > NSIG)) return (errno = EINVAL, -1) ;
+  if (!sigsp[sig-1]) return (errno = EFAULT, -1);
+  if (skasigaction(sig, &skasigstack[sig-1][sigsp[sig-1]-1], 0) == -1)
+    return -1 ;
+  return --sigsp[sig-1] ;
+}
diff --git a/src/libstddjb/sig_unblock.c b/src/libstddjb/sig_unblock.c
new file mode 100644
index 0000000..26d5c1b
--- /dev/null
+++ b/src/libstddjb/sig_unblock.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_unblock (int sig)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigaddset(&ss, sig) ;
+  sigprocmask(SIG_UNBLOCK, &ss, 0) ;
+}
diff --git a/src/libstddjb/sig_unshield.c b/src/libstddjb/sig_unshield.c
new file mode 100644
index 0000000..24918b4
--- /dev/null
+++ b/src/libstddjb/sig_unshield.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+void sig_unshield (void)
+{
+  sigset_t ss ;
+  sigemptyset(&ss) ;
+  sigaddset(&ss, SIGTERM) ;
+  sigaddset(&ss, SIGQUIT) ;
+  sigaddset(&ss, SIGABRT) ;
+  sigaddset(&ss, SIGINT) ;
+  sigaddset(&ss, SIGPIPE) ;
+  sigaddset(&ss, SIGHUP) ;
+  sigprocmask(SIG_UNBLOCK, &ss, 0) ;
+}
diff --git a/src/libstddjb/sigfpe.c b/src/libstddjb/sigfpe.c
new file mode 100644
index 0000000..2ff92a7
--- /dev/null
+++ b/src/libstddjb/sigfpe.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/segfault.h>
+
+int sigfpe (void)
+{
+  return raise(SIGFPE) == 0 ;
+}
diff --git a/src/libstddjb/sigsegv.c b/src/libstddjb/sigsegv.c
new file mode 100644
index 0000000..80c963c
--- /dev/null
+++ b/src/libstddjb/sigsegv.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/segfault.h>
+
+int sigsegv (void)
+{
+  return raise(SIGSEGV) == 0 ;
+}
diff --git a/src/libstddjb/siovec_bytechr.c b/src/libstddjb/siovec_bytechr.c
new file mode 100644
index 0000000..a825488
--- /dev/null
+++ b/src/libstddjb/siovec_bytechr.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_bytechr (siovec_t const *v, unsigned int n, char c)
+{
+  unsigned int w = 0 ;
+  unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    register unsigned int pos = byte_chr(v[i].s, v[i].len, c) ;
+    w += pos ;
+    if (pos < v[i].len) break ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/siovec_bytein.c b/src/libstddjb/siovec_bytein.c
new file mode 100644
index 0000000..e9db87d
--- /dev/null
+++ b/src/libstddjb/siovec_bytein.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_bytein (siovec_t const *v, unsigned int n, char const *sep, unsigned int seplen)
+{
+  unsigned int w = 0 ;
+  unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    register unsigned int pos = byte_in(v[i].s, v[i].len, sep, seplen) ;
+    w += pos ;
+    if (pos < v[i].len) break ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/siovec_deal.c b/src/libstddjb/siovec_deal.c
new file mode 100644
index 0000000..fffea92
--- /dev/null
+++ b/src/libstddjb/siovec_deal.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_deal (siovec_t const *vj, unsigned int nj, siovec_t const *vi, unsigned int ni)
+{
+  unsigned int w = 0 ;
+  unsigned int i = 0 ;
+  unsigned int j = 0 ;
+  unsigned int wi = 0 ;
+  unsigned int wj = 0 ;
+  while (i < ni && j < nj)
+  {
+    register unsigned int tor = vi[i].len - wi ;
+    register unsigned int tow = vj[j].len - wj ;
+    register unsigned int len = tor < tow ? tor : tow ;
+    byte_copy(vj[j].s + wj, len, vi[i].s + wi) ;
+    wi += len ; wj += len ; w += len ;
+    if (wi >= vi[i].len) { wi = 0 ; i++ ; }
+    if (wj >= vj[j].len) { wj = 0 ; j++ ; }
+  }
+  return w ;
+}
diff --git a/src/libstddjb/siovec_from_iovec.c b/src/libstddjb/siovec_from_iovec.c
new file mode 100644
index 0000000..ffc0508
--- /dev/null
+++ b/src/libstddjb/siovec_from_iovec.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/uio.h>
+#include <skalibs/siovec.h>
+
+void siovec_from_iovec (siovec_t *v, struct iovec const *iov, unsigned int n)
+{
+  while (n--)
+  {
+    v[n].s = iov[n].iov_base ;
+    v[n].len = iov[n].iov_len ;
+  }
+}
diff --git a/src/libstddjb/siovec_gather.c b/src/libstddjb/siovec_gather.c
new file mode 100644
index 0000000..23ae28a
--- /dev/null
+++ b/src/libstddjb/siovec_gather.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_gather (siovec_t const *v, unsigned int n, char *s, unsigned int max)
+{
+  unsigned int w = 0 ;
+  register unsigned int i = 0 ;
+  for (; i < n && w < max ; i++)
+  {
+    register unsigned int len = v[i].len ;
+    if ((w + len) > max) len = max - w ;
+    byte_copy(s + w, len, v[i].s) ;
+    w += len ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/siovec_len.c b/src/libstddjb/siovec_len.c
new file mode 100644
index 0000000..5d53e53
--- /dev/null
+++ b/src/libstddjb/siovec_len.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/siovec.h>
+
+unsigned int siovec_len (siovec_t const *v, register unsigned int n)
+{
+  register unsigned int w = 0 ;
+  while (n--) w += v[n].len ;
+  return w ;
+}
diff --git a/src/libstddjb/siovec_scatter.c b/src/libstddjb/siovec_scatter.c
new file mode 100644
index 0000000..256bef5
--- /dev/null
+++ b/src/libstddjb/siovec_scatter.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_scatter (siovec_t const *v, unsigned int n, char const *s, unsigned int len)
+{
+  unsigned int w = 0 ;
+  register unsigned int i = 0 ;
+  for (; i < n && w < len ; i++)
+  {
+    register unsigned int chunklen = v[i].len ;
+    if (w + chunklen > len) chunklen = len - w ;
+    byte_copy(v[i].s, chunklen, s + w) ;
+    w += chunklen ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/siovec_seek.c b/src/libstddjb/siovec_seek.c
new file mode 100644
index 0000000..34a8918
--- /dev/null
+++ b/src/libstddjb/siovec_seek.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+
+unsigned int siovec_seek (siovec_t *v, unsigned int n, unsigned int len)
+{
+  unsigned int w = 0 ;
+  register unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    if (len < v[i].len) break ;
+    w += v[i].len ;
+    len -= v[i].len ;
+    v[i].s = 0 ;
+    v[i].len = 0 ;
+  }
+  if (i < n)
+  {
+    v[i].s += len ;
+    v[i].len -= len ;
+    w += len ;
+  }
+  return w ;
+}
diff --git a/src/libstddjb/skagetln.c b/src/libstddjb/skagetln.c
new file mode 100644
index 0000000..056cc38
--- /dev/null
+++ b/src/libstddjb/skagetln.c
@@ -0,0 +1,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 ;
+  }
+}
diff --git a/src/libstddjb/skagetlnsep.c b/src/libstddjb/skagetlnsep.c
new file mode 100644
index 0000000..1d3b4ef
--- /dev/null
+++ b/src/libstddjb/skagetlnsep.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/siovec.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+
+int skagetlnsep (buffer *b, stralloc *sa, char const *sep, unsigned int seplen)
+{
+  unsigned int start = sa->len ;
+  for (;;)
+  {
+    siovec_t v[2] ;
+    unsigned int pos ;
+    int r ;
+    buffer_rpeek(b, v) ;
+    pos = siovec_bytein(v, 2, sep, seplen) ;
+    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 ;
+  }
+}
diff --git a/src/libstddjb/skasig_dfl.c b/src/libstddjb/skasig_dfl.c
new file mode 100644
index 0000000..ca97b4f
--- /dev/null
+++ b/src/libstddjb/skasig_dfl.c
@@ -0,0 +1,7 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sig.h>
+
+struct skasigaction const SKASIG_DFL = { SIG_DFL, 0 } ;
+struct skasigaction const SKASIG_IGN = { SIG_IGN, 0 } ;
diff --git a/src/libstddjb/skasigaction.c b/src/libstddjb/skasigaction.c
new file mode 100644
index 0000000..a673fcb
--- /dev/null
+++ b/src/libstddjb/skasigaction.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <signal.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/sig.h>
+
+int skasigaction (int sig, struct skasigaction const *new, struct skasigaction *old)
+{
+  struct sigaction sanew, saold ;
+  if (((new->flags & SKASA_MASKALL) ? sigfillset(&sanew.sa_mask) : sigemptyset(&sanew.sa_mask)) == -1) return -1 ;
+  sanew.sa_handler = new->handler ;
+  sanew.sa_flags = (new->flags & SKASA_NOCLDSTOP) ? SA_NOCLDSTOP : 0 ;
+  if (sigaction(sig, &sanew, &saold) == -1) return -1 ;
+  if (old)
+  {
+    register int r = sigismember(&saold.sa_mask, (sig == SIGTERM) ? SIGPIPE : SIGTERM) ;
+    if (r == -1) return -1 ;
+    old->flags = 0 ;
+    if (r) old->flags |= SKASA_MASKALL ;
+    if (saold.sa_flags & SA_NOCLDSTOP) old->flags |= SKASA_NOCLDSTOP ;
+    old->handler = saold.sa_handler ;
+  }
+  return 0 ;
+}
diff --git a/src/libstddjb/slurp.c b/src/libstddjb/slurp.c
new file mode 100644
index 0000000..553b29e
--- /dev/null
+++ b/src/libstddjb/slurp.c
@@ -0,0 +1,31 @@
+/* ISC license. */
+
+#include <skalibs/allreadwrite.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+
+#define N 4096
+
+int slurp (stralloc *sa, int fd)
+{
+  register unsigned int salen = sa->len ;
+  for (;;)
+  {
+    int r ;
+    if (!stralloc_readyplus(sa, N)) break ;
+    r = fd_read(fd, sa->s + sa->len, N) ;
+    switch (r)
+    {
+      case -1: goto err ;
+      case 0:
+        stralloc_shrink(sa) ;
+        return 1 ;
+      default:
+        sa->len += r ;
+    }
+  }
+err:
+  sa->len = salen ;
+  stralloc_shrink(sa) ;
+  return 0 ;
+}
diff --git a/src/libstddjb/socket_accept4.c b/src/libstddjb/socket_accept4.c
new file mode 100644
index 0000000..e504375
--- /dev/null
+++ b/src/libstddjb/socket_accept4.c
@@ -0,0 +1,39 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/socket.h>
+
+int socket_accept4_internal (int s, char *ip, uint16 *port, unsigned int options)
+{
+  struct sockaddr_in sa ;
+  socklen_t dummy = sizeof sa ;
+  register int fd ;
+  do
+#ifdef SKALIBS_HASACCEPT4
+    fd = accept4(s, (struct sockaddr *)&sa, &dummy, ((options & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((options & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0)) ;
+#else
+    fd = accept(s, (struct sockaddr *)&sa, &dummy) ;
+#endif
+  while ((fd < 0) && (errno == EINTR)) ;
+  if (fd < 0) return -1 ;
+#ifndef SKALIBS_HASACCEPT4
+  if ((((options & DJBUNIX_FLAG_NB) ? ndelay_on(fd) : ndelay_off(fd)) < 0)
+   || (((options & DJBUNIX_FLAG_COE) ? coe(fd) : uncoe(fd)) < 0))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+    return -1 ;
+  }
+#endif
+  byte_copy(ip, 4, (char *)&sa.sin_addr.s_addr) ;
+  uint16_unpack_big((char *)&sa.sin_port, port) ;
+  return fd ;
+}
diff --git a/src/libstddjb/socket_accept4_u32.c b/src/libstddjb/socket_accept4_u32.c
new file mode 100644
index 0000000..18455fc
--- /dev/null
+++ b/src/libstddjb/socket_accept4_u32.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/uint32.h>
+#include <skalibs/socket.h>
+
+int socket_accept4_internal_u32 (int s, uint32 *ip, uint16 *port, unsigned int options)
+{
+  char pack[4] ;
+  register int r = socket_accept4_internal(s, pack, port, options) ;
+  if (r >= 0) uint32_unpack_big(pack, ip) ;
+  return r ;
+}
diff --git a/src/libstddjb/socket_accept6.c b/src/libstddjb/socket_accept6.c
new file mode 100644
index 0000000..8e87e46
--- /dev/null
+++ b/src/libstddjb/socket_accept6.c
@@ -0,0 +1,55 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_accept6_internal (int s, char *ip6, uint16 *port, unsigned int options)
+{
+  struct sockaddr_in6 sa ;
+  socklen_t dummy = sizeof sa ;
+  register int fd ;
+  do
+#ifdef SKALIBS_HASACCEPT4
+    fd = accept4(s, (struct sockaddr *)&sa, &dummy, ((options & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((options & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0)) ;
+#else
+    fd = accept(s, (struct sockaddr *)&sa, &dummy) ;
+#endif
+  while ((fd < 0) && (errno == EINTR)) ;
+  if (fd < 0) return -1 ;
+#ifndef SKALIBS_HASACCEPT4
+  if ((((options & DJBUNIX_FLAG_NB) ? ndelay_on(fd) : ndelay_off(fd)) < 0)
+   || (((options & DJBUNIX_FLAG_COE) ? coe(fd) : uncoe(fd)) < 0))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    errno = e ;
+    return -1 ;
+  }
+#endif
+  byte_copy(ip6, 16, sa.sin6_addr.s6_addr) ;
+  uint16_unpack_big((char *)&sa.sin6_port, port) ;
+  return fd ;
+}
+
+#else
+
+int socket_accept6_internal (int s, char *ip6, uint16 *port, unsigned int options)
+{
+  (void)s ;
+  (void)ip6 ;
+  (void)port ;
+  (void)options ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_bind4.c b/src/libstddjb/socket_bind4.c
new file mode 100644
index 0000000..e9c9593
--- /dev/null
+++ b/src/libstddjb/socket_bind4.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_bind4 (int s, char const *ip, uint16 port)
+{
+  struct sockaddr_in sa ;
+  byte_zero(&sa, sizeof sa) ;
+  sa.sin_family = AF_INET ;
+  uint16_big_endian((char *)&port, 1) ;
+  sa.sin_port = port ;
+  byte_copy(&sa.sin_addr.s_addr, 4, ip) ;
+  return bind(s, (struct sockaddr *)&sa, sizeof sa) ;
+}
diff --git a/src/libstddjb/socket_bind4r.c b/src/libstddjb/socket_bind4r.c
new file mode 100644
index 0000000..55f0903
--- /dev/null
+++ b/src/libstddjb/socket_bind4r.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/uint16.h>
+#include <skalibs/socket.h>
+
+int socket_bind4_reuse (int s, char const *ip, uint16 port)
+{
+  unsigned int opt = 1 ;
+  setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof opt) ;
+  return socket_bind4(s, ip, port) ;
+}
diff --git a/src/libstddjb/socket_bind6.c b/src/libstddjb/socket_bind6.c
new file mode 100644
index 0000000..fa4cae1
--- /dev/null
+++ b/src/libstddjb/socket_bind6.c
@@ -0,0 +1,34 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+#include <skalibs/ip46.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_bind6 (int s, char const *ip6, uint16 port)
+{
+  struct sockaddr_in6 sa ;
+  byte_zero(&sa, sizeof sa) ;
+  sa.sin6_family = AF_INET6 ;
+  uint16_pack_big((char *)&sa.sin6_port, port) ;
+  byte_copy(sa.sin6_addr.s6_addr, 16, ip6) ;
+  return bind(s, (struct sockaddr *)&sa, sizeof sa) ;
+}
+
+#else
+
+int socket_bind6 (int s, char const *ip6, uint16 port)
+{
+  (void)s ;
+  (void)ip6 ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_bind6r.c b/src/libstddjb/socket_bind6r.c
new file mode 100644
index 0000000..6bf5e0d
--- /dev/null
+++ b/src/libstddjb/socket_bind6r.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/uint16.h>
+#include <skalibs/socket.h>
+
+int socket_bind6_reuse (int s, char const *ip6, uint16 port)
+{
+  unsigned int opt = 1 ;
+  setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof opt) ;
+  return socket_bind6(s, ip6, port) ;
+}
diff --git a/src/libstddjb/socket_conn4.c b/src/libstddjb/socket_conn4.c
new file mode 100644
index 0000000..0180378
--- /dev/null
+++ b/src/libstddjb/socket_conn4.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_connect4 (int s, char const *ip, uint16 port)
+{
+  struct sockaddr_in sa ;
+  register int r ;
+  byte_zero(&sa, sizeof sa) ;
+  sa.sin_family = AF_INET ;
+  uint16_big_endian((char *)&port, 1) ;
+  sa.sin_port = port ;
+  byte_copy(&sa.sin_addr.s_addr, 4, ip) ;
+  do r = connect(s, (struct sockaddr *)&sa, sizeof sa) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if ((r == -1) && (errno == EALREADY)) errno = EINPROGRESS ;
+  return r ;
+}
diff --git a/src/libstddjb/socket_conn4_u32.c b/src/libstddjb/socket_conn4_u32.c
new file mode 100644
index 0000000..20887ce
--- /dev/null
+++ b/src/libstddjb/socket_conn4_u32.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/uint32.h>
+#include <skalibs/socket.h>
+
+int socket_connect4_u32 (int s, uint32 ip, uint16 port)
+{
+  char pack[4] ;
+  uint32_pack_big(pack, ip) ;
+  return socket_connect4(s, pack, port) ;
+}
diff --git a/src/libstddjb/socket_conn6.c b/src/libstddjb/socket_conn6.c
new file mode 100644
index 0000000..49a64d1
--- /dev/null
+++ b/src/libstddjb/socket_conn6.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+#include <skalibs/ip46.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_connect6 (int s, char const *ip6, uint16 port)
+{
+  struct sockaddr_in6 sa ;
+  register int r ;
+  byte_zero(&sa, sizeof sa) ;
+  sa.sin6_family = AF_INET6 ;
+  uint16_pack_big((char *)&sa.sin6_port,port) ;
+  byte_copy(sa.sin6_addr.s6_addr, 16, ip6) ;
+  do r = connect(s, (struct sockaddr *)&sa, sizeof sa) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if ((r == -1) && (errno == EALREADY)) errno = EINPROGRESS ;
+  return r ;
+}
+
+#else
+
+int socket_connect6 (int s, char const *ip6, uint16 port)
+{
+  (void)s ;
+  (void)ip6 ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_connected.c b/src/libstddjb/socket_connected.c
new file mode 100644
index 0000000..895eaf3
--- /dev/null
+++ b/src/libstddjb/socket_connected.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/socket.h>
+
+int socket_connected (int s)
+{
+  struct sockaddr_in sa ;
+  socklen_t dummy = sizeof sa ;
+  if (getpeername(s, (struct sockaddr *)&sa, &dummy) == -1)
+  {
+    char ch ;
+    fd_read(s, &ch, 1) ; /* sets errno */
+    return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/socket_deadlineconnstamp4.c b/src/libstddjb/socket_deadlineconnstamp4.c
new file mode 100644
index 0000000..618852f
--- /dev/null
+++ b/src/libstddjb/socket_deadlineconnstamp4.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/error.h>
+#include <skalibs/tai.h>
+#include <skalibs/socket.h>
+
+int socket_deadlineconnstamp (int s, char const *ip, uint16 port, tain_t const *deadline, tain_t *stamp)
+{
+  if (socket_connect4(s, ip, port) >= 0) return 1 ;
+  if (!error_isagain(errno) && !error_isalready(errno)) return 0 ;
+  return socket_waitconn(s, deadline, stamp) ;
+}
diff --git a/src/libstddjb/socket_deadlineconnstamp46.c b/src/libstddjb/socket_deadlineconnstamp46.c
new file mode 100644
index 0000000..4ab2c9a
--- /dev/null
+++ b/src/libstddjb/socket_deadlineconnstamp46.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/error.h>
+#include <skalibs/tai.h>
+#include <skalibs/socket.h>
+#include <skalibs/ip46.h>
+
+int socket_deadlineconnstamp46 (int s, ip46_t const *i, uint16 port, tain_t const *deadline, tain_t *stamp)
+{
+  if (socket_connect46(s, i, port) >= 0) return 1 ;
+  if (!error_isagain(errno) && !error_isalready(errno)) return 0 ;
+  return socket_waitconn(s, deadline, stamp) ;
+}
diff --git a/src/libstddjb/socket_deadlineconnstamp4_u32.c b/src/libstddjb/socket_deadlineconnstamp4_u32.c
new file mode 100644
index 0000000..4a82e50
--- /dev/null
+++ b/src/libstddjb/socket_deadlineconnstamp4_u32.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/uint32.h>
+#include <skalibs/tai.h>
+#include <skalibs/socket.h>
+
+int socket_deadlineconnstamp4_u32 (int s, uint32 ip, uint16 port, tain_t const *deadline, tain_t *stamp)
+{
+  char pack[4] ;
+  uint32_pack_big(pack, ip) ;
+  return socket_deadlineconnstamp4(s, pack, port, deadline, stamp) ;
+}
diff --git a/src/libstddjb/socket_deadlineconnstamp6.c b/src/libstddjb/socket_deadlineconnstamp6.c
new file mode 100644
index 0000000..a797d1e
--- /dev/null
+++ b/src/libstddjb/socket_deadlineconnstamp6.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/error.h>
+#include <skalibs/tai.h>
+#include <skalibs/socket.h>
+
+int socket_deadlineconnstamp6 (int s, char const *ip, uint16 port, tain_t const *deadline, tain_t *stamp)
+{
+  if (socket_connect6(s, ip, port) >= 0) return 1 ;
+  if (!error_isagain(errno) && !error_isalready(errno)) return 0 ;
+  return socket_waitconn(s, deadline, stamp) ;
+}
diff --git a/src/libstddjb/socket_delay.c b/src/libstddjb/socket_delay.c
new file mode 100644
index 0000000..7d1a8db
--- /dev/null
+++ b/src/libstddjb/socket_delay.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <skalibs/socket.h>
+
+int socket_tcpnodelay (int s)
+{
+  static int const opt = TCP_NODELAY ;
+  return setsockopt(s, IPPROTO_TCP, 1, &opt, sizeof(int)) ;
+}
diff --git a/src/libstddjb/socket_internal.c b/src/libstddjb/socket_internal.c
new file mode 100644
index 0000000..ae57e06
--- /dev/null
+++ b/src/libstddjb/socket_internal.c
@@ -0,0 +1,33 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+#ifdef SKALIBS_HASACCEPT4
+
+int socket_internal (int domain, int type, int protocol, unsigned int flags)
+{
+  return socket(domain, type | ((flags & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((flags & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0), protocol) ;
+}
+
+#else
+
+int socket_internal (int domain, int type, int protocol, unsigned int flags)
+{
+  int s = socket(domain, type, protocol) ;
+  if (s == -1) return -1 ;
+  if ((((flags & DJBUNIX_FLAG_NB) ? ndelay_on(s) : ndelay_off(s)) < 0)
+   || (((flags & DJBUNIX_FLAG_COE) ? coe(s) : uncoe(s)) < 0))
+  {
+    register int e = errno ;
+    fd_close(s) ;
+    errno = e ;
+    return -1 ;
+  }
+  return s ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_ioloop.c b/src/libstddjb/socket_ioloop.c
new file mode 100644
index 0000000..a158f01
--- /dev/null
+++ b/src/libstddjb/socket_ioloop.c
@@ -0,0 +1,30 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/error.h>
+#include <skalibs/uint16.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+#include <skalibs/socket.h>
+
+int socket_ioloop (int s, char *buf, unsigned int len, char *ip, uint16 *port, socket_io_func_t_ref f, int w, tain_t const *deadline, tain_t *stamp)
+{
+  iopause_fd x = { .fd = s, .events = w ? IOPAUSE_WRITE : IOPAUSE_READ, .revents = 0 } ;
+  for (;;)
+  {
+    register int r = iopause_stamp(&x, 1, deadline, stamp) ;
+    if (r < 0) return -1 ;
+    if (!r) return (errno = ETIMEDOUT, -1) ;
+    if (x.revents & IOPAUSE_EXCEPT) return (errno = EIO, -1) ;
+    if (x.revents & x.events)
+    {
+      r = (*f)(s, buf, len, ip, port) ;
+      if (r < 0)
+      {
+        if (!error_isagain(errno)) return -1 ;
+      }
+      else return r ;
+    }
+  }
+}
+
diff --git a/src/libstddjb/socket_ioloop_send4.c b/src/libstddjb/socket_ioloop_send4.c
new file mode 100644
index 0000000..aff251d
--- /dev/null
+++ b/src/libstddjb/socket_ioloop_send4.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/socket.h>
+
+int socket_ioloop_send4 (int fd, char *s, unsigned int len, char *ip, uint16 *port)
+{
+  return socket_send4(fd, s, len, ip, *port) ;
+}
diff --git a/src/libstddjb/socket_ioloop_send6.c b/src/libstddjb/socket_ioloop_send6.c
new file mode 100644
index 0000000..151a58c
--- /dev/null
+++ b/src/libstddjb/socket_ioloop_send6.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/socket.h>
+
+int socket_ioloop_send6 (int fd, char *s, unsigned int len, char *ip, uint16 *port)
+{
+  return socket_send6(fd, s, len, ip, *port) ;
+}
diff --git a/src/libstddjb/socket_local4.c b/src/libstddjb/socket_local4.c
new file mode 100644
index 0000000..90ae93a
--- /dev/null
+++ b/src/libstddjb/socket_local4.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_local4 (int s, char *ip, uint16 *port)
+{
+  struct sockaddr_in sa ;
+  socklen_t dummy = sizeof sa ;
+
+  if (getsockname(s, (struct sockaddr *)&sa, &dummy) == -1)
+    return -1 ;
+  byte_copy(ip, 4, (char *)&sa.sin_addr.s_addr) ;
+  uint16_unpack_big((char *)&sa.sin_port, port) ;
+  return 0 ;
+}
diff --git a/src/libstddjb/socket_local46.c b/src/libstddjb/socket_local46.c
new file mode 100644
index 0000000..a53bcac
--- /dev/null
+++ b/src/libstddjb/socket_local46.c
@@ -0,0 +1,36 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/ip46.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_local46 (int s, ip46_t_ref ip, uint16 *port)
+{
+  struct sockaddr sa ;
+  socklen_t dummy = sizeof sa ;
+  if (getsockname(s, &sa, &dummy) < 0) return -1 ;
+  if (sa.sa_family == AF_INET6)
+  {
+    register struct sockaddr_in6 *sa6 = (struct sockaddr_in6 *)&sa ;
+    byte_copy(ip->ip, 16, sa6->sin6_addr.s6_addr) ;
+    uint16_unpack_big((char *)&sa6->sin6_port, port) ;
+    ip->is6 = 1 ;
+  }
+  else if (sa.sa_family == AF_INET)
+  {
+    register struct sockaddr_in *sa4 = (struct sockaddr_in *)&sa ;
+    byte_copy(ip->ip, 4, &sa4->sin_addr.s_addr) ;
+    uint16_unpack_big((char *)&sa4->sin_port, port) ;
+    ip->is6 = 0 ;
+  }
+  else return (errno = EAFNOSUPPORT, -1) ;
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_local6.c b/src/libstddjb/socket_local6.c
new file mode 100644
index 0000000..31ee1f0
--- /dev/null
+++ b/src/libstddjb/socket_local6.c
@@ -0,0 +1,37 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+#include <skalibs/ip46.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_local6 (int s, char *ip, uint16 *port)
+{
+  struct sockaddr_in6 sa ;
+  socklen_t dummy = sizeof sa ;
+
+  if (getsockname(s, (struct sockaddr *)&sa, &dummy) == -1)
+    return -1 ;
+  byte_copy(ip, 16, sa.sin6_addr.s6_addr) ;
+  uint16_unpack_big((char *)&sa.sin6_port, port) ;
+  return 0 ;
+}
+
+#else
+
+#include <errno.h>
+
+int socket_local6 (int s, char *ip, uint16 *port)
+{
+  (void)s ;
+  (void)ip ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_recv4.c b/src/libstddjb/socket_recv4.c
new file mode 100644
index 0000000..02354e9
--- /dev/null
+++ b/src/libstddjb/socket_recv4.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_recv4 (int s, char *buf, unsigned int len, char *ip, uint16 *port)
+{
+  struct sockaddr_in sa ;
+  socklen_t dummy = sizeof sa ;
+  register int r ;
+  do r = recvfrom(s, buf, len, 0, (struct sockaddr *)&sa, &dummy) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if (r == -1) return -1 ;
+  byte_copy(ip, 4, (char *)&sa.sin_addr) ;
+  uint16_unpack_big((char *)&sa.sin_port, port) ;
+  return r ;
+}
diff --git a/src/libstddjb/socket_recv6.c b/src/libstddjb/socket_recv6.c
new file mode 100644
index 0000000..d745604
--- /dev/null
+++ b/src/libstddjb/socket_recv6.c
@@ -0,0 +1,39 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_recv6 (int s, char *buf, unsigned int len, char *ip6, uint16 *port)
+{
+  struct sockaddr_in6 sa ;
+  socklen_t dummy = sizeof sa ;
+  register int r ;
+  do r = recvfrom(s, buf, len, 0, (struct sockaddr *)&sa, &dummy) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  if (r == -1) return -1 ;
+  byte_copy(ip6, 16, sa.sin6_addr.s6_addr) ;
+  uint16_unpack_big((char *)&sa.sin6_port, port) ;
+  return r ;
+}
+
+#else
+
+int socket_recv6 (int s, char *buf, unsigned int len, char *ip6, uint16 *port)
+{
+  (void)s ;
+  (void)buf ;
+  (void)len ;
+  (void)ip6 ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_remote4.c b/src/libstddjb/socket_remote4.c
new file mode 100644
index 0000000..767a694
--- /dev/null
+++ b/src/libstddjb/socket_remote4.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_remote4 (int s, char *ip, uint16 *port)
+{
+  struct sockaddr_in sa ;
+  socklen_t dummy = sizeof sa ;
+
+  if (getpeername(s, (struct sockaddr *)&sa, &dummy) == -1)
+    return -1 ;
+  byte_copy(ip, 4, (char *)&sa.sin_addr.s_addr) ;
+  uint16_unpack_big((char *)&sa.sin_port, port) ;
+  return 0 ;
+}
diff --git a/src/libstddjb/socket_remote46.c b/src/libstddjb/socket_remote46.c
new file mode 100644
index 0000000..835b7c9
--- /dev/null
+++ b/src/libstddjb/socket_remote46.c
@@ -0,0 +1,36 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/ip46.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_remote46 (int s, ip46_t_ref ip, uint16 *port)
+{
+  struct sockaddr sa ;
+  socklen_t dummy = sizeof sa ;
+  if (getpeername(s, &sa, &dummy) < 0) return -1 ;
+  if (sa.sa_family == AF_INET6)
+  {
+    register struct sockaddr_in6 *sa6 = (struct sockaddr_in6 *)&sa ;
+    byte_copy(ip->ip, 16, sa6->sin6_addr.s6_addr) ;
+    uint16_unpack_big((char *)&sa6->sin6_port, port) ;
+    ip->is6 = 1 ;
+  }
+  else if (sa.sa_family == AF_INET)
+  {
+    register struct sockaddr_in *sa4 = (struct sockaddr_in *)&sa ;
+    byte_copy(ip->ip, 4, &sa4->sin_addr.s_addr) ;
+    uint16_unpack_big((char *)&sa4->sin_port, port) ;
+    ip->is6 = 0 ;
+  }
+  else return (errno = EAFNOSUPPORT, -1) ;
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_remote6.c b/src/libstddjb/socket_remote6.c
new file mode 100644
index 0000000..9d40d70
--- /dev/null
+++ b/src/libstddjb/socket_remote6.c
@@ -0,0 +1,36 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_remote6 (int s, char *ip, uint16 *port)
+{
+  struct sockaddr_in6 sa ;
+  socklen_t dummy = sizeof sa ;
+
+  if (getpeername(s, (struct sockaddr *)&sa, &dummy) == -1)
+    return -1 ;
+  byte_copy(ip, 16, sa.sin6_addr.s6_addr) ;
+  uint16_unpack_big((char *)&sa.sin6_port, port) ;
+  return 0 ;
+}
+
+#else
+
+int socket_remote6 (int s, char *ip, uint16 *port)
+{
+  (void)s ;
+  (void)ip ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_send4.c b/src/libstddjb/socket_send4.c
new file mode 100644
index 0000000..6078dff
--- /dev/null
+++ b/src/libstddjb/socket_send4.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <errno.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/socket.h>
+
+int socket_send4 (int s, char const *buf, unsigned int len, char const *ip, uint16 port)
+{
+  struct sockaddr_in sa ;
+  register int r ;
+  byte_zero((char *)&sa, sizeof sa) ;
+  sa.sin_family = AF_INET ;
+  uint16_pack_big((char *)&sa.sin_port, port) ;
+  byte_copy((char *)&sa.sin_addr, 4, ip) ;
+  do r = sendto(s, buf, len, 0, (struct sockaddr *)&sa, sizeof sa) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/socket_send6.c b/src/libstddjb/socket_send6.c
new file mode 100644
index 0000000..01319a1
--- /dev/null
+++ b/src/libstddjb/socket_send6.c
@@ -0,0 +1,39 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_send6 (int s, char const *buf, unsigned int len, char const *ip6, uint16 port)
+{
+  struct sockaddr_in6 sa ;
+  register int r ;
+  byte_zero((char *)&sa, sizeof sa) ;
+  sa.sin6_family = AF_INET6 ;
+  uint16_pack_big((char *)&sa.sin6_port, port) ;
+  byte_copy(sa.sin6_addr.s6_addr, 16, ip6) ;
+  do r = sendto(s, buf, len, 0, (struct sockaddr *)&sa, sizeof sa) ;
+  while ((r == -1) && (errno == EINTR)) ;
+  return r ;
+}
+
+#else
+
+int socket_send6 (int s, char const *buf, unsigned int len, char const *ip6, uint16 port)
+{
+  (void)s ;
+  (void)buf ;
+  (void)len ;
+  (void)ip6 ;
+  (void)port ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_tcp4.c b/src/libstddjb/socket_tcp4.c
new file mode 100644
index 0000000..8eecb67
--- /dev/null
+++ b/src/libstddjb/socket_tcp4.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/socket.h>
+
+int socket_tcp4_internal (unsigned int flags)
+{
+  return socket_internal(AF_INET, SOCK_STREAM, 0, flags) ;
+}
diff --git a/src/libstddjb/socket_tcp6.c b/src/libstddjb/socket_tcp6.c
new file mode 100644
index 0000000..fd282fc
--- /dev/null
+++ b/src/libstddjb/socket_tcp6.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_tcp6_internal (unsigned int flags)
+{
+  int fd = socket_internal(AF_INET6, SOCK_STREAM, 0, flags) ;
+  if (fd < 0) return fd ;
+  {
+    int option = 1 ;
+    if (setsockopt(fd, IPPROTO_IPV6, IPV6_V6ONLY, &option, sizeof(option)) < 0)
+    {
+      register int e = errno ;
+      fd_close(fd) ;
+      errno = e ;
+      return -1 ;
+    }
+  }
+  return fd ;
+}
+
+#else
+
+int socket_tcp6_internal (unsigned int flags)
+{
+  (void)flags ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_timeoutconn.c b/src/libstddjb/socket_timeoutconn.c
new file mode 100644
index 0000000..ec7e251
--- /dev/null
+++ b/src/libstddjb/socket_timeoutconn.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/tai.h>
+#include <skalibs/socket.h>
+
+int socket_timeoutconn (int s, char const *ip, uint16 port, unsigned int timeout)
+{
+  tain_t stamp, deadline ;
+  tain_now(&stamp) ;
+  tain_addsec(&deadline, &stamp, timeout) ;
+  return socket_deadlineconnstamp4(s, ip, port, &deadline, &stamp) ;
+}
diff --git a/src/libstddjb/socket_tryr.c b/src/libstddjb/socket_tryr.c
new file mode 100644
index 0000000..6544c9d
--- /dev/null
+++ b/src/libstddjb/socket_tryr.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <skalibs/socket.h>
+
+void socket_tryreservein (int s, unsigned int size)
+{
+  while (size >= 1024)
+  {
+    if (setsockopt(s, SOL_SOCKET, SO_RCVBUF, &size, sizeof size) == 0) return ;
+    size -= (size >> 5) ;
+  }
+}
diff --git a/src/libstddjb/socket_udp4.c b/src/libstddjb/socket_udp4.c
new file mode 100644
index 0000000..d6e8ead
--- /dev/null
+++ b/src/libstddjb/socket_udp4.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/socket.h>
+
+int socket_udp4_internal (unsigned int flags)
+{
+  return socket_internal(AF_INET, SOCK_DGRAM, 0, flags) ;
+}
diff --git a/src/libstddjb/socket_udp6.c b/src/libstddjb/socket_udp6.c
new file mode 100644
index 0000000..41d395a
--- /dev/null
+++ b/src/libstddjb/socket_udp6.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <skalibs/nonposix.h>
+#include <errno.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/ip46.h>
+#include <skalibs/socket.h>
+
+#ifdef SKALIBS_IPV6_ENABLED
+
+int socket_udp6_internal (unsigned int flags)
+{
+  int fd = socket_internal(AF_INET6, SOCK_DGRAM, 0, flags) ;
+  if (fd < 0) return fd ;
+  {
+    int option = 1 ;
+    if (setsockopt(fd, IPPROTO_IPV6, IPV6_V6ONLY, &option, sizeof(option)) < 0)
+    {
+      register int e = errno ;
+      fd_close(fd) ;
+      errno = e ;
+      return -1 ;
+    }
+  }
+  return fd ;
+}
+
+#else
+
+int socket_udp6_internal (unsigned int flags)
+{
+  (void)flags ;
+  return (errno = ENOSYS, -1) ;
+}
+
+#endif
diff --git a/src/libstddjb/socket_waitconn.c b/src/libstddjb/socket_waitconn.c
new file mode 100644
index 0000000..6e5c352
--- /dev/null
+++ b/src/libstddjb/socket_waitconn.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/tai.h>
+#include <skalibs/iopause.h>
+#include <skalibs/socket.h>
+
+int socket_waitconn (int s, tain_t const *deadline, tain_t *stamp)
+{
+  iopause_fd x = { s, IOPAUSE_WRITE, 0 } ;
+  for (;;)
+  {
+    register int r = iopause_stamp(&x, 1, deadline, stamp) ;
+    if (r < 0) return 0 ;
+    if (!r) return (errno = ETIMEDOUT, 0) ;
+    if (x.revents & IOPAUSE_WRITE) break ;
+    if (x.revents & IOPAUSE_EXCEPT)
+    {
+      fd_write(s, "", 1) ; /* sets errno */
+      return 0 ;
+    }
+  }
+  return socket_connected(s) ;
+}
diff --git a/src/libstddjb/socketpair_internal.c b/src/libstddjb/socketpair_internal.c
new file mode 100644
index 0000000..8e62bdf
--- /dev/null
+++ b/src/libstddjb/socketpair_internal.c
@@ -0,0 +1,56 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+#ifdef SKALIBS_HASACCEPT4
+
+int socketpair_internal (int domain, int type, int protocol, unsigned int flags, int *sv)
+{
+  return socketpair(domain, type | ((flags & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((flags & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0), protocol, sv) ;
+}
+
+#else
+
+int socketpair_internal (int domain, int type, int protocol, unsigned int flags, int *sv)
+{
+  int fd[2] ;
+  if (socketpair(domain, type, protocol, fd) < 0) return -1 ;
+  if (flags & DJBUNIX_FLAG_NB)
+  {
+    if (ndelay_on(fd[0]) < 0) goto err ;
+    if (ndelay_on(fd[1]) < 0) goto err ;
+  }
+  else
+  {
+    if (ndelay_off(fd[0]) < 0) goto err ;
+    if (ndelay_off(fd[1]) < 0) goto err ;
+  }
+  if (flags & DJBUNIX_FLAG_COE)
+  {
+    if (coe(fd[0]) < 0) goto err ;
+    if (coe(fd[1]) < 0) goto err ;
+  }
+  else
+  {
+    if (uncoe(fd[0]) < 0) goto err ;
+    if (uncoe(fd[1]) < 0) goto err ;
+  }
+  sv[0] = fd[0] ;
+  sv[1] = fd[1] ;
+  return 0 ;
+
+ err:
+  {
+    register int e = errno ;
+    fd_close(fd[1]) ;
+    fd_close(fd[0]) ;
+    errno = e ;
+  }
+  return -1 ;
+}
+
+#endif
diff --git a/src/libstddjb/stamp.c b/src/libstddjb/stamp.c
new file mode 100644
index 0000000..65becc6
--- /dev/null
+++ b/src/libstddjb/stamp.c
@@ -0,0 +1,7 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/tai.h>
+
+tain_t STAMP = TAIN_EPOCH ;
diff --git a/src/libstddjb/str_chr.c b/src/libstddjb/str_chr.c
new file mode 100644
index 0000000..ed55e50
--- /dev/null
+++ b/src/libstddjb/str_chr.c
@@ -0,0 +1,33 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/bytestr.h>
+
+#ifndef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <string.h>
+
+unsigned int str_chr (register char const *s, int c)
+{
+  register char *p = strchr(s, c) ;
+  return p ? (unsigned int)(p - s) : strlen(s) ;
+}
+
+#else
+
+unsigned int str_chr (register char const *s, int c)
+{
+  register char ch = c ;
+  register char const *t = s ;
+
+  for (;;)
+  {
+    if (!*t) break; if (*t == ch) break; ++t;
+    if (!*t) break; if (*t == ch) break; ++t;
+    if (!*t) break; if (*t == ch) break; ++t;
+    if (!*t) break; if (*t == ch) break; ++t;
+  }
+  return t - s ;
+}
+
+#endif
diff --git a/src/libstddjb/str_cpy.c b/src/libstddjb/str_cpy.c
new file mode 100644
index 0000000..179688c
--- /dev/null
+++ b/src/libstddjb/str_cpy.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+unsigned int str_copy (char *s, char const *t)
+{
+  register unsigned int len = 0 ;
+  while ((*s = *t)) (s++, t++, len++) ;
+  return len ;
+}
+
+#endif
diff --git a/src/libstddjb/str_diff.c b/src/libstddjb/str_diff.c
new file mode 100644
index 0000000..b85288a
--- /dev/null
+++ b/src/libstddjb/str_diff.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+int str_diff (register char const *s, register char const *t)
+{
+  register char x ;
+
+  for (;;)
+  {
+    x = *s; if (x != *t) break; if (!x) break; ++s; ++t;
+    x = *s; if (x != *t) break; if (!x) break; ++s; ++t;
+    x = *s; if (x != *t) break; if (!x) break; ++s; ++t;
+    x = *s; if (x != *t) break; if (!x) break; ++s; ++t;
+  }
+  return ((int)(unsigned int)(unsigned char) x)
+       - ((int)(unsigned int)(unsigned char) *t) ;
+}
+
+#endif
diff --git a/src/libstddjb/str_diffn.c b/src/libstddjb/str_diffn.c
new file mode 100644
index 0000000..28f37f6
--- /dev/null
+++ b/src/libstddjb/str_diffn.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/bytestr.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+int str_diffn (register char const *s, register char const *t, register unsigned int len)
+{
+  while (len--)
+  {
+    if (*s != *t) return *s - *t ;
+    if (!*s) break ;
+    s++ ; t++ ;
+  }
+  return 0 ;
+}
+
+#endif
diff --git a/src/libstddjb/str_fmt.c b/src/libstddjb/str_fmt.c
new file mode 100644
index 0000000..1c14c70
--- /dev/null
+++ b/src/libstddjb/str_fmt.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int str_fmt (register char *d, char const *s)
+{
+  return strn_fmt(d, s, str_len(s)) ;
+}
diff --git a/src/libstddjb/str_len.c b/src/libstddjb/str_len.c
new file mode 100644
index 0000000..4db2f4c
--- /dev/null
+++ b/src/libstddjb/str_len.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <skalibs/bytestr.h>
+
+unsigned int str_len (char const *s)
+{
+  register char const *t = s ;
+  for (;;)
+  {
+    if (!*t) return t - s; ++t;
+    if (!*t) return t - s; ++t;
+    if (!*t) return t - s; ++t;
+    if (!*t) return t - s; ++t;
+  }
+}
+
+#endif
diff --git a/src/libstddjb/str_rchr.c b/src/libstddjb/str_rchr.c
new file mode 100644
index 0000000..39a4822
--- /dev/null
+++ b/src/libstddjb/str_rchr.c
@@ -0,0 +1,28 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/bytestr.h>
+
+#ifndef SKALIBS_FLAG_REPLACE_LIBC
+
+#include <string.h>
+
+unsigned int str_rchr (register char const *s, int c)
+{
+  register char *p = strrchr(s, c) ;
+  return p ? (unsigned int)(p - s) : (unsigned int)strlen(s) ;
+}
+
+#else
+
+unsigned int str_rchr (register char const *s, int c)
+{
+  register char ch = c ;
+  register char const *t = s ;
+  register char const *u = 0 ;
+  for ( ; *t ; t++) if (*t == ch) u = t ;
+  if (!u) u = t ;
+  return u - s ;
+}
+
+#endif
diff --git a/src/libstddjb/str_start.c b/src/libstddjb/str_start.c
new file mode 100644
index 0000000..30396bd
--- /dev/null
+++ b/src/libstddjb/str_start.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+
+int str_start (register char const *s, register char const *t)
+{
+  register char x ;
+
+  for (;;)
+  {
+    x = *t++; if (!x) return 1; if (x != *s++) return 0;
+    x = *t++; if (!x) return 1; if (x != *s++) return 0;
+    x = *t++; if (!x) return 1; if (x != *s++) return 0;
+    x = *t++; if (!x) return 1; if (x != *s++) return 0;
+  }
+}
diff --git a/src/libstddjb/str_strn.c b/src/libstddjb/str_strn.c
new file mode 100644
index 0000000..7c2e425
--- /dev/null
+++ b/src/libstddjb/str_strn.c
@@ -0,0 +1,36 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/bytestr.h>
+
+#ifdef SKALIBS_FLAG_REPLACE_LIBC
+
+/* Very naive implementation, but it's small. */
+
+unsigned int str_strn (char const *haystack, unsigned int hlen, char const *needle, unsigned int nlen)
+{
+  register unsigned int i = 0 ;
+  if (!nlen) return 0 ;
+  if (hlen < nlen) return hlen ;
+  hlen -= nlen ;
+  for (; i <= hlen ; i++)
+    if (!byte_diff(haystack+i, nlen, needle)) return i ;
+  return hlen+nlen ;
+}
+
+#else
+
+#include <string.h>
+
+unsigned int str_strn (char const *haystack, unsigned int hlen, char const *needle, unsigned int nlen)
+{
+  char haystack2[hlen+1] ;
+  char needle2[nlen+1] ;
+  register char *p ;
+  byte_copy(haystack2, hlen, haystack) ; haystack2[hlen] = 0 ;
+  byte_copy(needle2, nlen, needle) ; needle2[nlen] = 0 ;
+  p = strstr(haystack2, needle2) ;
+  return p ? p - haystack2 : hlen ;
+}
+
+#endif
diff --git a/src/libstddjb/stralloc_append.c b/src/libstddjb/stralloc_append.c
new file mode 100644
index 0000000..a51db36
--- /dev/null
+++ b/src/libstddjb/stralloc_append.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+
+int stralloc_append (stralloc *sa, char c)
+{
+  return stralloc_catb(sa, &c, 1) ;
+}
diff --git a/src/libstddjb/stralloc_catb.c b/src/libstddjb/stralloc_catb.c
new file mode 100644
index 0000000..bb03405
--- /dev/null
+++ b/src/libstddjb/stralloc_catb.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_catb (stralloc *sa, char const *s, unsigned int n)
+{
+  if (!stralloc_readyplus(sa, n)) return 0 ;
+  byte_copy(sa->s + sa->len, n, s) ;
+  sa->len += n ;
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_catv.c b/src/libstddjb/stralloc_catv.c
new file mode 100644
index 0000000..1649f4c
--- /dev/null
+++ b/src/libstddjb/stralloc_catv.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/siovec.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_catv (stralloc *sa, siovec_t const *v, unsigned int n)
+{
+  register unsigned int i = 0 ;
+  {
+    unsigned int total = 0 ;
+    for (; i < n ; i++) total += v[i].len ;
+    if (!stralloc_readyplus(sa, total)) return 0 ;
+  }
+  for (i = 0 ; i < n ; i++)
+  {
+    byte_copy(sa->s + sa->len, v[i].len, v[i].s) ;
+    sa->len += v[i].len ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_copyb.c b/src/libstddjb/stralloc_copyb.c
new file mode 100644
index 0000000..be2b397
--- /dev/null
+++ b/src/libstddjb/stralloc_copyb.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_copyb (stralloc *sa, char const *s, unsigned int n)
+{
+  if (!stralloc_ready(sa, n)) return 0 ;
+  byte_copy(sa->s, n, s) ;
+  sa->len = n ;
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_free.c b/src/libstddjb/stralloc_free.c
new file mode 100644
index 0000000..889b2ca
--- /dev/null
+++ b/src/libstddjb/stralloc_free.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/alloc.h>
+#include <skalibs/stralloc.h>
+
+void stralloc_free (stralloc *sa)
+{
+  alloc_free(sa->s) ;
+  *sa = stralloc_zero ;
+}
diff --git a/src/libstddjb/stralloc_insertb.c b/src/libstddjb/stralloc_insertb.c
new file mode 100644
index 0000000..339ffff
--- /dev/null
+++ b/src/libstddjb/stralloc_insertb.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_insertb (stralloc *sa, unsigned int offset, char const *s, unsigned int n)
+{
+  if (offset > sa->len) return (errno = EINVAL, 0) ;
+  if (!stralloc_readyplus(sa, n)) return 0 ;
+  byte_copyr(sa->s + offset + n, sa->len - offset, sa->s + offset) ;
+  sa->len += n ;
+  byte_copyr(sa->s + offset, n, s) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_ready_tuned.c b/src/libstddjb/stralloc_ready_tuned.c
new file mode 100644
index 0000000..04e1a41
--- /dev/null
+++ b/src/libstddjb/stralloc_ready_tuned.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/alloc.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_ready_tuned (stralloc *sa, unsigned int n, unsigned int base, unsigned int a, unsigned int b)
+{
+  register unsigned int t ;
+  if (!b) return (errno = EINVAL, 0) ;
+  t = n + base + a * n / b ;
+  if (t < n) return (errno = ERANGE, 0) ;
+  if (!sa->s)
+  {
+    sa->s = alloc(t) ;
+    if (!sa->s) return 0 ;
+    sa->a = t ;
+  }
+  else if (n > sa->a)
+  {
+    if (!alloc_re(&sa->s, sa->a, t)) return 0 ;
+    sa->a = t ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_reverse.c b/src/libstddjb/stralloc_reverse.c
new file mode 100644
index 0000000..9ad29e7
--- /dev/null
+++ b/src/libstddjb/stralloc_reverse.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+void stralloc_reverse (stralloc *sa)
+{
+  register unsigned int i = 0 ;
+  for (; i < sa->len >> 1 ; i++)
+  {
+    char tmp = sa->s[i] ;
+    sa->s[i] = sa->s[sa->len - 1 - i] ;
+    sa->s[sa->len - 1 - i] = tmp ;
+  }
+}
diff --git a/src/libstddjb/stralloc_reverse_blocks.c b/src/libstddjb/stralloc_reverse_blocks.c
new file mode 100644
index 0000000..6a2e4b8
--- /dev/null
+++ b/src/libstddjb/stralloc_reverse_blocks.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+void stralloc_reverse_blocks (stralloc *sa, unsigned int size)
+{
+  register unsigned int n = sa->len / (size << 1) ;
+  register unsigned int i = 0 ;
+  char tmp[size] ;
+  for (; i < n ; i++)
+  {
+    byte_copy(tmp, size, sa->s + i * size) ;
+    byte_copy(sa->s + i * size, size, sa->s + (2*n - 1 - i) * size) ;
+    byte_copy(sa->s + (2*n - 1 - i) * size, size, tmp) ;
+  }
+}
diff --git a/src/libstddjb/stralloc_shrink.c b/src/libstddjb/stralloc_shrink.c
new file mode 100644
index 0000000..0dceca2
--- /dev/null
+++ b/src/libstddjb/stralloc_shrink.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/alloc.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_shrink (stralloc *sa)
+{
+  if (sa->a > sa->len)
+  {
+    if (!alloc_re(&sa->s, sa->a, sa->len)) return 0 ;
+    sa->a = sa->len ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/stralloc_zero.c b/src/libstddjb/stralloc_zero.c
new file mode 100644
index 0000000..5c2185b
--- /dev/null
+++ b/src/libstddjb/stralloc_zero.c
@@ -0,0 +1,5 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+
+stralloc const stralloc_zero = STRALLOC_ZERO ;
diff --git a/src/libstddjb/strerr.c b/src/libstddjb/strerr.c
new file mode 100644
index 0000000..ae70477
--- /dev/null
+++ b/src/libstddjb/strerr.c
@@ -0,0 +1,35 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/buffer.h>
+#include <skalibs/strerr.h>
+
+void strerr_warn (char const *x1, char const *x2, char const *x3, char const *x4, char const *x5, char const *x6, char const *x7, char const *x8, char const *x9, char const *x10, char const *se)
+{
+  int e = errno ;
+  if (x1) buffer_puts(buffer_2, x1) ;
+  if (x2) buffer_puts(buffer_2, x2) ;
+  if (x3) buffer_puts(buffer_2, x3) ;
+  if (x4) buffer_puts(buffer_2, x4) ;
+  if (x5) buffer_puts(buffer_2, x5) ;
+  if (x6) buffer_puts(buffer_2, x6) ;
+  if (x7) buffer_puts(buffer_2, x7) ;
+  if (x8) buffer_puts(buffer_2, x8) ;
+  if (x9) buffer_puts(buffer_2, x9) ;
+  if (x10) buffer_puts(buffer_2, x10) ;
+  if (se) buffer_puts(buffer_2, se) ;
+  buffer_putflush(buffer_2, "\n", 1) ;
+  errno = e ;
+}
+
+void strerr_die (int e, char const *x1, char const *x2, char const *x3, char const *x4, char const *x5, char const *x6, char const *x7, char const *x8, char const *x9, char const *x10, char const *se)
+{
+  strerr_warn(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, se) ;
+  _exit(e) ;
+
+ /* No, OpenBSD, this noreturn function does NOT return.
+    Please learn what _exit() does. */
+}
diff --git a/src/libstddjb/strerr_sys.c b/src/libstddjb/strerr_sys.c
new file mode 100644
index 0000000..46789d8
--- /dev/null
+++ b/src/libstddjb/strerr_sys.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <unistd.h>
+#include <errno.h>
+#include <skalibs/error.h>
+#include <skalibs/strerr.h>
+
+void strerr_warnsys (char const *x1, char const *x2, char const *x3, char const *x4, char const *x5, char const *x6, char const *x7, char const *x8, char const *x9, char const *x10)
+{
+  strerr_warn(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, error_str(errno)) ;
+}
+
+void strerr_diesys (int e, char const *x1, char const *x2, char const *x3, char const *x4, char const *x5, char const *x6, char const *x7, char const *x8, char const *x9, char const *x10)
+{
+  strerr_warnsys(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10) ;
+  _exit(e) ;
+
+ /* No, OpenBSD, this noreturn function does NOT return.
+    Please learn what _exit() does. */
+}
diff --git a/src/libstddjb/string_format.c b/src/libstddjb/string_format.c
new file mode 100644
index 0000000..f81b03d
--- /dev/null
+++ b/src/libstddjb/string_format.c
@@ -0,0 +1,33 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/stralloc.h>
+
+int string_format (stralloc *sa, char const *vars, char const *format, char const *const *args)
+{
+  static unsigned char const tab[2][4] = { "1442", "4833" } ;
+  char class[256] = "3222222222222222222222222222222222222022222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222" ;
+  unsigned int varlen = str_len(vars) ;
+  unsigned int base = sa->len ;
+  int wasnull = !sa->s ;
+  unsigned int state = 0 ;
+
+  for (; state < varlen ; state++)
+    if (class[(unsigned char)vars[state]] == '2')
+      class[(unsigned char)vars[state]] = '1' ;
+    else return (errno = EINVAL, 0) ;
+
+  for (state = 0 ; state < 2 ; format++)
+  {
+    unsigned char c = tab[state][class[(unsigned char)(*format)] - '0'] ;
+    state = c & 3 ;
+    if (c & 4) if (!stralloc_catb(sa, format, 1)) goto err ;
+    if (c & 8) if (!stralloc_cats(sa, args[byte_chr(vars, varlen, *format)])) goto err ;
+  }
+  if (state == 2) return 1 ;
+  errno = EINVAL ;
+ err:
+  if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+  return 0 ;
+}
diff --git a/src/libstddjb/string_quote.c b/src/libstddjb/string_quote.c
new file mode 100644
index 0000000..ed00402
--- /dev/null
+++ b/src/libstddjb/string_quote.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+
+int string_quote (stralloc *sa, char const *s, unsigned int len)
+{
+  unsigned int base = sa->len ;
+  int wasnull = !sa->s ;
+  if (!stralloc_catb(sa, "\"", 1)) return 0 ;
+  if (!string_quote_nodelim(sa, s, len) || !stralloc_catb(sa, "\"", 1))
+  {
+    if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+    return 0 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/string_quote_nodelim.c b/src/libstddjb/string_quote_nodelim.c
new file mode 100644
index 0000000..dfe41ce
--- /dev/null
+++ b/src/libstddjb/string_quote_nodelim.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+
+int string_quote_nodelim (stralloc *sa, char const *s, unsigned int len)
+{
+  return string_quote_nodelim_mustquote(sa, s, len, "\"", 1) ;
+}
diff --git a/src/libstddjb/string_quote_nodelim_mustquote.c b/src/libstddjb/string_quote_nodelim_mustquote.c
new file mode 100644
index 0000000..e52bce3
--- /dev/null
+++ b/src/libstddjb/string_quote_nodelim_mustquote.c
@@ -0,0 +1,62 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/skamisc.h>
+
+int string_quote_nodelim_mustquote (stralloc *sa, char const *s, unsigned int len, char const *delim, unsigned int delimlen)
+{
+  char class[256] = "dddddddaaaaaaaddddddddddddddddddcccccccccccccccceeeeeeeeeeccccccccccccccccccccccccccccccccccbcccceeeeeecccccccecccececececcccccddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd" ;
+
+  unsigned int base = sa->len ;
+  unsigned int i = 0 ;
+  int wasnull = !sa->s ;
+
+  for (; i < delimlen ; i++)
+    if (class[(unsigned char)delim[i]] == 'c')
+      class[(unsigned char)delim[i]] = 'b' ;
+    else return (errno = EINVAL, 0) ;
+
+  for (i = 0 ; i < len ; i++)
+  {
+    switch (class[(unsigned char)s[i]])
+    {
+      case 'a' :
+      {
+        static char const tab[7] = "abtnvfr" ;
+        char fmt[2] = "\\" ;
+        fmt[1] = tab[s[i] - 7] ;
+        if (!stralloc_catb(sa, fmt, 2)) goto err ;
+        break ;
+      }
+      case 'b' :
+      {
+        char fmt[2] = "\\" ;
+        fmt[1] = s[i] ;
+        if (!stralloc_catb(sa, fmt, 2)) goto err ;
+        break ;
+      }
+      case 'c' :
+      case 'e' :
+      {
+        if (!stralloc_catb(sa, s+i, 1)) goto err ;
+        break ;
+      }
+      case 'd' :
+      {
+        char fmt[5] = "\\0x" ;
+        ucharn_fmt(fmt+3, s+i, 1) ;
+        if (!stralloc_catb(sa, fmt, 5)) goto err ;
+        break ;
+      }
+      default : errno = EFAULT ; goto err ; /* can't happen */
+    }
+  }
+  return 1 ;
+
+ err:
+  if (wasnull) stralloc_free(sa) ; else sa->len = base ;
+  return 0 ;
+}
diff --git a/src/libstddjb/string_unquote.c b/src/libstddjb/string_unquote.c
new file mode 100644
index 0000000..f4482ff
--- /dev/null
+++ b/src/libstddjb/string_unquote.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/skamisc.h>
+
+int string_unquote (char *d, unsigned int *w, char const *s, unsigned int len, unsigned int *r)
+{
+  if (!len-- || (*s++ != '"')) return (errno = EINVAL, 0) ;
+  {
+    unsigned int rr, ww ;
+    char tmp[len] ;
+    if (!string_unquote_withdelim(tmp, &ww, s, len, &rr, "\"", 1)) return 0 ;
+    if (rr == len) return (errno = EPIPE, 0) ;
+    byte_copy(d, ww, tmp) ;
+    *w = ww ;
+    *r = rr + 2 ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/string_unquote_nodelim.c b/src/libstddjb/string_unquote_nodelim.c
new file mode 100644
index 0000000..1dc90f1
--- /dev/null
+++ b/src/libstddjb/string_unquote_nodelim.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/skamisc.h>
+
+int string_unquote_nodelim (char *d, char const *s, unsigned int len)
+{
+  unsigned int rr, ww ;
+  if (!string_unquote_withdelim(d, &ww, s, len, &rr, 0, 0)) return -1 ;
+  return (int)ww ;
+}
diff --git a/src/libstddjb/string_unquote_withdelim.c b/src/libstddjb/string_unquote_withdelim.c
new file mode 100644
index 0000000..dd52dbd
--- /dev/null
+++ b/src/libstddjb/string_unquote_withdelim.c
@@ -0,0 +1,60 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/error.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/fmtscan.h>
+#include <skalibs/skamisc.h>
+
+#define PUSH0 0x40
+#define PUSH  0x20
+#define PUSHSPEC 0x10
+#define STORE 0x08
+#define CALC 0x04
+#define SYNTAXERROR 0x02
+#define BROKENPIPE 0x01
+
+int string_unquote_withdelim (char *d, unsigned int *w, char const *s, unsigned int len, unsigned int *r, char const *delim, unsigned int delimlen)
+{
+  register unsigned int i = 0 ;
+  static unsigned char const actions[5][9] =
+  {
+    { 0, 0, PUSH, PUSH, PUSH, PUSH, PUSH, PUSH, 0 },
+    { PUSH, PUSH, 0, PUSH, PUSHSPEC, PUSH, PUSHSPEC, PUSH, BROKENPIPE },
+    { PUSH0, PUSH0, PUSH0|PUSH, 0, PUSH0|PUSH, PUSH0|PUSH, PUSH0|PUSH, PUSH0|PUSH, PUSH0 },
+    { SYNTAXERROR, SYNTAXERROR, STORE, SYNTAXERROR, STORE, STORE, SYNTAXERROR, SYNTAXERROR, BROKENPIPE },
+    { SYNTAXERROR, SYNTAXERROR, CALC, SYNTAXERROR, CALC, CALC, SYNTAXERROR, SYNTAXERROR, BROKENPIPE }
+  } ;
+  static unsigned char const states[5][9] =
+  {
+    { 1, 5, 0, 0, 0, 0, 0, 0, 5 },
+    { 0, 0, 2, 0, 0, 0, 0, 0, 6 },
+    { 1, 5, 0, 3, 0, 0, 0, 0, 5 },
+    { 6, 6, 4, 6, 4, 4, 6, 6, 6 },
+    { 6, 6, 0, 6, 0, 0, 6, 6, 6 }
+  } ;
+  unsigned char class[256] = "7777777777777777777777777777777777777777777777772555555555777777777777777777777777777777777707777445554777777767776767673777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777" ;
+  unsigned char store = 0 ;
+  unsigned char state = 0 ;
+  for (; i < delimlen ; i++)
+    if (class[(unsigned char)delim[i]] == '7')
+      class[(unsigned char)delim[i]] = '1' ;
+    else return (errno = EINVAL, 0) ;
+  *w = 0 ;
+
+  for (i = 0 ; state < 5 ; i++)
+  {
+    unsigned char c = i < len ? class[(unsigned char)s[i]] - '0' : 8 ;
+    unsigned char action = actions[state][c] ;
+    state = states[state][c] ;
+    if (action & PUSH0) d[(*w)++] = 0 ;
+    if (action & PUSH) d[(*w)++] = s[i] ;
+    if (action & PUSHSPEC) d[(*w)++] = 7 + byte_chr("abtnvfr", 7, s[i]) ;
+    if (action & STORE) store = fmtscan_num(s[i], 16) << 4 ;
+    if (action & CALC) d[(*w)++] = store | fmtscan_num(s[i], 16) ;
+    if (action & SYNTAXERROR) errno = EPROTO ;
+    if (action & BROKENPIPE) errno = EPIPE ;
+  }
+  *r = i - 1 ;
+  return (state == 5) ;
+}
diff --git a/src/libstddjb/strn_fmt.c b/src/libstddjb/strn_fmt.c
new file mode 100644
index 0000000..bbb9651
--- /dev/null
+++ b/src/libstddjb/strn_fmt.c
@@ -0,0 +1,21 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+#include <skalibs/uint.h>
+
+unsigned int strn_fmt (char *blah, register char const *s, unsigned int len)
+{
+  register char *d = blah ;
+  unsigned int i ;
+  for (i = 0 ; i < len ; i++)
+    if ((s[i] >= 32) && ((unsigned char)s[i] < 127)) *d++ = s[i] ;
+    else
+    {
+      *d++ = '\\' ;
+      *d++ = '0' ;
+      *d++ = 'x' ;
+      if ((unsigned char)s[i] < 16) *d++ = '0' ;
+      d += uint_xfmt(d, (unsigned char)s[i]) ;
+    }
+  return d - blah ;
+}
diff --git a/src/libstddjb/subgetopt.c b/src/libstddjb/subgetopt.c
new file mode 100644
index 0000000..69201c6
--- /dev/null
+++ b/src/libstddjb/subgetopt.c
@@ -0,0 +1,63 @@
+/* ISC license. */
+
+#undef SUBGETOPT_SHORT
+#include <skalibs/sgetopt.h>
+
+int subgetopt_r (int argc, char const *const *argv, char const *opts, subgetopt_t_ref o)
+{
+  o->arg = 0 ;
+  if ((o->ind >= argc) || !argv[o->ind]) return -1 ;
+  if (o->pos && !argv[o->ind][o->pos])
+  {
+    o->ind++ ;
+    o->pos = 0 ;
+    if ((o->ind >= argc) || !argv[o->ind]) return -1 ;
+  }
+
+  if (!o->pos)
+  {
+    if (argv[o->ind][0] != '-') return -1 ;
+    else
+    {
+      char c ;
+      o->pos++ ;
+      c = argv[o->ind][1] ;
+      if (c == '-') o->ind++ ;
+      if (!c || (c == '-'))
+      {
+        o->pos = 0 ;
+        return -1 ;
+      }
+    }
+  }
+  {
+    char c = argv[o->ind][o->pos++] ;
+    char const *s = opts ;
+    char retnoarg = (*s == ':') ? (s++, ':') : '?' ;
+    while (*s)
+    {
+      if (c == *s)
+      {
+        if (s[1] == ':')
+        {
+          o->arg = argv[o->ind++] + o->pos ;
+          o->pos = 0 ;
+          if (!*o->arg)
+          {
+            o->arg = argv[o->ind] ;
+            if ((o->ind >= argc) || !o->arg)
+            {
+              o->problem = c ;
+              return retnoarg ;
+            }
+	    o->ind++ ;
+          }
+        }
+        return c ;
+      }
+      if (*++s == ':') s++ ;
+    }
+    o->problem = c ;
+  }
+  return '?' ;
+}
diff --git a/src/libstddjb/subgetopt_here.c b/src/libstddjb/subgetopt_here.c
new file mode 100644
index 0000000..e0be29a
--- /dev/null
+++ b/src/libstddjb/subgetopt_here.c
@@ -0,0 +1,7 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/sgetopt.h>
+
+subgetopt_t subgetopt_here = SUBGETOPT_ZERO ;
diff --git a/src/libstddjb/sysclock_from_localtm.c b/src/libstddjb/sysclock_from_localtm.c
new file mode 100644
index 0000000..6408fc8
--- /dev/null
+++ b/src/libstddjb/sysclock_from_localtm.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+int sysclock_from_localtm (uint64 *uu, struct tm const *l)
+{
+  uint64 u ;
+  if (!ltm64_from_localtm(&u, l)) return 0 ;
+  if (!sysclock_from_ltm64(&u)) return 0 ;
+  *uu = u ;
+  return 1 ;
+}
diff --git a/src/libstddjb/sysclock_from_localtmn.c b/src/libstddjb/sysclock_from_localtmn.c
new file mode 100644
index 0000000..7b227d2
--- /dev/null
+++ b/src/libstddjb/sysclock_from_localtmn.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int sysclock_from_localtmn (tain_t *a, localtmn_t const *l)
+{
+  uint64 u ;
+  if (!sysclock_from_localtm(&u, &l->tm)) return 0 ;
+  tai_u64(&a->sec, u) ;
+  a->nano = l->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/sysclock_from_ltm64.c b/src/libstddjb/sysclock_from_ltm64.c
new file mode 100644
index 0000000..a7e7a36
--- /dev/null
+++ b/src/libstddjb/sysclock_from_ltm64.c
@@ -0,0 +1,26 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+#include <skalibs/tai.h>
+
+int sysclock_from_ltm64 (uint64 *u)
+{
+  tai_t t ;
+  if (!tai_from_ltm64(&t, *u)) return 0 ;
+  *u = t.x - 10U ;
+  return 1 ;
+}
+
+#else
+
+int sysclock_from_ltm64 (uint64 *u)
+{
+  return utc_from_sysclock(u) ;
+}
+
+#endif
diff --git a/src/libstddjb/sysclock_from_tai.c b/src/libstddjb/sysclock_from_tai.c
new file mode 100644
index 0000000..3db2640
--- /dev/null
+++ b/src/libstddjb/sysclock_from_tai.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/tai.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+int sysclock_from_tai (uint64 *u, tai_t const *t)
+{
+  *u = t->x - 10U ;
+  return 1 ;
+}
+
+#else
+
+#include <skalibs/djbtime.h>
+
+int sysclock_from_tai (uint64 *u, tai_t const *t)
+{
+  return utc_from_tai(u, t) ;
+}
+
+#endif
diff --git a/src/libstddjb/sysclock_from_utc.c b/src/libstddjb/sysclock_from_utc.c
new file mode 100644
index 0000000..25f9205
--- /dev/null
+++ b/src/libstddjb/sysclock_from_utc.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+#include <skalibs/tai.h>
+
+int sysclock_from_utc (uint64 *u)
+{
+  tai_t t ;
+  if (!tai_from_utc(&t, *u)) return 0 ;
+  *u = t.x - 10 ;
+  return 1 ;
+}
+
+#else
+
+int sysclock_from_utc (uint64 *u)
+{
+  (void)u ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/sysclock_get.c b/src/libstddjb/sysclock_get.c
new file mode 100644
index 0000000..3d14f96
--- /dev/null
+++ b/src/libstddjb/sysclock_get.c
@@ -0,0 +1,42 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/tai.h>
+
+#ifdef SKALIBS_FLAG_USERT
+# ifndef SKALIBS_HASCLOCKRT
+#  undef SKALIBS_FLAG_USERT
+#  warning "SKALIBS_FLAG_USERT set but SKALIBS_HASCLOCKRT not found. Clearing SKALIBS_FLAG_USERT."
+# endif
+#endif
+
+#ifdef SKALIBS_FLAG_USERT
+
+#include <time.h>
+
+int sysclock_get (tain_t *a)
+{
+  tain_t aa ;
+  struct timespec now ;
+  if (clock_gettime(CLOCK_REALTIME, &now) < 0) return 0 ;
+  if (!tain_from_timespec(&aa, &now)) return 0 ;
+  tain_add(a, &aa, &tain_nano500) ;
+  return 1 ;
+}
+
+#else
+
+#include <sys/time.h>
+
+int sysclock_get (tain_t *a)
+{
+  tain_t aa ;
+  struct timeval now ;
+  if (gettimeofday(&now, 0) < 0) return 0 ;
+  if (!tain_from_timeval(&aa, &now)) return 0 ;
+  tain_add(a, &aa, &tain_nano500) ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/sysclock_set.c b/src/libstddjb/sysclock_set.c
new file mode 100644
index 0000000..0ec51c6
--- /dev/null
+++ b/src/libstddjb/sysclock_set.c
@@ -0,0 +1,53 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/config.h>
+#include <skalibs/sysdeps.h>
+
+#ifdef SKALIBS_FLAG_USERT
+# ifndef SKALIBS_HASCLOCKRT
+#  undef SKALIBS_FLAG_USERT
+#  warning "SKALIBS_FLAG_USERT set but SKALIBS_HASCLOCKRT not found. Clearing SKALIBS_FLAG_USERT."
+# endif
+#endif
+
+#ifndef SKALIBS_FLAG_USERT
+# ifndef SKALIBS_HASSETTIMEOFDAY
+#  error "SKALIBS_FLAG_USERT clear but SKALIBS_HASSETTIMEOFDAY not found. How do your set your system clock?"
+# endif
+#endif
+
+
+#ifdef SKALIBS_FLAG_USERT
+
+#include <time.h>
+#include <skalibs/tai.h>
+
+int sysclock_set (tain_t const *a)
+{
+  struct timespec now ;
+  tain_t aa ;
+  tain_add(&aa, a, &tain_nano500) ;
+  if (!timespec_from_tain(&now, &aa)) return 0 ;
+  if (clock_settime(CLOCK_REALTIME, &now) < 0) return 0 ;
+  return 1 ;
+}
+
+#else
+
+#include <skalibs/nonposix.h>
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int sysclock_set (tain_t const *a)
+{
+  struct timeval now ;
+  tain_t aa ;
+  tain_add(&aa, a, &tain_nano500) ;
+  if (!timeval_from_tain(&now, &aa)) return 0 ;
+  if (settimeofday(&now, 0) < 0) return 0 ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/tai_add.c b/src/libstddjb/tai_add.c
new file mode 100644
index 0000000..91af283
--- /dev/null
+++ b/src/libstddjb/tai_add.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tai_add (tai_t *t, tai_t const *u, tai_t const *v)
+{
+  tai_u64(t, tai_sec(u) + tai_sec(v)) ;
+}
diff --git a/src/libstddjb/tai_from_localtm.c b/src/libstddjb/tai_from_localtm.c
new file mode 100644
index 0000000..1f43070
--- /dev/null
+++ b/src/libstddjb/tai_from_localtm.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int tai_from_localtm (tai_t *t, struct tm const *l)
+{
+  uint64 u ;
+  if (!ltm64_from_localtm(&u, l)) return 0 ;
+  return tai_from_ltm64(t, u) ;
+}
diff --git a/src/libstddjb/tai_from_ltm64.c b/src/libstddjb/tai_from_ltm64.c
new file mode 100644
index 0000000..2538c00
--- /dev/null
+++ b/src/libstddjb/tai_from_ltm64.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_TZISRIGHT
+
+int tai_from_ltm64 (tai_t *t, uint64 u)
+{
+  tai_u64(t, u + 10U) ;
+  return 1 ;
+}
+
+#else
+
+int tai_from_ltm64 (tai_t *t, uint64 u)
+{
+  return tai_from_utc(t, u) ;
+}
+
+#endif
diff --git a/src/libstddjb/tai_from_sysclock.c b/src/libstddjb/tai_from_sysclock.c
new file mode 100644
index 0000000..c2bb546
--- /dev/null
+++ b/src/libstddjb/tai_from_sysclock.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/tai.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+int tai_from_sysclock (tai_t *t, uint64 u)
+{
+  tai_u64(t, u + 10U) ;
+  return 1 ;
+}
+
+#else
+
+#include <skalibs/djbtime.h>
+
+int tai_from_sysclock (tai_t *t, uint64 u)
+{
+  return tai_from_utc(t, u) ;
+}
+
+#endif
diff --git a/src/libstddjb/tai_from_timespec.c b/src/libstddjb/tai_from_timespec.c
new file mode 100644
index 0000000..e9fbe3e
--- /dev/null
+++ b/src/libstddjb/tai_from_timespec.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/tai.h>
+
+int tai_from_timespec (tai_t *t, struct timespec const *ts)
+{
+  tai_unix(t, ts->tv_sec) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tai_from_timeval.c b/src/libstddjb/tai_from_timeval.c
new file mode 100644
index 0000000..41cf5a1
--- /dev/null
+++ b/src/libstddjb/tai_from_timeval.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int tai_from_timeval (tai_t *t, struct timeval const *tv)
+{
+  tai_unix(t, tv->tv_sec) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tai_from_utc.c b/src/libstddjb/tai_from_utc.c
new file mode 100644
index 0000000..ba9cea9
--- /dev/null
+++ b/src/libstddjb/tai_from_utc.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+#include "djbtime-internal.h"
+
+int tai_from_utc (tai_t *t, uint64 u)
+{
+  if (leapsecs_add(&u, 0) < 0) return 0 ;
+  u += 10 ;
+  t->x = u ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tai_now.c b/src/libstddjb/tai_now.c
new file mode 100644
index 0000000..a1847ab
--- /dev/null
+++ b/src/libstddjb/tai_now.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+int tai_now (tai_t *t)
+{
+  register uint64 u = TAI_MAGIC + time(0) ;
+  return tai_from_sysclock(t, u) ;
+}
diff --git a/src/libstddjb/tai_pack.c b/src/libstddjb/tai_pack.c
new file mode 100644
index 0000000..f81afe2
--- /dev/null
+++ b/src/libstddjb/tai_pack.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+void tai_pack (char *s, tai_t const *t)
+{
+  uint64_pack_big(s, tai_sec(t)) ;
+}
diff --git a/src/libstddjb/tai_pack_little.c b/src/libstddjb/tai_pack_little.c
new file mode 100644
index 0000000..41e552a
--- /dev/null
+++ b/src/libstddjb/tai_pack_little.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+void tai_pack_little (char *s, tai_t const *t)
+{
+  uint64_pack(s, tai_sec(t)) ;
+}
diff --git a/src/libstddjb/tai_relative_from_timespec.c b/src/libstddjb/tai_relative_from_timespec.c
new file mode 100644
index 0000000..34bb555
--- /dev/null
+++ b/src/libstddjb/tai_relative_from_timespec.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/tai.h>
+
+int tai_relative_from_timespec (tai_t *t, struct timespec const *ts)
+{
+  tai_u64(t, ts->tv_sec) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tai_relative_from_timeval.c b/src/libstddjb/tai_relative_from_timeval.c
new file mode 100644
index 0000000..f685da7
--- /dev/null
+++ b/src/libstddjb/tai_relative_from_timeval.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int tai_relative_from_timeval (tai_t *t, struct timeval const *tv)
+{
+  tai_u64(t, tv->tv_sec) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tai_sub.c b/src/libstddjb/tai_sub.c
new file mode 100644
index 0000000..d0c879e
--- /dev/null
+++ b/src/libstddjb/tai_sub.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tai_sub (tai_t *t, tai_t const *u, tai_t const *v)
+{
+  tai_u64(t, tai_sec(u) - tai_sec(v)) ;
+}
diff --git a/src/libstddjb/tai_unpack.c b/src/libstddjb/tai_unpack.c
new file mode 100644
index 0000000..a733c4a
--- /dev/null
+++ b/src/libstddjb/tai_unpack.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+void tai_unpack (char const *s, tai_t *t)
+{
+  uint64_unpack_big(s, &t->x) ;
+}
diff --git a/src/libstddjb/tai_unpack_little.c b/src/libstddjb/tai_unpack_little.c
new file mode 100644
index 0000000..71804a5
--- /dev/null
+++ b/src/libstddjb/tai_unpack_little.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+void tai_unpack_little (char const *s, tai_t *t)
+{
+  uint64_unpack(s, &t->x) ;
+}
diff --git a/src/libstddjb/tain_add.c b/src/libstddjb/tain_add.c
new file mode 100644
index 0000000..6c6a237
--- /dev/null
+++ b/src/libstddjb/tain_add.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_add (tain_t *t, tain_t const *u, tain_t const *v)
+{
+  tai_add(&t->sec, &u->sec, &v->sec) ;
+  t->nano = u->nano + v->nano ;
+  if (t->nano > 999999999U)
+  {
+    t->nano -= 1000000000U ;
+    tai_u64(&t->sec, tai_sec(&t->sec)+1) ;
+  }
+}
diff --git a/src/libstddjb/tain_addsec.c b/src/libstddjb/tain_addsec.c
new file mode 100644
index 0000000..f4252a7
--- /dev/null
+++ b/src/libstddjb/tain_addsec.c
@@ -0,0 +1,20 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_addsec (tain_t *b, tain_t const *a, int c)
+{
+  b->nano = a->nano ;
+  if (c >= 0)
+  {
+    tai_t t ;
+    tai_u64(&t, c) ;
+    tai_add(&b->sec, &a->sec, &t) ;
+  }
+  else
+  {
+    tai_t t ;
+    tai_u64(&t, -c) ;
+    tai_sub(&b->sec, &a->sec, &t) ;
+  }
+}
diff --git a/src/libstddjb/tain_approx.c b/src/libstddjb/tain_approx.c
new file mode 100644
index 0000000..d749cdf
--- /dev/null
+++ b/src/libstddjb/tain_approx.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+double tain_approx (tain_t const *t)
+{
+  return tai_approx(&t->sec) + tain_frac(t) ;
+}
diff --git a/src/libstddjb/tain_clockmon.c b/src/libstddjb/tain_clockmon.c
new file mode 100644
index 0000000..f14cd31
--- /dev/null
+++ b/src/libstddjb/tain_clockmon.c
@@ -0,0 +1,47 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/tai.h>
+
+#ifdef SKALIBS_HASCLOCKMON
+
+#include <time.h>
+
+int tain_clockmon_init (tain_t *offset)
+{
+  tain_t a, b ;
+  struct timespec ts ;
+  if (!tain_sysclock(&a)) return 0 ;
+  if (clock_gettime(CLOCK_MONOTONIC, &ts) < 0) return 0 ;
+  if (!tain_from_timespec(&b, &ts)) return 0 ;
+  tain_add(&a, &a, &tain_nano500) ;
+  tain_sub(offset, &a, &b) ;
+  return 1 ;
+}
+
+int tain_clockmon (tain_t *a, tain_t const *offset)
+{
+  struct timespec ts ;
+  if (clock_gettime(CLOCK_MONOTONIC, &ts) < 0) return 0 ;
+  if (!tain_from_timespec(a, &ts)) return 0 ;
+  tain_add(a, a, offset) ;
+  return 1 ;
+}
+
+#else
+
+#include <errno.h>
+
+int tain_clockmon_init (tain_t *offset)
+{
+  (void)offset ;
+  return (errno = ENOSYS, 0) ;
+}
+
+int tain_clockmon (tain_t *a, tain_t const *offset)
+{
+  (void)a ; (void)offset ;
+  return (errno = ENOSYS, 0) ;
+}
+
+#endif
diff --git a/src/libstddjb/tain_fmt.c b/src/libstddjb/tain_fmt.c
new file mode 100644
index 0000000..1fa04e3
--- /dev/null
+++ b/src/libstddjb/tain_fmt.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+#include <skalibs/tai.h>
+
+unsigned int tain_fmt (char *s, tain_t const *a)
+{
+  char pack[TAIN_PACK] ;
+  tain_pack(pack, a) ;
+  return ucharn_fmt(s, pack, TAIN_PACK) ;
+}
diff --git a/src/libstddjb/tain_frac.c b/src/libstddjb/tain_frac.c
new file mode 100644
index 0000000..45ee3b4
--- /dev/null
+++ b/src/libstddjb/tain_frac.c
@@ -0,0 +1,8 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+double tain_frac (tain_t const *t)
+{
+  return t->nano * 0.000000001 ;
+}
diff --git a/src/libstddjb/tain_from_localtmn.c b/src/libstddjb/tain_from_localtmn.c
new file mode 100644
index 0000000..cc9bd19
--- /dev/null
+++ b/src/libstddjb/tain_from_localtmn.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int tain_from_localtmn (tain_t *a, localtmn_t const *l)
+{
+  tai_t t ;
+  if (!tai_from_localtm(&t, &l->tm)) return 0 ;
+  a->sec = t ;
+  a->nano = l->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_from_millisecs.c b/src/libstddjb/tain_from_millisecs.c
new file mode 100644
index 0000000..e6bfca4
--- /dev/null
+++ b/src/libstddjb/tain_from_millisecs.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/tai.h>
+
+int tain_from_millisecs (tain_t *a, int millisecs)
+{
+  if (millisecs < 0) return (errno = EINVAL, 0) ;
+  a->sec.x = millisecs / 1000 ;
+  a->nano = (millisecs % 1000) * 1000000U ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_from_ntp.c b/src/libstddjb/tain_from_ntp.c
new file mode 100644
index 0000000..6bf7697
--- /dev/null
+++ b/src/libstddjb/tain_from_ntp.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+
+int tain_from_ntp (tain_t *a, uint64 u)
+{
+  tai_t secs = { u >> 32 } ;
+  if (secs.x <= 0x7FFFFFFFUL) secs.x |= ((uint64)1 << 32) ;
+  secs.x += TAI_MAGIC ;
+  secs.x -= NTP_OFFSET ;
+  if (!tai_from_utc(&secs, secs.x)) return 0 ;
+  a->sec = secs ;
+  a->nano = ((u & 0xFFFFFFFFUL) * 1000000000) >> 32 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_from_timespec.c b/src/libstddjb/tain_from_timespec.c
new file mode 100644
index 0000000..e862f46
--- /dev/null
+++ b/src/libstddjb/tain_from_timespec.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <errno.h>
+#include <skalibs/tai.h>
+
+int tain_from_timespec (tain_t *a, struct timespec const *ts)
+{
+  if (!tai_from_timespec(tain_secp(a), ts)) return 0 ;
+  a->nano = ts->tv_nsec ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_from_timeval.c b/src/libstddjb/tain_from_timeval.c
new file mode 100644
index 0000000..9c74d13
--- /dev/null
+++ b/src/libstddjb/tain_from_timeval.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <errno.h>
+#include <skalibs/tai.h>
+
+int tain_from_timeval (tain_t *a, struct timeval const *tv)
+{
+  if (!tai_from_timeval(tain_secp(a), tv)) return 0 ;
+  a->nano = 1000 * tv->tv_usec ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_half.c b/src/libstddjb/tain_half.c
new file mode 100644
index 0000000..a95072e
--- /dev/null
+++ b/src/libstddjb/tain_half.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_half (tain_t *t, tain_t const *u)
+{
+  t->nano = u->nano>>1 ;
+  if (tai_sec(&u->sec) & 1) t->nano += 500000000U ;
+  tai_u64(&t->sec, tai_sec(&u->sec)>>1) ;
+}
diff --git a/src/libstddjb/tain_infinite_relative.c b/src/libstddjb/tain_infinite_relative.c
new file mode 100644
index 0000000..89d750c
--- /dev/null
+++ b/src/libstddjb/tain_infinite_relative.c
@@ -0,0 +1,5 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+tain_t const tain_infinite_relative = TAIN_INFINITE_RELATIVE ;
diff --git a/src/libstddjb/tain_less.c b/src/libstddjb/tain_less.c
new file mode 100644
index 0000000..e52c058
--- /dev/null
+++ b/src/libstddjb/tain_less.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+int tain_less (tain_t const *t, tain_t const *u)
+{
+  if (tai_sec(&t->sec) < tai_sec(&u->sec)) return 1 ;
+  if (tai_sec(&t->sec) > tai_sec(&u->sec)) return 0 ;
+  return t->nano < u->nano ;
+}
diff --git a/src/libstddjb/tain_nano500.c b/src/libstddjb/tain_nano500.c
new file mode 100644
index 0000000..70d86c5
--- /dev/null
+++ b/src/libstddjb/tain_nano500.c
@@ -0,0 +1,5 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+tain_t const tain_nano500 = TAIN_NANO500 ;
diff --git a/src/libstddjb/tain_now.c b/src/libstddjb/tain_now.c
new file mode 100644
index 0000000..157087a
--- /dev/null
+++ b/src/libstddjb/tain_now.c
@@ -0,0 +1,49 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/config.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/tai.h>
+
+#ifdef SKALIBS_FLAG_USEMON
+# ifndef SKALIBS_HASCLOCKMON
+#  undef SKALIBS_FLAG_USEMON
+#  warning "SKALIBS_FLAG_USEMON set but SKALIBS_HASCLOCKMON not found. Clearing SKALIBS_FLAG_USEMON."
+# endif
+#endif
+
+
+#ifdef SKALIBS_FLAG_USEMON
+
+static tain_t offset ;
+
+int tain_init ()
+{
+  return tain_clockmon_init(&offset) ;
+}
+
+int tain_now (tain_t *a)
+{
+  static int initted = 0 ;
+  if (!initted)
+  {
+    if (!tain_clockmon_init(&offset)) return 0 ;
+    initted = 1 ;
+  }
+  return tain_clockmon(a, &offset) ;
+}
+
+#else
+
+int tain_init ()
+{
+  return 1 ;
+}
+
+int tain_now (tain_t *a)
+{
+  return tain_sysclock(a) ;
+}
+
+#endif
diff --git a/src/libstddjb/tain_pack.c b/src/libstddjb/tain_pack.c
new file mode 100644
index 0000000..cb1918a
--- /dev/null
+++ b/src/libstddjb/tain_pack.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/tai.h>
+
+void tain_pack (char *s, tain_t const *t)
+{
+  tai_pack(s, &t->sec) ;
+  uint32_pack_big(s+8, t->nano) ;
+}
diff --git a/src/libstddjb/tain_pack_little.c b/src/libstddjb/tain_pack_little.c
new file mode 100644
index 0000000..170da28
--- /dev/null
+++ b/src/libstddjb/tain_pack_little.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/tai.h>
+
+void tain_pack_little (char *s, tain_t const *t)
+{
+  uint32_pack(s, t->nano) ;
+  tai_pack_little(s+4, &t->sec) ;
+}
diff --git a/src/libstddjb/tain_relative_from_timespec.c b/src/libstddjb/tain_relative_from_timespec.c
new file mode 100644
index 0000000..e25793e
--- /dev/null
+++ b/src/libstddjb/tain_relative_from_timespec.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <errno.h>
+#include <skalibs/tai.h>
+
+int tain_relative_from_timespec (tain_t *a, struct timespec const *ts)
+{
+  if (!tai_relative_from_timespec(tain_secp(a), ts)) return 0 ;
+  a->nano = ts->tv_nsec ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_relative_from_timeval.c b/src/libstddjb/tain_relative_from_timeval.c
new file mode 100644
index 0000000..83aa1c3
--- /dev/null
+++ b/src/libstddjb/tain_relative_from_timeval.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <errno.h>
+#include <skalibs/tai.h>
+
+int tain_relative_from_timeval (tain_t *a, struct timeval const *tv)
+{
+  if (!tai_relative_from_timeval(tain_secp(a), tv)) return 0 ;
+  a->nano = 1000 * tv->tv_usec ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_scan.c b/src/libstddjb/tain_scan.c
new file mode 100644
index 0000000..84a0cab
--- /dev/null
+++ b/src/libstddjb/tain_scan.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+#include <skalibs/tai.h>
+
+unsigned int tain_scan (char const *s, tain_t *a)
+{
+  char pack[TAIN_PACK] ;
+  register unsigned int r = ucharn_scan(s, pack, TAIN_PACK) ;
+  if (r) tain_unpack(pack, a) ;
+  return r ;
+}
diff --git a/src/libstddjb/tain_setnow.c b/src/libstddjb/tain_setnow.c
new file mode 100644
index 0000000..a8b372f
--- /dev/null
+++ b/src/libstddjb/tain_setnow.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#include <skalibs/tai.h>
+
+int tain_setnow (tain_t const *a)
+{
+  tain_t aa ;
+  if (!sysclock_from_tai(&aa.sec.x, &a->sec)) return 0 ;
+  aa.nano = a->nano ;
+  return sysclock_set(&aa) ;
+}
diff --git a/src/libstddjb/tain_sub.c b/src/libstddjb/tain_sub.c
new file mode 100644
index 0000000..f7dd4eb
--- /dev/null
+++ b/src/libstddjb/tain_sub.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_sub (tain_t *t, tain_t const *u, tain_t const *v)
+{
+  tain_t uu = *u ;
+  tai_sub(&t->sec, &uu.sec, &v->sec) ;
+  t->nano = uu.nano - v->nano ;
+  if (t->nano > uu.nano)
+  {
+    t->nano += 1000000000U ;
+    tai_u64(&t->sec, tai_sec(&t->sec)-1) ;
+  }
+}
diff --git a/src/libstddjb/tain_sysclock.c b/src/libstddjb/tain_sysclock.c
new file mode 100644
index 0000000..7f54db6
--- /dev/null
+++ b/src/libstddjb/tain_sysclock.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+int tain_sysclock (tain_t *a)
+{
+  tain_t aa ;
+  if (!sysclock_get(&aa)) return 0 ;
+  if (!tai_from_sysclock(&a->sec, aa.sec.x)) return 0 ;
+  a->nano = aa.nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/tain_to_millisecs.c b/src/libstddjb/tain_to_millisecs.c
new file mode 100644
index 0000000..0fa9395
--- /dev/null
+++ b/src/libstddjb/tain_to_millisecs.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+int tain_to_millisecs (tain_t const *a)
+{
+  if (a->sec.x > (uint64)2147483) return -1 ;
+  if ((a->sec.x == (uint64)2147483) && (a->nano > 646000000U)) return -1 ;
+  return a->sec.x * 1000 + (a->nano + 999999) / 1000000U ;
+}
diff --git a/src/libstddjb/tain_ulong.c b/src/libstddjb/tain_ulong.c
new file mode 100644
index 0000000..2ba730a
--- /dev/null
+++ b/src/libstddjb/tain_ulong.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+void tain_ulong (tain_t *t, unsigned long s)
+{
+  tai_u64(&t->sec, s) ;
+  t->nano = 0 ;
+}
diff --git a/src/libstddjb/tain_unpack.c b/src/libstddjb/tain_unpack.c
new file mode 100644
index 0000000..a62dc29
--- /dev/null
+++ b/src/libstddjb/tain_unpack.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/tai.h>
+
+void tain_unpack (char const *s, tain_t *t)
+{
+  tai_unpack(s, &t->sec) ;
+  uint32_unpack_big(s+8, &t->nano) ;
+}
diff --git a/src/libstddjb/tain_unpack_little.c b/src/libstddjb/tain_unpack_little.c
new file mode 100644
index 0000000..278d494
--- /dev/null
+++ b/src/libstddjb/tain_unpack_little.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/tai.h>
+
+void tain_unpack_little (char const *s, tain_t *t)
+{
+  uint32_unpack(s, &t->nano) ;
+  tai_unpack_little(s+4, &t->sec) ;
+}
diff --git a/src/libstddjb/timespec_from_tai.c b/src/libstddjb/timespec_from_tai.c
new file mode 100644
index 0000000..7bb84d4
--- /dev/null
+++ b/src/libstddjb/timespec_from_tai.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/tai.h>
+
+int timespec_from_tai (struct timespec *ts, tai_t const *t)
+{
+  tai_t trel ;
+  tai_u64(&trel, tai_sec(t) - TAI_MAGIC) ;
+  return timespec_from_tai_relative(ts, &trel) ;
+}
diff --git a/src/libstddjb/timespec_from_tai_relative.c b/src/libstddjb/timespec_from_tai_relative.c
new file mode 100644
index 0000000..42f2e95
--- /dev/null
+++ b/src/libstddjb/timespec_from_tai_relative.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <errno.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+int timespec_from_tai_relative (struct timespec *ts, tai_t const *t)
+{
+  if (tai_sec(t) >= (uint64)1 << 63) return (errno = EINVAL, 0) ;
+#if SKALIBS_SIZEOFTIME < 8
+  if (tai_sec(t) > 0xffffffffU) return (errno = ERANGE, 0) ;
+#endif
+  ts->tv_sec = (time_t)tai_sec(t) ;
+  ts->tv_nsec = 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timespec_from_tain.c b/src/libstddjb/timespec_from_tain.c
new file mode 100644
index 0000000..5eb6e30
--- /dev/null
+++ b/src/libstddjb/timespec_from_tain.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/tai.h>
+
+int timespec_from_tain (struct timespec *ts, tain_t const *a)
+{
+  struct timespec tmp ;
+  if (!timespec_from_tai(&tmp, tain_secp(a))) return 0 ;
+  ts->tv_sec = tmp.tv_sec ;
+  ts->tv_nsec = a->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timespec_from_tain_relative.c b/src/libstddjb/timespec_from_tain_relative.c
new file mode 100644
index 0000000..32e7993
--- /dev/null
+++ b/src/libstddjb/timespec_from_tain_relative.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/tai.h>
+
+int timespec_from_tain_relative (struct timespec *ts, tain_t const *a)
+{
+  struct timespec tmp ;
+  if (!timespec_from_tai_relative(&tmp, tain_secp(a))) return 0 ;
+  ts->tv_sec = tmp.tv_sec ;
+  ts->tv_nsec = a->nano ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timestamp.c b/src/libstddjb/timestamp.c
new file mode 100644
index 0000000..7feb7c2
--- /dev/null
+++ b/src/libstddjb/timestamp.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+int timestamp (char *s)
+{
+  tain_t now ;
+  return timestamp_r(s, &now) ;
+}
diff --git a/src/libstddjb/timestamp_fmt.c b/src/libstddjb/timestamp_fmt.c
new file mode 100644
index 0000000..1956723
--- /dev/null
+++ b/src/libstddjb/timestamp_fmt.c
@@ -0,0 +1,9 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+unsigned int timestamp_fmt (char *s, tain_t const *a)
+{
+  *s = '@' ;
+  return 1 + tain_fmt(s+1, a) ;
+}
diff --git a/src/libstddjb/timestamp_r.c b/src/libstddjb/timestamp_r.c
new file mode 100644
index 0000000..6eb8ab7
--- /dev/null
+++ b/src/libstddjb/timestamp_r.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+int timestamp_r (char *s, tain_t *stamp)
+{
+  if (!tain_sysclock(stamp)) return 0 ;
+  timestamp_fmt(s, stamp) ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timestamp_scan.c b/src/libstddjb/timestamp_scan.c
new file mode 100644
index 0000000..1d48612
--- /dev/null
+++ b/src/libstddjb/timestamp_scan.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/tai.h>
+
+unsigned int timestamp_scan (char const *s, tain_t *a)
+{
+  register unsigned int r ;
+  if (*s != '@') return 0 ;
+  r = tain_scan(s+1, a) ;
+  return r ? r+1 : 0 ;
+}
diff --git a/src/libstddjb/timeval_from_tai.c b/src/libstddjb/timeval_from_tai.c
new file mode 100644
index 0000000..d0c4777
--- /dev/null
+++ b/src/libstddjb/timeval_from_tai.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int timeval_from_tai (struct timeval *tv, tai_t const *t)
+{
+  tai_t trel ;
+  tai_u64(&trel, tai_sec(t) - TAI_MAGIC) ;
+  return timeval_from_tai_relative(tv, &trel) ;
+}
diff --git a/src/libstddjb/timeval_from_tai_relative.c b/src/libstddjb/timeval_from_tai_relative.c
new file mode 100644
index 0000000..94bd3f7
--- /dev/null
+++ b/src/libstddjb/timeval_from_tai_relative.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <errno.h>
+#include <skalibs/sysdeps.h>
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+
+int timeval_from_tai_relative (struct timeval *tv, tai_t const *t)
+{
+  if (tai_sec(t) >= (uint64)1 << 63) return (errno = EINVAL, 0) ;
+#if SKALIBS_SIZEOFTIME < 8
+  if (tai_sec(t) > 0xffffffffU) return (errno = ERANGE, 0) ;
+#endif
+  tv->tv_sec = (time_t)tai_sec(t) ;
+  tv->tv_usec = 0 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timeval_from_tain.c b/src/libstddjb/timeval_from_tain.c
new file mode 100644
index 0000000..c780af7
--- /dev/null
+++ b/src/libstddjb/timeval_from_tain.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int timeval_from_tain (struct timeval *tv, tain_t const *a)
+{
+  struct timeval tmp ;
+  if (!timeval_from_tai(&tmp, tain_secp(a))) return 0 ;
+  tv->tv_sec = tmp.tv_sec ;
+  tv->tv_usec = a->nano / 1000 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/timeval_from_tain_relative.c b/src/libstddjb/timeval_from_tain_relative.c
new file mode 100644
index 0000000..624293c
--- /dev/null
+++ b/src/libstddjb/timeval_from_tain_relative.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <sys/time.h>
+#include <skalibs/tai.h>
+
+int timeval_from_tain_relative (struct timeval *tv, tain_t const *a)
+{
+  struct timeval tmp ;
+  if (!timeval_from_tai_relative(&tmp, tain_secp(a))) return 0 ;
+  tv->tv_sec = tmp.tv_sec ;
+  tv->tv_usec = a->nano / 1000 ;
+  return 1 ;
+}
diff --git a/src/libstddjb/ucharn_findlen.c b/src/libstddjb/ucharn_findlen.c
new file mode 100644
index 0000000..1016647
--- /dev/null
+++ b/src/libstddjb/ucharn_findlen.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned int ucharn_findlen (char const *s)
+{
+  register unsigned int i = 0 ;
+  while (fmtscan_num(s[i], 16) <= 0xF) i++ ;
+  return i ;
+}
diff --git a/src/libstddjb/ucharn_fmt.c b/src/libstddjb/ucharn_fmt.c
new file mode 100644
index 0000000..2943fdf
--- /dev/null
+++ b/src/libstddjb/ucharn_fmt.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned int ucharn_fmt (char *s, char const *key, unsigned int n)
+{
+  register unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    s[i<<1] = fmtscan_asc((unsigned char)key[i] >> 4) ;
+    s[(i<<1)+1] = fmtscan_asc((unsigned char)key[i] & 0xF) ;
+  }
+  return n << 1 ;
+}
diff --git a/src/libstddjb/ucharn_fmt_little.c b/src/libstddjb/ucharn_fmt_little.c
new file mode 100644
index 0000000..8450c46
--- /dev/null
+++ b/src/libstddjb/ucharn_fmt_little.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned int ucharn_fmt_little (char *s, char const *key, unsigned int n)
+{
+  register unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    s[i<<1] = fmtscan_asc((unsigned char)key[i] & 0xF) ;
+    s[(i<<1)+1] = fmtscan_asc((unsigned char)key[i] >> 4) ;
+  }
+  return n << 1 ;
+}
diff --git a/src/libstddjb/ucharn_scan.c b/src/libstddjb/ucharn_scan.c
new file mode 100644
index 0000000..cdcc403
--- /dev/null
+++ b/src/libstddjb/ucharn_scan.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned int ucharn_scan (char const *s, char *key, unsigned int n)
+{
+  register unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    unsigned char c = fmtscan_num(s[2*i], 16) ;
+    if (c > 0xF) return 0 ;
+    key[i] = c << 4 ;
+    c = fmtscan_num(s[2*i+1], 16) ;
+    if (c > 0xF) return 0 ;
+    key[i] += c ;
+  }
+  return n << 1 ;
+}
diff --git a/src/libstddjb/ucharn_scan_little.c b/src/libstddjb/ucharn_scan_little.c
new file mode 100644
index 0000000..5b66af5
--- /dev/null
+++ b/src/libstddjb/ucharn_scan_little.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <skalibs/fmtscan.h>
+
+unsigned int ucharn_scan_little (char const *s, char *key, unsigned int n)
+{
+  register unsigned int i = 0 ;
+  for (; i < n ; i++)
+  {
+    unsigned char c = fmtscan_num(s[(i<<1)+1], 16) ;
+    if (c > 0xF) return 0 ;
+    key[i] = c << 4 ;
+    c = fmtscan_num(s[i<<1], 16) ;
+    if (c > 0xF) return 0 ;
+    key[i] += c ;
+  }
+  return n << 1 ;
+}
diff --git a/src/libstddjb/ucspi_get.c b/src/libstddjb/ucspi_get.c
new file mode 100644
index 0000000..916ae2a
--- /dev/null
+++ b/src/libstddjb/ucspi_get.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+
+char const *ucspi_get (char const *s)
+{
+  char const *x = env_get("PROTO") ;
+  if (x)
+  {
+    unsigned int len = str_len(s) ;
+    unsigned int xlen = str_len(x) ;
+    char tmp[len + xlen + 1] ;
+    byte_copy(tmp, xlen, x) ;
+    byte_copy(tmp + xlen, len + 1, s) ;
+    x = env_get(tmp) ;
+    if (!x) errno = ENOENT ;
+  }
+  else errno = EINVAL ;
+  return x ;
+}
diff --git a/src/libstddjb/uint160_scan.c b/src/libstddjb/uint160_scan.c
new file mode 100644
index 0000000..9a48514
--- /dev/null
+++ b/src/libstddjb/uint160_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+SCANB0(16)
diff --git a/src/libstddjb/uint16_fmtlist.c b/src/libstddjb/uint16_fmtlist.c
new file mode 100644
index 0000000..721b443
--- /dev/null
+++ b/src/libstddjb/uint16_fmtlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+FMTL(16)
diff --git a/src/libstddjb/uint16_pack.c b/src/libstddjb/uint16_pack.c
new file mode 100644
index 0000000..c84f504
--- /dev/null
+++ b/src/libstddjb/uint16_pack.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+
+void uint16_pack (char *s, uint16 u)
+{
+  ((unsigned char *)s)[0] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[1] = T8(u) ;
+}
diff --git a/src/libstddjb/uint16_pack_big.c b/src/libstddjb/uint16_pack_big.c
new file mode 100644
index 0000000..9fac1fa
--- /dev/null
+++ b/src/libstddjb/uint16_pack_big.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+
+void uint16_pack_big (char *s, uint16 u)
+{
+  ((unsigned char *)s)[1] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[0] = T8(u) ;
+}
diff --git a/src/libstddjb/uint16_reverse.c b/src/libstddjb/uint16_reverse.c
new file mode 100644
index 0000000..fedade1
--- /dev/null
+++ b/src/libstddjb/uint16_reverse.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+
+void uint16_reverse (char *s, unsigned int n)
+{
+  while (n--)
+  {
+    char c = s[0] ;
+    s[0] = s[1] ;
+    s[1] = c ;
+    s += 2 ;
+  }
+}
diff --git a/src/libstddjb/uint16_scan.c b/src/libstddjb/uint16_scan.c
new file mode 100644
index 0000000..5665807
--- /dev/null
+++ b/src/libstddjb/uint16_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+SCANB(16)
diff --git a/src/libstddjb/uint16_scanlist.c b/src/libstddjb/uint16_scanlist.c
new file mode 100644
index 0000000..e98777f
--- /dev/null
+++ b/src/libstddjb/uint16_scanlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+SCANL(16)
diff --git a/src/libstddjb/uint16_unpack.c b/src/libstddjb/uint16_unpack.c
new file mode 100644
index 0000000..c3ade45
--- /dev/null
+++ b/src/libstddjb/uint16_unpack.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+
+void uint16_unpack (char const *s, uint16 *u)
+{
+  uint16 r = T8((unsigned char)s[1]) ; r <<= 8 ;
+  r += T8((unsigned char)s[0]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uint16_unpack_big.c b/src/libstddjb/uint16_unpack_big.c
new file mode 100644
index 0000000..2f22555
--- /dev/null
+++ b/src/libstddjb/uint16_unpack_big.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include <skalibs/bytestr.h>
+
+void uint16_unpack_big (char const *s, uint16 *u)
+{
+  uint16 r = T8((unsigned char)s[0]) ; r <<= 8 ;
+  r += T8((unsigned char)s[1]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uint320_scan.c b/src/libstddjb/uint320_scan.c
new file mode 100644
index 0000000..103354c
--- /dev/null
+++ b/src/libstddjb/uint320_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include "fmtscan-internal.h"
+
+SCANB0(32)
diff --git a/src/libstddjb/uint32_fmtlist.c b/src/libstddjb/uint32_fmtlist.c
new file mode 100644
index 0000000..978d72a
--- /dev/null
+++ b/src/libstddjb/uint32_fmtlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+FMTL(32)
diff --git a/src/libstddjb/uint32_pack.c b/src/libstddjb/uint32_pack.c
new file mode 100644
index 0000000..d467c3d
--- /dev/null
+++ b/src/libstddjb/uint32_pack.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/bytestr.h>
+
+void uint32_pack (char *s, uint32 u)
+{
+  ((unsigned char *)s)[0] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[1] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[2] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[3] = T8(u) ;
+}
diff --git a/src/libstddjb/uint32_pack_big.c b/src/libstddjb/uint32_pack_big.c
new file mode 100644
index 0000000..487cf21
--- /dev/null
+++ b/src/libstddjb/uint32_pack_big.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/bytestr.h>
+
+void uint32_pack_big (char *s, uint32 u)
+{
+  ((unsigned char *)s)[3] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[2] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[1] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[0] = T8(u) ;
+}
diff --git a/src/libstddjb/uint32_reverse.c b/src/libstddjb/uint32_reverse.c
new file mode 100644
index 0000000..18b3b43
--- /dev/null
+++ b/src/libstddjb/uint32_reverse.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+
+void uint32_reverse (char *s, unsigned int n)
+{
+  while (n--)
+  {
+    char c = s[0] ;
+    s[0] = s[3] ;
+    s[3] = c ;
+    c = s[1] ;
+    s[1] = s[2] ;
+    s[2] = c ;
+    s += 4 ;
+  }
+}
diff --git a/src/libstddjb/uint32_scan.c b/src/libstddjb/uint32_scan.c
new file mode 100644
index 0000000..06e2d77
--- /dev/null
+++ b/src/libstddjb/uint32_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include "fmtscan-internal.h"
+
+SCANB(32)
diff --git a/src/libstddjb/uint32_scanlist.c b/src/libstddjb/uint32_scanlist.c
new file mode 100644
index 0000000..f2bf094
--- /dev/null
+++ b/src/libstddjb/uint32_scanlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+SCANL(32)
diff --git a/src/libstddjb/uint32_unpack.c b/src/libstddjb/uint32_unpack.c
new file mode 100644
index 0000000..d5dabcc
--- /dev/null
+++ b/src/libstddjb/uint32_unpack.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/bytestr.h>
+
+void uint32_unpack (char const *s, uint32 *u)
+{
+  uint32 r = T8((unsigned char)s[3]) ; r <<= 8 ;
+  r += T8((unsigned char)s[2]) ; r <<= 8 ;
+  r += T8((unsigned char)s[1]) ; r <<= 8 ;
+  r += T8((unsigned char)s[0]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uint32_unpack_big.c b/src/libstddjb/uint32_unpack_big.c
new file mode 100644
index 0000000..1a53292
--- /dev/null
+++ b/src/libstddjb/uint32_unpack_big.c
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/bytestr.h>
+
+void uint32_unpack_big (char const *s, uint32 *u)
+{
+  uint32 r = T8((unsigned char)s[0]) ; r <<= 8 ;
+  r += T8((unsigned char)s[1]) ; r <<= 8 ;
+  r += T8((unsigned char)s[2]) ; r <<= 8 ;
+  r += T8((unsigned char)s[3]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uint640_fmt.c b/src/libstddjb/uint640_fmt.c
new file mode 100644
index 0000000..7153055
--- /dev/null
+++ b/src/libstddjb/uint640_fmt.c
@@ -0,0 +1,10 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+
+unsigned int uint640_fmt_base (char *s, uint64 x, register unsigned int n, unsigned char base)
+{
+  register unsigned int len = uint64_fmt_base(0, x, base) ;
+  while (n-- > len) *s++ = '0' ;
+  return uint64_fmt_base(s, x, base) ;
+}
diff --git a/src/libstddjb/uint640_scan.c b/src/libstddjb/uint640_scan.c
new file mode 100644
index 0000000..45c8e20
--- /dev/null
+++ b/src/libstddjb/uint640_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include "fmtscan-internal.h"
+
+SCANB0(64)
diff --git a/src/libstddjb/uint64_fmt.c b/src/libstddjb/uint64_fmt.c
new file mode 100644
index 0000000..cbe3382
--- /dev/null
+++ b/src/libstddjb/uint64_fmt.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/fmtscan.h>
+
+unsigned int uint64_fmt_base (char *s, uint64 x, unsigned char base)
+{
+  register unsigned int len = 1 ;
+  {
+    register uint64 q = x ;
+    while (q >= base) { len++ ; q /= base ; }
+  }
+  if (s)
+  {
+    s += len ;
+    do { *--s = fmtscan_asc(x % base) ; x /= base ; } while (x) ;
+  }
+  return len ;
+}
diff --git a/src/libstddjb/uint64_fmtlist.c b/src/libstddjb/uint64_fmtlist.c
new file mode 100644
index 0000000..4d18a8b
--- /dev/null
+++ b/src/libstddjb/uint64_fmtlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+FMTL(64)
diff --git a/src/libstddjb/uint64_pack.c b/src/libstddjb/uint64_pack.c
new file mode 100644
index 0000000..23c8e19
--- /dev/null
+++ b/src/libstddjb/uint64_pack.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/bytestr.h>
+
+void uint64_pack (char *s, uint64 u)
+{
+  ((unsigned char *)s)[0] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[1] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[2] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[3] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[4] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[5] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[6] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[7] = T8(u) ;
+}
diff --git a/src/libstddjb/uint64_pack_big.c b/src/libstddjb/uint64_pack_big.c
new file mode 100644
index 0000000..17d0206
--- /dev/null
+++ b/src/libstddjb/uint64_pack_big.c
@@ -0,0 +1,16 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/bytestr.h>
+
+void uint64_pack_big (char *s, uint64 u)
+{
+  ((unsigned char *)s)[7] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[6] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[5] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[4] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[3] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[2] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[1] = T8(u) ; u >>= 8 ;
+  ((unsigned char *)s)[0] = T8(u) ;
+}
diff --git a/src/libstddjb/uint64_reverse.c b/src/libstddjb/uint64_reverse.c
new file mode 100644
index 0000000..f8730fe
--- /dev/null
+++ b/src/libstddjb/uint64_reverse.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+
+void uint64_reverse (char *s, unsigned int n)
+{
+  while (n--)
+  {
+    char c = s[0] ; s[0] = s[7] ; s[7] = c ;
+    c = s[1] ; s[1] = s[6] ; s[6] = c ;
+    c = s[2] ; s[2] = s[5] ; s[5] = c ;
+    c = s[3] ; s[3] = s[4] ; s[4] = c ;
+    s += 8 ;
+  }
+}
diff --git a/src/libstddjb/uint64_scan.c b/src/libstddjb/uint64_scan.c
new file mode 100644
index 0000000..530e84c
--- /dev/null
+++ b/src/libstddjb/uint64_scan.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include "fmtscan-internal.h"
+
+SCANB(64)
diff --git a/src/libstddjb/uint64_scanlist.c b/src/libstddjb/uint64_scanlist.c
new file mode 100644
index 0000000..4a22478
--- /dev/null
+++ b/src/libstddjb/uint64_scanlist.c
@@ -0,0 +1,6 @@
+/* ISC license. */
+
+#include <skalibs/uint16.h>
+#include "fmtscan-internal.h"
+
+SCANL(64)
diff --git a/src/libstddjb/uint64_unpack.c b/src/libstddjb/uint64_unpack.c
new file mode 100644
index 0000000..e0561d9
--- /dev/null
+++ b/src/libstddjb/uint64_unpack.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/bytestr.h>
+
+void uint64_unpack (char const *s, uint64 *u)
+{
+  uint64 r = T8((unsigned char)s[7]) ; r <<= 8 ;
+  r += T8((unsigned char)s[6]) ; r <<= 8 ;
+  r += T8((unsigned char)s[5]) ; r <<= 8 ;
+  r += T8((unsigned char)s[4]) ; r <<= 8 ;
+  r += T8((unsigned char)s[3]) ; r <<= 8 ;
+  r += T8((unsigned char)s[2]) ; r <<= 8 ;
+  r += T8((unsigned char)s[1]) ; r <<= 8 ;
+  r += T8((unsigned char)s[0]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uint64_unpack_big.c b/src/libstddjb/uint64_unpack_big.c
new file mode 100644
index 0000000..ebb419b
--- /dev/null
+++ b/src/libstddjb/uint64_unpack_big.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/bytestr.h>
+
+void uint64_unpack_big (char const *s, uint64 *u)
+{
+  uint64 r = T8((unsigned char)s[0]) ; r <<= 8 ;
+  r += T8((unsigned char)s[1]) ; r <<= 8 ;
+  r += T8((unsigned char)s[2]) ; r <<= 8 ;
+  r += T8((unsigned char)s[3]) ; r <<= 8 ;
+  r += T8((unsigned char)s[4]) ; r <<= 8 ;
+  r += T8((unsigned char)s[5]) ; r <<= 8 ;
+  r += T8((unsigned char)s[6]) ; r <<= 8 ;
+  r += T8((unsigned char)s[7]) ;
+  *u = r ;
+}
diff --git a/src/libstddjb/uncoe.c b/src/libstddjb/uncoe.c
new file mode 100644
index 0000000..61593b9
--- /dev/null
+++ b/src/libstddjb/uncoe.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <fcntl.h>
+#include <skalibs/djbunix.h>
+
+int uncoe (int fd)
+{
+   register int flags = fcntl(fd, F_GETFD, 0) ;
+   if (flags < 0) return -1 ;
+   return fcntl(fd, F_SETFD, flags & ~FD_CLOEXEC) ;
+}
diff --git a/src/libstddjb/unsanitize_read.c b/src/libstddjb/unsanitize_read.c
new file mode 100644
index 0000000..efea22a
--- /dev/null
+++ b/src/libstddjb/unsanitize_read.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/allreadwrite.h>
+#include <skalibs/error.h>
+
+int unsanitize_read (int r)
+{
+  return r == -1 ? errno == EPIPE ? (errno = 0, 0) : -1 :
+         !r ? (errno = EWOULDBLOCK, -1) : r ;
+}
diff --git a/src/libstddjb/utc_from_localtm.c b/src/libstddjb/utc_from_localtm.c
new file mode 100644
index 0000000..cad1a06
--- /dev/null
+++ b/src/libstddjb/utc_from_localtm.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <time.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+int utc_from_localtm (uint64 *uu, struct tm const *l)
+{
+  uint64 u ;
+  if (!ltm64_from_localtm(&u, l)) return 0 ;
+  if (!utc_from_ltm64(&u)) return 0 ;
+  *uu = u ;
+  return 1 ;
+}
diff --git a/src/libstddjb/utc_from_ltm64.c b/src/libstddjb/utc_from_ltm64.c
new file mode 100644
index 0000000..44aea15
--- /dev/null
+++ b/src/libstddjb/utc_from_ltm64.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+#include "djbtime-internal.h"
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+int utc_from_ltm64 (uint64 *u)
+{
+  return (leapsecs_sub(u) > 0) ;
+}
+
+#else
+
+int utc_from_ltm64 (uint64 *u)
+{
+  (void)u ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/utc_from_sysclock.c b/src/libstddjb/utc_from_sysclock.c
new file mode 100644
index 0000000..979bb04
--- /dev/null
+++ b/src/libstddjb/utc_from_sysclock.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/config.h>
+#include <skalibs/uint64.h>
+#include <skalibs/djbtime.h>
+
+#ifdef SKALIBS_FLAG_CLOCKISTAI
+
+#include <skalibs/tai.h>
+
+int utc_from_sysclock (uint64 *u)
+{
+  tai_t t = { .x = *u + 10U } ;
+  return utc_from_tai(u, &t) ;
+}
+
+#else
+
+int utc_from_sysclock (uint64 *u)
+{
+  (void)u ;
+  return 1 ;
+}
+
+#endif
diff --git a/src/libstddjb/utc_from_tai.c b/src/libstddjb/utc_from_tai.c
new file mode 100644
index 0000000..f4d247e
--- /dev/null
+++ b/src/libstddjb/utc_from_tai.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include <skalibs/tai.h>
+#include <skalibs/djbtime.h>
+#include "djbtime-internal.h"
+
+int utc_from_tai (uint64 *u, tai_t const *t)
+{
+  uint64 tt = t->x - 10 ;
+  if (leapsecs_sub(&tt) < 0) return 0 ;
+  *u = tt ;
+  return 1 ;
+}
diff --git a/src/libstddjb/vbaprintf.c b/src/libstddjb/vbaprintf.c
new file mode 100644
index 0000000..efc2bd1
--- /dev/null
+++ b/src/libstddjb/vbaprintf.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/bufalloc.h>
+#include <skalibs/lolstdio.h>
+
+int vbaprintf (bufalloc *ba, char const *format, va_list args)
+{
+  int r ;
+  {
+    va_list ugly ;
+    va_copy(ugly, args) ;
+    r = vsnprintf(0, 0, format, ugly) ;
+    va_end(ugly) ;
+  }
+  if (r < 0) return r ;
+  if (!stralloc_readyplus(&ba->x, (unsigned int)r + 1)) return -1 ;
+  r = vsnprintf(ba->x.s + ba->x.len, (unsigned int)r + 1, format, args) ;
+  if (r > 0) ba->x.len += r ;
+  return r ;
+}
diff --git a/src/libstddjb/vbprintf.c b/src/libstddjb/vbprintf.c
new file mode 100644
index 0000000..a6a75f3
--- /dev/null
+++ b/src/libstddjb/vbprintf.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <skalibs/buffer.h>
+#include <skalibs/lolstdio.h>
+
+int vbprintf (buffer *b, char const *format, va_list args)
+{
+  int r ;
+  {
+    va_list ugly ;
+    va_copy(ugly, args) ;
+    r = vsnprintf(0, 0, format, ugly) ;
+    va_end(ugly) ;
+  }
+  if (r < 0) return r ;
+  {
+    char buf[(unsigned int)r + 1] ;
+    r = vsnprintf(buf, (unsigned int)r + 1, format, args) ;
+    if (r < 0) return r ;
+    if (buffer_put(b, buf, r) < r) return -1 ;
+  }
+  return r ;
+}
diff --git a/src/libstddjb/wait_nointr.c b/src/libstddjb/wait_nointr.c
new file mode 100644
index 0000000..02dcd42
--- /dev/null
+++ b/src/libstddjb/wait_nointr.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+pid_t wait_nointr (int *wstat)
+{
+  register pid_t r ;
+  do
+    r = wait(wstat) ;
+  while ((r == (pid_t)-1) && (errno == EINTR)) ;
+  return r ;
+}
diff --git a/src/libstddjb/wait_pid_nohang.c b/src/libstddjb/wait_pid_nohang.c
new file mode 100644
index 0000000..11beed6
--- /dev/null
+++ b/src/libstddjb/wait_pid_nohang.c
@@ -0,0 +1,17 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <skalibs/djbunix.h>
+
+pid_t wait_pid_nohang (pid_t pid, int *wstat)
+{
+  int w = 0 ;
+  register pid_t r = 0 ;
+  while (r != pid)
+  {
+    r = wait_nohang(&w) ;
+    if (!r || (r == (pid_t)-1)) return (int)r ;
+  }
+  *wstat = w ;
+  return r ;
+}
diff --git a/src/libstddjb/wait_pids_nohang.c b/src/libstddjb/wait_pids_nohang.c
new file mode 100644
index 0000000..3c52e6b
--- /dev/null
+++ b/src/libstddjb/wait_pids_nohang.c
@@ -0,0 +1,23 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <skalibs/djbunix.h>
+
+int wait_pids_nohang (pid_t const *pids, unsigned int len, int *wstat)
+{
+  for (;;)
+  {
+    int w ;
+    register pid_t r = wait_nohang(&w) ;
+    if (!r || (r == (pid_t)-1)) return (int)r ;
+    {
+      register unsigned int i = 0 ;
+      for (; i < len ; i++) if (r == pids[i]) break ;
+      if (i < len)
+      {
+        *wstat = w ;
+        return 1+i ;
+      }
+    }
+  }
+}
diff --git a/src/libstddjb/wait_reap.c b/src/libstddjb/wait_reap.c
new file mode 100644
index 0000000..7049b27
--- /dev/null
+++ b/src/libstddjb/wait_reap.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/djbunix.h>
+
+unsigned int wait_reap ()
+{
+  register unsigned int n = 0 ;
+  int wstat ;
+  while (wait_nohang(&wstat) > 0) n++ ;
+  return n ;
+}
diff --git a/src/libstddjb/waitn.c b/src/libstddjb/waitn.c
new file mode 100644
index 0000000..0d01cd1
--- /dev/null
+++ b/src/libstddjb/waitn.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <skalibs/djbunix.h>
+
+int waitn (pid_t *pids, unsigned int n)
+{
+  while (n)
+  {
+    int wstat ;
+    register unsigned int i = 0 ;
+    register pid_t pid = wait_nointr(&wstat) ;
+    if (pid < 0) return 0 ;
+    for (; i < n ; i++) if (pid == pids[i]) break ;
+    if (i < n) pids[i] = pids[--n] ;
+  }
+  return 1 ;
+}
diff --git a/src/libstddjb/waitn_reap.c b/src/libstddjb/waitn_reap.c
new file mode 100644
index 0000000..96a0c61
--- /dev/null
+++ b/src/libstddjb/waitn_reap.c
@@ -0,0 +1,19 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <skalibs/djbunix.h>
+
+int waitn_reap (pid_t *pids, unsigned int len)
+{
+  unsigned int n = 0 ;
+  while (len)
+  {
+    int w ;
+    register int r = wait_pids_nohang(pids, len, &w) ;
+    if (r < 0) return r ;
+    else if (!r) break ;
+    pids[r-1] = pids[--len] ;
+    n++ ;
+  }
+  return (int)n ;
+}
diff --git a/src/libstddjb/waitpid_nointr.c b/src/libstddjb/waitpid_nointr.c
new file mode 100644
index 0000000..8c6a65e
--- /dev/null
+++ b/src/libstddjb/waitpid_nointr.c
@@ -0,0 +1,15 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+pid_t waitpid_nointr (pid_t pid, int *wstat, int flags)
+{
+  register pid_t r ;
+  do
+    r = waitpid(pid, wstat, flags) ;
+  while ((r == (pid_t)-1) && (errno == EINTR)) ;
+  return r ;
+}