Differences From:

File tools/cvs2fossil/lib/c2f_project.tcl part of check-in [a3cd0c3099] - More handling for option --trunk-only. by aku on 2007-10-17 03:10:46. [view]

To:

File tools/cvs2fossil/lib/c2f_project.tcl part of check-in [cfe4b269ac] - Added detection of irrelevant trunk revisions for files added to a branch but not the trunk. Repository extended to keep inverted indices for the meta data and commit messages for retrieval of commit messages per meta data, required for the previous. fixed problem with file objects, we kept only the rcs path, and need the user visible path too. by aku on 2007-10-17 04:37:05. [view]

@@ -59,11 +59,12 @@
     method files {} {
 	return [TheFiles]
     }
 
-    delegate method defauthor   to myrepository
-    delegate method defcmessage to myrepository
-    delegate method trunkonly   to myrepository
+    delegate method defauthor       to myrepository
+    delegate method defcmessage     to myrepository
+    delegate method trunkonly       to myrepository
+    delegate method commitmessageof to myrepository
 
     method defmeta {bid aid cid} {
 	return [$myrepository defmeta $myid $bid $aid $cid]
     }
@@ -140,11 +141,11 @@
 
     proc EmptyFiles {fv} {
 	upvar 1 $fv myfiles self self
 	set res {}
-	foreach item [lsort -dict [array names myfiles]] {
-	    struct::list assign $item f executable
-	    lappend res [file %AUTO% $f $executable $self]
+	foreach rcs [lsort -dict [array names myfiles]] {
+	    struct::list assign $myfiles($rcs) f executable
+	    lappend res [file %AUTO% $rcs $f $executable $self]
 	}
 	return $res
     }