Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Simplified the code for excluding non-trunk revisions a bit, using higher-level methods for some changes. Added missing revision destruction. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
436f17a5f0a396584f9caffff3b92061 |
| User & Date: | aku 2007-10-21 07:08:28.000 |
Context
|
2007-10-23
| ||
| 02:29 | Due to quickly building memory pressure for large cvs repositories (thousands of revisions and symbol object) we have to save the pertinent information of a file immediately after it has been processed and then clear the memory. Inserted the basic skeleton for this into pass and file objects. ... (check-in: 3a00ac5aa2 user: aku tags: trunk) | |
|
2007-10-21
| ||
| 07:08 | Simplified the code for excluding non-trunk revisions a bit, using higher-level methods for some changes. Added missing revision destruction. ... (check-in: 436f17a5f0 user: aku tags: trunk) | |
| 06:10 | Added code able to exclude all non-trunk revisions upon user request. ... (check-in: 886b6f257b user: aku tags: trunk) | |
Changes
Changes to tools/cvs2fossil/lib/c2f_file.tcl.
| ︙ | ︙ | |||
660 661 662 663 664 665 666 667 668 669 670 671 672 673 |
}
# Change the type of first (typically from Change to Add):
$first retype add
# Move any tags and branches from the old to the new root.
$rev11 movesymbolsto $first
}
# Mark all the special revisions as such
foreach rev $revlist {
log write 3 file "Revision on default branch: [$rev revnr]"
$rev setondefaultbranch 1
}
| > | 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 |
}
# Change the type of first (typically from Change to Add):
$first retype add
# Move any tags and branches from the old to the new root.
$rev11 movesymbolsto $first
$rev11 destroy
}
# Mark all the special revisions as such
foreach rev $revlist {
log write 3 file "Revision on default branch: [$rev revnr]"
$rev setondefaultbranch 1
}
|
| ︙ | ︙ | |||
939 940 941 942 943 944 945 |
if {[$last hasdefaultbranchchild]} {
set rev12 [$last defaultbranchchild]
$rev12 cutdefaultbranchparent
$last cutdefaultbranchchild
| < < < | < < | | 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 |
if {[$last hasdefaultbranchchild]} {
set rev12 [$last defaultbranchchild]
$rev12 cutdefaultbranchparent
$last cutdefaultbranchchild
$rev12 changeparent $last
$last changechild $rev12
ldelete myroots $rev12
# Note and remember that the type of rev12 was already
# adjusted by AdjustNonTrunkDefaultBranch, so we don't
# have to change its type here.
}
|
| ︙ | ︙ |
Changes to tools/cvs2fossil/lib/c2f_frev.tcl.
| ︙ | ︙ | |||
122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
method cutfromchild {} { set mychild "" ; return }
method setchild {child} {
if {$mychild ne ""} { trouble internal "Child already defined" }
set mychild $child
return
}
method parent {} { return $myparent }
method child {} { return $mychild }
# Branch linkage ______________________
method setparentbranch {branch} {
| > > > | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
method cutfromchild {} { set mychild "" ; return }
method setchild {child} {
if {$mychild ne ""} { trouble internal "Child already defined" }
set mychild $child
return
}
method changeparent {parent} { set myparent $parent ; return }
method changechild {child} { set mychild $child ; return }
method parent {} { return $myparent }
method child {} { return $mychild }
# Branch linkage ______________________
method setparentbranch {branch} {
|
| ︙ | ︙ |