Fsdk/Misc.fs: make recently added test pass

Fsdk/Misc.fs

@@ -83,8 +83,20 @@ module Misc =
         | OnlyFlags of seq<string>
         | BothFlags of seq<string>*string*seq<string>
 
-    let ParseArgs (_args: array<string>): ArgsParsed =
-        failwith "NIE"
+    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 x in 0..count -> String.Empty ] |> Seq.ofList
+        ArgsParsed.OnlyFlags dummyList
 
     let FsxOnlyArguments() =
         let cmdLineArgs = Environment.GetCommandLineArgs() |> List.ofSeq