Fossil SCM
Added skeleton and dump methods to make file objects proper sinks for the rcs parser.
Commit
2e3815c3b4b6f7e84f50abf876c95106c68769ce
Parent
e7bb3d073d90a44…
1 file changed
+25
| --- tools/cvs2fossil/lib/c2f_file.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_file.tcl | ||
| @@ -31,10 +31,35 @@ | ||
| 31 | 31 | set myproject $project |
| 32 | 32 | return |
| 33 | 33 | } |
| 34 | 34 | |
| 35 | 35 | method path {} { return $mypath } |
| 36 | + | |
| 37 | + # # ## ### ##### ######## ############# | |
| 38 | + ## Methods required for the class to be a sink of the rcs parser | |
| 39 | + | |
| 40 | + method begin {} {} | |
| 41 | + method sethead {h} {} | |
| 42 | + method setprincipalbranch {b} {} | |
| 43 | + method setsymbols {dict} {} | |
| 44 | + method setcomment {c} {} | |
| 45 | + method admindone {} {} | |
| 46 | + method def {rev date author state next branches} {} | |
| 47 | + method setdesc {d} {} | |
| 48 | + method extend {rev commitmsg deltarange} {} | |
| 49 | + method done {} {} | |
| 50 | + | |
| 51 | + #method begin {} {puts begin} | |
| 52 | + #method sethead {h} {puts head=$h} | |
| 53 | + #method setprincipalbranch {b} {puts pb=$b} | |
| 54 | + #method setsymbols {dict} {puts symbols=$dict} | |
| 55 | + #method setcomment {c} {puts comment=$c} | |
| 56 | + #method admindone {} {puts admindone} | |
| 57 | + #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"} | |
| 58 | + #method setdesc {d} {puts desc=$d} | |
| 59 | + #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"} | |
| 60 | + #method done {} {puts done} | |
| 36 | 61 | |
| 37 | 62 | # # ## ### ##### ######## ############# |
| 38 | 63 | ## State |
| 39 | 64 | |
| 40 | 65 | variable mypath {} ; # Path of rcs archive |
| 41 | 66 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -31,10 +31,35 @@ | |
| 31 | set myproject $project |
| 32 | return |
| 33 | } |
| 34 | |
| 35 | method path {} { return $mypath } |
| 36 | |
| 37 | # # ## ### ##### ######## ############# |
| 38 | ## State |
| 39 | |
| 40 | variable mypath {} ; # Path of rcs archive |
| 41 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -31,10 +31,35 @@ | |
| 31 | set myproject $project |
| 32 | return |
| 33 | } |
| 34 | |
| 35 | method path {} { return $mypath } |
| 36 | |
| 37 | # # ## ### ##### ######## ############# |
| 38 | ## Methods required for the class to be a sink of the rcs parser |
| 39 | |
| 40 | method begin {} {} |
| 41 | method sethead {h} {} |
| 42 | method setprincipalbranch {b} {} |
| 43 | method setsymbols {dict} {} |
| 44 | method setcomment {c} {} |
| 45 | method admindone {} {} |
| 46 | method def {rev date author state next branches} {} |
| 47 | method setdesc {d} {} |
| 48 | method extend {rev commitmsg deltarange} {} |
| 49 | method done {} {} |
| 50 | |
| 51 | #method begin {} {puts begin} |
| 52 | #method sethead {h} {puts head=$h} |
| 53 | #method setprincipalbranch {b} {puts pb=$b} |
| 54 | #method setsymbols {dict} {puts symbols=$dict} |
| 55 | #method setcomment {c} {puts comment=$c} |
| 56 | #method admindone {} {puts admindone} |
| 57 | #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"} |
| 58 | #method setdesc {d} {puts desc=$d} |
| 59 | #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"} |
| 60 | #method done {} {puts done} |
| 61 | |
| 62 | # # ## ### ##### ######## ############# |
| 63 | ## State |
| 64 | |
| 65 | variable mypath {} ; # Path of rcs archive |
| 66 |