Check-in [ec053168a8]
Not logged in
Overview

SHA1 Hash:ec053168a810e148e2eb04ab0d9ec0a8cf588720
Date: 2007-10-06 20:58:24
User: aku
Comment:Nicer parser integration into pass II, and sort files for easier filesystem traversal during parsing.
Timelines: ancestors | descendants | both | trunk
Other Links: files | ZIP archive | manifest

Tags And Properties
Changes
[hide diffs]

Modified tools/cvs2fossil/lib/c2f_pcollrev.tcl from [71d77fda76] to [daf2ded7dd].

@@ -190,11 +190,11 @@
 	    log write 1 collrev "Processing $base"
 
 	    foreach file [$project files] {
 		set path [$file path]
 		log write 2 collrev "Parsing $path"
-		rcs::process [file join $base $path] $file
+		parser process [file join $base $path] $file
 	    }
 	}
 
 	repository printrevstatistics
 	repository persistrev
@@ -217,13 +217,11 @@
 }
 
 namespace eval ::vc::fossil::import::cvs::pass {
     namespace export collrev
     namespace eval collrev {
-	namespace eval rcs {
-	    namespace import ::vc::rcs::parser::process
-	}
+	namespace import ::vc::rcs::parser
 	namespace import ::vc::fossil::import::cvs::repository
 	namespace import ::vc::fossil::import::cvs::state
 	namespace import ::vc::tools::trouble
 	namespace import ::vc::tools::log
 	log register collrev

Modified tools/cvs2fossil/lib/c2f_project.tcl from [079a9bd314] to [9873cc9046].

@@ -43,17 +43,17 @@
 	set myfiles($rcs) $usr
 	return
     }
 
     method filenames {} {
-	return [array names myfiles]
+	return [lsort -dict [array names myfiles]]
     }
 
     method files {} {
 	# TODO: Loading from state
 	set res {}
-	foreach f [array names myfiles] {
+	foreach f [lsort -dict [array names myfiles]] {
 	    lappend res [file %AUTO% $f $self]
 	}
 	return $res
     }