Differences From:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [eb656de7d9] - Added the basic parts of the state manager and integrated it with option processor and pass manager. by aku on 2007-10-05 05:33:14. [view]

To:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [d174affb48] - Collapse multiple uses of a project path into one project. by aku on 2007-10-05 07:08:35. [view]

@@ -37,10 +37,14 @@
 	return
     }
 
     typemethod add {path} {
-	# Cannot be checked immediately, the base is not known while
-	# projects are added.
+	# Most things cannot be checked immediately, as the base is
+	# not known while projects are added. We can and do check for
+	# uniqueness. We accept multiple occurences of a name, and
+	# treat them as a single project.
+
+	if {[lsearch -exact $myprojpaths $path] >= 0} return
 	lappend myprojpaths $path
 	return
     }