Teal: convert luarocks.cmd.list

1 files changed, 27 insertions, 10 deletions

diff --git a/src/luarocks/cmd/list.lua b/src/luarocks/cmd/list.tl
index 7b2682f6..9a0948f0 100644
--- a/src/luarocks/cmd/list.lua
+++ b/src/luarocks/cmd/list.tl
@@ -1,7 +1,14 @@
 
 --- Module implementing the LuaRocks "list" command.
 -- Lists currently installed rocks.
-local list = {}
+local record list
+   record Outdated
+      name: string
+      installed: string
+      available: string
+      repo: string
+   end
+end
 
 local search = require("luarocks.search")
 local queries = require("luarocks.queries")
@@ -10,7 +17,17 @@ local cfg = require("luarocks.core.cfg")
 local util = require("luarocks.util")
 local path = require("luarocks.path")
 
-function list.add_to_parser(parser)
+local type Outdated = list.Outdated
+
+local type Parser = require("luarocks.vendor.argparse").Parser
+
+local type Args = require("luarocks.core.types.args").Args
+
+local type Tree = require("luarocks.core.types.tree").Tree
+
+local type Query = require("luarocks.core.types.query").Query
+
+function list.add_to_parser(parser: Parser)
    local cmd = parser:command("list", "List currently installed rocks.", util.see_also())
 
    cmd:argument("filter", "A substring of a rock name to filter by.")
@@ -23,19 +40,19 @@ function list.add_to_parser(parser)
    cmd:flag("--porcelain", "Produce machine-friendly output.")
 end
 
-local function check_outdated(trees, query)
+local function check_outdated(trees: {string | Tree}, query: Query): {Outdated}
    local results_installed = {}
    for _, tree in ipairs(trees) do
       search.local_manifest_search(results_installed, path.rocks_dir(tree), query)
    end
-   local outdated = {}
+   local outdated: {Outdated} = {}
    for name, versions in util.sortedpairs(results_installed) do
-      versions = util.keys(versions)
-      table.sort(versions, vers.compare_versions)
-      local latest_installed = versions[1]
+      local versionsk = util.keys(versions)
+      table.sort(versionsk, vers.compare_versions)
+      local latest_installed = versionsk[1]
 
       local query_available = queries.new(name:lower())
-      local results_available, err = search.search_repos(query_available)
+      local results_available = search.search_repos(query_available)
 
       if results_available[name] then
          local available_versions = util.keys(results_available[name])
@@ -51,7 +68,7 @@ local function check_outdated(trees, query)
    return outdated
 end
 
-local function list_outdated(trees, query, porcelain)
+local function list_outdated(trees: {string | Tree}, query: Query, porcelain: boolean): boolean
    util.title("Outdated rocks:", porcelain)
    local outdated = check_outdated(trees, query)
    for _, item in ipairs(outdated) do
@@ -68,7 +85,7 @@ end
 
 --- Driver function for "list" command.
 -- @return boolean: True if succeeded, nil on errors.
-function list.command(args)
+function list.command(args: Args): boolean, string
    local query = queries.new(args.filter and args.filter:lower() or "", args.namespace, args.version, true)
    local trees = cfg.rocks_trees
    local title = "Rocks installed for Lua "..cfg.lua_version