Differences From:

File tools/cvs2fossil/lib/c2f_fossil.tcl part of check-in [b6bf21e2a8] - Added helper class managing access to fossil repositories. Already has a basic method to import and delta-compress a series of files. Used 'test' commands of fossil to get the necessary low-level access. by aku on 2007-12-05 07:52:00. [view]

To:

File tools/cvs2fossil/lib/c2f_fossil.tcl part of check-in [08f8085700] - Added progress feedback to the file import, and moved the log output to level 8. by aku on 2007-12-06 03:54:15. [view]

@@ -59,13 +59,19 @@
 	# delta = list ('D', path, src)
 
 	array set id {}
 	$self InWorkspace
+
+	set n   0
+	set max [llength $map]
+
 	foreach insn $map {
+	    log progress 3 fossil $n $max ; incr n
+
 	    struct::list assign $insn cmd pa pb
 	    switch -exact -- $cmd {
 		A {
-		    log write 2 fossil {Importing   <$pa>,}
+		    log write 8 fossil {Importing   <$pa>,}
 
 		    # Result = 'inserted as record :FOO:'
 		    #           0        1  2     3
 		    set res [Do test-content-put $pa]
@@ -74,9 +80,9 @@
 		    } {Unable to process unexpected fossil output '$res'}
 		    set id($pa) [lindex $res 3]
 		}
 		D {
-		    log write 2 fossil {Compressing <$pa>, as delta of <$pb>}
+		    log write 8 fossil {Compressing <$pa>, as delta of <$pb>}
 
 		    Do test-content-deltify $id($pa) $id($pb) 1
 		}
 	    }