Fossil SCM
Filerevtree helper. Added missing requirements, and dialed the verbosity down.
Commit
124fef5b1cdefe9e10f943e17cee2b731f3fa50f
Parent
d743f04bd2e2cf7…
1 file changed
+7
| --- tools/cvs2fossil/filerevtree | ||
| +++ tools/cvs2fossil/filerevtree | ||
| @@ -30,15 +30,21 @@ | ||
| 30 | 30 | package require struct::list ; # Higher order list ops. |
| 31 | 31 | package require vc::fossil::import::cvs::project::rev ; # Changesets |
| 32 | 32 | package require vc::fossil::import::cvs::state ; # State storage. |
| 33 | 33 | package require vc::tools::misc ; # Min/max. |
| 34 | 34 | package require vc::tools::dot ; # Graph export to DOT. |
| 35 | +package require vc::tools::trouble ; # Error reporting | |
| 36 | +package require vc::tools::log ; # User feedback | |
| 35 | 37 | |
| 36 | 38 | namespace import ::vc::fossil::import::cvs::state |
| 37 | 39 | namespace import ::vc::fossil::import::cvs::project::rev |
| 38 | 40 | namespace import ::vc::tools::dot |
| 41 | +namespace import ::vc::tools::trouble | |
| 42 | +namespace import ::vc::tools::log | |
| 39 | 43 | namespace import ::vc::tools::misc::* |
| 44 | + | |
| 45 | +log verbosity 0 | |
| 40 | 46 | |
| 41 | 47 | # Process the command line, i.e. get the database to access, and file |
| 42 | 48 | # of interest. The latter can be specified by name, id, or indirectly |
| 43 | 49 | # through the id of one of the revisions it contains. |
| 44 | 50 | |
| @@ -79,10 +85,11 @@ | ||
| 79 | 85 | default { |
| 80 | 86 | trouble fatal \ |
| 81 | 87 | "Unknown spec \"$what\", expected one of \"fid\", \"fname\", or \"rid\"" |
| 82 | 88 | } |
| 83 | 89 | } |
| 90 | +trouble abort? | |
| 84 | 91 | |
| 85 | 92 | set pid [state one { SELECT pid FROM file WHERE fid == $fid }] |
| 86 | 93 | |
| 87 | 94 | puts "File : [state one { SELECT name FROM file WHERE fid = $fid }] ($fid)" |
| 88 | 95 | puts "Project : [state one { SELECT name FROM project WHERE pid = $pid }] ($pid)" |
| 89 | 96 |
| --- tools/cvs2fossil/filerevtree | |
| +++ tools/cvs2fossil/filerevtree | |
| @@ -30,15 +30,21 @@ | |
| 30 | package require struct::list ; # Higher order list ops. |
| 31 | package require vc::fossil::import::cvs::project::rev ; # Changesets |
| 32 | package require vc::fossil::import::cvs::state ; # State storage. |
| 33 | package require vc::tools::misc ; # Min/max. |
| 34 | package require vc::tools::dot ; # Graph export to DOT. |
| 35 | |
| 36 | namespace import ::vc::fossil::import::cvs::state |
| 37 | namespace import ::vc::fossil::import::cvs::project::rev |
| 38 | namespace import ::vc::tools::dot |
| 39 | namespace import ::vc::tools::misc::* |
| 40 | |
| 41 | # Process the command line, i.e. get the database to access, and file |
| 42 | # of interest. The latter can be specified by name, id, or indirectly |
| 43 | # through the id of one of the revisions it contains. |
| 44 | |
| @@ -79,10 +85,11 @@ | |
| 79 | default { |
| 80 | trouble fatal \ |
| 81 | "Unknown spec \"$what\", expected one of \"fid\", \"fname\", or \"rid\"" |
| 82 | } |
| 83 | } |
| 84 | |
| 85 | set pid [state one { SELECT pid FROM file WHERE fid == $fid }] |
| 86 | |
| 87 | puts "File : [state one { SELECT name FROM file WHERE fid = $fid }] ($fid)" |
| 88 | puts "Project : [state one { SELECT name FROM project WHERE pid = $pid }] ($pid)" |
| 89 |
| --- tools/cvs2fossil/filerevtree | |
| +++ tools/cvs2fossil/filerevtree | |
| @@ -30,15 +30,21 @@ | |
| 30 | package require struct::list ; # Higher order list ops. |
| 31 | package require vc::fossil::import::cvs::project::rev ; # Changesets |
| 32 | package require vc::fossil::import::cvs::state ; # State storage. |
| 33 | package require vc::tools::misc ; # Min/max. |
| 34 | package require vc::tools::dot ; # Graph export to DOT. |
| 35 | package require vc::tools::trouble ; # Error reporting |
| 36 | package require vc::tools::log ; # User feedback |
| 37 | |
| 38 | namespace import ::vc::fossil::import::cvs::state |
| 39 | namespace import ::vc::fossil::import::cvs::project::rev |
| 40 | namespace import ::vc::tools::dot |
| 41 | namespace import ::vc::tools::trouble |
| 42 | namespace import ::vc::tools::log |
| 43 | namespace import ::vc::tools::misc::* |
| 44 | |
| 45 | log verbosity 0 |
| 46 | |
| 47 | # Process the command line, i.e. get the database to access, and file |
| 48 | # of interest. The latter can be specified by name, id, or indirectly |
| 49 | # through the id of one of the revisions it contains. |
| 50 | |
| @@ -79,10 +85,11 @@ | |
| 85 | default { |
| 86 | trouble fatal \ |
| 87 | "Unknown spec \"$what\", expected one of \"fid\", \"fname\", or \"rid\"" |
| 88 | } |
| 89 | } |
| 90 | trouble abort? |
| 91 | |
| 92 | set pid [state one { SELECT pid FROM file WHERE fid == $fid }] |
| 93 | |
| 94 | puts "File : [state one { SELECT name FROM file WHERE fid = $fid }] ($fid)" |
| 95 | puts "Project : [state one { SELECT name FROM project WHERE pid = $pid }] ($pid)" |
| 96 |