Fossil SCM
Renamed changeset method to describe modified results, and updated the one invoker
Commit
61829b076bd6e1bb9b40794206cb1dd5f8eca8ea
Parent
04d76a9e797fbef…
2 files changed
+3
-3
+4
-4
| --- tools/cvs2fossil/lib/c2f_prev.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | ||
| @@ -71,13 +71,13 @@ | ||
| 71 | 71 | } |
| 72 | 72 | append str "$mytype ${myid}${detail}>" |
| 73 | 73 | return $str |
| 74 | 74 | } |
| 75 | 75 | |
| 76 | - method id {} { return $myid } | |
| 77 | - method revisions {} { return $mytitems } | |
| 78 | - method data {} { return [list $myproject $mytype $mysrcid] } | |
| 76 | + method id {} { return $myid } | |
| 77 | + method items {} { return $mytitems } | |
| 78 | + method data {} { return [list $myproject $mytype $mysrcid] } | |
| 79 | 79 | |
| 80 | 80 | delegate method bysymbol to mytypeobj |
| 81 | 81 | delegate method byrevision to mytypeobj |
| 82 | 82 | delegate method isbranch to mytypeobj |
| 83 | 83 | delegate method istag to mytypeobj |
| 84 | 84 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -71,13 +71,13 @@ | |
| 71 | } |
| 72 | append str "$mytype ${myid}${detail}>" |
| 73 | return $str |
| 74 | } |
| 75 | |
| 76 | method id {} { return $myid } |
| 77 | method revisions {} { return $mytitems } |
| 78 | method data {} { return [list $myproject $mytype $mysrcid] } |
| 79 | |
| 80 | delegate method bysymbol to mytypeobj |
| 81 | delegate method byrevision to mytypeobj |
| 82 | delegate method isbranch to mytypeobj |
| 83 | delegate method istag to mytypeobj |
| 84 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -71,13 +71,13 @@ | |
| 71 | } |
| 72 | append str "$mytype ${myid}${detail}>" |
| 73 | return $str |
| 74 | } |
| 75 | |
| 76 | method id {} { return $myid } |
| 77 | method items {} { return $mytitems } |
| 78 | method data {} { return [list $myproject $mytype $mysrcid] } |
| 79 | |
| 80 | delegate method bysymbol to mytypeobj |
| 81 | delegate method byrevision to mytypeobj |
| 82 | delegate method isbranch to mytypeobj |
| 83 | delegate method istag to mytypeobj |
| 84 |
| --- tools/cvs2fossil/lib/c2f_prevlink.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_prevlink.tcl | ||
| @@ -73,15 +73,15 @@ | ||
| 73 | 73 | # not break the cycle, only weaken it. |
| 74 | 74 | |
| 75 | 75 | array set csetprevmap [Invert [$myprev nextmap]] |
| 76 | 76 | array set csetnextmap [$mycset nextmap] |
| 77 | 77 | |
| 78 | - set prevrev [$myprev revisions] | |
| 79 | - set nextrev [$mynext revisions] | |
| 78 | + set prevrev [$myprev items] | |
| 79 | + set nextrev [$mynext items] | |
| 80 | 80 | |
| 81 | - foreach r [$mycset revisions] { | |
| 82 | - set rt [RT $r] | |
| 81 | + foreach items [$mycset items] { | |
| 82 | + set rt [RT $items] | |
| 83 | 83 | incr mycount($rt) |
| 84 | 84 | lappend mycategory($rt) $r |
| 85 | 85 | } |
| 86 | 86 | return |
| 87 | 87 | } |
| 88 | 88 |
| --- tools/cvs2fossil/lib/c2f_prevlink.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prevlink.tcl | |
| @@ -73,15 +73,15 @@ | |
| 73 | # not break the cycle, only weaken it. |
| 74 | |
| 75 | array set csetprevmap [Invert [$myprev nextmap]] |
| 76 | array set csetnextmap [$mycset nextmap] |
| 77 | |
| 78 | set prevrev [$myprev revisions] |
| 79 | set nextrev [$mynext revisions] |
| 80 | |
| 81 | foreach r [$mycset revisions] { |
| 82 | set rt [RT $r] |
| 83 | incr mycount($rt) |
| 84 | lappend mycategory($rt) $r |
| 85 | } |
| 86 | return |
| 87 | } |
| 88 |
| --- tools/cvs2fossil/lib/c2f_prevlink.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prevlink.tcl | |
| @@ -73,15 +73,15 @@ | |
| 73 | # not break the cycle, only weaken it. |
| 74 | |
| 75 | array set csetprevmap [Invert [$myprev nextmap]] |
| 76 | array set csetnextmap [$mycset nextmap] |
| 77 | |
| 78 | set prevrev [$myprev items] |
| 79 | set nextrev [$mynext items] |
| 80 | |
| 81 | foreach items [$mycset items] { |
| 82 | set rt [RT $items] |
| 83 | incr mycount($rt) |
| 84 | lappend mycategory($rt) $r |
| 85 | } |
| 86 | return |
| 87 | } |
| 88 |