SHA1 Hash:	40eaf58ec7e1d54971d6eca97bd66734a6804578
Date:	2007-10-12 07:20:47
User:	aku
Comment:	Extended rcs parser with another callback run after the processing of the revision tree completed, before starting on description and delta texts. Updated file class to intercept the callback.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_file.tcl from [00ef0cca21] to [f38b4ceaf7].

@@ -46,10 +46,11 @@
     #method setprincipalbranch {b} {puts pb=$b}
     #method deftag {s r} {puts $s=$r}
     #method setcomment {c} {puts comment=$c}
     #method admindone {} {puts admindone}
     #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"}
+    #method defdone {} {puts def-done}
     #method setdesc {d} {puts desc=$d}
     #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"}
     #method done {} {puts done}
 
     # # ## ### ##### ######## #############
@@ -59,16 +60,11 @@
     }
 
     # # ## ### ##### ######## #############
     ## Implement the sink
 
-    method begin {} {}
-    method done {} {}
-
-    method admindone {} {
-	# We do nothing at the boundary of admin and revision data
-    }
+    method begin {} {#ignore}
 
     method sethead {revnr} {
 	set myhead $revnr
 	return
     }
@@ -95,11 +91,14 @@
 	}
 	return
     }
 
     method setcomment {c} {# ignore}
-    method setdesc    {d} {# ignore}
+
+    method admindone {} {
+	# We do nothing at the boundary of admin and revision data
+    }
 
     method def {revnr date author state next branches} {
 	$self LookForUnlabeledBranches $branches
 	$myproject author $author
 
@@ -111,10 +110,15 @@
 	set myrev($revnr) [rev %AUTO% $revnr $date $author $state $self]
 
 	RecordBasicDependencies $revnr $next
 	return
     }
+
+    method defdone {} {
+    }
+
+    method setdesc {d} {# ignore}
 
     method extend {revnr commitmsg deltarange} {
 	set cm [string trim $commitmsg]
 	$myproject cmessage $cm
 
@@ -164,10 +168,12 @@
 	# were added to the file.
 
 	lappend myrevisions $rev
 	return
     }
+
+    method done {} {}
 
     # # ## ### ##### ######## #############
     ## State
 
     variable mypath            {} ; # Path of rcs archive

Modified tools/cvs2fossil/lib/rcsparser.tcl from [de1194a8ed] to [fe220d9710].

@@ -127,10 +127,11 @@
 	    State    -> s
 	    Branches -> b
 	    NextRev  -> n
 	    Call def $rev $d $a $s $n $b
 	}
+	Call defdone
 	return
     }
 
     # # ## ### ##### ######## #############