Differences From:

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]

To:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [042d54bae5] - Completed integration of state with pass I, now saving projects and files into it. by aku on 2007-10-05 07:27:52. [view]

@@ -20,8 +20,9 @@
 package require vc::tools::trouble               ; # Error reporting.
 package require vc::tools::log                   ; # User feedback.
 package require vc::tools::misc                  ; # Text formatting
 package require vc::fossil::import::cvs::project ; # CVS projects
+package require vc::fossil::import::cvs::state   ; # State storage
 package require struct::list                     ; # List operations.
 package require fileutil                         ; # File operations.
 
 # # ## ### ##### ######## ############# #####################
@@ -116,8 +117,12 @@
 	return
     }
 
     typemethod persist {} {
+	state transaction {
+	    foreach p [TheProjects] { $p persist }
+	}
+	return
     }
 
     # # ## ### ##### ######## #############
     ## State
@@ -193,8 +198,9 @@
 namespace eval ::vc::fossil::import::cvs {
     namespace export repository
     namespace eval repository {
 	namespace import ::vc::fossil::import::cvs::project
+	namespace import ::vc::fossil::import::cvs::state
 	namespace import ::vc::tools::trouble
 	namespace import ::vc::tools::log
 	namespace import ::vc::tools::misc::*
 	log register repository