From 52b30bcd4c1bb46879075f3a77d6eb3df3688c3a Mon Sep 17 00:00:00 2001
From: Christopher Vogt <oss.nsp@cvogt.org>
Date: Mon, 27 Mar 2017 19:15:36 -0400
Subject: verify classpath feature to identify duplicate classes

---
 libraries/file/file.scala | 12 ++++++------
 stage1/ClassPath.scala    | 30 ++++++++++++++++++++++++++++++
 stage1/resolver.scala     |  5 +++--
 3 files changed, 39 insertions(+), 8 deletions(-)

diff --git a/libraries/file/file.scala b/libraries/file/file.scala
index 900e9ec..d420964 100644
--- a/libraries/file/file.scala
+++ b/libraries/file/file.scala
@@ -79,14 +79,14 @@ trait Module {
       case v @ ( file, _ ) if collector.isDefinedAt( v ) => file -> collector( v )
     }
     if ( !allowDuplicates ) {
-      val relatives = map.unzip._2
-      val duplicateFiles = ( relatives diff relatives.distinct ).distinct
+      val duplicates = map.groupBy( _._2 ).filter( _._2.size > 1 ).mapValues( _.map( _._1 ).toSeq.sorted ).toSeq.sortBy( _._1 )
       assert(
-        duplicateFiles.isEmpty, {
-          val rs = relatives.toSet
+        duplicates.isEmpty,
+        {
           "Conflicting:\n\n" +
-            map.filter( rs contains _._2 ).groupBy( _._2 ).mapValues( _.map( _._1 ).sorted ).toSeq.sortBy( _._1 ).map {
-              case ( name, files ) => s"$name:\n" ++ files.mkString( "\n" )
+            duplicates.map {
+              case ( path, locations ) =>
+                path + " in:\n" + locations.mkString( "\n" )
             }.mkString( "\n\n" )
         }
       )
diff --git a/stage1/ClassPath.scala b/stage1/ClassPath.scala
index 539efc7..b13bdaf 100644
--- a/stage1/ClassPath.scala
+++ b/stage1/ClassPath.scala
@@ -27,4 +27,34 @@ case class ClassPath(files: Seq[File] = Seq()){
       if( f.getName.endsWith(".jar") /* !f.isDirectory */ ) "" else "/"
     )
   }.sorted
+
+  def verify( lib: Stage1Lib ) = {
+    val ( directories, jarFiles ) = files.partition(_.isDirectory)
+    val all = lib.autoRelative(
+      directories
+    ) ++ jarFiles.flatMap{ f => 
+      import collection.JavaConverters._
+      new java.util.jar.JarFile(f).entries.asScala.filterNot(_.isDirectory).toVector.map(
+        f -> _.toString
+      )
+    }
+    val duplicates =
+      all
+        .groupBy( _._2 )
+        .filter( _._2.size > 1 )
+        .filter( _._1 endsWith ".class" )
+        .mapValues( _.map( _._1 ) )
+        .toSeq
+        .sortBy( _._1 )
+    assert(
+      duplicates.isEmpty,
+      {
+        "Conflicting:\n\n" +
+        duplicates.map{
+          case ( path, locations ) =>
+            path + " exits in multiple locations:\n" + locations.mkString("\n")
+        }.mkString("\n\n")
+      }
+    )
+  }
 }
diff --git a/stage1/resolver.scala b/stage1/resolver.scala
index 48099e5..f4a9b13 100644
--- a/stage1/resolver.scala
+++ b/stage1/resolver.scala
@@ -130,8 +130,9 @@ trait DependencyImplementation extends Dependency{
   }
 
   // FIXME: these probably need to update outdated as well
-  def classpath           : ClassPath = exportedClasspath ++ dependencyClasspath
-  def dependencyClasspath : ClassPath = taskCache[DependencyImplementation]( "dependencyClasspath" ).memoize{
+  def classpath: ClassPath = exportedClasspath ++ dependencyClasspath
+  def verifyClasspath: Unit = classpath.verify(lib)
+  def dependencyClasspath: ClassPath = taskCache[DependencyImplementation]( "dependencyClasspath" ).memoize{
     ClassPath(
       transitiveDependencies
       .flatMap(_.exportedClasspath.files)
-- 
cgit v1.2.3