Check-in [61829b076b]
Not logged in
Overview

SHA1 Hash:61829b076bd6e1bb9b40794206cb1dd5f8eca8ea
Date: 2007-11-29 07:58:14
User: aku
Comment:Renamed changeset method to describe modified results, and updated the one invoker
Timelines: ancestors | descendants | both | trunk
Other Links: files | ZIP archive | manifest

Tags And Properties
Changes
[hide diffs]

Modified tools/cvs2fossil/lib/c2f_prev.tcl from [aa2d0f3589] to [f84e4346da].

@@ -71,13 +71,13 @@
 	}
 	append str "$mytype ${myid}${detail}>"
 	return $str
     }
 
-    method id        {} { return $myid }
-    method revisions {} { return $mytitems }
-    method data      {} { return [list $myproject $mytype $mysrcid] }
+    method id    {} { return $myid }
+    method items {} { return $mytitems }
+    method data  {} { return [list $myproject $mytype $mysrcid] }
 
     delegate method bysymbol   to mytypeobj
     delegate method byrevision to mytypeobj
     delegate method isbranch   to mytypeobj
     delegate method istag      to mytypeobj

Modified tools/cvs2fossil/lib/c2f_prevlink.tcl from [38dafe8989] to [7225a11a38].

@@ -73,15 +73,15 @@
 	# not break the cycle, only weaken it.
 
 	array set csetprevmap [Invert [$myprev nextmap]]
 	array set csetnextmap [$mycset nextmap]
 
-	set prevrev [$myprev revisions]
-	set nextrev [$mynext revisions]
-
-	foreach r [$mycset revisions] {
-	    set rt [RT $r]
+	set prevrev [$myprev items]
+	set nextrev [$mynext items]
+
+	foreach items [$mycset items] {
+	    set rt [RT $items]
 	    incr    mycount($rt)
 	    lappend mycategory($rt) $r
 	}
 	return
     }