Add custom function as an output.

README.md

@@ -156,7 +156,7 @@ cli {
 | `Shell`                | `Fli.Shells`               |
 | `Command`              | `string`                   |
 | `Input`                | `string`                   |
-| `Output`               | `string` / `StringBuilder` |
+| `Output`               | `Outputs` (see below)      |
 | `WorkingDirectory`     | `string`                   |
 | `EnvironmentVariable`  | `string * string`          |
 | `EnvironmentVariables` | `(string * string) list`   |
@@ -168,7 +168,7 @@ cli {
 | `Exec`                 | `string`                                                 |
 | `Arguments`            | `string` / `string seq` / `string list` / `string array` |
 | `Input`                | `string`                                                 |
-| `Output`               | `string` / `StringBuilder`                               |
+| `Output`               | `Outputs` (see below)                                    |
 | `Verb`                 | `string`                                                 |
 | `Username`             | `string`                                                 |
 | `Credentials`          | `string * string * string`                               |
@@ -184,9 +184,10 @@ Currently provided `Fli.Shells`:
 - `WSL` runs `wsl.exe -- ...`
 - `BASH` runs `bash -c ...`
 
-`Fli.Outputs`:
-- `string` which is the absolute path of the output file.
-- `StringBuilder` which will be filled with output text.
+Provided `Fli.Outputs`:
+- `File of string` a string with an absolute path of the output file.
+- `StringBuilder of StringBuilder` a StringBuilder which will be filled with the output text.
+- `Custom of Func<string, unit>` a custom function (`string -> unit`) that will be called with the output string (logging, printing etc.).
 
 ### Do you miss something?
 Open an [issue](https://github.com/CaptnCodr/Fli/issues) or start a [discussion](https://github.com/CaptnCodr/Fli/discussions).

src/Fli.Tests/ExecContext/ExecCommandExecuteTests.fs

@@ -73,6 +73,26 @@ let ``Get output in StringBuilder`` () =
 
         sb.ToString() |> should equal "Test\n"
 
+[<Test>]
+let ``Call custom function in output`` () =
+    let testFunc (test: string) (s: string) = s |> should equal test
+    if OperatingSystem.IsWindows() then
+        cli {
+            Exec "cmd.exe"
+            Arguments "/c echo Test"
+            Output (testFunc "Test\r\n")
+        } 
+        |> Command.execute
+        |> ignore
+    else
+        cli {
+            Exec "bash"
+            Arguments "-c \"echo Test\""
+            Output (testFunc "Test\n")
+        } 
+        |> Command.execute
+        |> ignore
+
 [<Test>]
 let ``Hello World with executing program async`` () =
     if OperatingSystem.IsWindows() then

src/Fli/CE.fs

@@ -15,6 +15,7 @@ module CE =
             match box (output) with
             | :? string as s -> Outputs.File s
             | :? StringBuilder as sb -> Outputs.StringBuilder sb
+            | :? (string -> unit) as func -> Outputs.Custom func
             | _ -> failwith "Cannot convert output type."
 
     type StartingContext =

src/Fli/Command.fs

@@ -138,6 +138,7 @@ module Command =
             match o with
             | Outputs.File(file) -> File.WriteAllText(file, output)
             | Outputs.StringBuilder(stringBuilder) -> output |> stringBuilder.Append |> ignore
+            | Outputs.Custom(func) -> func.Invoke(output)
 
         | None -> ()
 

src/Fli/Domain.fs

@@ -23,10 +23,11 @@ module Domain =
         | PWSH
         | WSL
         | BASH
-
+        
     and Outputs =
         | File of string
         | StringBuilder of StringBuilder
+        | Custom of System.Func<string, unit>
 
     type ExecConfig =
         { Program: string