Fossil SCM
Actually put the code for the new pass into the repository.
Commit
060513f2a9d9794936741279999fb6266b03032f
Parent
e8c374f670bebb4…
1 file changed
+48
| --- a/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | ||
| @@ -0,0 +1,48 @@ | ||
| 1 | + | |
| 2 | +## from the file level dependencies and stores them in the state for | |
| 3 | +## use by the cycle breaker and topological sorting passes. | |
| 4 | + | |
| 5 | +# # ## ### ##### ######## ############# ##################### | |
| 6 | +## Requirements | |
| 7 | + | |
| 8 | +package require Tcl 8.4 ; # Required runtime. | |
| 9 | +package require snit ; # OO system. | |
| 10 | +package require vc::tools::misc ; # Text formatting. | |
| 11 | +package require vc::tools::log ; # User feedback. | |
| 12 | +package require vc::fossil::import::cvs::state ; # State storage. | |
| 13 | +package require vc::fossil::import::cvs::project::rev ; # Project level changesets | |
| 14 | + | |
| 15 | +# # ## ### ##### ######## ############# ##################### | |
| 16 | +## Register the pass with the management | |
| 17 | + | |
| 18 | +vc::fossil::import::cvs::pass defhangeSet Dependencies} \ | |
| 19 | + ::vc::fossil::import::cvs::pass::csetdeps | |
| 20 | + | |
| 21 | +# # ## ### ##### ######## ############# ##################### | |
| 22 | +## | |
| 23 | + | |
| 24 | +snit::type ::vc::fossil::import::cvs::pass::csetdeps { | |
| 25 | + # # ## ### ##### ######## ############# | |
| 26 | + ## Public API | |
| 27 | + | |
| 28 | + typemethod setup {} { | |
| 29 | + # Define the names and structure of the persistent state of | |
| 30 | + # this pass. | |
| 31 | + | |
| 32 | + state use project | |
| 33 | + state use file | |
| 34 | + state use revision | |
| 35 | + state use revisionbranchchildren | |
| 36 | + state use branch | |
| 37 | + state use tag | |
| 38 | + state use symbol | |
| 39 | + state use preferedparent | |
| 40 | + state use changeset | |
| 41 | + state use csitem | |
| 42 | + | |
| 43 | + # A table listing for each changeset the set of successor | |
| 44 | + # changesets. The predecessor information is implied. | |
| 45 | + | |
| 46 | + state extend cssuccessor { | |
| 47 | + cid INTEGER NOT NULL REFERENCES changeset, | |
| 48 | + nid INTEGER NOT NULL REFERENCES ch |
| --- a/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | |
| @@ -0,0 +1,48 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_pcsetdeps.tcl | |
| @@ -0,0 +1,48 @@ | |
| 1 | |
| 2 | ## from the file level dependencies and stores them in the state for |
| 3 | ## use by the cycle breaker and topological sorting passes. |
| 4 | |
| 5 | # # ## ### ##### ######## ############# ##################### |
| 6 | ## Requirements |
| 7 | |
| 8 | package require Tcl 8.4 ; # Required runtime. |
| 9 | package require snit ; # OO system. |
| 10 | package require vc::tools::misc ; # Text formatting. |
| 11 | package require vc::tools::log ; # User feedback. |
| 12 | package require vc::fossil::import::cvs::state ; # State storage. |
| 13 | package require vc::fossil::import::cvs::project::rev ; # Project level changesets |
| 14 | |
| 15 | # # ## ### ##### ######## ############# ##################### |
| 16 | ## Register the pass with the management |
| 17 | |
| 18 | vc::fossil::import::cvs::pass defhangeSet Dependencies} \ |
| 19 | ::vc::fossil::import::cvs::pass::csetdeps |
| 20 | |
| 21 | # # ## ### ##### ######## ############# ##################### |
| 22 | ## |
| 23 | |
| 24 | snit::type ::vc::fossil::import::cvs::pass::csetdeps { |
| 25 | # # ## ### ##### ######## ############# |
| 26 | ## Public API |
| 27 | |
| 28 | typemethod setup {} { |
| 29 | # Define the names and structure of the persistent state of |
| 30 | # this pass. |
| 31 | |
| 32 | state use project |
| 33 | state use file |
| 34 | state use revision |
| 35 | state use revisionbranchchildren |
| 36 | state use branch |
| 37 | state use tag |
| 38 | state use symbol |
| 39 | state use preferedparent |
| 40 | state use changeset |
| 41 | state use csitem |
| 42 | |
| 43 | # A table listing for each changeset the set of successor |
| 44 | # changesets. The predecessor information is implied. |
| 45 | |
| 46 | state extend cssuccessor { |
| 47 | cid INTEGER NOT NULL REFERENCES changeset, |
| 48 | nid INTEGER NOT NULL REFERENCES ch |