Differences From:

File tools/cvs2fossil/filerevtree part of check-in [64d0019e0f] - Added two more debugging helper applications. One to extract and show a file revision tree, the other to display a dot file generated by the importer during cycle breaking passes. by aku on 2007-11-23 05:38:12. [view]

To:

File tools/cvs2fossil/filerevtree part of check-in [124fef5b1c] - Filerevtree helper. Added missing requirements, and dialed the verbosity down. by aku on 2007-11-25 07:30:39. [view]

@@ -31,13 +31,19 @@
 package require vc::fossil::import::cvs::project::rev ; # Changesets
 package require vc::fossil::import::cvs::state        ; # State storage.
 package require vc::tools::misc                       ; # Min/max.
 package require vc::tools::dot                        ; # Graph export to DOT.
+package require vc::tools::trouble                    ; # Error reporting
+package require vc::tools::log                        ; # User feedback
 
 namespace import ::vc::fossil::import::cvs::state
 namespace import ::vc::fossil::import::cvs::project::rev
 namespace import ::vc::tools::dot
+namespace import ::vc::tools::trouble
+namespace import ::vc::tools::log
 namespace import ::vc::tools::misc::*
+
+log verbosity 0
 
 # Process the command line, i.e. get the database to access, and file
 # of interest. The latter can be specified by name, id, or indirectly
 # through the id of one of the revisions it contains.
@@ -80,8 +86,9 @@
 	trouble fatal \
 	    "Unknown spec \"$what\", expected one of \"fid\", \"fname\", or \"rid\""
     }
 }
+trouble abort?
 
 set pid [state one { SELECT pid FROM file WHERE fid == $fid }]
 
 puts "File     : [state one { SELECT name FROM file    WHERE fid = $fid }] ($fid)"