From 486959e2dbd516f9d7bce8493a1a55b9d890066e Mon Sep 17 00:00:00 2001
From: Natanael Copa <ncopa@alpinelinux.org>
Date: Wed, 30 Mar 2011 13:10:06 +0200
Subject: ap/aports.lua: implement recurse_until

will recursively parse all build depends
---
 aports.lua | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

(limited to 'aports.lua')

diff --git a/aports.lua b/aports.lua
index 44691c8..f8a0121 100755
--- a/aports.lua
+++ b/aports.lua
@@ -103,3 +103,45 @@ function init_apkdb(repodirs)
 	return pkgdb, revdeps
 end
 
+-- return a key list with makedepends and depends
+function all_deps(p)
+	local m = {}
+	local k,v
+	if p == nil then
+		return m
+	end
+	if type(p.depends) == "table" then
+		for k,v in pairs(p.depends) do
+			m[v] = true
+		end
+	end
+	if type(p.makedepends) == "table" then
+		for k,v in pairs(p.makedepends) do
+			m[v] = true
+		end
+	end
+	return m
+end
+
+
+function recurs_until(apkdb, pn, func)
+	local visited={}
+	function recurs(pn)
+		if pn == nil or visited[pn] or apkdb[pn] == nil then
+			return false
+		end
+		visited[pn] = true
+		local _, p
+		for _, p in pairs(apkdb[pn]) do
+			local d
+			for d in pairs(all_deps(p)) do
+				if recurs(d) then
+					return true
+				end
+			end
+		end
+		return func(pn)
+	end
+	return recurs(pn)
+end
+
-- 
cgit v1.2.3-60-g2f50