SHA1 Hash:	43d72c62467108c09a8ed87fc0c30620033020cf
Date:	2007-10-06 03:53:41
User:	aku
Comment:	Better formatting for --help-passes, align codes.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_pass.tcl from [556a226a8a] to [7af6ad1f97].

@@ -18,10 +18,11 @@
 ## Requirements
 
 package require Tcl 8.4                         ; # Required runtime.
 package require snit                            ; # OO system.
 package require vc::fossil::import::cvs::state  ; # State storage
+package require vc::tools::misc                 ; # Text formatting
 package require vc::tools::trouble              ; # Error reporting.
 package require vc::tools::log                  ; # User feedback.
 package require struct::list                    ; # Portable lassign
 
 # # ## ### ##### ######## ############# #####################
@@ -44,12 +45,17 @@
     typemethod help {} {
 	trouble info ""
 	trouble info "Conversion passes:"
 	trouble info ""
 	set n 0
+
+	set clen [max [struct::list map $mypasses {string length}]]
+	set cfmt %-${clen}s
+	set nfmt %[string length [llength $mypasses]]s
+
 	foreach code $mypasses {
-	    trouble info "  [format %2d $n]: $code $mydesc($code)"
+	    trouble info "  [format $nfmt $n]: [format $cfmt $code] : $mydesc($code)"
 	    incr n
 	}
 	trouble info ""
 	return
     }
@@ -167,10 +173,11 @@
 
 namespace eval ::vc::fossil::import::cvs {
     namespace export pass
     namespace eval pass {
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::tools::misc::*
 	namespace import ::vc::tools::trouble
 	namespace import ::vc::tools::log
 	log register pass
     }
 }

Modified tools/cvs2fossil/lib/c2f_repository.tcl from [9c6eebce1b] to [66efb474fb].

@@ -198,17 +198,17 @@
 namespace eval ::vc::fossil::import::cvs {
     namespace export repository
     namespace eval repository {
 	namespace import ::vc::fossil::import::cvs::project
 	namespace import ::vc::fossil::import::cvs::state
+	namespace import ::vc::tools::misc::*
 	namespace import ::vc::tools::trouble
 	namespace import ::vc::tools::log
-	namespace import ::vc::tools::misc::*
 	log register repository
     }
 }
 
 # # ## ### ##### ######## ############# #####################
 ## Ready
 
 package provide vc::fossil::import::cvs::repository 1.0
 return