refactor(versions): Refactor 'versions.ps1'

bin/checkver.ps1

@@ -289,7 +289,7 @@ while ($in_progress -gt 0) {
 
     Write-Host $ver -ForegroundColor DarkRed -NoNewline
     Write-Host " (scoop version is $expected_ver)" -NoNewline
-    $update_available = (compare_versions $expected_ver $ver) -eq -1
+    $update_available = (Compare-Version $ver $expected_ver) -ne 0
 
     if ($json.autoupdate -and $update_available) {
         Write-Host ' autoupdate available' -ForegroundColor Cyan

bin/uninstall.ps1

@@ -34,7 +34,7 @@ $errors = $false
 
 # Uninstall given app
 function do_uninstall($app, $global) {
-    $version = current_version $app $global
+    $version = Select-CurrentVersion -App $app -Global:$global
     $dir = versiondir $app $version $global
     $manifest = installed_manifest $app $version $global
     $install = install_info $app $version $global

lib/core.ps1

@@ -289,7 +289,7 @@ function Test-Aria2Enabled {
 function app_status($app, $global) {
     $status = @{}
     $status.installed = (installed $app $global)
-    $status.version = current_version $app $global
+    $status.version = Select-CurrentVersion -App $app -Global:$global
     $status.latest_version = $status.version
 
     $install_info = install_info $app $status.version $global
@@ -305,7 +305,7 @@ function app_status($app, $global) {
 
     $status.outdated = $false
     if($status.version -and $status.latest_version) {
-        $status.outdated = ((compare_versions $status.latest_version $status.version) -gt 0)
+        $status.outdated = ((Compare-Version $status.version $status.latest_version) -ne 0)
     }
 
     $status.missing_deps = @()

lib/install.ps1

@@ -1021,7 +1021,7 @@ function prune_installed($apps, $global) {
 
 # check whether the app failed to install
 function failed($app, $global) {
-    $ver = current_version $app $global
+    $ver = Select-CurrentVersion -App $app -Global:$global
     if(!$ver) { return $false }
     $info = install_info $app $ver $global
     if(!$info) { return $true }

lib/versions.ps1

@@ -1,53 +1,210 @@
 # versions
-function latest_version($app, $bucket, $url) {
-    (manifest $app $bucket $url).version
+function Get-LatestVersion {
+    <#
+    .SYNOPSIS
+        Get latest version of app
+    .DESCRIPTION
+        Get latest version of app from manifest
+    .PARAMETER App
+        App's name
+    .PARAMETER Bucket
+        Bucket which the app is belong to
+    .PARAMETER URL
+        Remote app manifest's URI
+    #>
+    [OutputType([String])]
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0, ValueFromPipeline = $true)]
+        [String]
+        $App,
+        [Parameter(Position = 1)]
+        [String]
+        $Bucket,
+        [Parameter(Position = 2)]
+        [String]
+        $URL
+    )
+    return (manifest $App $Bucket $URL).version
 }
-function current_version($app, $global) {
-    @(versions $app $global)[-1]
-}
-function versions($app, $global) {
-    $appdir = appdir $app $global
-    if(!(test-path $appdir)) { return @() }
 
-    sort_versions (Get-ChildItem $appdir -dir -attr !reparsePoint | Where-Object { $null -ne $(Get-ChildItem $_.fullname) } | ForEach-Object { $_.name })
+function Select-CurrentVersion {
+    <#
+    .SYNOPSIS
+        Select current version of app
+    .DESCRIPTION
+        Select current version of installed app, from 'current\manifest.json' or modified time of version directory
+    .PARAMETER App
+        App's name
+    .PARAMETER Global
+        If global installed
+    #>
+    [OutputType([String])]
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0, ValueFromPipeline = $true)]
+        [String]
+        $App,
+        [Parameter(Position = 1)]
+        [Switch]
+        $Global
+    )
+
+    $appPath = appdir $App $Global
+    if (Test-Path "$appPath\current") {
+        $currentVersion = (installed_manifest $App 'current' $Global).version
+    } else {
+        $installedVersion = Get-InstalledVersion -App $App -Global:$Global
+        if ($installedVersion) {
+            $currentVersion = $installedVersion[-1]
+        } else {
+            $currentVersion = $null
+        }
+    }
+    return $currentVersion
 }
 
-function version($ver) {
-    $ver -split '[\.-]' | ForEach-Object {
-        $num = $_ -as [int]
-        if($num) { $num } else { $_ }
+function Get-InstalledVersion {
+    <#
+    .SYNOPSIS
+        Get installed version of app
+    .DESCRIPTION
+        Get all installed version of app, by checking version directories' 'install.json'
+    .PARAMETER App
+        App's name
+    .PARAMETER Global
+        If global installed
+    #>
+    [OutputType([Object[]])]
+    [CmdletBinding()]
+    param (
+        [Parameter(Mandatory = $true, Position = 0, ValueFromPipeline = $true)]
+        [String]
+        $App,
+        [Parameter(Position = 1)]
+        [Switch]
+        $Global
+    )
+
+    $appPath = appdir $App $Global
+    if (!(Test-Path $appPath)) {
+        return @()
+    } else {
+        return @((Get-ChildItem "$appPath\*\install.json" | Sort-Object -Property LastWriteTimeUtc).Directory.Name) -ne 'current'
     }
+
+    # Deprecated
+    # sort_versions (Get-ChildItem $appPath -dir -attr !reparsePoint | Where-Object { $null -ne $(Get-ChildItem $_.FullName) } | ForEach-Object { $_.Name })
 }
-function compare_versions($a, $b) {
-    $ver_a = @(version $a)
-    $ver_b = @(version $b)
 
-    for($i=0;$i -lt $ver_a.length;$i++) {
-        if($i -gt $ver_b.length) { return 1; }
+function Compare-Version {
+    <#
+    .SYNOPSIS
+        Compare versions
+    .DESCRIPTION
+        Compare versions, mainly according to SemVer's rules
+    .PARAMETER ReferenceVersion
+        Specifies a version used as a reference for comparison
+    .PARAMETER DifferenceVersion
+        Specifies the version that are compared to the reference version
+    .PARAMETER Delimiter
+        Specifies the delimiter of versions
+    .OUTPUTS
+        System.Int32
+            '0' if DifferenceVersion is equal to ReferenceVersion,
+            '1' if DifferenceVersion is greater then ReferenceVersion,
+            '-1' if DifferenceVersion is less then ReferenceVersion
+    #>
+    [OutputType([Int])]
+    [CmdletBinding()]
+    param (
+        [Parameter(Position = 0)]
+        [String]
+        $ReferenceVersion,
+        [Parameter(Position = 1, ValueFromPipeline = $true)]
+        [String]
+        $DifferenceVersion,
+        [String]
+        $Delimiter = '-'
+    )
+
+    # Use '+' sign as post-release, see https://github.com/lukesampson/scoop/pull/3721#issuecomment-553718093
+    $ReferenceVersion = $ReferenceVersion -replace '\+', '-'
+    $DifferenceVersion = $DifferenceVersion -replace '\+', '-'
+
+    if ($DifferenceVersion -eq $ReferenceVersion) {
+        return 0
+    }
+
+    $splitReferenceVersion = @($ReferenceVersion -split $Delimiter | ForEach-Object { if ($_ -match "^\d+$") { [Long]$_ } else { ($_ -replace '[a-zA-Z]+', '.$&.').Replace('..', '.').Trim('.') } })
+    $splitDifferenceVersion = @($DifferenceVersion -split $Delimiter | ForEach-Object { if ($_ -match "^\d+$") { [Long]$_ } else { ($_ -replace '[a-zA-Z]+', '.$&.').Replace('..', '.').Trim('.') } })
 
-        # don't try to compare int to string
-        if($ver_b[$i] -is [string] -and $ver_a[$i] -isnot [string]) {
-            $ver_a[$i] = "$($ver_a[$i])"
+    if ($splitReferenceVersion[0] -eq 'nightly' -and $splitDifferenceVersion[0] -eq 'nightly') {
+        return 0
+    }
+
+    for ($i = 0; $i -lt [Math]::Max($splitReferenceVersion.Length, $splitDifferenceVersion.Length); $i++) {
+        if ($i -ge $splitReferenceVersion.Length) {
+            if ($splitDifferenceVersion[$i] -match "alpha|beta|rc|pre") {
+                return -1
+            } else {
+                return 1
+            }
+        }
+        if ($i -ge $splitDifferenceVersion.Length) {
+            if ($splitReferenceVersion[$i] -match "alpha|beta|rc|pre") {
+                return 1
+            } else {
+                return -1
+            }
+        }
+
+        if (($splitReferenceVersion[$i] -match "\.") -or ($splitDifferenceVersion[$i] -match "\.")) {
+            $Result = Compare-Version $splitReferenceVersion[$i] $splitDifferenceVersion[$i] -Delimiter '\.'
+            if ($Result -ne 0) {
+                return $Result
+            } else {
+                continue
+            }
         }
 
-        if($ver_a[$i] -gt $ver_b[$i]) { return 1; }
-        if($ver_a[$i] -lt $ver_b[$i]) { return -1; }
+        if ($null -ne $splitReferenceVersion[$i] -and $null -ne $splitDifferenceVersion[$i]) {
+            # don't try to compare int to string
+            if ($splitReferenceVersion[$i] -is [string] -and $splitDifferenceVersion[$i] -isnot [string]) {
+                $splitDifferenceVersion[$i] = "$($splitDifferenceVersion[$i])"
+            }
+            if ($splitDifferenceVersion[$i] -is [string] -and $splitReferenceVersion[$i] -isnot [string]) {
+                $splitReferenceVersion[$i] = "$($splitReferenceVersion[$i])"
+            }
+        }
+
+        if ($splitDifferenceVersion[$i] -gt $splitReferenceVersion[$i]) { return 1 }
+        if ($splitDifferenceVersion[$i] -lt $splitReferenceVersion[$i]) { return -1 }
     }
-    if($ver_b.length -gt $ver_a.length) { return -1 }
+
     return 0
 }
 
+# Deprecated
+# Not used anymore in scoop core
 function qsort($ary, $fn) {
+    warn '"qsort" is deprecated. Please avoid using it anymore.'
     if($null -eq $ary) { return @() }
     if(!($ary -is [array])) { return @($ary) }
 
     $pivot = $ary[0]
     $rem = $ary[1..($ary.length-1)]
 
-    $lesser = qsort ($rem | Where-Object { (& $fn $_ $pivot) -lt 0 }) $fn
+    $lesser = qsort ($rem | Where-Object { (& $fn $pivot $_) -lt 0 }) $fn
 
-    $greater = qsort ($rem | Where-Object { (& $fn $_ $pivot) -ge 0 }) $fn
+    $greater = qsort ($rem | Where-Object { (& $fn $pivot $_) -ge 0 }) $fn
 
     return @() + $lesser + @($pivot) + $greater
 }
-function sort_versions($versions) { qsort $versions compare_versions }
+
+# Deprecated
+# Not used anymore in scoop core
+function sort_versions($versions) {
+    warn '"sort_versions" is deprecated. Please avoid using it anymore.'
+    qsort $versions Compare-Version
+}

libexec/scoop-cleanup.ps1

@@ -31,11 +31,11 @@ if ($global -and !(is_admin)) {
 }
 
 function cleanup($app, $global, $verbose, $cache) {
-    $current_version = current_version $app $global
+    $current_version = Select-CurrentVersion -App $app -Global:$global
     if ($cache) {
         Remove-Item "$cachedir\$app#*" -Exclude "$app#$current_version#*"
     }
-    $versions = versions $app $global | Where-Object { $_ -ne $current_version -and $_ -ne 'current' }
+    $versions = Get-InstalledVersion -App $app -Global:$global | Where-Object { $_ -ne $current_version -and $_ -ne 'current' }
     if (!$versions) {
         if ($verbose) { success "$app is already clean" }
         return

libexec/scoop-export.ps1

@@ -23,7 +23,7 @@ if($apps) {
     $apps | Sort-Object { $_.name } | Where-Object { !$query -or ($_.name -match $query) } | ForEach-Object {
         $app = $_.name
         $global = $_.global
-        $ver = current_version $app $global
+        $ver = Select-CurrentVersion -App $app -Global:$global
         $global_display = $null; if($global) { $global_display = ' *global*'}
 
         $install_info = install_info $app $ver $global

libexec/scoop-info.ps1

@@ -84,7 +84,7 @@ Write-Output "Manifest:`n  $manifest_file"
 if($status.installed) {
     # Show installed versions
     Write-Output "Installed:"
-    $versions = versions $app $global
+    $versions = Get-InstalledVersion -App $app -Global:$global
     $versions | ForEach-Object {
         $dir = versiondir $app $_ $global
         if($global) { $dir += " *global*" }

libexec/scoop-install.ps1

@@ -37,7 +37,7 @@ function is_installed($app, $global) {
     if (installed $app $global) {
         function gf($g) { if ($g) { ' --global' } }
 
-        $version = @(versions $app $global)[-1]
+        $version = Select-CurrentVersion -App $app -Global:$global
         if (!(install_info $app $version $global)) {
             error "It looks like a previous installation of $app failed.`nRun 'scoop uninstall $app$(gf $global)' before retrying the install."
         }
@@ -114,7 +114,7 @@ $apps, $skip = prune_installed $apps $global
 
 $skip | Where-Object { $explicit_apps -contains $_ } | ForEach-Object {
     $app, $null, $null = parse_app $_
-    $version = @(versions $app $global)[-1]
+    $version = Select-CurrentVersion -App $app -Global:$global
     warn "'$app' ($version) is already installed. Skipping."
 }
 

libexec/scoop-list.ps1

@@ -21,7 +21,7 @@ if($apps) {
     $apps | Sort-Object { $_.name } | Where-Object { !$query -or ($_.name -match $query) } | ForEach-Object {
         $app = $_.name
         $global = $_.global
-        $ver = current_version $app $global
+        $ver = Select-CurrentVersion -App $app -Global:$global
 
         $install_info = install_info $app $ver $global
         write-host "  $app " -NoNewline

libexec/scoop-reset.ps1

@@ -45,7 +45,7 @@ $apps | ForEach-Object {
     }
 
     if ($null -eq $version) {
-        $version = current_version $app $global
+        $version = Select-CurrentVersion -App $app -Global:$global
     }
 
     $manifest = installed_manifest $app $version $global

libexec/scoop-search.ps1

@@ -44,7 +44,7 @@ function search_bucket($bucket, $query) {
             }
         }
     }
-    $apps | ForEach-Object { $_.version = (latest_version $_.name $bucket); $_ }
+    $apps | ForEach-Object { $_.version = (Get-LatestVersion $_.name $bucket); $_ }
 }
 
 function download_json($url) {

libexec/scoop-uninstall.ps1

@@ -50,7 +50,7 @@ if (!$apps) { exit 0 }
 :app_loop foreach ($_ in $apps) {
     ($app, $global) = $_
 
-    $version = current_version $app $global
+    $version = Select-CurrentVersion -App $app -Global:$global
     Write-Host "Uninstalling '$app' ($version)."
 
     $dir = versiondir $app $version $global
@@ -101,7 +101,7 @@ if (!$apps) { exit 0 }
     }
 
     # remove older versions
-    $old = @(versions $app $global)
+    $old = Get-InstalledVersion -App $app -Global:$global
     foreach ($oldver in $old) {
         Write-Host "Removing older version ($oldver)."
         $dir = versiondir $app $oldver $global
@@ -115,7 +115,7 @@ if (!$apps) { exit 0 }
         }
     }
 
-    if (@(versions $app $global).length -eq 0) {
+    if ((Get-InstalledVersion -App $app -Global:$global).length -eq 0) {
         $appdir = appdir $app $global
         try {
             # if last install failed, the directory seems to be locked and this