Differences From:

File tools/cvs2fossil/lib/log.tcl part of check-in [38b967dcf5] - Merge aku's CVS import changes into the main line. Fix a small bug in diff.c. by drh on 2007-11-17 00:29:42. Also file tools/cvs2fossil/lib/log.tcl part of check-in [08ebab80cd] - Rewrote the algorithm for breaking internal dependencies to my liking. The complex part handling multiple splits has moved from the pass code to the changeset class itself, reusing the state computed for the first split. The state is a bit more complex to allow for its incremental update after a break has been done. Factored major pieces into separate procedures to keep the highlevel code readable. Added lots of official log output to help debugging in case of trouble. by aku on 2007-11-10 23:44:29. [view]

To:

File tools/cvs2fossil/lib/log.tcl part of check-in [4e7dd05fc6] - Added an option "--batch" with which the user can disable the feedback display standard to interactive use. by aku on 2007-11-17 04:39:27. [view]

@@ -41,8 +41,9 @@
     # running operation we are at tick 'n' of at most 'max' ticks. An
     # empty 'max' indicates an infinite progress display.
 
     typemethod progress {verbosity system n max} {
+	if {!$myprogress}             return
 	if {$verbosity > $myloglevel} return
 	uplevel #0 [linsert $mylogcmd end progress [System $system] $n $max]
 	return
     }
@@ -64,8 +65,13 @@
     }
 
     typemethod verbose {} {
 	incr myloglevel
+	return
+    }
+
+    typemethod noprogress {} {
+	set myprogress 0
 	return
     }
 
     typemethod quiet {} {
@@ -105,10 +111,11 @@
     ## Internal, state
 
     typevariable myloglevel 2                     ; # Some verbosity, not too much
     typevariable mylogcmd   ::vc::tools::log::OUT ; # Standard output to stdout.
-    typevariable mysysfmt %s                      ; # Non-tabular formatting.
-    typevariable mysyslen 0                       ; # Ditto.
+    typevariable mysysfmt   %s                    ; # Non-tabular formatting.
+    typevariable mysyslen   0                     ; # Ditto.
+    typevariable myprogress 1                     ; # Progress output is standard.
 
     # # ## ### ##### ######## #############
     ## Internal, helper methods (formatting, dispatch)