Differences From:

File tools/cvs2fossil/lib/log.tcl part of check-in [70b0aa899a] - Found easier way to access the typevariables of singletons when writing the rcs parser. Now moved the other singletons to the same construction. by aku on 2007-10-06 22:13:25. [view]

To:

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]

@@ -44,8 +44,12 @@
     typemethod progress {verbosity system n max} {
 	if {$verbosity > $myloglevel} return
 	uplevel #0 [linsert $mylogcmd end progress [System $system] $n $max]
 	return
+    }
+
+    typemethod visible? {verbosity} {
+	return [expr {$verbosity <= $myloglevel}]
     }
 
     # # ## ### ##### ######## #############
     # Public API, Administrative methods