SHA1 Hash:	bf83201c7f41c492f5c4aa75166eed3ee8ab7dad
Date:	2007-11-27 02:37:51
User:	aku
Comment:	Outline for more integrity checks, focusing on the changesets.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_integrity.tcl from [eed39e28b9] to [69cecd83d4].

@@ -42,10 +42,11 @@
 	return
     }
 
     typemethod changesets {} {
 	set n 0
+	RevisionCSetLinkage
 	RevisionChangesets
 	SymbolChangesets
 	return
     }
 
@@ -287,10 +288,20 @@
 		AND   R.fid = F.fid
 		;
 	    }
 	return
     }
+
+    proc RevisionCSetLinkage {} {
+    }
+
+    proc RevisionChangesets {} {
+    }
+
+    proc SymbolChangesets {} {
+    }
+
 
     proc Check {header label sql} {
 	upvar 1 n n
 	set ok 1
 	foreach {fname revnr} [state run $sql] {

Modified tools/cvs2fossil/lib/c2f_pbreakacycle.tcl from [6aba1b2f01] to [949289215b].

@@ -27,10 +27,11 @@
 package require vc::tools::log                            ; # User feedback.
 package require vc::tools::trouble                        ; # Error reporting.
 package require vc::fossil::import::cvs::repository       ; # Repository management.
 package require vc::fossil::import::cvs::cyclebreaker     ; # Breaking dependency cycles.
 package require vc::fossil::import::cvs::state            ; # State storage.
+package require vc::fossil::import::cvs::integrity        ; # State integrity checks.
 package require vc::fossil::import::cvs::project::rev     ; # Project level changesets
 
 # # ## ### ##### ######## ############# #####################
 ## Register the pass with the management
 
@@ -75,13 +76,14 @@
 	cyclebreaker breakcmd [myproc BreakCycle]
 
 	state transaction {
 	    LoadCommitOrder
 	    cyclebreaker run break-all [myproc Changesets]
-	}
-
-	repository printcsetstatistics
+
+	    repository printcsetstatistics
+	    integrity changesets
+	}
 	return
     }
 
     typemethod discard {} {
 	# Pass manager interface. Executed for all passes after the
@@ -511,10 +513,11 @@
     namespace export breakacycle
     namespace eval breakacycle {
 	namespace import ::vc::fossil::import::cvs::cyclebreaker
 	namespace import ::vc::fossil::import::cvs::repository
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::fossil::import::cvs::integrity
 	namespace eval project {
 	    namespace import ::vc::fossil::import::cvs::project::rev
 	}
 	namespace import ::vc::tools::misc::*
 	namespace import ::vc::tools::trouble

Modified tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl from [f27a20d7ed] to [685d23fe9c].

@@ -23,10 +23,11 @@
 package require struct::list                              ; # Higher order list operations.
 package require vc::tools::log                            ; # User feedback.
 package require vc::fossil::import::cvs::repository       ; # Repository management.
 package require vc::fossil::import::cvs::cyclebreaker     ; # Breaking dependency cycles.
 package require vc::fossil::import::cvs::state            ; # State storage.
+package require vc::fossil::import::cvs::integrity        ; # State integrity checks.
 package require vc::fossil::import::cvs::project::rev     ; # Project level changesets
 
 # # ## ### ##### ######## ############# #####################
 ## Register the pass with the management
 
@@ -65,13 +66,14 @@
 
 	cyclebreaker breakcmd {::vc::fossil::import::cvs::cyclebreaker break}
 
 	state transaction {
 	    cyclebreaker run break-rev [myproc Changesets]
-	}
 
-	repository printcsetstatistics
+	    repository printcsetstatistics
+	    integrity changesets
+	}
 	return
     }
 
     typemethod discard {} {
 	# Pass manager interface. Executed for all passes after the
@@ -103,10 +105,11 @@
     namespace export breakrcycle
     namespace eval breakrcycle {
 	namespace import ::vc::fossil::import::cvs::cyclebreaker
 	namespace import ::vc::fossil::import::cvs::repository
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::fossil::import::cvs::integrity
 	namespace eval project {
 	    namespace import ::vc::fossil::import::cvs::project::rev
 	}
 	namespace import ::vc::tools::log
 	log register breakrcycle

Modified tools/cvs2fossil/lib/c2f_pbreakscycle.tcl from [a2ec544f7e] to [258b058f24].

@@ -22,10 +22,11 @@
 package require snit                                      ; # OO system.
 package require struct::list                              ; # Higher order list operations.
 package require vc::fossil::import::cvs::cyclebreaker     ; # Breaking dependency cycles.
 package require vc::fossil::import::cvs::repository       ; # Repository management.
 package require vc::fossil::import::cvs::state            ; # State storage.
+package require vc::fossil::import::cvs::integrity        ; # State integrity checks.
 package require vc::fossil::import::cvs::project::rev     ; # Project level changesets
 
 # # ## ### ##### ######## ############# #####################
 ## Register the pass with the management
 
@@ -64,13 +65,14 @@
 
 	cyclebreaker breakcmd {::vc::fossil::import::cvs::cyclebreaker break}
 
 	state transaction {
 	    cyclebreaker run break-sym [myproc Changesets]
-	}
 
-	repository printcsetstatistics
+	    repository printcsetstatistics
+	    integrity changesets
+	}
 	return
     }
 
     typemethod discard {} {
 	# Pass manager interface. Executed for all passes after the
@@ -102,10 +104,11 @@
     namespace export breakscycle
     namespace eval breakscycle {
 	namespace import ::vc::fossil::import::cvs::cyclebreaker
 	namespace import ::vc::fossil::import::cvs::repository
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::fossil::import::cvs::integrity
 	namespace eval project {
 	    namespace import ::vc::fossil::import::cvs::project::rev
 	}
     }
 }

Modified tools/cvs2fossil/lib/c2f_pinitcsets.tcl from [217d875a91] to [47d9786663].

@@ -21,10 +21,11 @@
 package require snit                                  ; # OO system.
 package require vc::tools::misc                       ; # Text formatting.
 package require vc::tools::log                        ; # User feedback.
 package require vc::fossil::import::cvs::repository   ; # Repository management.
 package require vc::fossil::import::cvs::state        ; # State storage.
+package require vc::fossil::import::cvs::integrity    ; # State integrity checks.
 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
 
 # # ## ### ##### ######## ############# #####################
 ## Register the pass with the management
@@ -133,10 +134,11 @@
 	    BreakInternalDependencies ; # Split the csets based on internal conflicts.
 	    CreateSymbolChangesets    ; # Create csets for tags and branches.
 	    PersistTheChangesets
 
 	    repository printcsetstatistics
+	    integrity changesets
 	}
 	return
     }
 
     typemethod discard {} {
@@ -334,10 +336,11 @@
 namespace eval ::vc::fossil::import::cvs::pass {
     namespace export initcsets
     namespace eval initcsets {
 	namespace import ::vc::fossil::import::cvs::repository
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::fossil::import::cvs::integrity
 	namespace eval project {
 	    namespace import ::vc::fossil::import::cvs::project::rev
 	}
 	namespace import ::vc::tools::misc::*
 	namespace import ::vc::tools::log