Fossil SCM
Extended project class with method return full path of the project, i.e. inclusive its repository base path.
Commit
82e35d330423ddb6cdf0236db95ba18637063df2
Parent
0ee9711e2e4cc2b…
1 file changed
+2
| --- tools/cvs2fossil/lib/c2f_project.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_project.tcl | ||
| @@ -39,10 +39,12 @@ | ||
| 39 | 39 | return |
| 40 | 40 | } |
| 41 | 41 | |
| 42 | 42 | method base {} { return $mybase } |
| 43 | 43 | method trunk {} { return $mytrunk } |
| 44 | + | |
| 45 | + method fullpath {} { return [$myrepository base?]/$mybase } | |
| 44 | 46 | |
| 45 | 47 | method printbase {} { |
| 46 | 48 | if {$mybase eq ""} {return <Repository>} |
| 47 | 49 | return $mybase |
| 48 | 50 | } |
| 49 | 51 |
| --- tools/cvs2fossil/lib/c2f_project.tcl | |
| +++ tools/cvs2fossil/lib/c2f_project.tcl | |
| @@ -39,10 +39,12 @@ | |
| 39 | return |
| 40 | } |
| 41 | |
| 42 | method base {} { return $mybase } |
| 43 | method trunk {} { return $mytrunk } |
| 44 | |
| 45 | method printbase {} { |
| 46 | if {$mybase eq ""} {return <Repository>} |
| 47 | return $mybase |
| 48 | } |
| 49 |
| --- tools/cvs2fossil/lib/c2f_project.tcl | |
| +++ tools/cvs2fossil/lib/c2f_project.tcl | |
| @@ -39,10 +39,12 @@ | |
| 39 | return |
| 40 | } |
| 41 | |
| 42 | method base {} { return $mybase } |
| 43 | method trunk {} { return $mytrunk } |
| 44 | |
| 45 | method fullpath {} { return [$myrepository base?]/$mybase } |
| 46 | |
| 47 | method printbase {} { |
| 48 | if {$mybase eq ""} {return <Repository>} |
| 49 | return $mybase |
| 50 | } |
| 51 |