Add option -u to import and importas

5 files changed, 16 insertions, 6 deletions

diff --git a/src/libexecline/el_substandrun.c b/src/libexecline/el_substandrun.c
index 7dddbca..11502ea 100644
--- a/src/libexecline/el_substandrun.c
+++ b/src/libexecline/el_substandrun.c
@@ -5,7 +5,7 @@
 #include <skalibs/skamisc.h>
 #include "exlsn.h"
 
-void el_substandrun (int argc, char const *const *argv, char const *const *envp, exlsn_t *info)
+void el_substandrun (int argc, char const *const *argv, char const *const *envp, exlsn_t const *info)
 {
   satmp.len = 0 ;
   if (!env_string(&satmp, argv, (unsigned int)argc)) strerr_diefu1sys(111, "env_string") ;
diff --git a/src/libexecline/el_substandrun_str.c b/src/libexecline/el_substandrun_str.c
index 351ec9d..8168287 100644
--- a/src/libexecline/el_substandrun_str.c
+++ b/src/libexecline/el_substandrun_str.c
@@ -1,5 +1,6 @@
 /* ISC license. */
 
+#include <unistd.h>
 #include <skalibs/djbunix.h>
 #include <skalibs/env.h>
 #include <skalibs/strerr2.h>
@@ -8,18 +9,18 @@
 #include <execline/execline.h>
 #include "exlsn.h"
 
-void el_substandrun_str (stralloc *src, unsigned int srcbase, char const *const *envp, exlsn_t *info)
+void el_substandrun_str (stralloc *src, unsigned int srcbase, char const *const *envp, exlsn_t const *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)) ;
+  register int r = el_substitute(&dst, src->s + srcbase, src->len, info->vars.s, info->values.s, genalloc_s(elsubst_t const, &info->data), genalloc_len(elsubst_t const, &info->data)) ;
   if (r < 0) strerr_diefu1sys(111, "el_substitute") ;
-  exlsn_free(info) ;
+  if (!r) _exit(0) ;
   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) ;
+    pathexec_r(v, envp, env_len(envp), info->modifs.s, info->modifs.len) ;
   }
   strerr_dieexec(111, dst.s) ;
 }
diff --git a/src/libexecline/exlsn_free.c b/src/libexecline/exlsn_free.c
index 4d9dde3..832a292 100644
--- a/src/libexecline/exlsn_free.c
+++ b/src/libexecline/exlsn_free.c
@@ -8,5 +8,6 @@ void exlsn_free (exlsn_t *info)
   stralloc_free(&info->vars) ;
   stralloc_free(&info->values) ;
   stralloc_free(&info->data) ;
+  stralloc_free(&info->modifs) ;
 }
 
diff --git a/src/libexecline/exlsn_import.c b/src/libexecline/exlsn_import.c
index 1574027..6e37fd0 100644
--- a/src/libexecline/exlsn_import.c
+++ b/src/libexecline/exlsn_import.c
@@ -17,16 +17,18 @@ static int exlsn_import_as (int argc, char const **argv, char const *const *envp
   char const *defaultval = 0 ;
   char const *x ;
   int insist = 0 ;
+  int unexport = 0 ;
   blah.var = info->vars.len ;
   blah.value = info->values.len ;
 
   for (;;)
   {
-    register int opt = subgetopt_r(argc, argv, "iD:nsCcd:", &localopt) ;
+    register int opt = subgetopt_r(argc, argv, "iuD:nsCcd:", &localopt) ;
     if (opt < 0) break ;
     switch (opt)
     {
       case 'i' : insist = 1 ; break ;
+      case 'u' : unexport = 1 ; break ;
       case 'D' : defaultval = localopt.arg ; break ;
       case 'n' : si.chomp = 1 ; break ;
       case 's' : si.split = 1 ; break ;
@@ -47,6 +49,10 @@ static int exlsn_import_as (int argc, char const **argv, char const *const *envp
     if (insist) strerr_dienotset(100, argv[as]) ;
     x = defaultval ;
   }
+  else if (unexport)
+  {
+    if (!stralloc_catb(&info->modifs, argv[as], str_len(argv[as]) + 1)) goto err ;
+  }
   if (!x) blah.n = 0 ;
   else
   {
diff --git a/src/libexecline/exlsn_main.c b/src/libexecline/exlsn_main.c
index e50fc2d..0fe7bd1 100644
--- a/src/libexecline/exlsn_main.c
+++ b/src/libexecline/exlsn_main.c
@@ -1,6 +1,8 @@
 /* ISC license. */
 
+#include <skalibs/bytestr.h>
 #include <skalibs/strerr2.h>
+#include <skalibs/genalloc.h>
 #include <execline/execline.h>
 #include "exlsn.h"