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

annotate share/lua/5.2/luarocks/search.lua @ 7946:8ecffca9813d

<moon__> mkx bin/hfs//erro \'You have discovered an eerie cavern. The air aboe the dark stone floor is alive ith vortices of purple light and dark, boiling clouds. Seemingly bottemless pits mark the surface. "$1" stand below\'

author	HackBot
date	Sat, 07 May 2016 18:36:18 +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 --- Module implementing the LuaRocks "search" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	3 -- Queries LuaRocks servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	4 module("luarocks.search", package.seeall)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	5
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	6 local dir = require("luarocks.dir")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	7 local path = require("luarocks.path")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	8 local manif = require("luarocks.manif")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	9 local deps = require("luarocks.deps")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	10 local cfg = require("luarocks.cfg")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	11 local util = require("luarocks.util")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	12
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	13 help_summary = "Query the LuaRocks servers."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	14 help_arguments = "[--source] [--binary] { <name> [<version>] \| --all }"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	15 help = [[
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	16 --source Return only rockspecs and source rocks,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	17 to be used with the "build" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	18 --binary Return only pure Lua and binary rocks (rocks that can be used
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	19 with the "install" command without requiring a C toolchain).
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	20 --all List all contents of the server that are suitable to
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	21 this platform, do not filter by name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	22 ]]
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 --- Convert the arch field of a query table to table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	25 -- @param query table: A query table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	26 local function query_arch_as_table(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	27 local format = type(query.arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	28 if format == "table" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	29 return
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	30 elseif format == "nil" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	31 local accept = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	32 accept["src"] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	33 accept["all"] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	34 accept["rockspec"] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	35 accept["installed"] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	36 accept[cfg.arch] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	37 query.arch = accept
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	38 elseif format == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	39 local accept = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	40 for a in query.arch:gmatch("[%w_-]+") do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	41 accept[a] = true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	42 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	43 query.arch = accept
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	44 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	45 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	46
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	47 --- Store a search result (a rock or rockspec) in the results table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	48 -- @param results table: The results table, where keys are package names and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	49 -- versions are tables matching version strings to an array of servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	50 -- @param name string: Package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	51 -- @param version string: Package version.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	52 -- @param arch string: Architecture of rock ("all", "src" or platform
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	53 -- identifier), "rockspec" or "installed"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	54 -- @param repo string: Pathname of a local repository of URL of
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	55 -- rocks server.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	56 local function store_result(results, name, version, arch, repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	57 assert(type(results) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	58 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	59 assert(type(version) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	60 assert(type(arch) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	61 assert(type(repo) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	62
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	63 if not results[name] then results[name] = {} end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	64 if not results[name][version] then results[name][version] = {} end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	65 table.insert(results[name][version], {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	66 arch = arch,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	67 repo = repo
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	68 })
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	69 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	70
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	71 --- Test the name field of a query.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	72 -- If query has a boolean field exact_name set to false,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	73 -- then substring match is performed; otherwise, exact string
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	74 -- comparison is done.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	75 -- @param query table: A query in dependency table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	76 -- @param name string: A package name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	77 -- @return boolean: True if names match, false otherwise.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	78 local function match_name(query, name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	79 assert(type(query) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	80 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	81 if query.exact_name == false then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	82 return name:find(query.name, 0, true) and true or false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	83 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	84 return name == query.name
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 end
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 --- Store a match in a results table if version matches query.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	89 -- Name, version, arch and repository path are stored in a given
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	90 -- table, optionally checking if version and arch (if given) match
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	91 -- a query.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	92 -- @param results table: The results table, where keys are package names and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	93 -- versions are tables matching version strings to an array of servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	94 -- @param repo string: URL or pathname of the repository.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	95 -- @param name string: The name of the package being tested.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	96 -- @param version string: The version of the package being tested.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	97 -- @param arch string: The arch of the package being tested.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	98 -- @param query table: A table describing the query in dependency
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	99 -- format (for example, {name = "filesystem", exact_name = false,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	100 -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec").
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	101 -- If the arch field is omitted, the local architecture (cfg.arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	102 -- is used. The special value "any" is also recognized, returning all
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	103 -- matches regardless of architecture.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	104 local function store_if_match(results, repo, name, version, arch, query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	105 if match_name(query, name) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	106 if query.arch[arch] or query.arch["any"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	107 if deps.match_constraints(deps.parse_version(version), query.constraints) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	108 store_result(results, name, version, arch, repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	109 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	110 end
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 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	113
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	114 --- Perform search on a local repository.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	115 -- @param repo string: The pathname of the local repository.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	116 -- @param query table: A table describing the query in dependency
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	117 -- format (for example, {name = "filesystem", exact_name = false,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	118 -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec").
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	119 -- If the arch field is omitted, the local architecture (cfg.arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	120 -- is used. The special value "any" is also recognized, returning all
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	121 -- matches regardless of architecture.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	122 -- @param results table or nil: If given, this table will store the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	123 -- results; if not given, a new table will be created.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	124 -- @param table: The results table, where keys are package names and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	125 -- versions are tables matching version strings to an array of servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	126 -- If a table was given in the "results" parameter, that is the result value.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	127 function disk_search(repo, query, results)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	128 assert(type(repo) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	129 assert(type(query) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	130 assert(type(results) == "table" or not results)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	131
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	132 local fs = require("luarocks.fs")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	133
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	134 if not results then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	135 results = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	136 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	137 query_arch_as_table(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	138
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	139 for _, name in pairs(fs.list_dir(repo)) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	140 local pathname = dir.path(repo, name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	141 local rname, rversion, rarch = path.parse_name(name)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	142 if fs.is_dir(pathname) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	143 for _, version in pairs(fs.list_dir(pathname)) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	144 if version:match("-%d+$") then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	145 store_if_match(results, repo, name, version, "installed", query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	146 end
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 elseif rname then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	149 store_if_match(results, repo, rname, rversion, rarch, query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	150 end
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 return results
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	153 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	154
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	155 --- Perform search on a rocks server.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	156 -- @param results table: The results table, where keys are package names and
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	157 -- versions are tables matching version strings to an array of servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	158 -- @param repo string: The URL of the rocks server.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	159 -- @param query table: A table describing the query in dependency
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	160 -- format (for example, {name = "filesystem", exact_name = false,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	161 -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec").
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	162 -- If the arch field is omitted, the local architecture (cfg.arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	163 -- is used. The special value "any" is also recognized, returning all
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	164 -- matches regardless of architecture.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	165 -- @return true or, in case of errors, nil and an error message.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	166 function manifest_search(results, repo, query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	167 assert(type(results) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	168 assert(type(repo) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	169 assert(type(query) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	170
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	171 query_arch_as_table(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	172 local manifest, err = manif.load_manifest(repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	173 if not manifest then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	174 return nil, "Failed loading manifest: "..err
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	175 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	176 for name, versions in pairs(manifest.repository) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	177 for version, items in pairs(versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	178 for _, item in ipairs(items) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	179 store_if_match(results, repo, name, version, item.arch, query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	180 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	181 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	182 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	183 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	184 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	185
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	186 --- Search on all configured rocks servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	187 -- @param query table: A dependency query.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	188 -- @return table: A table where keys are package names
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	189 -- and values are tables matching version strings to an array of
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	190 -- rocks servers; if no results are found, an empty table is returned.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	191 function search_repos(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	192 assert(type(query) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	193
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	194 local results = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	195 for _, repo in ipairs(cfg.rocks_servers) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	196 if type(repo) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	197 repo = { repo }
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 for _, mirror in ipairs(repo) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	200 local protocol, pathname = dir.split_url(mirror)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	201 if protocol == "file" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	202 mirror = pathname
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	203 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	204 local ok, err = manifest_search(results, mirror, query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	205 if ok then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	206 break
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	207 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	208 util.warning("Failed searching manifest: "..err)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	209 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	210 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	211 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	212 return results
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	213 end
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 --- Prepare a query in dependency table format.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	216 -- @param name string: The query name.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	217 -- @param version string or nil:
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	218 -- @return table: A query in table format
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	219 function make_query(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	220 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	221 assert(type(version) == "string" or not version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	222
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	223 local query = {
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	224 name = name,
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	225 constraints = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	226 }
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	227 if version then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	228 table.insert(query.constraints, { op = "==", version = deps.parse_version(version)})
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	229 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	230 return query
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	231 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	232
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	233 --- Get the URL for the latest in a set of versions.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	234 -- @param name string: The package name to be used in the URL.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	235 -- @param versions table: An array of version informations, as stored
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	236 -- in search results tables.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	237 -- @return string or nil: the URL for the latest version if one could
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	238 -- be picked, or nil.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	239 local function pick_latest_version(name, versions)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	240 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	241 assert(type(versions) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	242
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	243 local vtables = {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	244 for v, _ in pairs(versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	245 table.insert(vtables, deps.parse_version(v))
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	246 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	247 table.sort(vtables)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	248 local version = vtables[#vtables].string
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	249 local items = versions[version]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	250 if items then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	251 local pick = 1
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	252 for i, item in ipairs(items) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	253 if (item.arch == 'src' and items[pick].arch == 'rockspec')
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	254 or (item.arch ~= 'src' and item.arch ~= 'rockspec') then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	255 pick = i
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	256 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	257 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	258 return path.make_url(items[pick].repo, name, version, items[pick].arch)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	259 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	260 return nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	261 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	262
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	263 --- Attempt to get a single URL for a given search.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	264 -- @param query table: A dependency query.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	265 -- @return string or table or (nil, string): URL for matching rock if
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	266 -- a single one was found, a table of candidates if it could not narrow to
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	267 -- a single result, or nil followed by an error message.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	268 function find_suitable_rock(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	269 assert(type(query) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	270
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	271 local results = search_repos(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	272 local first = next(results)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	273 if not first then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	274 return nil, "No results matching query were found."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	275 elseif not next(results, first) then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	276 return pick_latest_version(query.name, results[first])
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	277 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	278 return results
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	279 end
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 --- Print a list of rocks/rockspecs on standard output.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	283 -- @param results table: A table where keys are package names and versions
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	284 -- are tables matching version strings to an array of rocks servers.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	285 -- @param porcelain boolean or nil: A flag to force machine-friendly output.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	286 function print_results(results, porcelain)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	287 assert(type(results) == "table")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	288 assert(type(porcelain) == "boolean" or not porcelain)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	289
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	290 for package, versions in util.sortedpairs(results) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	291 if not porcelain then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	292 util.printout(package)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	293 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	294 for version, repos in util.sortedpairs(versions, deps.compare_versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	295 for _, repo in ipairs(repos) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	296 if porcelain then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	297 util.printout(package, version, repo.arch, repo.repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	298 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	299 util.printout(" "..version.." ("..repo.arch..") - "..repo.repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	300 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	301 end
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 porcelain then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	304 util.printout()
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	305 end
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 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	308
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	309 --- Splits a list of search results into two lists, one for "source" results
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	310 -- to be used with the "build" command, and one for "binary" results to be
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	311 -- used with the "install" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	312 -- @param results table: A search results table.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	313 -- @return (table, table): Two tables, one for source and one for binary
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	314 -- results.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	315 local function split_source_and_binary_results(results)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	316 local sources, binaries = {}, {}
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	317 for name, versions in pairs(results) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	318 for version, repositories in pairs(versions) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	319 for _, repo in ipairs(repositories) do
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	320 local where = sources
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	321 if repo.arch == "all" or repo.arch == cfg.arch then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	322 where = binaries
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 store_result(where, name, version, repo.arch, repo.repo)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	325 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	326 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	327 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	328 return sources, binaries
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	329 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	330
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	331 --- Given a name and optionally a version, try to find in the rocks
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	332 -- servers a single .src.rock or .rockspec file that satisfies
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	333 -- the request, and run the given function on it; or display to the
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	334 -- user possibilities if it couldn't narrow down a single match.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	335 -- @param action function: A function that takes a .src.rock or
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	336 -- .rockspec URL as a parameter.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	337 -- @param name string: A rock name
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	338 -- @param version string or nil: A version number may also be given.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	339 -- @return The result of the action function, or nil and an error message.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	340 function act_on_src_or_rockspec(action, name, version, ...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	341 assert(type(action) == "function")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	342 assert(type(name) == "string")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	343 assert(type(version) == "string" or not version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	344
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	345 local query = make_query(name, version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	346 query.arch = "src\|rockspec"
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	347 local results, err = find_suitable_rock(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	348 if type(results) == "string" then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	349 return action(results, ...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	350 else
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	351 return nil, "Could not find a result named "..name..(version and " "..version or "").."."
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 --- Driver function for "search" command.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	356 -- @param name string: A substring of a rock name to search.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	357 -- @param version string or nil: a version may also be passed.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	358 -- @return boolean or (nil, string): True if build was successful; nil and an
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	359 -- error message otherwise.
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	360 function run(...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	361 local flags, name, version = util.parse_flags(...)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	362
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	363 if flags["all"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	364 name, version = "", nil
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	365 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	366
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	367 if type(name) ~= "string" and not flags["all"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	368 return nil, "Enter name and version or use --all; see help."
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	369 end
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	370
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	371 local query = make_query(name:lower(), version)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	372 query.exact_name = false
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	373 local results, err = search_repos(query)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	374 local porcelain = flags["porcelain"]
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	375 util.title("Search results:", porcelain, "=")
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	376 local sources, binaries = split_source_and_binary_results(results)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	377 if next(sources) and not flags["binary"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	378 util.title("Rockspecs and source rocks:", porcelain)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	379 print_results(sources, porcelain)
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 if next(binaries) and not flags["source"] then
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	382 util.title("Binary and pure-Lua rocks:", porcelain)
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	383 print_results(binaries, porcelain)
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 return true
d137f631bad5 <GreyKnight> (cd luabuild/luarocks-2.0.12; make install) HackBot parents: diff changeset	386 end

Mercurial > repo

annotate share/lua/5.2/luarocks/search.lua @ 7946:8ecffca9813d