/repo: share/lua/5.2/luarocks/path.lua annotate

annotate share/lua/5.2/luarocks/path.lua @ 12500:e48c08805365 draft default tip

<b_jonas> ` learn \'The password of the month is Cthulhuquagdonic Mothraquagdonic Narwhalicorn.\' # https://logs.esolangs.org/libera-esolangs/2024-04.html#lKE Infinite craft

author	HackEso <hackeso@esolangs.org>
date	Wed, 01 May 2024 06:39:10 +0000
parents	d137f631bad5
children

rev	line source
1132 d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	2 --- LuaRocks-specific path handling functions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	3 -- All paths are configured in this module, making it a single
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	4 -- point where the layout of the local installation is defined in LuaRocks.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	5 module("luarocks.path", package.seeall)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	6
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	7 local dir = require("luarocks.dir")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	8 local cfg = require("luarocks.cfg")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	9 local util = require("luarocks.util")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	10 local deps = require("luarocks.deps")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	11
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	12 help_summary = "Return the currently configured package path."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	13 help_arguments = ""
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	14 help = [[
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	15 Returns the package path currently configured for this installation
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	16 of LuaRocks, formatted as shell commands to update LUA_PATH and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	17 LUA_CPATH. (On Unix systems, you may run: eval `luarocks path`)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	18 ]]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	19
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	20 --- Infer rockspec filename from a rock filename.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	21 -- @param rock_name string: Pathname of a rock file.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	22 -- @return string: Filename of the rockspec, without path.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	23 function rockspec_name_from_rock(rock_name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	24 assert(type(rock_name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	25 local base_name = dir.base_name(rock_name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	26 return base_name:match("(.)%.[^.].rock") .. ".rockspec"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	27 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	28
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	29 function rocks_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	30 if type(tree) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	31 return dir.path(tree, "lib", "luarocks", "rocks")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	32 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	33 assert(type(tree) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	34 return tree.rocks_dir or dir.path(tree.root, "lib", "luarocks", "rocks")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	35 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	36 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	37
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	38 function root_dir(rocks_dir)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	39 assert(type(rocks_dir) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	40
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	41 local suffix = dir.path("lib", "luarocks")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	42 return rocks_dir:match("(.)" .. suffix .. ".$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	43 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	44
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	45 function deploy_bin_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	46 if type(tree) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	47 return dir.path(tree, "bin")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	48 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	49 assert(type(tree) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	50 return tree.bin_dir or dir.path(tree.root, "bin")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	51 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	52 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	53
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	54 function deploy_lua_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	55 if type(tree) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	56 return dir.path(tree, cfg.lua_modules_path)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	57 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	58 assert(type(tree) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	59 return tree.lua_dir or dir.path(tree.root, cfg.lua_modules_path)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	60 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	61 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	62
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	63 function deploy_lib_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	64 if type(tree) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	65 return dir.path(tree, cfg.lib_modules_path)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	66 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	67 assert(type(tree) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	68 return tree.lib_dir or dir.path(tree.root, cfg.lib_modules_path)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	69 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	70 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	71
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	72 function manifest_file(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	73 if type(tree) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	74 return dir.path(tree, "lib", "luarocks", "rocks", "manifest")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	75 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	76 assert(type(tree) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	77 return (tree.rocks_dir and dir.path(tree.rocks_dir, "manifest")) or dir.path(tree.root, "lib", "luarocks", "rocks", "manifest")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	78 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	79 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	80
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	81 --- Get the directory for all versions of a package in a tree.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	82 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	83 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	84 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	85 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	86 function versions_dir(name, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	87 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	88 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	89 return dir.path(rocks_dir(tree), name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	90 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	91
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	92 --- Get the local installation directory (prefix) for a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	93 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	94 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	95 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	96 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	97 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	98 function install_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	99 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	100 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	101 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	102 return dir.path(rocks_dir(tree), name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	103 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	104
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	105 --- Get the local filename of the rockspec of an installed rock.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	106 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	107 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	108 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	109 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	110 -- the package (and by extension, the file) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	111 function rockspec_file(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	112 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	113 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	114 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	115 return dir.path(rocks_dir(tree), name, version, name.."-"..version..".rockspec")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	116 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	117
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	118 --- Get the local filename of the rock_manifest file of an installed rock.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	119 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	120 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	121 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	122 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	123 -- the package (and by extension, the file) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	124 function rock_manifest_file(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	125 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	126 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	127 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	128 return dir.path(rocks_dir(tree), name, version, "rock_manifest")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	129 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	130
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	131 --- Get the local installation directory for C libraries of a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	132 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	133 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	134 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	135 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	136 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	137 function lib_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	138 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	139 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	140 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	141 return dir.path(rocks_dir(tree), name, version, "lib")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	142 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	143
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	144 --- Get the local installation directory for Lua modules of a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	145 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	146 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	147 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	148 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	149 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	150 function lua_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	151 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	152 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	153 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	154 return dir.path(rocks_dir(tree), name, version, "lua")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	155 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	156
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	157 --- Get the local installation directory for documentation of a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	158 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	159 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	160 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	161 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	162 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	163 function doc_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	164 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	165 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	166 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	167 return dir.path(rocks_dir(tree), name, version, "doc")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	168 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	169
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	170 --- Get the local installation directory for configuration files of a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	171 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	172 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	173 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	174 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	175 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	176 function conf_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	177 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	178 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	179 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	180 return dir.path(rocks_dir(tree), name, version, "conf")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	181 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	182
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	183 --- Get the local installation directory for command-line scripts
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	184 -- of a package.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	185 -- @param name string: The package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	186 -- @param version string: The package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	187 -- @param tree string or nil: If given, specifies the local tree to use.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	188 -- @return string: The resulting path -- does not guarantee that
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	189 -- the package (and by extension, the path) exists.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	190 function bin_dir(name, version, tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	191 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	192 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	193 tree = tree or cfg.root_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	194 return dir.path(rocks_dir(tree), name, version, "bin")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	195 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	196
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	197 --- Extract name, version and arch of a rock filename,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	198 -- or name, version and "rockspec" from a rockspec name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	199 -- @param file_name string: pathname of a rock or rockspec
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	200 -- @return (string, string, string) or nil: name, version and arch
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	201 -- or nil if name could not be parsed
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	202 function parse_name(file_name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	203 assert(type(file_name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	204 if file_name:match("%.rock$") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	205 return dir.base_name(file_name):match("(.*)-([^-]+-%d+)%.([^.]+)%.rock$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	206 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	207 return dir.base_name(file_name):match("(.*)-([^-]+-%d+)%.(rockspec)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	208 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	209 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	210
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	211 --- Make a rockspec or rock URL.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	212 -- @param pathname string: Base URL or pathname.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	213 -- @param name string: Package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	214 -- @param version string: Package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	215 -- @param arch string: Architecture identifier, or "rockspec" or "installed".
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	216 -- @return string: A URL or pathname following LuaRocks naming conventions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	217 function make_url(pathname, name, version, arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	218 assert(type(pathname) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	219 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	220 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	221 assert(type(arch) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	222
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	223 local filename = name.."-"..version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	224 if arch == "installed" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	225 filename = dir.path(name, version, filename..".rockspec")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	226 elseif arch == "rockspec" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	227 filename = filename..".rockspec"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	228 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	229 filename = filename.."."..arch..".rock"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	230 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	231 return dir.path(pathname, filename)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	232 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	233
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	234 --- Convert a pathname to a module identifier.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	235 -- In Unix, for example, a path "foo/bar/baz.lua" is converted to
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	236 -- "foo.bar.baz"; "bla/init.lua" returns "bla"; "foo.so" returns "foo".
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	237 -- @param file string: Pathname of module
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	238 -- @return string: The module identifier, or nil if given path is
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	239 -- not a conformant module path (the function does not check if the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	240 -- path actually exists).
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	241 function path_to_module(file)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	242 assert(type(file) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	243
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	244 local name = file:match("(.*)%."..cfg.lua_extension.."$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	245 if name then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	246 name = name:gsub(dir.separator, ".")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	247 local init = name:match("(.*)%.init$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	248 if init then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	249 name = init
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	250 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	251 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	252 name = file:match("(.*)%."..cfg.lib_extension.."$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	253 if name then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	254 name = name:gsub(dir.separator, ".")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	255 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	256 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	257 if not name then name = file end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	258 name = name:gsub("^%.+", ""):gsub("%.+$", "")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	259 return name
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	260 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	261
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	262 --- Obtain the directory name where a module should be stored.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	263 -- For example, on Unix, "foo.bar.baz" will return "foo/bar".
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	264 -- @param mod string: A module name in Lua dot-separated format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	265 -- @return string: A directory name using the platform's separator.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	266 function module_to_path(mod)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	267 assert(type(mod) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	268 return (mod:gsub("[^.]*$", ""):gsub("%.", dir.separator))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	269 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	270
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	271 --- Set up path-related variables for a given rock.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	272 -- Create a "variables" table in the rockspec table, containing
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	273 -- adjusted variables according to the configuration file.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	274 -- @param rockspec table: The rockspec table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	275 function configure_paths(rockspec)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	276 assert(type(rockspec) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	277 local vars = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	278 for k,v in pairs(cfg.variables) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	279 vars[k] = v
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	280 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	281 local name, version = rockspec.name, rockspec.version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	282 vars.PREFIX = install_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	283 vars.LUADIR = lua_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	284 vars.LIBDIR = lib_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	285 vars.CONFDIR = conf_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	286 vars.BINDIR = bin_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	287 vars.DOCDIR = doc_dir(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	288 rockspec.variables = vars
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	289 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	290
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	291 function versioned_name(file, prefix, name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	292 assert(type(file) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	293 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	294 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	295
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	296 local rest = file:sub(#prefix+1):gsub("^/*", "")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	297 local name_version = (name.."_"..version):gsub("%-", "_"):gsub("%.", "_")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	298 return dir.path(prefix, name_version.."-"..rest)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	299 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	300
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	301 function use_tree(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	302 cfg.root_dir = tree
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	303 cfg.rocks_dir = rocks_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	304 cfg.deploy_bin_dir = deploy_bin_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	305 cfg.deploy_lua_dir = deploy_lua_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	306 cfg.deploy_lib_dir = deploy_lib_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	307 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	308
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	309 function map_trees(deps_mode, fn, ...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	310 local result = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	311 if deps_mode == "one" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	312 table.insert(result, (fn(cfg.root_dir, ...)) or 0)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	313 elseif deps_mode == "all" or deps_mode == "order" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	314 local use = false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	315 if deps_mode == "all" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	316 use = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	317 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	318 for _, tree in ipairs(cfg.rocks_trees) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	319 if dir.normalize(tree) == dir.normalize(cfg.root_dir) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	320 use = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	321 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	322 if use then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	323 table.insert(result, (fn(tree, ...)) or 0)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	324 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	325 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	326 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	327 return result
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	328 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	329
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	330 --- Return the pathname of the file that would be loaded for a module, indexed.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	331 -- @param module_name string: module name (eg. "socket.core")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	332 -- @param name string: name of the package (eg. "luasocket")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	333 -- @param version string: version number (eg. "2.0.2-1")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	334 -- @param tree string: repository path (eg. "/usr/local")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	335 -- @param i number: the index, 1 if version is the current default, > 1 otherwise.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	336 -- This is done this way for use by select_module in luarocks.loader.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	337 -- @return string: filename of the module (eg. "/usr/local/lib/lua/5.1/socket/core.so")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	338 function which_i(module_name, name, version, tree, i)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	339 local deploy_dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	340 if module_name:match("%.lua$") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	341 deploy_dir = deploy_lua_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	342 module_name = dir.path(deploy_dir, module_name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	343 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	344 deploy_dir = deploy_lib_dir(tree)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	345 module_name = dir.path(deploy_dir, module_name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	346 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	347 if i > 1 then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	348 module_name = versioned_name(module_name, deploy_dir, name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	349 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	350 return module_name
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	351 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	352
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	353 --- Return the pathname of the file that would be loaded for a module,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	354 -- returning the versioned pathname if given version is not the default version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	355 -- in the given manifest.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	356 -- @param module_name string: module name (eg. "socket.core")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	357 -- @param name string: name of the package (eg. "luasocket")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	358 -- @param version string: version number (eg. "2.0.2-1")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	359 -- @param tree string: repository path (eg. "/usr/local")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	360 -- @param manifest table: the manifest table for the tree.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	361 -- @return string: filename of the module (eg. "/usr/local/lib/lua/5.1/socket/core.so")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	362 function which(module_name, filename, name, version, tree, manifest)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	363 local versions = manifest.modules[module_name]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	364 assert(versions)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	365 for i, name_version in ipairs(versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	366 if name_version == name.."/"..version then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	367 return which_i(filename, name, version, tree, i):gsub("//", "/")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	368 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	369 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	370 assert(false)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	371 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	372
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	373 --- Driver function for "path" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	374 -- @return boolean This function always succeeds.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	375 function run(...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	376 local flags = util.parse_flags(...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	377 local deps_mode = deps.get_deps_mode(flags)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	378
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	379 util.printout(cfg.export_lua_path:format(util.remove_path_dupes(package.path, ';')))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	380 util.printout(cfg.export_lua_cpath:format(util.remove_path_dupes(package.cpath, ';')))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	381 if flags["bin"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	382 local bin_dirs = map_trees(deps_mode, deploy_bin_dir)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	383 table.insert(bin_dirs, 1, os.getenv("PATH"))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	384 util.printout(cfg.export_path:format(util.remove_path_dupes(table.concat(bin_dirs, cfg.export_path_separator), cfg.export_path_separator)))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	385 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	386 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	387 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	388

Mercurial > repo

annotate share/lua/5.2/luarocks/path.lua @ 12500:e48c08805365 draft default tip