From 5a3fab9fca93c6f586b9bd34954a1bf3e9d2ea4f Mon Sep 17 00:00:00 2001
From: V1K1NGbg <victor@ilchev.com>
Date: Thu, 22 Aug 2024 17:49:05 -0300
Subject: Teal: convert luarocks.fetch.hg

---
 src/luarocks/fetch/hg.lua | 65 -----------------------------------------------
 src/luarocks/fetch/hg.tl  | 64 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+), 65 deletions(-)
 delete mode 100644 src/luarocks/fetch/hg.lua
 create mode 100644 src/luarocks/fetch/hg.tl

diff --git a/src/luarocks/fetch/hg.lua b/src/luarocks/fetch/hg.lua
deleted file mode 100644
index 0ef0f5e4..00000000
--- a/src/luarocks/fetch/hg.lua
+++ /dev/null
@@ -1,65 +0,0 @@
-
---- Fetch back-end for retrieving sources from HG.
-local hg = {}
-
-local unpack = unpack or table.unpack
-
-local fs = require("luarocks.fs")
-local dir = require("luarocks.dir")
-local util = require("luarocks.util")
-
---- Download sources for building a rock, using hg.
--- @param rockspec table: The rockspec table
--- @param extract boolean: Unused in this module (required for API purposes.)
--- @param dest_dir string or nil: If set, will extract to the given directory.
--- @return (string, string) or (nil, string): The absolute pathname of
--- the fetched source tarball and the temporary directory created to
--- store it; or nil and an error message.
-function hg.get_sources(rockspec, extract, dest_dir)
-   assert(rockspec:type() == "rockspec")
-   assert(type(dest_dir) == "string" or not dest_dir)
-
-   local hg_cmd = rockspec.variables.HG
-   local ok, err_msg = fs.is_tool_available(hg_cmd, "Mercurial")
-   if not ok then
-      return nil, err_msg
-   end
-
-   local name_version = rockspec.name .. "-" .. rockspec.version
-   -- Strip off special hg:// protocol type
-   local url = rockspec.source.url:gsub("^hg://", "")
-
-   local module = dir.base_name(url)
-
-   local command = {hg_cmd, "clone", url, module}
-   local tag_or_branch = rockspec.source.tag or rockspec.source.branch
-   if tag_or_branch then
-      command = {hg_cmd, "clone", "--rev", tag_or_branch, url, module}
-   end
-   local store_dir
-   if not dest_dir then
-      store_dir = fs.make_temp_dir(name_version)
-      if not store_dir then
-         return nil, "Failed creating temporary directory."
-      end
-      util.schedule_function(fs.delete, store_dir)
-   else
-      store_dir = dest_dir
-   end
-   local ok, err = fs.change_dir(store_dir)
-   if not ok then return nil, err end
-   if not fs.execute(unpack(command)) then
-      return nil, "Failed cloning hg repository."
-   end
-   ok, err = fs.change_dir(module)
-   if not ok then return nil, err end
-
-   fs.delete(dir.path(store_dir, module, ".hg"))
-   fs.delete(dir.path(store_dir, module, ".hgignore"))
-   fs.pop_dir()
-   fs.pop_dir()
-   return module, store_dir
-end
-
-
-return hg
diff --git a/src/luarocks/fetch/hg.tl b/src/luarocks/fetch/hg.tl
new file mode 100644
index 00000000..3f94cee1
--- /dev/null
+++ b/src/luarocks/fetch/hg.tl
@@ -0,0 +1,64 @@
+
+--- Fetch back-end for retrieving sources from HG.
+local record hg
+end
+
+local fs = require("luarocks.fs")
+local dir = require("luarocks.dir")
+local util = require("luarocks.util")
+
+local type Rockspec = require("luarocks.core.types.rockspec").Rockspec
+
+--- Download sources for building a rock, using hg.
+-- @param rockspec table: The rockspec table
+-- @param extract boolean: Unused in this module (required for API purposes.)
+-- @param dest_dir string or nil: If set, will extract to the given directory.
+-- @return (string, string) or (nil, string): The absolute pathname of
+-- the fetched source tarball and the temporary directory created to
+-- store it; or nil and an error message.
+function hg.get_sources(rockspec: Rockspec, extract: boolean, dest_dir?: string): string, string
+
+   local hg_cmd = rockspec.variables.HG
+   local ok_available, err_msg = fs.is_tool_available(hg_cmd, "Mercurial")
+   if not ok_available then
+      return nil, err_msg
+   end
+
+   local name_version = rockspec.name .. "-" .. rockspec.version
+   -- Strip off special hg:// protocol type
+   local url = rockspec.source.url:gsub("^hg://", "")
+
+   local module = dir.base_name(url)
+
+   local command = {hg_cmd, "clone", url, module}
+   local tag_or_branch = rockspec.source.tag or rockspec.source.branch
+   if tag_or_branch then
+      command = {hg_cmd, "clone", "--rev", tag_or_branch, url, module}
+   end
+   local store_dir: string
+   if not dest_dir then
+      store_dir = fs.make_temp_dir(name_version)
+      if not store_dir then
+         return nil, "Failed creating temporary directory."
+      end
+      util.schedule_function(fs.delete, store_dir)
+   else
+      store_dir = dest_dir
+   end
+   local ok, err = fs.change_dir(store_dir)
+   if not ok then return nil, err end
+   if not fs.execute(table.unpack(command)) then
+      return nil, "Failed cloning hg repository."
+   end
+   ok, err = fs.change_dir(module)
+   if not ok then return nil, err end
+
+   fs.delete(dir.path(store_dir, module, ".hg"))
+   fs.delete(dir.path(store_dir, module, ".hgignore"))
+   fs.pop_dir()
+   fs.pop_dir()
+   return module, store_dir
+end
+
+
+return hg
-- 
cgit v1.2.3-55-g6feb