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

annotate share/lua/5.2/luarocks/deps.lua @ 12246:f3be034784d0 draft

<b_jonas> addwhatis brachylog(1egobot) - Brachylog, a Prolog-like golf language

author	HackEso <hackeso@esolangs.org>
date	Thu, 05 Dec 2019 23:44:34 +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 --- Dependency handling functions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	3 -- Dependencies are represented in LuaRocks through strings with
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	4 -- a package name followed by a comma-separated list of constraints.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	5 -- Each constraint consists of an operator and a version number.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	6 -- In this string format, version numbers are represented as
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	7 -- naturally as possible, like they are used by upstream projects
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	8 -- (e.g. "2.0beta3"). Internally, LuaRocks converts them to a purely
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	9 -- numeric representation, allowing comparison following some
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	10 -- "common sense" heuristics. The precise specification of the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	11 -- comparison criteria is the source code of this module, but the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	12 -- test/test_deps.lua file included with LuaRocks provides some
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	13 -- insights on what these criteria are.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	14 module("luarocks.deps", package.seeall)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	15
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	16 local cfg = require("luarocks.cfg")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	17 local manif_core = require("luarocks.manif_core")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	18 local path = require("luarocks.path")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	19 local dir = require("luarocks.dir")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	20 local util = require("luarocks.util")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	21
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	22 local operators = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	23 ["=="] = "==",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	24 ["~="] = "~=",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	25 [">"] = ">",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	26 ["<"] = "<",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	27 [">="] = ">=",
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 ["~>"] = "~>",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	30 -- plus some convenience translations
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	31 [""] = "==",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	32 ["="] = "==",
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	33 ["!="] = "~="
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	34 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	35
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	36 local deltas = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	37 scm = 1000,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	38 cvs = 1000,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	39 rc = -1000,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	40 pre = -10000,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	41 beta = -100000,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	42 alpha = -1000000
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	43 }
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 local version_mt = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	46 --- Equality comparison for versions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	47 -- All version numbers must be equal.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	48 -- If both versions have revision numbers, they must be equal;
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	49 -- otherwise the revision number is ignored.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	50 -- @param v1 table: version table to compare.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	51 -- @param v2 table: version table to compare.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	52 -- @return boolean: true if they are considered equivalent.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	53 __eq = function(v1, v2)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	54 if #v1 ~= #v2 then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	55 return false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	56 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	57 for i = 1, #v1 do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	58 if v1[i] ~= v2[i] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	59 return false
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 if v1.revision and v2.revision then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	63 return (v1.revision == v2.revision)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	64 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	65 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	66 end,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	67 --- Size comparison for versions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	68 -- All version numbers are compared.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	69 -- If both versions have revision numbers, they are compared;
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	70 -- otherwise the revision number is ignored.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	71 -- @param v1 table: version table to compare.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	72 -- @param v2 table: version table to compare.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	73 -- @return boolean: true if v1 is considered lower than v2.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	74 __lt = function(v1, v2)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	75 for i = 1, math.max(#v1, #v2) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	76 local v1i, v2i = v1[i] or 0, v2[i] or 0
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	77 if v1i ~= v2i then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	78 return (v1i < v2i)
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 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	81 if v1.revision and v2.revision then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	82 return (v1.revision < v2.revision)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	83 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	84 return false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	85 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	86 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	87
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	88 local version_cache = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	89 setmetatable(version_cache, {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	90 __mode = "kv"
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
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	93 --- Parse a version string, converting to table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	94 -- A version table contains all components of the version string
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	95 -- converted to numeric format, stored in the array part of the table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	96 -- If the version contains a revision, it is stored numerically
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	97 -- in the 'revision' field. The original string representation of
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	98 -- the string is preserved in the 'string' field.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	99 -- Returned version tables use a metatable
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	100 -- allowing later comparison through relational operators.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	101 -- @param vstring string: A version number in string format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	102 -- @return table or nil: A version table or nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	103 -- if the input string contains invalid characters.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	104 function parse_version(vstring)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	105 if not vstring then return nil end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	106 assert(type(vstring) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	107
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	108 local cached = version_cache[vstring]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	109 if cached then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	110 return cached
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	111 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	112
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	113 local version = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	114 local i = 1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	115
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	116 local function add_token(number)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	117 version[i] = version[i] and version[i] + number/100000 or number
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	118 i = i + 1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	119 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	120
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	121 -- trim leading and trailing spaces
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	122 vstring = vstring:match("^%s(.)%s*$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	123 version.string = vstring
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	124 -- store revision separately if any
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	125 local main, revision = vstring:match("(.*)%-(%d+)$")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	126 if revision then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	127 vstring = main
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	128 version.revision = tonumber(revision)
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 while #vstring > 0 do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	131 -- extract a number
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	132 local token, rest = vstring:match("^(%d+)[%.%-%_](.)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	133 if token then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	134 add_token(tonumber(token))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	135 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	136 -- extract a word
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	137 token, rest = vstring:match("^(%a+)[%.%-%_](.)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	138 if not token then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	139 util.printerr("Warning: version number '"..vstring.."' could not be parsed.")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	140 version[i] = 0
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	141 break
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 local last = #version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	144 version[i] = deltas[token] or (token:byte() / 1000)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	145 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	146 vstring = rest
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	147 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	148 setmetatable(version, version_mt)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	149 version_cache[vstring] = version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	150 return version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	151 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	152
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	153 --- Utility function to compare version numbers given as strings.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	154 -- @param a string: one version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	155 -- @param b string: another version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	156 -- @return boolean: True if a > b.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	157 function compare_versions(a, b)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	158 return parse_version(a) > parse_version(b)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	159 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	160
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	161 --- Consumes a constraint from a string, converting it to table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	162 -- For example, a string ">= 1.0, > 2.0" is converted to a table in the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	163 -- format {op = ">=", version={1,0}} and the rest, "> 2.0", is returned
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	164 -- back to the caller.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	165 -- @param input string: A list of constraints in string format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	166 -- @return (table, string) or nil: A table representing the same
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	167 -- constraints and the string with the unused input, or nil if the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	168 -- input string is invalid.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	169 local function parse_constraint(input)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	170 assert(type(input) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	171
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	172 local no_upgrade, op, version, rest = input:match("^(@?)([<>=~!])%s([%w%.%_%-]+)[%s,](.)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	173 op = operators[op]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	174 version = parse_version(version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	175 if not op or not version then return nil end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	176 return { op = op, version = version, no_upgrade = no_upgrade=="@" and true or nil }, rest
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	177 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	178
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	179 --- Convert a list of constraints from string to table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	180 -- For example, a string ">= 1.0, < 2.0" is converted to a table in the format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	181 -- {{op = ">=", version={1,0}}, {op = "<", version={2,0}}}.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	182 -- Version tables use a metatable allowing later comparison through
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	183 -- relational operators.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	184 -- @param input string: A list of constraints in string format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	185 -- @return table or nil: A table representing the same constraints,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	186 -- or nil if the input string is invalid.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	187 function parse_constraints(input)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	188 assert(type(input) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	189
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	190 local constraints, constraint = {}, nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	191 while #input > 0 do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	192 constraint, input = parse_constraint(input)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	193 if constraint then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	194 table.insert(constraints, constraint)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	195 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	196 return nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	197 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	198 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	199 return constraints
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	200 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	201
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	202 --- Convert a dependency from string to table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	203 -- For example, a string "foo >= 1.0, < 2.0"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	204 -- is converted to a table in the format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	205 -- {name = "foo", constraints = {{op = ">=", version={1,0}},
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	206 -- {op = "<", version={2,0}}}}. Version tables use a metatable
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	207 -- allowing later comparison through relational operators.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	208 -- @param dep string: A dependency in string format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	209 -- as entered in rockspec files.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	210 -- @return table or nil: A table representing the same dependency relation,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	211 -- or nil if the input string is invalid.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	212 function parse_dep(dep)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	213 assert(type(dep) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	214
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	215 local name, rest = dep:match("^%s([a-zA-Z][a-zA-Z0-9%.%-%_])%s(.)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	216 if not name then return nil end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	217 local constraints = parse_constraints(rest)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	218 if not constraints then return nil end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	219 return { name = name, constraints = constraints }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	220 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	221
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	222 --- Convert a version table to a string.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	223 -- @param v table: The version table
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	224 -- @param internal boolean or nil: Whether to display versions in their
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	225 -- internal representation format or how they were specified.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	226 -- @return string: The dependency information pretty-printed as a string.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	227 function show_version(v, internal)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	228 assert(type(v) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	229 assert(type(internal) == "boolean" or not internal)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	230
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	231 return (internal
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	232 and table.concat(v, ":")..(v.revision and tostring(v.revision) or "")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	233 or v.string)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	234 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	235
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	236 --- Convert a dependency in table format to a string.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	237 -- @param dep table: The dependency in table format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	238 -- @param internal boolean or nil: Whether to display versions in their
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	239 -- internal representation format or how they were specified.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	240 -- @return string: The dependency information pretty-printed as a string.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	241 function show_dep(dep, internal)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	242 assert(type(dep) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	243 assert(type(internal) == "boolean" or not internal)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	244
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	245 local pretty = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	246 for _, c in ipairs(dep.constraints) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	247 table.insert(pretty, c.op .. " " .. show_version(c.version, internal))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	248 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	249 return dep.name.." "..table.concat(pretty, ", ")
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
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	252 --- A more lenient check for equivalence between versions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	253 -- This returns true if the requested components of a version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	254 -- match and ignore the ones that were not given. For example,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	255 -- when requesting "2", then "2", "2.1", "2.3.5-9"... all match.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	256 -- When requesting "2.1", then "2.1", "2.1.3" match, but "2.2"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	257 -- doesn't.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	258 -- @param version string or table: Version to be tested; may be
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	259 -- in string format or already parsed into a table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	260 -- @param requested string or table: Version requested; may be
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	261 -- in string format or already parsed into a table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	262 -- @return boolean: True if the tested version matches the requested
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	263 -- version, false otherwise.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	264 local function partial_match(version, requested)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	265 assert(type(version) == "string" or type(version) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	266 assert(type(requested) == "string" or type(version) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	267
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	268 if type(version) ~= "table" then version = parse_version(version) end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	269 if type(requested) ~= "table" then requested = parse_version(requested) end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	270 if not version or not requested then return false end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	271
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	272 for i, ri in ipairs(requested) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	273 local vi = version[i] or 0
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	274 if ri ~= vi then return false end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	275 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	276 if requested.revision then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	277 return requested.revision == version.revision
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	278 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	279 return true
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
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	282 --- Check if a version satisfies a set of constraints.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	283 -- @param version table: A version in table format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	284 -- @param constraints table: An array of constraints in table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	285 -- @return boolean: True if version satisfies all constraints,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	286 -- false otherwise.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	287 function match_constraints(version, constraints)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	288 assert(type(version) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	289 assert(type(constraints) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	290 local ok = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	291 setmetatable(version, version_mt)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	292 for _, constr in pairs(constraints) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	293 local constr_version = constr.version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	294 setmetatable(constr.version, version_mt)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	295 if constr.op == "==" then ok = version == constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	296 elseif constr.op == "~=" then ok = version ~= constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	297 elseif constr.op == ">" then ok = version > constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	298 elseif constr.op == "<" then ok = version < constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	299 elseif constr.op == ">=" then ok = version >= constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	300 elseif constr.op == "<=" then ok = version <= constr_version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	301 elseif constr.op == "~>" then ok = partial_match(version, constr_version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	302 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	303 if not ok then break end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	304 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	305 return ok
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	306 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	307
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	308 --- Attempt to match a dependency to an installed rock.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	309 -- @param dep table: A dependency parsed in table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	310 -- @param blacklist table: Versions that can't be accepted. Table where keys
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	311 -- are program versions and values are 'true'.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	312 -- @return table or nil: A table containing fields 'name' and 'version'
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	313 -- representing an installed rock which matches the given dependency,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	314 -- or nil if it could not be matched.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	315 local function match_dep(dep, blacklist, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	316 assert(type(dep) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	317
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	318 local versions
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	319 if dep.name == "lua" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	320 versions = { cfg.lua_version }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	321 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	322 versions = manif_core.get_versions(dep.name, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	323 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	324 if not versions then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	325 return nil
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 if blacklist then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	328 local i = 1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	329 while versions[i] do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	330 if blacklist[versions[i]] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	331 table.remove(versions, i)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	332 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	333 i = i + 1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	334 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	335 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	336 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	337 local candidates = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	338 for _, vstring in ipairs(versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	339 local version = parse_version(vstring)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	340 if match_constraints(version, dep.constraints) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	341 table.insert(candidates, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	342 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	343 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	344 if #candidates == 0 then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	345 return nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	346 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	347 table.sort(candidates)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	348 return {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	349 name = dep.name,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	350 version = candidates[#candidates].string
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	351 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	352 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	353 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	354
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	355 --- Attempt to match dependencies of a rockspec to installed rocks.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	356 -- @param rockspec table: The rockspec loaded as a table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	357 -- @param blacklist table or nil: Program versions to not use as valid matches.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	358 -- Table where keys are program names and values are tables where keys
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	359 -- are program versions and values are 'true'.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	360 -- @return table, table: A table where keys are dependencies parsed
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	361 -- in table format and values are tables containing fields 'name' and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	362 -- version' representing matches, and a table of missing dependencies
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	363 -- parsed as tables.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	364 function match_deps(rockspec, blacklist, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	365 assert(type(rockspec) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	366 assert(type(blacklist) == "table" or not blacklist)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	367 local matched, missing, no_upgrade = {}, {}, {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	368
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	369 for _, dep in ipairs(rockspec.dependencies) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	370 local found = match_dep(dep, blacklist and blacklist[dep.name] or nil, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	371 if found then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	372 if dep.name ~= "lua" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	373 matched[dep] = found
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	374 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	375 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	376 if dep.constraints[1] and dep.constraints[1].no_upgrade then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	377 no_upgrade[dep.name] = dep
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	378 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	379 missing[dep.name] = dep
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	380 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	381 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	382 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	383 return matched, missing, no_upgrade
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	384 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	385
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	386 --- Return a set of values of a table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	387 -- @param tbl table: The input table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	388 -- @return table: The array of keys.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	389 local function values_set(tbl)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	390 local set = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	391 for _, v in pairs(tbl) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	392 set[v] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	393 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	394 return set
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	395 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	396
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	397 --- Check dependencies of a rock and attempt to install any missing ones.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	398 -- Packages are installed using the LuaRocks "install" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	399 -- Aborts the program if a dependency could not be fulfilled.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	400 -- @param rockspec table: A rockspec in table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	401 -- @return boolean or (nil, string, [string]): True if no errors occurred, or
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	402 -- nil and an error message if any test failed, followed by an optional
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	403 -- error code.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	404 function fulfill_dependencies(rockspec, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	405
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	406 local search = require("luarocks.search")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	407 local install = require("luarocks.install")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	408
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	409 if rockspec.supported_platforms then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	410 if not platforms_set then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	411 platforms_set = values_set(cfg.platforms)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	412 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	413 local supported = nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	414 for _, plat in pairs(rockspec.supported_platforms) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	415 local neg, plat = plat:match("^(!?)(.*)")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	416 if neg == "!" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	417 if platforms_set[plat] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	418 return nil, "This rockspec for "..rockspec.package.." does not support "..plat.." platforms."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	419 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	420 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	421 if platforms_set[plat] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	422 supported = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	423 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	424 if supported == nil then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	425 supported = false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	426 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	427 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	428 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	429 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	430 if supported == false then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	431 local plats = table.concat(cfg.platforms, ", ")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	432 return nil, "This rockspec for "..rockspec.package.." does not support "..plats.." platforms."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	433 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	434 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	435
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	436 local matched, missing, no_upgrade = match_deps(rockspec, nil, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	437
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	438 if next(no_upgrade) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	439 util.printerr("Missing dependencies for "..rockspec.name.." "..rockspec.version..":")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	440 for _, dep in pairs(no_upgrade) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	441 util.printerr(show_dep(dep))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	442 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	443 if next(missing) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	444 for _, dep in pairs(missing) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	445 util.printerr(show_dep(dep))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	446 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	447 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	448 util.printerr()
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	449 for _, dep in pairs(no_upgrade) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	450 util.printerr("This version of "..rockspec.name.." is designed for use with")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	451 util.printerr(show_dep(dep)..", but is configured to avoid upgrading it")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	452 util.printerr("automatically. Please upgrade "..dep.name.." with")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	453 util.printerr(" luarocks install "..dep.name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	454 util.printerr("or choose an older version of "..rockspec.name.." with")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	455 util.printerr(" luarocks search "..rockspec.name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	456 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	457 return nil, "Failed matching dependencies."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	458 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	459
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	460 if next(missing) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	461 util.printerr()
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	462 util.printerr("Missing dependencies for "..rockspec.name..":")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	463 for _, dep in pairs(missing) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	464 util.printerr(show_dep(dep))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	465 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	466 util.printerr()
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	467
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	468 for _, dep in pairs(missing) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	469 -- Double-check in case dependency was filled during recursion.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	470 if not match_dep(dep, nil, deps_mode) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	471 local rock = search.find_suitable_rock(dep)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	472 if not rock then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	473 return nil, "Could not satisfy dependency: "..show_dep(dep)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	474 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	475 local ok, err, errcode = install.run(rock)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	476 if not ok then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	477 return nil, "Failed installing dependency: "..rock.." - "..err, errcode
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	478 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	479 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	480 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	481 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	482 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	483 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	484
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	485 --- If filename matches a pattern, return the capture.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	486 -- For example, given "libfoo.so" and "lib?.so" is a pattern,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	487 -- returns "foo" (which can then be used to build names
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	488 -- based on other patterns.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	489 -- @param file string: a filename
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	490 -- @param pattern string: a pattern, where ? is to be matched by the filename.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	491 -- @return string The pattern, if found, or nil.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	492 local function deconstruct_pattern(file, pattern)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	493 local depattern = "^"..(pattern:gsub("%.", "%%."):gsub("%", "."):gsub("?", "(.*)")).."$"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	494 return (file:match(depattern))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	495 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	496
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	497 --- Construct all possible patterns for a name and add to the files array.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	498 -- Run through the patterns array replacing all occurrences of "?"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	499 -- with the given file name and store them in the files array.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	500 -- @param file string A raw name (e.g. "foo")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	501 -- @param array of string An array of patterns with "?" as the wildcard
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	502 -- (e.g. {"?.so", "lib?.so"})
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	503 -- @param files The array of constructed names
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	504 local function add_all_patterns(file, patterns, files)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	505 for _, pattern in ipairs(patterns) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	506 table.insert(files, (pattern:gsub("?", file)))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	507 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	508 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	509
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	510 --- Set up path-related variables for external dependencies.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	511 -- For each key in the external_dependencies table in the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	512 -- rockspec file, four variables are created: <key>_DIR, <key>_BINDIR,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	513 -- <key>_INCDIR and <key>_LIBDIR. These are not overwritten
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	514 -- if already set (e.g. by the LuaRocks config file or through the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	515 -- command-line). Values in the external_dependencies table
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	516 -- are tables that may contain a "header" or a "library" field,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	517 -- with filenames to be tested for existence.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	518 -- @param rockspec table: The rockspec table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	519 -- @param mode string: if "build" is given, checks all files;
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	520 -- if "install" is given, do not scan for headers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	521 -- @return boolean or (nil, string): True if no errors occurred, or
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	522 -- nil and an error message if any test failed.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	523 function check_external_deps(rockspec, mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	524 assert(type(rockspec) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	525
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	526 local fs = require("luarocks.fs")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	527
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	528 local vars = rockspec.variables
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	529 local patterns = cfg.external_deps_patterns
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	530 local subdirs = cfg.external_deps_subdirs
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	531 if mode == "install" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	532 patterns = cfg.runtime_external_deps_patterns
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	533 subdirs = cfg.runtime_external_deps_subdirs
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	534 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	535 if rockspec.external_dependencies then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	536 for name, files in pairs(rockspec.external_dependencies) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	537 local ok = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	538 local failed_file = nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	539 local failed_dirname = nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	540 for _, extdir in ipairs(cfg.external_deps_dirs) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	541 ok = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	542 local prefix = vars[name.."_DIR"]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	543 local dirs = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	544 BINDIR = { subdir = subdirs.bin, testfile = "program", pattern = patterns.bin },
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	545 INCDIR = { subdir = subdirs.include, testfile = "header", pattern = patterns.include },
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	546 LIBDIR = { subdir = subdirs.lib, testfile = "library", pattern = patterns.lib }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	547 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	548 if mode == "install" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	549 dirs.INCDIR = nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	550 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	551 if not prefix then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	552 prefix = extdir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	553 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	554 if type(prefix) == "table" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	555 if prefix.bin then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	556 dirs.BINDIR.subdir = prefix.bin
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	557 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	558 if prefix.include then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	559 if dirs.INCDIR then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	560 dirs.INCDIR.subdir = prefix.include
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	561 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	562 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	563 if prefix.lib then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	564 dirs.LIBDIR.subdir = prefix.lib
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	565 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	566 prefix = prefix.prefix
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	567 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	568 for dirname, dirdata in pairs(dirs) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	569 dirdata.dir = vars[name.."_"..dirname] or dir.path(prefix, dirdata.subdir)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	570 local file = files[dirdata.testfile]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	571 if file then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	572 local files = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	573 if not file:match("%.") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	574 add_all_patterns(file, dirdata.pattern, files)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	575 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	576 for _, pattern in ipairs(dirdata.pattern) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	577 local matched = deconstruct_pattern(file, pattern)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	578 if matched then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	579 add_all_patterns(matched, dirdata.pattern, files)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	580 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	581 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	582 table.insert(files, file)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	583 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	584 local found = false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	585 failed_file = nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	586 for _, f in pairs(files) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	587 -- small convenience hack
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	588 if f:match("%.so$") or f:match("%.dylib$") or f:match("%.dll$") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	589 f = f:gsub("%.[^.]+$", "."..cfg.external_lib_extension)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	590 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	591 if f:match("%*") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	592 local replaced = f:gsub("%.", "%%."):gsub("%", ".")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	593 for _, entry in ipairs(fs.list_dir(dirdata.dir)) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	594 if entry:match(replaced) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	595 found = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	596 break
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	597 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	598 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	599 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	600 found = fs.is_file(dir.path(dirdata.dir, f))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	601 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	602 if found then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	603 break
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	604 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	605 if failed_file then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	606 failed_file = failed_file .. ", or " .. f
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	607 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	608 failed_file = f
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	609 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	610 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	611 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	612 if not found then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	613 ok = false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	614 failed_dirname = dirname
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	615 break
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	616 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	617 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	618 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	619 if ok then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	620 for dirname, dirdata in pairs(dirs) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	621 vars[name.."_"..dirname] = dirdata.dir
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	622 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	623 vars[name.."_DIR"] = prefix
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	624 break
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	625 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	626 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	627 if not ok then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	628 return nil, "Could not find expected file "..failed_file.." for "..name.." -- you may have to install "..name.." in your system and/or pass "..name.."_DIR or "..name.."_"..failed_dirname.." to the luarocks command. Example: luarocks install "..rockspec.name.." "..name.."_DIR=/usr/local", "dependency"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	629 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	630 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	631 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	632 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	633 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	634
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	635 --- Recursively scan dependencies, to build a transitive closure of all
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	636 -- dependent packages.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	637 -- @param results table: The results table being built.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	638 -- @param missing table: The table of missing dependencies being recursively built.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	639 -- @param manifest table: The manifest table containing dependencies.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	640 -- @param name string: Package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	641 -- @param version string: Package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	642 -- @return (table, table): The results and a table of missing dependencies.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	643 function scan_deps(results, missing, manifest, name, version, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	644 assert(type(results) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	645 assert(type(missing) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	646 assert(type(manifest) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	647 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	648 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	649
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	650 local fetch = require("luarocks.fetch")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	651
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	652 local err
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	653 if results[name] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	654 return results, missing
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	655 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	656 if not manifest.dependencies then manifest.dependencies = {} end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	657 local dependencies = manifest.dependencies
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	658 if not dependencies[name] then dependencies[name] = {} end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	659 local dependencies_name = dependencies[name]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	660 local deplist = dependencies_name[version]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	661 local rockspec, err
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	662 if not deplist then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	663 rockspec, err = fetch.load_local_rockspec(path.rockspec_file(name, version))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	664 if err then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	665 missing[name.." "..version] = err
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	666 return results, missing
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	667 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	668 dependencies_name[version] = rockspec.dependencies
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	669 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	670 rockspec = { dependencies = deplist }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	671 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	672 local matched, failures = match_deps(rockspec, nil, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	673 for _, match in pairs(matched) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	674 results, missing = scan_deps(results, missing, manifest, match.name, match.version, deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	675 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	676 if next(failures) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	677 for _, failure in pairs(failures) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	678 missing[show_dep(failure)] = "failed"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	679 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	680 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	681 results[name] = version
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	682 return results, missing
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	683 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	684
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	685 local valid_deps_modes = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	686 one = true,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	687 order = true,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	688 all = true,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	689 none = true,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	690 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	691
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	692 function check_deps_mode_flag(flag)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	693 return valid_deps_modes[flag]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	694 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	695
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	696 function get_deps_mode(flags)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	697 if flags["deps-mode"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	698 return flags["deps-mode"]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	699 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	700 return cfg.deps_mode
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	701 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	702 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	703
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	704 function deps_mode_to_flag(deps_mode)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	705 return "--deps-mode="..deps_mode
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	706 end

Mercurial > repo

annotate share/lua/5.2/luarocks/deps.lua @ 12246:f3be034784d0 draft