From 928f3250b3914c88d105d8cf297c6b27a96ed5ad Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 24 Feb 2025 18:23:18 -0500
Subject: [PATCH] Add $Shell:execute()

---
 environment.c  | 1 +
 stdlib/shell.c | 6 ++++++
 stdlib/shell.h | 1 +
 3 files changed, 8 insertions(+)

diff --git a/environment.c b/environment.c
index a00242c..b785a8e 100644
--- a/environment.c
+++ b/environment.c
@@ -380,6 +380,7 @@ env_t *new_compilation_unit(CORD libname)
             {"escape_int", "Int$value_as_text", "func(i:Int -> Shell)"},
             {"escape_text", "Shell$escape_text", "func(text:Text -> Shell)"},
             {"escape_text_array", "Shell$escape_text_array", "func(texts:[Text] -> Shell)"},
+            {"execute", "Shell$execute", "func(command:Shell -> Int32)"},
             {"run_bytes", "Shell$run", "func(command:Shell -> [Byte]?)"},
             {"run", "Shell$run", "func(command:Shell -> Text?)"},
         )},
diff --git a/stdlib/shell.c b/stdlib/shell.c
index 593301a..08898ac 100644
--- a/stdlib/shell.c
+++ b/stdlib/shell.c
@@ -75,6 +75,12 @@ public OptionalText_t Shell$run(Shell_t command)
     return Text$from_bytes(bytes);
 }
 
+public int32_t Shell$execute(Shell_t command)
+{
+    const char *cmd_str = Text$as_c_string(command);
+    return system(cmd_str);
+}
+
 static void _line_reader_cleanup(FILE **f)
 {
     if (f && *f) {
diff --git a/stdlib/shell.h b/stdlib/shell.h
index 9b4e77d..a8f35f6 100644
--- a/stdlib/shell.h
+++ b/stdlib/shell.h
@@ -21,6 +21,7 @@ Shell_t Shell$escape_text(Text_t text);
 Shell_t Shell$escape_text_array(Array_t texts);
 OptionalArray_t Shell$run_bytes(Shell_t command);
 OptionalText_t Shell$run(Shell_t command);
+int32_t Shell$execute(Shell_t command);
 
 #define Shell$hash Text$hash
 #define Shell$compare Text$compare