Fossil SCM
Simplified some code dealing with the item -> changeset map, using the changed semantics (1:n -> 1:1).
Commit
39e19c0cf304c7ba7dd2e5a65ba8b8e1cc3e7792
Parent
deab4d035be04cb…
1 file changed
+3
-12
+3
-12
| --- tools/cvs2fossil/lib/c2f_prev.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | ||
| @@ -89,14 +89,11 @@ | ||
| 89 | 89 | method successormap {} { |
| 90 | 90 | # NOTE / FUTURE: Possible bottleneck. |
| 91 | 91 | array set tmp {} |
| 92 | 92 | foreach {rev children} [$self nextmap] { |
| 93 | 93 | foreach child $children { |
| 94 | - # 8.5 lappend tmp($rev) {*}$myitemmap($child) | |
| 95 | - foreach cset $myitemmap($child) { | |
| 96 | - lappend tmp($rev) $cset | |
| 97 | - } | |
| 94 | + lappend tmp($rev) $myitemmap($child) | |
| 98 | 95 | } |
| 99 | 96 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 100 | 97 | } |
| 101 | 98 | return [array get tmp] |
| 102 | 99 | } |
| @@ -105,14 +102,11 @@ | ||
| 105 | 102 | method successors {} { |
| 106 | 103 | # NOTE / FUTURE: Possible bottleneck. |
| 107 | 104 | set csets {} |
| 108 | 105 | foreach {_ children} [$self nextmap] { |
| 109 | 106 | foreach child $children { |
| 110 | - # 8.5 lappend csets {*}$myitemmap($child) | |
| 111 | - foreach cset $myitemmap($child) { | |
| 112 | - lappend csets $cset | |
| 113 | - } | |
| 107 | + lappend csets $myitemmap($child) | |
| 114 | 108 | } |
| 115 | 109 | } |
| 116 | 110 | return [lsort -unique $csets] |
| 117 | 111 | } |
| 118 | 112 | |
| @@ -120,14 +114,11 @@ | ||
| 120 | 114 | method predecessormap {} { |
| 121 | 115 | # NOTE / FUTURE: Possible bottleneck. |
| 122 | 116 | array set tmp {} |
| 123 | 117 | foreach {rev children} [$self premap] { |
| 124 | 118 | foreach child $children { |
| 125 | - # 8.5 lappend tmp($rev) {*}$myitemmap($child) | |
| 126 | - foreach cset $myitemmap($child) { | |
| 127 | - lappend tmp($rev) $cset | |
| 128 | - } | |
| 119 | + lappend tmp($rev) $myitemmap($child) | |
| 129 | 120 | } |
| 130 | 121 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 131 | 122 | } |
| 132 | 123 | return [array get tmp] |
| 133 | 124 | } |
| 134 | 125 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -89,14 +89,11 @@ | |
| 89 | method successormap {} { |
| 90 | # NOTE / FUTURE: Possible bottleneck. |
| 91 | array set tmp {} |
| 92 | foreach {rev children} [$self nextmap] { |
| 93 | foreach child $children { |
| 94 | # 8.5 lappend tmp($rev) {*}$myitemmap($child) |
| 95 | foreach cset $myitemmap($child) { |
| 96 | lappend tmp($rev) $cset |
| 97 | } |
| 98 | } |
| 99 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 100 | } |
| 101 | return [array get tmp] |
| 102 | } |
| @@ -105,14 +102,11 @@ | |
| 105 | method successors {} { |
| 106 | # NOTE / FUTURE: Possible bottleneck. |
| 107 | set csets {} |
| 108 | foreach {_ children} [$self nextmap] { |
| 109 | foreach child $children { |
| 110 | # 8.5 lappend csets {*}$myitemmap($child) |
| 111 | foreach cset $myitemmap($child) { |
| 112 | lappend csets $cset |
| 113 | } |
| 114 | } |
| 115 | } |
| 116 | return [lsort -unique $csets] |
| 117 | } |
| 118 | |
| @@ -120,14 +114,11 @@ | |
| 120 | method predecessormap {} { |
| 121 | # NOTE / FUTURE: Possible bottleneck. |
| 122 | array set tmp {} |
| 123 | foreach {rev children} [$self premap] { |
| 124 | foreach child $children { |
| 125 | # 8.5 lappend tmp($rev) {*}$myitemmap($child) |
| 126 | foreach cset $myitemmap($child) { |
| 127 | lappend tmp($rev) $cset |
| 128 | } |
| 129 | } |
| 130 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 131 | } |
| 132 | return [array get tmp] |
| 133 | } |
| 134 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -89,14 +89,11 @@ | |
| 89 | method successormap {} { |
| 90 | # NOTE / FUTURE: Possible bottleneck. |
| 91 | array set tmp {} |
| 92 | foreach {rev children} [$self nextmap] { |
| 93 | foreach child $children { |
| 94 | lappend tmp($rev) $myitemmap($child) |
| 95 | } |
| 96 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 97 | } |
| 98 | return [array get tmp] |
| 99 | } |
| @@ -105,14 +102,11 @@ | |
| 102 | method successors {} { |
| 103 | # NOTE / FUTURE: Possible bottleneck. |
| 104 | set csets {} |
| 105 | foreach {_ children} [$self nextmap] { |
| 106 | foreach child $children { |
| 107 | lappend csets $myitemmap($child) |
| 108 | } |
| 109 | } |
| 110 | return [lsort -unique $csets] |
| 111 | } |
| 112 | |
| @@ -120,14 +114,11 @@ | |
| 114 | method predecessormap {} { |
| 115 | # NOTE / FUTURE: Possible bottleneck. |
| 116 | array set tmp {} |
| 117 | foreach {rev children} [$self premap] { |
| 118 | foreach child $children { |
| 119 | lappend tmp($rev) $myitemmap($child) |
| 120 | } |
| 121 | set tmp($rev) [lsort -unique $tmp($rev)] |
| 122 | } |
| 123 | return [array get tmp] |
| 124 | } |
| 125 |