Add non functional nuget

CoolCoderSuper · CoolCoderSuper · commit e9a00ee0ae5b · 2023-06-21T19:16:12.000-04:00
diff --git a/DeveloperCore.REPL/DeveloperCore.REPL.vbproj b/DeveloperCore.REPL/DeveloperCore.REPL.vbproj
@@ -7,6 +7,10 @@
 
   <ItemGroup>
     <PackageReference Include="Microsoft.CodeAnalysis.VisualBasic" Version="4.5.0" />
+    <PackageReference Include="NuGet.Common" Version="6.5.0" />
+    <PackageReference Include="NuGet.PackageManagement" Version="6.5.0" />
+    <PackageReference Include="NuGet.ProjectModel" Version="6.5.0" />
+    <PackageReference Include="NuGet.Protocol" Version="6.5.0" />
   </ItemGroup>
 
 </Project>
diff --git a/DeveloperCore.REPL/REPL.vb b/DeveloperCore.REPL/REPL.vb
@@ -1,16 +1,24 @@
 ﻿Imports System.IO
-Imports System.Runtime.InteropServices.ComTypes
-Imports DeveloperCore.REPL
+Imports System.Threading
 Imports Microsoft.CodeAnalysis
 Imports Microsoft.CodeAnalysis.Emit
 Imports Microsoft.CodeAnalysis.VisualBasic
 Imports Microsoft.CodeAnalysis.VisualBasic.Syntax
+Imports NuGet.Common
+Imports NuGet.Configuration
+Imports NuGet.PackageManagement
+Imports NuGet.Packaging
+Imports NuGet.Packaging.Core
+Imports NuGet.ProjectManagement
+Imports NuGet.Protocol.Core.Types
+Imports NuGet.Resolver
 'TODO: Multiple statements
 Public Class REPL
     Private _imports As New List(Of ImportsStatementSyntax)
     Private _state As New Dictionary(Of String, Object)
     Private _references As New List(Of MetadataReference)
     Private _trees As New List(Of SyntaxTree)
+    Private ReadOnly _nugetCache As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "DeveloperCore.REPL", "NuGetCache")
 
     Public Function Evaluate(str As String) As EvaluationResults
         Dim newStatement As StatementSyntax = SyntaxCreator.ParseStatement(str)
@@ -104,33 +112,143 @@ Public Class REPL
         Return result
     End Function
 
-    Public Sub AddReference(ref As String)
+    Public Async Function AddReference(ref As String) As Task
         If IsValidPath(ref) AndAlso File.Exists(ref) Then
             Select Case Path.GetExtension(ref)
                 Case ".dll", ".exe"
                     _references.Add(MetadataReference.CreateFromFile(ref))
-                Case ".vbproj", ".csproj"
-                    'TODO: Project references
                 Case ".vb"
                     _trees.Add(SyntaxFactory.ParseSyntaxTree(File.ReadAllText(ref)))
             End Select
-        Else
-            'TODO: NuGet
+        ElseIf ref.StartsWith("nuget:") Then
+            'TODO: Add package selector
+            Directory.CreateDirectory(_nugetCache)
+            Dim parts As String() = ref.Split(":"c)
+            Dim name As String = parts(1).Trim
+            Dim version As String = If(parts.Length > 2, parts(2).Trim, "")
+            Dim providers As New List(Of Lazy(Of INuGetResourceProvider))
+            providers.AddRange(Repository.Provider.GetCoreV3())
+            Dim sourceRepository As New SourceRepository(New PackageSource("https://api.nuget.org/v3/index.json"), providers)
+            Dim log As New Logger
+            Dim nugetSettings As Settings = Settings.LoadDefaultSettings(_nugetCache)
+            Dim sourceProvider As New PackageSourceProvider(nugetSettings)
+            Dim repositoryProvider As New SourceRepositoryProvider(sourceProvider, providers)
+            Dim project As New FolderNuGetProject(_nugetCache)
+            Dim manager As New NuGetPackageManager(repositoryProvider, nugetSettings, _nugetCache) With {.PackagesFolderNuGetProject = project}
+            Dim searchSource As PackageSearchResource = sourceRepository.GetResource(Of PackageSearchResource)()
+            Dim package As IPackageSearchMetadata = (Await searchSource.SearchAsync(name, New SearchFilter(True) With {.IncludeDelisted = False, .SupportedFrameworks = {"netstandard2.0"}}, 0, 10, log, CancellationToken.None)).FirstOrDefault
+            If package Is Nothing Then Throw New Exception($"Package {name} not found")
+            Dim prerelease As Boolean = True
+            Dim unListed As Boolean = False
+            Dim resolutionContext As New ResolutionContext(DependencyBehavior.Lowest, prerelease, unListed, VersionConstraints.None)
+            Dim context As New ProjectContext
+            Dim identity As New PackageIdentity(package.Identity.Id, package.Identity.Version)
+            Await manager.InstallPackageAsync(project, identity, resolutionContext, context, sourceRepository, {}, CancellationToken.None)
         End If
