Fossil SCM
Bugfix. Have the symbol dependency retrieval commands actually return something.
Commit
712010580ae12c2e126e5cf39d0d73211f75bfa6
Parent
ac026148036db7a…
1 file changed
+3
| --- tools/cvs2fossil/lib/c2f_prev.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | ||
| @@ -1102,10 +1102,11 @@ | ||
| 1102 | 1102 | return |
| 1103 | 1103 | } |
| 1104 | 1104 | |
| 1105 | 1105 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1106 | 1106 | typemethod predecessors {dv tags} { |
| 1107 | + upvar 1 $dv dependencies | |
| 1107 | 1108 | # The predecessors of a tag are all the revisions the tags are |
| 1108 | 1109 | # attached to, as well as all the branches or tags which are |
| 1109 | 1110 | # their prefered parents. |
| 1110 | 1111 | |
| 1111 | 1112 | set theset ('[join $tags {','}]') |
| @@ -1180,10 +1181,11 @@ | ||
| 1180 | 1181 | "] |
| 1181 | 1182 | } |
| 1182 | 1183 | |
| 1183 | 1184 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1184 | 1185 | typemethod successors {dv branches} { |
| 1186 | + upvar 1 $dv dependencies | |
| 1185 | 1187 | # The first revision committed on a branch, and all branches |
| 1186 | 1188 | # and tags which have it as their prefered parent are the |
| 1187 | 1189 | # successors of a branch. |
| 1188 | 1190 | |
| 1189 | 1191 | set theset ('[join $branches {','}]') |
| @@ -1216,10 +1218,11 @@ | ||
| 1216 | 1218 | return |
| 1217 | 1219 | } |
| 1218 | 1220 | |
| 1219 | 1221 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1220 | 1222 | typemethod predecessors {dv branches} { |
| 1223 | + upvar 1 $dv dependencies | |
| 1221 | 1224 | # The predecessors of a branch are all the revisions the |
| 1222 | 1225 | # branches are spawned from, as well as all the branches or |
| 1223 | 1226 | # tags which are their prefered parents. |
| 1224 | 1227 | |
| 1225 | 1228 | set theset ('[join $tags {','}]') |
| 1226 | 1229 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -1102,10 +1102,11 @@ | |
| 1102 | return |
| 1103 | } |
| 1104 | |
| 1105 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1106 | typemethod predecessors {dv tags} { |
| 1107 | # The predecessors of a tag are all the revisions the tags are |
| 1108 | # attached to, as well as all the branches or tags which are |
| 1109 | # their prefered parents. |
| 1110 | |
| 1111 | set theset ('[join $tags {','}]') |
| @@ -1180,10 +1181,11 @@ | |
| 1180 | "] |
| 1181 | } |
| 1182 | |
| 1183 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1184 | typemethod successors {dv branches} { |
| 1185 | # The first revision committed on a branch, and all branches |
| 1186 | # and tags which have it as their prefered parent are the |
| 1187 | # successors of a branch. |
| 1188 | |
| 1189 | set theset ('[join $branches {','}]') |
| @@ -1216,10 +1218,11 @@ | |
| 1216 | return |
| 1217 | } |
| 1218 | |
| 1219 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1220 | typemethod predecessors {dv branches} { |
| 1221 | # The predecessors of a branch are all the revisions the |
| 1222 | # branches are spawned from, as well as all the branches or |
| 1223 | # tags which are their prefered parents. |
| 1224 | |
| 1225 | set theset ('[join $tags {','}]') |
| 1226 |
| --- tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -1102,10 +1102,11 @@ | |
| 1102 | return |
| 1103 | } |
| 1104 | |
| 1105 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1106 | typemethod predecessors {dv tags} { |
| 1107 | upvar 1 $dv dependencies |
| 1108 | # The predecessors of a tag are all the revisions the tags are |
| 1109 | # attached to, as well as all the branches or tags which are |
| 1110 | # their prefered parents. |
| 1111 | |
| 1112 | set theset ('[join $tags {','}]') |
| @@ -1180,10 +1181,11 @@ | |
| 1181 | "] |
| 1182 | } |
| 1183 | |
| 1184 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1185 | typemethod successors {dv branches} { |
| 1186 | upvar 1 $dv dependencies |
| 1187 | # The first revision committed on a branch, and all branches |
| 1188 | # and tags which have it as their prefered parent are the |
| 1189 | # successors of a branch. |
| 1190 | |
| 1191 | set theset ('[join $branches {','}]') |
| @@ -1216,10 +1218,11 @@ | |
| 1218 | return |
| 1219 | } |
| 1220 | |
| 1221 | # var(dv) = dict (item -> list (item)), item = list (type id) |
| 1222 | typemethod predecessors {dv branches} { |
| 1223 | upvar 1 $dv dependencies |
| 1224 | # The predecessors of a branch are all the revisions the |
| 1225 | # branches are spawned from, as well as all the branches or |
| 1226 | # tags which are their prefered parents. |
| 1227 | |
| 1228 | set theset ('[join $tags {','}]') |
| 1229 |