1 files changed, 61 insertions, 0 deletions
diff --git a/src/libunixonacid/skaclient_startf_async.c b/src/libunixonacid/skaclient_startf_async.c
new file mode 100644
index 0000000..4077c1e
--- /dev/null
+++ b/src/libunixonacid/skaclient_startf_async.c
@@ -0,0 +1,61 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <signal.h>
+#include <skalibs/djbunix.h>
+#include <skalibs/kolbak.h>
+#include <skalibs/skaclient.h>
+#include <skalibs/uint32.h>
+#include "skaclient-internal.h"
+
+int skaclient_startf_async (
+  skaclient_t *a,
+  char *bufss,
+  unsigned int bufsn,
+  char *auxbufss,
+  unsigned int auxbufsn,
+  char *bufas,
+  unsigned int bufan,
+  char *auxbufas,
+  unsigned int auxbufan,
+  kolbak_closure_t *q,
+  unsigned int qlen,
+  char const *prog,
+  char const *const *argv,
+  char const *const *envp,
+  uint32 options,
+  char const *before,
+  unsigned int beforelen,
+  char const *after,
+  unsigned int afterlen,
+  skaclient_cbdata_t *blah)
+{
+  int fd ;
+  pid_t pid = child_spawn(prog, argv, envp, &fd, 1) ;
+  if (!pid) return 0 ;
+  if (!skaclient_init(a, fd, bufss, bufsn, auxbufss, auxbufsn, bufas, bufan, auxbufas, auxbufan, q, qlen, before, beforelen))
+  {
+    register int e = errno ;
+    fd_close(fd) ;
+    if (options & SKACLIENT_OPTION_WAITPID)
+    {
+      int wstat ;
+      waitpid_nointr(a->pid, &wstat, 0) ;
+    }
+    errno = e ;
+    return 0 ;
+  }
+  a->pid = pid ;
+  a->options = options ;
+  if (!kolbak_enqueue(&a->kq, (unixmessage_handler_func_t_ref)&skaclient_start_cb, blah))
+  {
+    skaclient_end(a) ;
+    return 0 ;
+  }
+  blah->asyncin = &a->asyncin ;
+  blah->asyncout = &a->asyncout ;
+  blah->after = after ;
+  blah->afterlen = afterlen ;
+  return 1 ;
+}