Differences From:

File tools/lib/cvs.tcl part of check-in [ae54e928c2] - Further work on the CVS frontend. The main parts for doing the extraction and management of changesets are now in a separate package. by aku on 2007-09-17 07:05:01. [view]

To:

File tools/lib/cvs.tcl part of check-in [a5476aed27] - Modified sorting of timeline entries for the same second to properly split files and file versions from each other, and to have newer revisions later. Further added a storage for error messages to be repeated when the importer exist. First user is the code reporting corrupted archive files detected during a checkout. by aku on 2007-09-20 03:51:49. [view]

@@ -7,8 +7,9 @@
 package require Tcl 8.4
 package require fileutil              ; # Tcllib (traverse directory hierarchy)
 package require vc::rcs::parser       ; # Handling the RCS archive files.
 package require vc::tools::log        ; # User feedback
+package require vc::tools::trouble    ; # Error handling
 package require vc::cvs::cmd          ; # Access to cvs application.
 package require vc::cvs::ws::files    ; # Scan CVS repository for relevant files.
 package require vc::cvs::ws::timeline ; # Manage timeline of all changes.
 package require vc::cvs::ws::csets    ; # Manage the changesets found in the timeline
@@ -18,8 +19,10 @@
     vc::tools::log::system cvs
     namespace import ::vc::tools::log::write
     namespace import ::vc::rcs::parser::process
     namespace import ::vc::cvs::cmd::dova
+
+    namespace eval trouble { namespace import ::vc::tools::trouble::* }
 }
 
 # -----------------------------------------------------------------------------
 # API
@@ -355,9 +358,9 @@
 	    # destination repository will not contain the full history
 	    # of the named file. By ignoring the problem we however
 	    # get as much as is possible.
 
-	    write 0 cvs "EE Corrupted archive file. Inaccessible revision."
+	    trouble::add "$f: Corrupted archive file. Inaccessible revision $r."
 	    return
 	}
 	return -code error $msg
     }