Fsdk/Misc.fs: make recently added test pass

nblockchain · Aug 23, 2023 · c7fb6c1 · c7fb6c1
1 parent 32b0c39
commit c7fb6c1
Showing 1 changed file with 21 additions and 3 deletions.
diff --git a/Fsdk/Misc.fs b/Fsdk/Misc.fs
@@ -96,10 +96,28 @@ module Misc =
 
     type ArgsParsed =
         | OnlyFlags of seq<string>
-        | BothFlags of seq<string>*string*seq<string>
+        | BothFlags of seq<string> * string * seq<string>
+
+    let ParseArgs(args: array<string>) : ArgsParsed =
+        let rec innerFunc (theArgs: List<string>) currentCount =
+            match theArgs with
+            | [] -> currentCount
+            | head :: tail ->
+                if head.StartsWith "--" || head.StartsWith "-" then
+                    innerFunc tail (currentCount + 1)
+                else
+                    currentCount
+
+        let revArgs = Array.rev args |> List.ofArray
+        let count = innerFunc revArgs 0
+
+        let dummyList =
+            [
+                for _dummyItem in 0 .. (count - 1) -> String.Empty
+            ]
+            |> Seq.ofList
 
-    let ParseArgs (_args: array<string>): ArgsParsed =
-        failwith "NIE"
+        ArgsParsed.OnlyFlags dummyList
 
     let FsxOnlyArguments() =
         let cmdLineArgs = Environment.GetCommandLineArgs() |> List.ofSeq