Overview
SHA1 Hash: | 2e3815c3b4b6f7e84f50abf876c95106c68769ce |
---|---|
Date: | 2007-10-06 21:01:15 |
User: | aku |
Comment: | Added skeleton and dump methods to make file objects proper sinks for the rcs parser. |
Timelines: | ancestors | descendants | both | trunk |
Other Links: | files | ZIP archive | manifest |
Tags And Properties
- branch=trunk inherited from [a28c83647d]
- sym-trunk inherited from [a28c83647d]
Changes
[hide diffs]Modified tools/cvs2fossil/lib/c2f_file.tcl from [d278cae8eb] to [29f9eb7047].
@@ -31,10 +31,35 @@ set myproject $project return } method path {} { return $mypath } + + # # ## ### ##### ######## ############# + ## Methods required for the class to be a sink of the rcs parser + + method begin {} {} + method sethead {h} {} + method setprincipalbranch {b} {} + method setsymbols {dict} {} + method setcomment {c} {} + method admindone {} {} + method def {rev date author state next branches} {} + method setdesc {d} {} + method extend {rev commitmsg deltarange} {} + method done {} {} + + #method begin {} {puts begin} + #method sethead {h} {puts head=$h} + #method setprincipalbranch {b} {puts pb=$b} + #method setsymbols {dict} {puts symbols=$dict} + #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 setdesc {d} {puts desc=$d} + #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"} + #method done {} {puts done} # # ## ### ##### ######## ############# ## State variable mypath {} ; # Path of rcs archive