From d37ab57a6f1a771fb00ef4ca75cfcc4e37c945bf Mon Sep 17 00:00:00 2001
From: Abel Braaksma <abel.online@xs4all.nl>
Date: Wed, 17 Apr 2024 10:14:42 +0200
Subject: [PATCH] Add command proc as example

---
 src/FSharp.Control.TaskSeq.Test/CEPoC.fs      | 69 +++++++++++++++++++
 .../FSharp.Control.TaskSeq.Test.fsproj        |  2 +
 2 files changed, 71 insertions(+)

diff --git a/src/FSharp.Control.TaskSeq.Test/CEPoC.fs b/src/FSharp.Control.TaskSeq.Test/CEPoC.fs
index 7c1972e..238d659 100644
--- a/src/FSharp.Control.TaskSeq.Test/CEPoC.fs
+++ b/src/FSharp.Control.TaskSeq.Test/CEPoC.fs
@@ -10,6 +10,75 @@ open FSharp.Control
 /// https://github.com/cannorin/FSharp.CommandLine/blob/master/src/FSharp.CommandLine/commands.fs
 ///
 
+module Cmd =
+    open FSharp.CommandLine
+
+    let fileOption = commandOption {
+        names [ "f"; "file" ]
+        description "Name of a file to use (Default index: 0)"
+        takes (format("%s:%i").withNames [ "filename"; "index" ])
+        takes (format("%s").map (fun filename -> (filename, 0)))
+        suggests (fun _ -> [ CommandSuggestion.Files None ])
+    }
+
+    type Verbosity =
+        | Quiet
+        | Normal
+        | Full
+        | Custom of int
+
+    let verbosityOption = commandOption {
+        names [ "v"; "verbosity" ]
+        description "Display this amount of information in the log."
+        takes (regex @"q(uiet)?$" |> asConst Quiet)
+        takes (regex @"n(ormal)?$" |> asConst Quiet)
+        takes (regex @"f(ull)?$" |> asConst Full)
+        takes (format("custom:%i").map (fun level -> Custom level))
+        takes (format("c:%i").map (fun level -> Custom level))
+    }
+
+    let mainCommand () =
+        let x = CommandBuilder()
+
+        let c1 = command {
+            name "main"
+            description "The main command."
+            opt files in fileOption |> CommandOption.zeroOrMore
+
+            opt verbosity in verbosityOption
+                             |> CommandOption.zeroOrExactlyOne
+                             |> CommandOption.whenMissingUse Normal
+
+            do printfn "%A, %A" files verbosity
+            let! x = command { name "main" }
+            name "foo"
+            //for x in 1 .. 3 do
+            //    yield 42
+
+            //for x in 1 .. 3 do
+            //    yield 42
+
+            do printfn "%A, %A" files verbosity
+            let! x = command { name "main" }
+            description "The main command."
+
+            return "foo"
+        }
+
+        command {
+            let! x = c1
+            name "main"
+            description "The main command."
+            opt files in fileOption |> CommandOption.zeroOrMore
+
+            opt verbosity in verbosityOption
+                             |> CommandOption.zeroOrExactlyOne
+                             |> CommandOption.whenMissingUse Normal
+
+            do printfn "%A, %A" files verbosity
+            return "foo"
+        }
+
 module CEs =
 
     type M<'T, 'Vars> = {
diff --git a/src/FSharp.Control.TaskSeq.Test/FSharp.Control.TaskSeq.Test.fsproj b/src/FSharp.Control.TaskSeq.Test/FSharp.Control.TaskSeq.Test.fsproj
index a6fcaa8..03c65f3 100644
--- a/src/FSharp.Control.TaskSeq.Test/FSharp.Control.TaskSeq.Test.fsproj
+++ b/src/FSharp.Control.TaskSeq.Test/FSharp.Control.TaskSeq.Test.fsproj
@@ -66,6 +66,8 @@
     <PackageReference Include="FSharp.CommandLine" Version="3.3.3805.29705" />
     <PackageReference Include="FsUnit.xUnit" Version="6.0.0" />
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.9.0" />
+    <PackageReference Include="System.Net.Http" Version="4.3.4" />
+    <PackageReference Include="System.Text.RegularExpressions" Version="4.3.1" />
     <PackageReference Include="xunit" Version="2.7.0" />
     <PackageReference Include="xunit.runner.visualstudio" Version="2.5.3">
       <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>