From 808680a881f127384857225cb1c9e8fe12b2b134 Mon Sep 17 00:00:00 2001
From: Jean Privat <jean@pryen.org>
Date: Sat, 4 Jun 2016 10:56:29 -0400
Subject: [PATCH] loader: honor `source.exclude` config in the package.ini

Signed-off-by: Jean Privat <jean@pryen.org>
---
 src/loader.nit |   35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/src/loader.nit b/src/loader.nit
index 967d335..d1a4ce5 100644
--- a/src/loader.nit
+++ b/src/loader.nit
@@ -379,6 +379,13 @@ redef class ModelBuilder
 		var mgrouppath = path.join_path("..").simplify_path
 		var mgroup = identify_group(mgrouppath)
 
+		if mgroup != null then
+			var mpackage = mgroup.mpackage
+			if not mpackage.accept(path) then
+				mgroup = null
+				toolcontext.info("module `{path}` excluded from package `{mpackage}`", 2)
+			end
+		end
 		if mgroup == null then
 			# singleton package
 			var loc = new Location.opaque_file(path)
@@ -473,6 +480,13 @@ redef class ModelBuilder
 			if not stopper.file_exists then
 				# Recursively get the parent group
 				parent = identify_group(parentpath)
+				if parent != null then do
+					var mpackage = parent.mpackage
+					if not mpackage.accept(dirpath) then
+						toolcontext.info("directory `{dirpath}` excluded from package `{mpackage}`", 2)
+						parent = null
+					end
+				end
 				if parent == null then
 					# Parent is not a group, thus we are not a group either
 					mgroups[rdp] = null
@@ -1064,6 +1078,27 @@ redef class MPackage
 	#
 	# Some packages, like stand-alone packages or virtual packages have no `ini` file associated.
 	var ini: nullable ConfigTree = null
+
+	# Array of relative source paths excluded according to the `source.exclude` key of the `ini`
+	var excludes: nullable Array[String] is lazy do
+		var ini = self.ini
+		if ini == null then return null
+		var exclude = ini["source.exclude"]
+		if exclude == null then return null
+		var excludes = exclude.split(":")
+		return excludes
+	end
+
+	# Does the source inclusion/inclusion rules of the package `ini` accept such path?
+	fun accept(filepath: String): Bool
+	do
+		var excludes = self.excludes
+		if excludes != null then
+			var relpath = root.filepath.relpath(filepath)
+			if excludes.has(relpath) then return false
+		end
+		return true
+	end
 end
 
 redef class MGroup
-- 
1.7.9.5