From f021f61f10c566fcae2f77b1a4b095869076062b Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Wed, 30 Dec 2020 23:06:31 +0000
Subject:  Add -E option for variable autoimport

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

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

diff --git a/src/libexecline/el_modif_and_spawn.c b/src/libexecline/el_modif_and_spawn.c
new file mode 100644
index 0000000..0070052
--- /dev/null
+++ b/src/libexecline/el_modif_and_spawn.c
@@ -0,0 +1,39 @@
+/* ISC license. */
+
+#include <string.h>
+
+#include <skalibs/posixplz.h>
+#include <skalibs/env.h>
+
+#include <execline/config.h>
+#include <execline/execline.h>
+
+pid_t el_modif_and_spawn (char const *const *argv, char const *var, char const *value, int doimport)
+{
+  size_t varlen = strlen(var) ;
+  size_t modiflen = value ? varlen + strlen(value) + 2 : 1 ;
+  size_t envlen = env_len((char const *const *)environ) ;
+  char const *newenv[envlen + 2] ;
+  char modifs[modiflen] ;
+  if (value)
+  {
+    memcpy(modifs, var, varlen) ;
+    modifs[varlen] = '=' ;
+    memcpy(modifs + varlen + 1, value, modiflen - varlen - 1) ;
+  }
+  if (!env_mergen(newenv, envlen + 2, (char const *const *)environ, envlen, value ? modifs : var, value ? modiflen : varlen + 1, 1)) return 0 ;
+  if (doimport)
+  {
+    size_t m = 0 ;
+    char const *newargv[env_len(argv) + 6] ;
+    newargv[m++] = EXECLINE_BINPREFIX "importas" ;
+    newargv[m++] = "-ui" ;
+    newargv[m++] = "--" ;
+    newargv[m++] = var ;
+    newargv[m++] = var ;
+    while (*argv) newargv[m++] = *argv++ ;
+    newargv[m++] = 0 ;
+    return el_spawn0(newargv[0], newargv, newenv) ;
+  }
+  else return el_spawn0(argv[0], argv, newenv) ;
+}
-- 
cgit v1.3.1