Differences From:

File tools/cvs2fossil/lib/c2f_pass.tcl part of check-in [591151532206c] - Added the pass management, integrated with application and option processor. by aku on 2007-10-02 06:48:55. [view]

To:

File tools/cvs2fossil/lib/c2f_pass.tcl part of check-in [47740cc1f6] - Added stub for repository management, added most of pass I, collecting archives in the repository. by aku on 2007-10-03 04:18:18. [view]

@@ -19,8 +19,9 @@
 
 package require Tcl 8.4                         ; # Required runtime.
 package require snit                            ; # OO system.
 package require vc::tools::trouble              ; # Error reporting.
+package require vc::tools::log                  ; # User feedback.
 package require struct::list                    ; # Portable lassign
 
 # # ## ### ##### ######## ############# #####################
 ##
@@ -96,10 +97,18 @@
 	# TODO: Artifact manager (clean after pass?. need to know skipped/defered passes ?)
 	# TODO:
 	# TODO:
 
-	foreach p $runlist { Call $p setup }
-	foreach p $runlist { Call $p run   }
+	foreach p $runlist {
+	    log write 0 pass "Setup $p"
+	    Call $p setup
+	}
+	foreach p $runlist {
+	    log write 0 pass "Begin $p"
+	    Call $p run
+	    log write 0 pass "Done  $p"
+	    trouble abort?
+	}
 	return
     }
 
     # # ## ### ##### ######## #############
@@ -128,9 +137,9 @@
     proc Call {code args} {
 	upvar 1 mycmd mycmd
 	set cmd $mycmd($code)
 	foreach a $args { lappend cmd $a }
-	eval $a
+	eval $cmd
 	return
     }
 
     # # ## ### ##### ######## #############
@@ -154,12 +163,16 @@
 }
 
 namespace eval ::vc::fossil::import::cvs {
     namespace export pass
-    namespace eval pass { namespace import ::vc::tools::trouble }
+    namespace eval pass {
+	namespace import ::vc::tools::trouble
+	namespace import ::vc::tools::log
+	log register pass
+    }
 }
 
 # # ## ### ##### ######## ############# #####################
 ## Ready
 
 package provide vc::fossil::import::cvs::pass 1.0
 return