exec, exec_cmd and exec_exit_code works

Currently requires Roc branch fix-match-open-union

Author: Anton-4

examples/command.roc

@@ -7,7 +7,7 @@ import pf.Cmd
 
 main! = |_args| {
 	# Simplest way to execute a command (prints to your terminal).
-	#Cmd.exec!("echo", ["Hello"])?
+	Cmd.exec!("echo", ["Hello"])?
 
 	# To execute and capture the output (stdout and stderr) without inheriting your terminal.
 	#cmd_output = 
@@ -18,31 +18,21 @@ main! = |_args| {
 	#Stdout.line!("${Str.inspect(cmd_output)}")?
 
 	# To run a command with environment variables.
-	#Cmd.new("env")
-	#	.clear_envs() # You probably don't need to clear all other environment variables, this is just an example.
-	#	.env("FOO", "BAR")
-	#	.envs([("BAZ", "DUCK"), ("XYZ", "ABC")]) # Set multiple environment variables at once with `envs`
-	#	.args(["-v"])
-	#	.exec_cmd!()?
+	Cmd.new("env")
+		.clear_envs() # You probably don't need to clear all other environment variables, this is just an example.
+		.env("FOO", "BAR")
+		.envs([("BAZ", "DUCK"), ("XYZ", "ABC")]) # Set multiple environment variables at once with `envs`
+		.args(["-v"])
+		.exec_cmd!()?
 
 	# To execute and just get the exit code (prints to your terminal).
 	# Prefer using `exec!` or `exec_cmd!`.
-	output1 = 
-		Cmd.new("cattt") # line! prints do work if this is just `cat` (this is the non-error case)
+	exit_code = 
+		Cmd.new("cat")
 			.args(["non_existent.txt"])
-			.exec_exit_code!()
+			.exec_exit_code!()?
 
-	Stdout.line!("pre Inspect1")?
-
-	Stdout.line!("Inspect1: ${Str.inspect(output1)}")?
-
-	Stdout.line!("post Inspect1")?
-
-	output2 = output1?
-
-	Stdout.line!("Inspect2: ${Str.inspect(output2)}")?
-
-	Stdout.line!("done")?
+	Stdout.line!("Exit code: ${exit_code.to_str()}")?
 
     # TODO add exec_output_bytes
 

platform/Cmd.roc

@@ -15,20 +15,20 @@ Cmd :: {
     ## ```roc
     ## Cmd.exec!("echo", ["hello world"])?
     ## ```
-    #exec! : Str, List(Str) => Try({}, [ExecFailed({ command : Str, exit_code : I32 }), FailedToGetExitCode { command : Str, err : IOErr }, ..])
-    #exec! = |program, arguments| {
-    #    exit_code =
-    #        new(program)
-    #        .args(arguments)
-    #        .exec_exit_code!()?
+    exec! : Str, List(Str) => Try({}, [ExecFailed({ command : Str, exit_code : I32 }), FailedToGetExitCode({ command : Str, err : IOErr }), ..])
+    exec! = |program, arguments| {
+        exit_code =
+            new(program)
+            .args(arguments)
+            .exec_exit_code!()?
 
-    #    if exit_code == 0 {
-    #        Ok({})
-    #    } else {
-    #        command = "${cmd_name} ${arguments.join_with(" ")}"
-    #        Err(ExecFailed({ command, exit_code }))
-    #    }
-    #}
+        if exit_code == 0 {
+            Ok({})
+        } else {
+            command = "${program} ${arguments.join_with(" ")}"
+            Err(ExecFailed({ command, exit_code }))
+        }
+    }
 
     ## Execute a Cmd (using the builder pattern).
     ## Stdin, stdout, and stderr are inherited from the parent process.
@@ -42,16 +42,16 @@ Cmd :: {
     ##     .env("RUST_BACKTRACE", "1")
     ##     .exec_cmd!()?
     ## ```
-    #exec_cmd! : Cmd => Try({}, [ExecCmdFailed { command : Str, exit_code : I32 }, FailedToGetExitCode { command : Str, err : IOErr }, ..])
-    #exec_cmd! = |cmd| {
-    #    exit_code = exec_exit_code!(cmd)?
-    #    
-    #    if exit_code == 0 {
-    #        Ok({})
-    #    } else {
-    #        Err(ExecCmdFailed({ command: to_str(cmd), exit_code }))
-    #    }
-    #}
+    exec_cmd! : Cmd => Try({}, [ExecCmdFailed({ command : Str, exit_code : I32 }), FailedToGetExitCode({ command : Str, err : IOErr }), ..])
+    exec_cmd! = |cmd| {
+        exit_code = exec_exit_code!(cmd)?
+        
+        if exit_code == 0 {
+            Ok({})
+        } else {
+            Err(ExecCmdFailed({ command: to_str(cmd), exit_code }))
+        }
+    }
 
     ## Execute command and capture stdout and stderr as UTF-8 strings.
     ## Invalid UTF-8 sequences are replaced with the Unicode replacement character.