Pog.psm1: Add new 'Get-PogDownloadCache' cmdlet for listing cache entries

Author: MatejKafka

app/Pog/Pog.psd1

@@ -47,6 +47,8 @@
 		'New-PogRepositoryPackage'
 		'New-PogPackage'
 
+		'Get-PogDownloadCache'
+
 		'Edit-PogRoot'
 	)
 

app/Pog/Pog.psm1

@@ -197,3 +197,56 @@ function Update-Pog {
 		$SelectedPackages | pog -Force
 	}
 }
+
+class DownloadCacheEntry {
+	[string]$PackageName
+	# FIXME: this should be a Pog.PackageVersion (but Pog.dll is not loaded when this is parsed)
+	[string]$Version
+	[string]$Hash
+	[string]$FileName
+
+	hidden [ulong]$Size
+	# with a `Path` field, this type can be piped to `rm -Recurse`
+	hidden [string]$Path
+}
+
+function Get-PogDownloadCache {
+	[CmdletBinding(PositionalBinding=$false)]
+	[OutputType([DownloadCacheEntry])]
+	param(
+			[Parameter(Position=0, ValueFromPipeline, ValueFromPipelineByPropertyName)]
+			[ArgumentCompleter([Pog.PSAttributes.DownloadCachePackageNameCompleter])]
+			[string[]]
+		$PackageName
+	)
+
+	begin {
+		$Entries = [array][Pog.InternalState]::DownloadCache.EnumerateEntries()
+	}
+
+	process {
+		foreach ($pn in $PackageName) {
+			$Found = $false
+			foreach ($Entry in $Entries) {
+				foreach ($Source in $Entry.SourcePackages | ? PackageName -eq $pn) {
+					$Found = $true
+					[DownloadCacheEntry]@{
+						PackageName = $Source.PackageName
+						Version = $Source.ManifestVersion
+						Hash = $Entry.EntryKey
+						FileName = [System.IO.Path]::GetFileName($Entry.Path)
+
+						Size = $Entry.Size
+						Path = [System.IO.Path]::GetDirectoryName($Entry.Path)
+					}
+				}
+			}
+
+			if (-not $Found) {
+				# hacky way to create an ErrorRecord
+				$e = try {throw "No download cache entries found for package '$pn'."} catch {$_}
+				$PSCmdlet.WriteError($e)
+			}
+		}
+	}
+}

app/Pog/lib_compiled/Pog/src/PSAttributes/Completers.cs

@@ -94,7 +94,7 @@ public abstract class DirectoryListingArgumentCompleter : QuotingArgumentComplet
 
     protected override IEnumerable<string> GetCompletions(string wordToComplete, IDictionary fakeBoundParameters) {
         if (0 <= wordToComplete.IndexOfAny(InvalidCharacters)) {
-            return Enumerable.Empty<string>();
+            return [];
         }
         return GetMatchingItems($"{wordToComplete}*", fakeBoundParameters);
     }
@@ -169,3 +169,13 @@ protected override IEnumerable<string> GetMatchingItems(string searchPattern, ID
         return package.EnumerateVersions(searchPattern).Select(v => v.ToString());
     }
 }
+
+/// Completer for package names that have an entry in the download cache.
+[PublicAPI]
+public sealed class DownloadCachePackageNameCompleter : QuotingArgumentCompleter {
+    protected override IEnumerable<string> GetCompletions(string wordToComplete, IDictionary fakeBoundParameters) {
+        return InternalState.DownloadCache.EnumerateEntries()
+                .SelectMany(e => e.SourcePackages.Select(s => s.PackageName))
+                .Where(s => s.StartsWith(wordToComplete, StringComparison.InvariantCultureIgnoreCase));
+    }
+}