Differences From:
File
tools/cvs2fossil/lib/c2f_file.tcl
part of check-in
[da9295c6f6]
- Continued to flesh out revision and symbol processing. Started on the project level classses.
by
aku on
2007-10-12 07:18:27.
[view]
To:
File
tools/cvs2fossil/lib/c2f_file.tcl
part of check-in
[40eaf58ec7]
- 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.
by
aku on
2007-10-12 07:20:47.
[view]
@@ -47,8 +47,9 @@
#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}
@@ -60,14 +61,9 @@
# # ## ### ##### ######## #############
## 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
@@ -96,9 +92,12 @@
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
@@ -112,8 +111,13 @@
RecordBasicDependencies $revnr $next
return
}
+
+ method defdone {} {
+ }
+
+ method setdesc {d} {# ignore}
method extend {revnr commitmsg deltarange} {
set cm [string trim $commitmsg]
$myproject cmessage $cm
@@ -165,8 +169,10 @@
lappend myrevisions $rev
return
}
+
+ method done {} {}
# # ## ### ##### ######## #############
## State