Add types to argparse and alt_getopt

library/lua/3rdparty/alt_getopt.lua

@@ -45,6 +45,9 @@
 
 local _ENV = mkmodule('3rdparty.alt_getopt')
 
+---@nodiscard
+---@param opts string
+---@return table<string, string|integer>
 local function get_opt_map(opts)
     local i = 1
     local len = #opts
@@ -57,11 +60,16 @@ local function get_opt_map(opts)
     return options
 end
 
+---@param opt string|integer
 local function err_unknown_opt(opt)
     qerror(string.format('Unknown option "-%s%s"', #opt > 1 and '-' or '', opt))
 end
 
 -- resolve aliases into their canonical forms
+---@nodiscard
+---@param options table<string, string|integer>
+---@param opt string|integer
+---@return integer
 local function canonicalize(options, opt)
     if not options[opt] then
         err_unknown_opt(opt)
@@ -80,14 +88,26 @@ local function canonicalize(options, opt)
                 'Option "%s" resolves to non-number for has_arg flag', opt))
     end
 
+    ---@type integer
     return opt
 end
 
+---@nodiscard
+---@param options table<string, string|integer>
+---@param opt string|integer
+---@return boolean
 local function has_arg(options, opt)
     return options[canonicalize(options, opt)] == 1
 end
 
 -- returns vectors for opts, optargs, and nonoptions
+---@nodiscard
+---@param args string[] e.g, { ... }
+---@param sh_opts string e.g., 'ak:hv'
+---@param long_opts table<string, string|integer>
+---@return string[] opts
+---@return string[] optargs
+---@return string[] nonoptions
 function get_ordered_opts(args, sh_opts, long_opts)
     local optind, count, opts, optargs, nonoptions = 1, 1, {}, {}, {}
 
@@ -159,6 +179,12 @@ end
 
 -- returns a map of options to their optargs (or 1 if the option doesn't take an
 -- argument), and a vector for nonoptions
+---@nodiscard
+---@param args string[]
+---@param sh_opts string
+---@param long_opts string[]
+---@return table
+---@return string[]
 function get_opts(args, sh_opts, long_opts)
     local ret = {}
 

library/lua/argparse.lua

@@ -4,6 +4,10 @@ local _ENV = mkmodule('argparse')
 
 local getopt = require('3rdparty.alt_getopt')
 
+---@nodiscard
+---@param args string[] Most commonly `{ ... }`
+---@param validArgs table<string, integer> Use `utils.invert`
+---@return table<string, string[]|nil>
 function processArgs(args, validArgs)
     local result = {}
     local argName
@@ -58,25 +62,34 @@ function processArgs(args, validArgs)
     return result
 end
 
+---@class argparse.OptionAction
+---@field [1] string|nil Short option (eg. "q")
+---@field [2] string|nil Long option (eg. "quiet")
+---@field handler fun(optarg?: string)
+---@field hasArg boolean|nil
+
 -- See online docs for full usage info.
 --
 -- Quick example:
 --
--- local args = {...}
--- local open_readonly, filename = false, nil     -- set defaults
+--     local args = {...}
+--     local open_readonly, filename = false, nil     -- set defaults
 --
--- local positionals = argparse.processArgsGetopt(args, {
---   {'r', handler=function() open_readonly = true end},
---   {'f', 'filename', hasArg=true,
---    handler=function(optarg) filename = optarg end}
---   })
+--     local positionals = argparse.processArgsGetopt(args, {
+--       {'r', handler=function() open_readonly = true end},
+--       {'f', 'filename', hasArg=true,
+--       handler=function(optarg) filename = optarg end}
+--     })
 --
 -- In this example, if args is {'first', '-rf', 'fname', 'second'} or,
 -- equivalently, {'first', '-r', '--filename', 'myfile.txt', 'second'} (note the
 -- double dash in front of the long option alias), then:
 --   open_readonly == true
 --   filename == 'myfile.txt'
 --   positionals == {'first', 'second'}.
+---@param args string[] Most commonly `{ ... }`
+---@param optionActions argparse.OptionAction[]
+---@return string[] positionals # Positional arguments
 function processArgsGetopt(args, optionActions)
     local sh_opts, long_opts = '', {}
     local handlers = {}
