SHA1 Hash:	124fef5b1cdefe9e10f943e17cee2b731f3fa50f
Date:	2007-11-25 07:30:39
User:	aku
Comment:	Filerevtree helper. Added missing requirements, and dialed the verbosity down.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

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

Modified tools/cvs2fossil/filerevtree from [5736267763] to [adf892ac6c].

@@ -30,15 +30,21 @@
 package require struct::list                          ; # Higher order list ops.
 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.
 
@@ -79,10 +85,11 @@
     default {
 	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)"
 puts "Project  : [state one { SELECT name FROM project WHERE pid = $pid }] ($pid)"