Diff
Not logged in

Differences From:

File tools/cvs2fossil/getmemoryseries.tcl part of check-in [f46458d5bd] - Reworked the basic structure of pass InitCSets to keep memory consumption down. Now incremental creates, breaks, saves, and releases changesets, instead of piling them on before saving all at the end. Memory tracking confirms that this changes the accumulating mountain into a near-constant usage, with the expected spikes from the breaking. by aku on 2008-02-17 02:06:19. [view]

To:

File tools/cvs2fossil/getmemoryseries.tcl part of check-in [cff0185200] - Fix extraction of memory data from the log, pipe symbol is special. by aku on 2008-02-23 07:10:56. [view]

@@ -14,21 +14,21 @@
 
 set k 0
 while {![eof $in]} {
     gets $in line
-    puts -nonewline \r[incr k]
+    #puts -nonewline \r[incr k]
 
     if {[string match *|=|* $line]} {
 	# Basic series
-	regexp {^(.*)|=|} $line -> line
+	regexp {^(.*)\|=\|} $line -> line
 	foreach {x _ cba _ _ _ mba} $line break
 	puts $ba [join [list $x $cba $mba] \t]
 	continue
     }
 
     if {[string match *|@|* $line]} {
 	# Marker series
-	regexp {^(.*)|@|} $line -> line
+	regexp {^(.*)\|@\|} $line -> line
 	foreach {x _ cba} $line break
 	puts $mr [join [list $x $cba] \t]
 	continue
     }