Added a new example to TestConsole to troubleshoot token replacer logic using underlying S.CL library only.

Author: JordanMarr

src/TestConsole/Program.fs

@@ -9,18 +9,12 @@ let args commandLine =
 let main _ = 
 
     //ProgramAlt1.main (args "--int-option 1 --bool-option true --file-option \"c:\test\"")
-    
     //ProgramNoArgs.main (args "")
-    
     //ProgramNestedSubCommands.main (args "io list \"c:/data/\" --enable-logging") // Also contains global options
-    
     //ProgramSubCommand.main (args "list c:/data/")
     //ProgramSubCommand.main (args "delete c:/data/ --recursive")
-    
     //ProgramTask.main (args "-w hello -w world")
-    
+    ProgramTokenReplacer.SCL.main (args "--package @shoelace-style/shoelace")
     //ProgramTokenReplacer.main (args "--package @shoelace-style/shoelace")
-    
     //ProgramExtraInputs.main (args "-a A -b B -c C -d D -e E -1 1 -2 2 -3 3 -4 4 -5 5")
-    
-    ProgramAppendWords.main (args "-w hello -w world -s \", \"")
+    //ProgramAppendWords.main (args "-w hello -w world -s \", \"")

src/TestConsole/ProgramTokenReplacer.fs

@@ -1,31 +1,66 @@
 module ProgramTokenReplacer
 
+module SCL = 
+    open System.CommandLine
+
+    let packageOpt = Option<string>("--package", [|"-p"|], Description = "A package with a leading @ name")
+
+    let action (parseResult: ParseResult) = 
+        let package = parseResult.GetValue packageOpt
+        printfn $"The value for --package is: %s{package}"
+
+    let main (argv: string[]) = 
+        let cfg = new CommandLineConfiguration(new RootCommand())
+        cfg.ResponseFileTokenReplacer <- null // in beta5, you must set ResponseFileTokenReplacer to null to skip @ processing
+        let cmd = cfg.RootCommand
+
+        cmd.Description <- "My sample app"
+        cmd.Add(packageOpt)
+        cmd.SetAction(action)
+
+        cmd.Parse(argv).Invoke()
+
+
 open FSharp.SystemCommandLine
 open Input
-
-let app (package: string) =
-    if package.StartsWith("@") then
-        printfn $"{package}"
-        0
-    else
-        eprintfn "The package name does not start with a leading @"
-        1
+open System.CommandLine.Parsing
 
 let main argv =
-
-    // The package option needs to accept strings that start with "@" symbol.
-    // For example, "--package @shoelace-style/shoelace".
-    // To accomplish this, we will need to modify the default pipeline settings below.
-    let package =  option "--package" |> aliases ["-p"] |> desc "A package with a leading @ name"
+    let app (package: string) =
+        if package.StartsWith("@") then
+            printfn $"{package}"
+            0
+        else
+            eprintfn "The package name does not start with a leading @"
+            1
 
     rootCommand argv {
         description "Can be called with a leading @ package"
         configure (fun cfg -> 
             // Skip @ processing
             //cfg.UseTokenReplacer(fun _ _ _ -> false)
-            cfg.ResponseFileTokenReplacer <- null // in beta5, you must set ResponseFileTokenReplacer to null to skip @ processing
-            //cfg.ResponseFileTokenReplacer <- new TryReplaceToken(fun _ _ _ -> false)
+            //cfg.ResponseFileTokenReplacer <- null // in beta5, you must set ResponseFileTokenReplacer to null to skip @ processing
+            cfg.ResponseFileTokenReplacer <- new TryReplaceToken(fun _ _ _ -> true)
+            cfg
         )        
-        inputs package
+        inputs (
+            // The package option needs to accept strings that start with "@" symbol.
+            // For example, "--package @shoelace-style/shoelace".
+            // To accomplish this, we will need to modify the default pipeline settings below.
+            option<string> "--package" 
+            |> aliases ["-p"] 
+            |> desc "A package with a leading @ name"
+            |> editOption (fun o ->
+                o.CustomParser <- (fun res -> 
+                    // Custom parser to allow leading @ in the package name
+                    let value = res.GetValueOrDefault<string>()
+                    if value.StartsWith("@") 
+                    then value
+                    else 
+                        res.AddError("oops")
+                        "---"
+                )
+            )
+        )
         setAction app
     }