From adeabf115e33a3a2efdf04c6a33fdebccb876ce9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 16 Oct 2015 07:12:00 -0700
Subject: Remove use of the system function.

System depends on environment variables, and also causes
SIGINT and SIGQUIT to be ignored.

* stream.c (sh): Function rewritten in terms of sh,
in two platform variants.

* txr.1: Documented that sh doesn't use system as of TXR 120.
---
 stream.c | 29 ++++++++++-------------------
 1 file changed, 10 insertions(+), 19 deletions(-)

(limited to 'stream.c')

diff --git a/stream.c b/stream.c
index d001f704..496342ae 100644
--- a/stream.c
+++ b/stream.c
@@ -3037,21 +3037,6 @@ val open_process(val name, val mode_str, val args)
 }
 #endif
 
-static val sh(val command)
-{
-  char *cmd = utf8_dup_to(c_str(command));
-  int status = system(cmd);
-  if (status < 0)
-    return nil;
-#if HAVE_SYS_WAIT
-  if (WIFEXITED(status)) {
-    int exitstatus = WEXITSTATUS(status);
-    return num(exitstatus);
-  }
-#endif
-  return status == 0 ? zero : nil;
-}
-
 #if HAVE_FORK_STUFF
 static val run(val name, val args)
 {
@@ -3102,6 +3087,11 @@ static val run(val name, val args)
     return status == 0 ? zero : nil;
   }
 }
+
+static val sh(val command)
+{
+  return run(lit("/bin/sh"), list(lit("-c"), command, nao));
+}
 #elif HAVE_WSPAWN
 static val run(val command, val args)
 {
@@ -3126,12 +3116,13 @@ static val run(val command, val args)
 
   return (status < 0) ? nil : num(status);
 }
-#else
-static val run(val command, val args)
+
+static val sh(val command)
 {
-  val win_cmdline = win_make_cmdline(cons(command, default_bool_arg(args)));
-  return sh(win_cmdline);
+  return run(lit("cmd.exe"), list(lit("/C"), command, nao));
 }
+#else
+#error port me!
 #endif
 
 val remove_path(val path)
-- 
cgit v1.2.3