Mercurial > repo
view share/lua/5.2/luarocks/fetch/hg.lua @ 12069:aa6130068d58 draft
<fizzie> sled /hackenv/bin/plwd//s|cd wisdom|cd $HACKENV/wisdom|
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sat, 16 Nov 2019 21:49:49 +0000 |
parents | d137f631bad5 |
children |
line wrap: on
line source
--- Fetch back-end for retrieving sources from HG. module("luarocks.fetch.hg", package.seeall) 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 get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local hg_cmd = rockspec.variables.HG 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", 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 fs.change_dir(store_dir) if not fs.execute(unpack(command)) then return nil, "Failed cloning hg repository." end fs.change_dir(module) 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