From f316a2ed52195135a35e32d7096e876357c48c69 Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Thu, 18 Sep 2014 20:03:23 +0000
Subject: initial commit: rc for execline-2.0.0.0

---
 src/libexecline/el_substandrun_str.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/libexecline/el_substandrun_str.c

(limited to 'src/libexecline/el_substandrun_str.c')

diff --git a/src/libexecline/el_substandrun_str.c b/src/libexecline/el_substandrun_str.c
new file mode 100644
index 0000000..351ec9d
--- /dev/null
+++ b/src/libexecline/el_substandrun_str.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/djbunix.h>
+#include <skalibs/env.h>
+#include <skalibs/strerr2.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+#include <execline/execline.h>
+#include "exlsn.h"
+
+void el_substandrun_str (stralloc *src, unsigned int srcbase, char const *const *envp, exlsn_t *info)
+{
+  stralloc dst = STRALLOC_ZERO ;
+  register int r = el_substitute(&dst, src->s + srcbase, src->len, info->vars.s, info->values.s, genalloc_s(elsubst_t, &info->data), genalloc_len(elsubst_t, &info->data)) ;
+  if (r < 0) strerr_diefu1sys(111, "el_substitute") ;
+  exlsn_free(info) ;
+  stralloc_free(src) ;
+  {
+    char const *v[r + 1] ;
+    if (!env_make(v, r, dst.s, dst.len)) strerr_diefu1sys(111, "env_make") ;
+    v[r] = 0 ;
+    pathexec0_run(v, envp) ;
+  }
+  strerr_dieexec(111, dst.s) ;
+}
-- 
cgit v1.2.3