@@ -120,6 +133,9 @@ function processArgsGetopt(args, optionActions)
     return nonoptions
 end
 
+---@param arg_name? string
+---@param fmt string
+---@param ... any
 local function arg_error(arg_name, fmt, ...)
     local prefix = ''
     if arg_name and #arg_name > 0 then
@@ -128,6 +144,11 @@ local function arg_error(arg_name, fmt, ...)
     qerror(('%s'..fmt):format(prefix, ...))
 end
 
+---@nodiscard
+---@param arg string
+---@param arg_name? string
+---@param list_length? integer
+---@return string[]
 function stringList(arg, arg_name, list_length)
     if not list_length then list_length = 0 end
     local list = arg and (arg):split(',') or {}
@@ -141,7 +162,13 @@ function stringList(arg, arg_name, list_length)
     return list
 end
 
+---@nodiscard
+---@param arg string
+---@param arg_name? string
+---@param list_length? integer
+---@return integer[]
 function numberList(arg, arg_name, list_length)
+    ---@type integer[]
     local strings = stringList(arg, arg_name, list_length)
     for i,str in ipairs(strings) do
         local num = tonumber(str)
@@ -153,6 +180,10 @@ function numberList(arg, arg_name, list_length)
     return strings
 end
 
+---@nodiscard
+---@param arg integer
+---@param arg_name? string
+---@return number
 function positiveInt(arg, arg_name)
     local val = tonumber(arg)
     if not val or val <= 0 or val ~= math.floor(val) then
@@ -162,6 +193,10 @@ function positiveInt(arg, arg_name)
     return val
 end
 
+---@nodiscard
+---@param arg integer
+---@param arg_name? string
+---@return number
 function nonnegativeInt(arg, arg_name)
     local val = tonumber(arg)
     if not val or val < 0 or val ~= math.floor(val) then
@@ -171,6 +206,11 @@ function nonnegativeInt(arg, arg_name)
     return val
 end
 
+---@nodiscard
+---@param arg string|'here'
+---@param arg_name? string
+---@param skip_validation? boolean
+---@return global.T_cursor|coord
 function coords(arg, arg_name, skip_validation)
     if arg == 'here' then
         local guidm = require('gui.dwarfmode')  -- globals may not be available yet
@@ -198,6 +238,10 @@ end
 
 local toBool={["true"]=true,["yes"]=true,["y"]=true,["on"]=true,["1"]=true,
               ["false"]=false,["no"]=false,["n"]=false,["off"]=false,["0"]=false}
+---@nodiscard
+---@param arg string
+---@param arg_name? string
+---@return boolean
 function boolean(arg, arg_name)
     local arg_lower = string.lower(arg)
     if toBool[arg_lower] == nil then

library/lua/dfhack.lua

@@ -376,7 +376,7 @@ function printall_recurse(value, seen)
 end
 
 ---@generic T
----@param table `T`
+---@param table T
 ---@return T
 function copyall(table)
     local rv = {}

library/lua/gui/dwarfmode.lua

@@ -36,6 +36,7 @@ function getPanelLayout()
     }
 end
 
+---@return global.T_cursor|nil
 function getCursorPos()
     if g_cursor.x >= 0 then
         return copyall(g_cursor)

library/lua/utils.lua

@@ -575,6 +575,9 @@ function normalizePath(path)
     return path:gsub(PLATFORM_SLASH, '/'):gsub('/+', '/')
 end
 
+---@nodiscard
+---@param tab table
+---@return table<string, integer>
 function invert(tab)
     local result = {}
     for k,v in pairs(tab) do
@@ -586,9 +589,16 @@ end
 -- processArgs() and processArgsGetopt() have been moved to argparse.lua.
 -- The 'require' statements are within the functions to avoid adding hard
 -- dependencies to utils.lua (which could lead to circular dependency issues).
+---@nodiscard
+---@param args string[] Most commonly `{ ... }`
+---@param validArgs table<string, integer> Use `utils.invert`
+---@return table<string, string|string[]|nil>
 function processArgs(args, validArgs)
     return require('argparse').processArgs(args, validArgs)
 end
+---@param args string[] Most commonly `{ ... }`
+---@param optionActions argparse.OptionAction[]
+---@return nil
 function processArgsGetopt(args, optionActions)
     return require('argparse').processArgsGetopt(args, optionActions)
 end