Fossil SCM
Extended file-level symbols and project-level trunk with methods to allow users to distinguish them (trunk vs. not trunk, for use as lines of development).
Commit
09af24fc7cedafa05a2937b88c429c67ddc27f5d
Parent
b5b2d61527be84a…
2 files changed
+2
+3
-2
| --- tools/cvs2fossil/lib/c2f_fsym.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_fsym.tcl | ||
| @@ -42,10 +42,12 @@ | ||
| 42 | 42 | |
| 43 | 43 | # Symbol acessor methods. |
| 44 | 44 | |
| 45 | 45 | delegate method name to mysymbol |
| 46 | 46 | delegate method id to mysymbol |
| 47 | + | |
| 48 | + method istrunk {} { return 0 } | |
| 47 | 49 | |
| 48 | 50 | # Branch acessor methods. |
| 49 | 51 | |
| 50 | 52 | method setchildrevnr {revnr} { |
| 51 | 53 | if {$mybranchchildrevnr ne ""} { trouble internal "Child already defined" } |
| 52 | 54 |
| --- tools/cvs2fossil/lib/c2f_fsym.tcl | |
| +++ tools/cvs2fossil/lib/c2f_fsym.tcl | |
| @@ -42,10 +42,12 @@ | |
| 42 | |
| 43 | # Symbol acessor methods. |
| 44 | |
| 45 | delegate method name to mysymbol |
| 46 | delegate method id to mysymbol |
| 47 | |
| 48 | # Branch acessor methods. |
| 49 | |
| 50 | method setchildrevnr {revnr} { |
| 51 | if {$mybranchchildrevnr ne ""} { trouble internal "Child already defined" } |
| 52 |
| --- tools/cvs2fossil/lib/c2f_fsym.tcl | |
| +++ tools/cvs2fossil/lib/c2f_fsym.tcl | |
| @@ -42,10 +42,12 @@ | |
| 42 | |
| 43 | # Symbol acessor methods. |
| 44 | |
| 45 | delegate method name to mysymbol |
| 46 | delegate method id to mysymbol |
| 47 | |
| 48 | method istrunk {} { return 0 } |
| 49 | |
| 50 | # Branch acessor methods. |
| 51 | |
| 52 | method setchildrevnr {revnr} { |
| 53 | if {$mybranchchildrevnr ne ""} { trouble internal "Child already defined" } |
| 54 |
| --- tools/cvs2fossil/lib/c2f_ptrunk.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_ptrunk.tcl | ||
| @@ -27,12 +27,13 @@ | ||
| 27 | 27 | |
| 28 | 28 | constructor {} { |
| 29 | 29 | return |
| 30 | 30 | } |
| 31 | 31 | |
| 32 | - method name {} { return :trunk: } | |
| 33 | - method id {} { return {} } | |
| 32 | + method name {} { return :trunk: } | |
| 33 | + method id {} { return {} } | |
| 34 | + method istrunk {} { return 1 } | |
| 34 | 35 | |
| 35 | 36 | # # ## ### ##### ######## ############# |
| 36 | 37 | ## State |
| 37 | 38 | |
| 38 | 39 | # # ## ### ##### ######## ############# |
| 39 | 40 |
| --- tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| +++ tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| @@ -27,12 +27,13 @@ | |
| 27 | |
| 28 | constructor {} { |
| 29 | return |
| 30 | } |
| 31 | |
| 32 | method name {} { return :trunk: } |
| 33 | method id {} { return {} } |
| 34 | |
| 35 | # # ## ### ##### ######## ############# |
| 36 | ## State |
| 37 | |
| 38 | # # ## ### ##### ######## ############# |
| 39 |
| --- tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| +++ tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| @@ -27,12 +27,13 @@ | |
| 27 | |
| 28 | constructor {} { |
| 29 | return |
| 30 | } |
| 31 | |
| 32 | method name {} { return :trunk: } |
| 33 | method id {} { return {} } |
| 34 | method istrunk {} { return 1 } |
| 35 | |
| 36 | # # ## ### ##### ######## ############# |
| 37 | ## State |
| 38 | |
| 39 | # # ## ### ##### ######## ############# |
| 40 |