WIP

purkhusid · Nov 3, 2023 · 9b54ec1 · 9b54ec1
1 parent 62e15bb
commit 9b54ec1
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 5 deletions.
diff --git a/src/Ionide.ProjInfo.ProjectSystem/WorkspacePeek.fs b/src/Ionide.ProjInfo.ProjectSystem/WorkspacePeek.fs
@@ -9,10 +9,12 @@ module WorkspacePeek =
 
     let rec logger = LogProvider.getLoggerByQuotation <@ logger @>
 
+    type FsprojData = { Path: string; CompileItems: string list }
+
     [<RequireQualifiedAccess>]
     type Interesting =
         | Solution of string * InspectSln.SolutionData
-        | Directory of string * string list
+        | Directory of string * FsprojData list
 
     open System.IO
 
@@ -160,7 +162,11 @@ module WorkspacePeek =
 
                         None
                 | UsefulFile.Fsx -> Some(Choice2Of3(f.FullName))
-                | UsefulFile.FsProj -> Some(Choice3Of3(f.FullName))
+                | UsefulFile.FsProj -> 
+                    // TODO: Read the fsproj file and get the compile items
+                    let compileItems = Ionide.ProjInfo.ProjectLoader.getFsprojCompileItemPaths f.FullName
+
+                    Some(Choice3Of3(f.FullName, compileItems))
 
             let found =
                 dirs
@@ -175,13 +181,12 @@ module WorkspacePeek =
             let dir =
                 rootDir,
                 (fsprojs
-                 |> List.sort)
+                 |> List.sortBy (fun (p, _) -> p))
 
             [
                 yield!
                     slns
                     |> List.map Interesting.Solution
                 yield
-                    dir
-                    |> Interesting.Directory
+                    Interesting.Directory (fst dir, (snd dir) |> List.map (fun (p, c) -> { Path = p; CompileItems = c |> List.ofSeq }))
             ]
diff --git a/src/Ionide.ProjInfo/Library.fs b/src/Ionide.ProjInfo/Library.fs
@@ -13,6 +13,7 @@ open System.Diagnostics
 open System.Runtime.InteropServices
 open Ionide.ProjInfo.Logging
 open Patterns
+open System.Xml
 
 /// functions for .net sdk probing
 module SdkDiscovery =
@@ -599,6 +600,13 @@ module ProjectLoader =
             }
         )
 
+    let getFsprojCompileItemPaths (fsprojPath: string) =
+        use pc = new ProjectCollection(null)
+        let pi = pc.LoadProject(fsprojPath)
+        let pi = pi.CreateProjectInstance()
+        let compileItems = getCompileItems (LoadedProject pi)
+        compileItems |> Seq.map(fun i -> i.FullPath)
+
     let getNuGetReferences (LoadedProject project) =
         project.Items
         |> Seq.filter (fun p ->