-    End Sub
+    End Function
 
-    Private Shared Function IsValidPath(path As String) As String
+    Private Shared Function IsValidPath(path As String) As Boolean
         Dim fi As FileInfo = Nothing
         Try
             fi = New FileInfo(path)
         Catch __unusedArgumentException1__ As ArgumentException
         Catch __unusedPathTooLongException2__ As PathTooLongException
         Catch __unusedNotSupportedException3__ As NotSupportedException
         End Try
-        If ReferenceEquals(fi, Nothing) Then
-            Return False
-        Else
-            Return True
-        End If
+        Return If(fi Is Nothing, False, True)
     End Function
+End Class
+
+Public Class Logger
+    Implements ILogger
+    Private logs As New List(Of String)()
+
+    Public Sub LogDebug(data As String) Implements ILogger.LogDebug
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogVerbose(data As String) Implements ILogger.LogVerbose
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogInformation(data As String) Implements ILogger.LogInformation
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogMinimal(data As String) Implements ILogger.LogMinimal
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogWarning(data As String) Implements ILogger.LogWarning
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogError(data As String) Implements ILogger.LogError
+        logs.Add(data)
+    End Sub
+
+    Public Sub LogInformationSummary(data As String) Implements ILogger.LogInformationSummary
+        logs.Add(data)
+    End Sub
+
+    Public Sub Log(level As LogLevel, data As String) Implements ILogger.Log
+        logs.Add(data)
+    End Sub
+
+    Public Sub Log(message As ILogMessage) Implements ILogger.Log
+        logs.Add(message.Message)
+    End Sub
+
+    Public Function LogAsync(level As LogLevel, data As String) As Task Implements ILogger.LogAsync
+        logs.Add(data)
+        Return Task.CompletedTask
+    End Function
+
+    Public Function LogAsync(message As ILogMessage) As Task Implements ILogger.LogAsync
+        logs.Add(message.Message)
+        Return Task.CompletedTask
+    End Function
+End Class
+
+Public Class ProjectContext
+    Implements INuGetProjectContext
+    Private logs As New List(Of String)()
+
+    Public Function GetLogs() As List(Of String)
+        Return logs
+    End Function
+
+    Public Sub Log(level As MessageLevel, message As String, ParamArray args As Object()) Implements INuGetProjectContext.Log
+        Dim formattedMessage = String.Format(message, args)
+        logs.Add(formattedMessage)
+    End Sub
+
+    Public Function ResolveFileConflict(message As String) As FileConflictAction Implements INuGetProjectContext.ResolveFileConflict
+        logs.Add(message)
+        Return FileConflictAction.Ignore
+    End Function
+
+    Public Property PackageExtractionContext As PackageExtractionContext Implements INuGetProjectContext.PackageExtractionContext
+
+    Public ReadOnly Property ExecutionContext As NuGet.ProjectManagement.ExecutionContext Implements INuGetProjectContext.ExecutionContext
+
+    Public Property OriginalPackagesConfig As XDocument Implements INuGetProjectContext.OriginalPackagesConfig
+
+    Public Property SourceControlManagerProvider As ISourceControlManagerProvider Implements INuGetProjectContext.SourceControlManagerProvider
+
+    Public Sub ReportError(message As String) Implements INuGetProjectContext.ReportError
+        logs.Add(message)
+    End Sub
+
+    Public Sub Log(message As ILogMessage) Implements INuGetProjectContext.Log
+        Log(message.Level, message.Message)
+    End Sub
+
+    Public Sub ReportError(message As ILogMessage) Implements INuGetProjectContext.ReportError
+        ReportError(message.Message)
+    End Sub
+
+    Public Property ActionType As NuGetActionType Implements INuGetProjectContext.ActionType
+
+    Public Property OperationId As Guid Implements INuGetProjectContext.OperationId
 End Class
diff --git a/VBRepl/Program.vb b/VBRepl/Program.vb
@@ -5,6 +5,7 @@ Imports System.Reflection
 Public Module Program
 
     'TODO: Default imports
+    'TODO: Config file
     Public Sub Main(args As String())
         Console.Title = "VB REPL"
         Console.WriteLine("VB REPL by CoolCoderSuper")
@@ -28,7 +29,11 @@ Public Module Program
                     If ref.StartsWith("""") AndAlso ref.EndsWith("""") Then
                         ref = ref.Substring(1, ref.Length - 2)
                     End If
-                    repl.AddReference(ref)
+                    Try
+                        repl.AddReference(ref).Wait()
+                    Catch ex As Exception
+                        AnsiConsole.WriteException(ex)
+                    End Try
                     Continue While
                 End If
                 Dim r As EvaluationResults = repl.Evaluate(res.Text)
