Differences From:
File
tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
part of check-in
[87cf609021]
- Created convenience methods to create the human readable repesentation of a changeset and lists of such, and made liberal use of them.
by
aku on
2007-11-24 05:31:30.
[view]
To:
File
tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
part of check-in
[b6b7ff79cc]
- Moved the parts taken over by the top. sort passes out the breaker passes, and renumbered them (comments).
by
aku on
2007-11-25 03:00:50.
[view]
@@ -48,34 +48,22 @@
state reading revision
state reading changeset
state reading csrevision
-
- state writing csorder {
- -- Commit order of changesets based on their dependencies
- cid INTEGER NOT NULL REFERENCES changeset,
- pos INTEGER NOT NULL,
- UNIQUE (cid),
- UNIQUE (pos)
- }
return
}
typemethod load {} {
# Pass manager interface. Executed to load data computed by
# this pass into memory when this pass is skipped instead of
# executed.
-
- state reading changeset
- project::rev loadcounter
return
}
typemethod run {} {
# Pass manager interface. Executed to perform the
# functionality of the pass.
- cyclebreaker savecmd [myproc SaveOrder]
cyclebreaker breakcmd {::vc::fossil::import::cvs::cyclebreaker break}
state transaction {
cyclebreaker run break-rev [myproc Changesets]
@@ -88,10 +76,8 @@
typemethod discard {} {
# Pass manager interface. Executed for all passes after the
# run passes, to remove all data of this pass from the state,
# as being out of date.
-
- state discard csorder
return
}
# # ## ### ##### ######## #############
@@ -101,20 +87,8 @@
return [struct::list filter [project::rev all] [myproc IsByRevision]]
}
proc IsByRevision {cset} { $cset byrevision }
-
- proc SaveOrder {graph at cset} {
- set cid [$cset id]
-
- log write 4 breakrcycle "Comitting @ $at: [$cset str]"
- state run {
- INSERT INTO csorder (cid, pos)
- VALUES ($cid, $at)
- }
- # MAYBE TODO: Write the project level changeset dependencies as well.
- return
- }
# # ## ### ##### ######## #############
## Configuration