Start of implementation of run. Still needs work, but can execute com…

…mands already.
sorear · Feb 26, 2012 · e5096c2 · e5096c2
1 parent a9d984a
commit e5096c2
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/lib/Builtins.cs b/lib/Builtins.cs
@@ -1721,6 +1721,20 @@ public partial class Builtins {
         return PosixWrapper.system(command);
     }
 
+    public static int command_run(Variable argv, Variable env) {
+        Type Process = Type.GetType("GLib.Process,glib-sharp, Version=2.12.0.0, Culture=neutral, PublicKeyToken=35e10195dab3c99f");
+        Type SpawnFlags = Type.GetType("GLib.SpawnFlags,glib-sharp, Version=2.12.0.0, Culture=neutral, PublicKeyToken=35e10195dab3c99f");
+        MethodInfo spawn_sync = Process.GetMethod("SpawnSync");
+
+        object[] arguments = new object[]{ null, UnboxLoS(argv), UnboxLoS(env), Enum.ToObject(SpawnFlags, 0), null,
+                                           null, null, null };
+        bool result = (bool) spawn_sync.Invoke(null, arguments);
+        string stdout = (string) arguments[5];
+        string stderr = (string) arguments[6];
+        int exit_status = (int) arguments[7];
+        return result ? 1 : 0;
+    }
+
     public static int path_chmod(string path, double mode) {
         return PosixWrapper.chmod(path, (int) mode);
     }

diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -3644,6 +3644,11 @@ sub shell($command) is unsafe {
     Q:CgOp { (box Int (command_system (obj_getstr {$command}))) };
 }
 
+sub run(*@argv, :%env = %*ENV) is unsafe {
+    my @env = %env.map({ .key ~ "=" ~ .value });
+    Q:CgOp { (box Int (command_run {@argv} {@env})) };
+}
+
 multi sub open($filename, :$w?, :$a?, :$r?, :$rw?) is unsafe {
     die "Not yet able to open both :r and :w" if ($r && $w) || $rw;
     if $a {