1 files changed, 64 insertions, 0 deletions
diff --git a/src/execline/multisubstitute.c b/src/execline/multisubstitute.c
new file mode 100644
index 0000000..acee42f
--- /dev/null
+++ b/src/execline/multisubstitute.c
@@ -0,0 +1,64 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/strerr2.h>
+#include <execline/execline.h>
+#include "exlsn.h"
+
+#define USAGE "see http://skarnet.org/software/execline/multisubstitute.html"
+
+static char const *const commands[8] =
+{
+  "define",
+  "importas",
+  "import",
+  "elglob",
+  "elgetpositionals",
+  "multidefine",
+  0
+} ;
+
+static exlsnfunc_t *const functions[8] =
+{
+  &exlsn_define,
+  &exlsn_importas,
+  &exlsn_import,
+  &exlsn_elglob,
+  &exlsn_exlp,
+  &exlsn_multidefine,
+  0
+} ;
+
+int main (int argc, char const **argv, char const *const *envp)
+{
+  exlsn_t info = EXLSN_ZERO ;
+  int argc1 ;
+  PROG = "multisubstitute" ;
+  if (!--argc) strerr_dieusage(100, USAGE) ;
+
+ /* Read a block containing directives */
+  argc1 = el_semicolon(++argv) ;
+  if (argc1 >= argc) strerr_dief1x(100, "unterminated block") ;
+  if (argc1 + 1 == argc) strerr_dieusage(100, USAGE) ;
+
+ /* Parse args and update the substitution info */
+  while (argc1)
+  {
+    int n ;
+    unsigned int i = 0 ;
+    for (; commands[i] ; i++) if (!str_diff(*argv, commands[i])) break ;
+    if (!commands[i]) strerr_dief3x(100, "syntax error: unrecognized", " directive ", *argv) ;
+    n = (*(functions[i]))(argc1, argv, envp, &info) ;
+    if (n < 0) switch (n)
+    {
+      case -3 : strerr_dief3x(100, "syntax error at", " directive ", commands[i]) ;
+      case -2 : strerr_dief3x(100, "wrong key for", " directive ", commands[i]) ;
+      case -1 : strerr_diefu3sys(111, "run", " directive ", commands[i]) ;
+      default : strerr_dief3x(111, "unknown error with", " directive ", commands[i]) ;
+    }
+    argv += n ; argc1 -= n ; argc -= n ;
+  }
+
+ /* Perform the substitution and exec */
+  el_substandrun(argc-1, argv+1, envp, &info) ;
+}