Fossil SCM
Added a lot of skeleton files for the revision and symbol data structures, for both project and file level.
Commit
84de38d73fe60325c221937c8b1612c0da9e7171
Parent
70b0aa899a4885b…
9 files changed
+57
+10
+2
+56
+56
+1
+28
+16
+21
-13
+
tools/cvs2fossil/lib/c2f_flodmgr.tcl
+
tools/cvs2fossil/lib/c2f_frev.tcl
+
tools/cvs2fossil/lib/c2f_fsym.tcl
+
tools/cvs2fossil/lib/c2f_ftrunk.tcl
+
tools/cvs2fossil/lib/c2f_plodmgr.tcl
+
tools/cvs2fossil/lib/c2f_prev.tcl
+
tools/cvs2fossil/lib/c2f_psym.tcl
+
tools/cvs2fossil/lib/c2f_ptrunk.tcl
~
tools/cvs2fossil/lib/pkgIndex.tcl
| --- a/tools/cvs2fossil/lib/c2f_flodmgr.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_flodmgr.tcl | ||
| @@ -0,0 +1,57 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # ## ### ##### ######## ############# ##################### | |
| 3 | +## Copyright (c) 2007 Andreas Kupries. | |
| 4 | +# | |
| 5 | +# This software is licensed as described in the file LICENSE, which | |
| 6 | +# you should have received as part of this distribution. | |
| 7 | +# | |
| 8 | +# This software consists of voluntary contributions made by many | |
| 9 | +# individuals. For exact contribution history, see the revision | |
| 10 | +# history and logs, available at http://fossil-scm.hwaci.com/fossil | |
| 11 | +# # ## ### ##### ######## ############# ##################### | |
| 12 | + | |
| 13 | +## Lines of Development in a file (Symbols, and the trunk). | |
| 14 | + | |
| 15 | +# # ## ### ##### ######## ############# ##################### | |
| 16 | +## Requirements | |
| 17 | + | |
| 18 | +package require Tcl 8.4 ; # Required runtime. | |
| 19 | +package require snit ; # OO system. | |
| 20 | + | |
| 21 | +# # ## ### ##### ######## ############# ##################### | |
| 22 | +## | |
| 23 | + | |
| 24 | +snit::type ::vc::fossil::import::cvs::file::lodmgr { | |
| 25 | + # # ## ### ##### ######## ############# | |
| 26 | + ## Public API | |
| 27 | + | |
| 28 | + constructor {} { | |
| 29 | + return | |
| 30 | + } | |
| 31 | + | |
| 32 | + # # ## ### ##### ######## ############# | |
| 33 | + ## State | |
| 34 | + | |
| 35 | + # # ## ### ##### ######## ############# | |
| 36 | + ## Internal methods | |
| 37 | + | |
| 38 | + # # ## ### ##### ######## ############# | |
| 39 | + ## Configuration | |
| 40 | + | |
| 41 | + pragma -hastypeinfo no ; # no type introspection | |
| 42 | + pragma -hasinfo no ; # no object introspection | |
| 43 | + pragma -hastypemethods no ; # type is not relevant. | |
| 44 | + pragma -simpledispatch yes ; # simple fast dispatch | |
| 45 | + | |
| 46 | + # # ## ### ##### ######## ############# | |
| 47 | +} | |
| 48 | + | |
| 49 | +namespace eval ::vc::fossil::import::cvs::file { | |
| 50 | + namespace export lodmgr | |
| 51 | +} | |
| 52 | + | |
| 53 | +# # ## ### ##### ######## ############# ##################### | |
| 54 | +## Ready | |
| 55 | + | |
| 56 | +package provide vc::fossil::import::cvs::file::lodmgr 1.0 | |
| 57 | +return |
| --- a/tools/cvs2fossil/lib/c2f_flodmgr.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_flodmgr.tcl | |
| @@ -0,0 +1,57 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_flodmgr.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_flodmgr.tcl | |
| @@ -0,0 +1,57 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # ## ### ##### ######## ############# ##################### |
| 3 | ## Copyright (c) 2007 Andreas Kupries. |
| 4 | # |
| 5 | # This software is licensed as described in the file LICENSE, which |
| 6 | # you should have received as part of this distribution. |
| 7 | # |
| 8 | # This software consists of voluntary contributions made by many |
| 9 | # individuals. For exact contribution history, see the revision |
| 10 | # history and logs, available at http://fossil-scm.hwaci.com/fossil |
| 11 | # # ## ### ##### ######## ############# ##################### |
| 12 | |
| 13 | ## Lines of Development in a file (Symbols, and the trunk). |
| 14 | |
| 15 | # # ## ### ##### ######## ############# ##################### |
| 16 | ## Requirements |
| 17 | |
| 18 | package require Tcl 8.4 ; # Required runtime. |
| 19 | package require snit ; # OO system. |
| 20 | |
| 21 | # # ## ### ##### ######## ############# ##################### |
| 22 | ## |
| 23 | |
| 24 | snit::type ::vc::fossil::import::cvs::file::lodmgr { |
| 25 | # # ## ### ##### ######## ############# |
| 26 | ## Public API |
| 27 | |
| 28 | constructor {} { |
| 29 | return |
| 30 | } |
| 31 | |
| 32 | # # ## ### ##### ######## ############# |
| 33 | ## State |
| 34 | |
| 35 | # # ## ### ##### ######## ############# |
| 36 | ## Internal methods |
| 37 | |
| 38 | # # ## ### ##### ######## ############# |
| 39 | ## Configuration |
| 40 | |
| 41 | pragma -hastypeinfo no ; # no type introspection |
| 42 | pragma -hasinfo no ; # no object introspection |
| 43 | pragma -hastypemethods no ; # type is not relevant. |
| 44 | pragma -simpledispatch yes ; # simple fast dispatch |
| 45 | |
| 46 | # # ## ### ##### ######## ############# |
| 47 | } |
| 48 | |
| 49 | namespace eval ::vc::fossil::import::cvs::file { |
| 50 | namespace export lodmgr |
| 51 | } |
| 52 | |
| 53 | # # ## ### ##### ######## ############# ##################### |
| 54 | ## Ready |
| 55 | |
| 56 | package provide vc::fossil::import::cvs::file::lodmgr 1.0 |
| 57 | return |
| --- a/tools/cvs2fossil/lib/c2f_frev.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_frev.tcl | ||
| @@ -0,0 +1,10 @@ | ||
| 1 | +authorauthor $authorcommitmsg {} { return $myhascm } | |
| 2 | + | |
| 3 | + method setcommitmsg {cm} { set mycommi$revnr | |
| 4 | + set m$state | |
| 5 | + set myfile{cm} { | |
| 6 | + $cm | |
| 7 | + set myhascm 1settext {text} { | |
| 8 | + set mytext $textset{branchnr} { | |
| 9 | + set mrThe number of the | |
| 10 | + # TODO: check that we have t1}.#pragma -hastypemethods noState |
| --- a/tools/cvs2fossil/lib/c2f_frev.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_frev.tcl | |
| @@ -0,0 +1,10 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_frev.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_frev.tcl | |
| @@ -0,0 +1,10 @@ | |
| 1 | authorauthor $authorcommitmsg {} { return $myhascm } |
| 2 | |
| 3 | method setcommitmsg {cm} { set mycommi$revnr |
| 4 | set m$state |
| 5 | set myfile{cm} { |
| 6 | $cm |
| 7 | set myhascm 1settext {text} { |
| 8 | set mytext $textset{branchnr} { |
| 9 | set mrThe number of the |
| 10 | # TODO: check that we have t1}.#pragma -hastypemethods noState |
| --- a/tools/cvs2fossil/lib/c2f_fsym.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_fsym.tcl | ||
| @@ -0,0 +1,2 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # ## ### |
| --- a/tools/cvs2fossil/lib/c2f_fsym.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_fsym.tcl | |
| @@ -0,0 +1,2 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_fsym.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_fsym.tcl | |
| @@ -0,0 +1,2 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # ## ### |
| --- a/tools/cvs2fossil/lib/c2f_ftrunk.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_ftrunk.tcl | ||
| @@ -0,0 +1,56 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # ## ### ##### ######## ############# ##################### | |
| 3 | +## Copyright (c) 2007 Andreas Kupries. | |
| 4 | +# | |
| 5 | +# This software is licensed as described in the file LICENSE, which | |
| 6 | +# you should have received as part of this distribution. | |
| 7 | +# | |
| 8 | +# This software consists of voluntary contributions made by many | |
| 9 | +# individuals. For exact contribution history, see the revision | |
| 10 | +# history and logs, available at http://fossil-scm.hwaci.com/fossil | |
| 11 | +# # ## ### ##### ######## ############# ##################### | |
| 12 | + | |
| 13 | +## Trunk, the special main line of development in a file. | |
| 14 | + | |
| 15 | +# # ## ### ##### ######## ############# ##################### | |
| 16 | +## Requirements | |
| 17 | + | |
| 18 | +package require Tcl 8.4 ; # Required runtime. | |
| 19 | +package require snit ; # OO system. | |
| 20 | + | |
| 21 | +# # ## ### ##### ######## ############# ##################### | |
| 22 | +## | |
| 23 | + | |
| 24 | +snit::type ::vc::fossil::import::cvs::file::fossil::import::cvs::file::trunk { | |
| 25 | + # # ## ### ##### ######## ############# | |
| 26 | + ## Public API | |
| 27 | + | |
| 28 | + constructor {} { | |
| 29 | + return | |
| 30 | + } | |
| 31 | + | |
| 32 | + # # ## ### ##### ######## ############# | |
| 33 | + ## State | |
| 34 | + | |
| 35 | + # # ## ### ##### ######## ############# | |
| 36 | + ## Internal methods | |
| 37 | + | |
| 38 | + # # ## ### ##### ######## ############# | |
| 39 | + ## Configuration | |
| 40 | + | |
| 41 | + pragma -hastypeinfo no ; # no type introspection | |
| 42 | + pragma -hasinfo no ; # no object introspection | |
| 43 | + pragma -hastypemethods no ; # type is not relevant. | |
| 44 | + pragma -simpledispatch yes ; # simple fast dispatch | |
| 45 | + | |
| 46 | + # # ## ### ##### ######## ############# | |
| 47 | +} | |
| 48 | + | |
| 49 | +namespace eval ::vc::fossil::import::cvs::file { | |
| 50 | + namespace export trunk | |
| 51 | +} | |
| 52 | + | |
| 53 | +# # ## ### ##### ######## ############# ##################### | |
| 54 | +## Ready | |
| 55 | + | |
| 56 | +package provide vc::fossil::import::c |
| --- a/tools/cvs2fossil/lib/c2f_ftrunk.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_ftrunk.tcl | |
| @@ -0,0 +1,56 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_ftrunk.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_ftrunk.tcl | |
| @@ -0,0 +1,56 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # ## ### ##### ######## ############# ##################### |
| 3 | ## Copyright (c) 2007 Andreas Kupries. |
| 4 | # |
| 5 | # This software is licensed as described in the file LICENSE, which |
| 6 | # you should have received as part of this distribution. |
| 7 | # |
| 8 | # This software consists of voluntary contributions made by many |
| 9 | # individuals. For exact contribution history, see the revision |
| 10 | # history and logs, available at http://fossil-scm.hwaci.com/fossil |
| 11 | # # ## ### ##### ######## ############# ##################### |
| 12 | |
| 13 | ## Trunk, the special main line of development in a file. |
| 14 | |
| 15 | # # ## ### ##### ######## ############# ##################### |
| 16 | ## Requirements |
| 17 | |
| 18 | package require Tcl 8.4 ; # Required runtime. |
| 19 | package require snit ; # OO system. |
| 20 | |
| 21 | # # ## ### ##### ######## ############# ##################### |
| 22 | ## |
| 23 | |
| 24 | snit::type ::vc::fossil::import::cvs::file::fossil::import::cvs::file::trunk { |
| 25 | # # ## ### ##### ######## ############# |
| 26 | ## Public API |
| 27 | |
| 28 | constructor {} { |
| 29 | return |
| 30 | } |
| 31 | |
| 32 | # # ## ### ##### ######## ############# |
| 33 | ## State |
| 34 | |
| 35 | # # ## ### ##### ######## ############# |
| 36 | ## Internal methods |
| 37 | |
| 38 | # # ## ### ##### ######## ############# |
| 39 | ## Configuration |
| 40 | |
| 41 | pragma -hastypeinfo no ; # no type introspection |
| 42 | pragma -hasinfo no ; # no object introspection |
| 43 | pragma -hastypemethods no ; # type is not relevant. |
| 44 | pragma -simpledispatch yes ; # simple fast dispatch |
| 45 | |
| 46 | # # ## ### ##### ######## ############# |
| 47 | } |
| 48 | |
| 49 | namespace eval ::vc::fossil::import::cvs::file { |
| 50 | namespace export trunk |
| 51 | } |
| 52 | |
| 53 | # # ## ### ##### ######## ############# ##################### |
| 54 | ## Ready |
| 55 | |
| 56 | package provide vc::fossil::import::c |
| --- a/tools/cvs2fossil/lib/c2f_plodmgr.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_plodmgr.tcl | ||
| @@ -0,0 +1,56 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # ## ### ##### ######## ############# ##################### | |
| 3 | +## Copyright (c) 2007 Andreas Kupries. | |
| 4 | +# | |
| 5 | +# This software is licensed as described in the file LICENSE, which | |
| 6 | +# you should have received as part of this distribution. | |
| 7 | +# | |
| 8 | +# This software consists of voluntary contributions made by many | |
| 9 | +# individuals. For exact contribution history, see the revision | |
| 10 | +# history and logs, available at http://fossil-scm.hwaci.com/fossil | |
| 11 | +# # ## ### ##### ######## ############# ##################### | |
| 12 | + | |
| 13 | +## Lines of Development in a project (Symbols, and the trunk). | |
| 14 | + | |
| 15 | +# # ## ### ##### ######## ############# ##################### | |
| 16 | +## Requirements | |
| 17 | + | |
| 18 | +package require Tcl 8.4 ; # Required runtime. | |
| 19 | +package require snit ; # OO system. | |
| 20 | + | |
| 21 | +# # ## ### ##### ######## ############# ##################### | |
| 22 | +## | |
| 23 | + | |
| 24 | +snit::type ::vc::fossil::import::cvs::project::lodmgr { | |
| 25 | + # # ## ### ##### ######## ############# | |
| 26 | + ## Public API | |
| 27 | + | |
| 28 | + constructor {} { | |
| 29 | + return | |
| 30 | + } | |
| 31 | + | |
| 32 | + # # ## ### ##### ######## ############# | |
| 33 | + ## State | |
| 34 | + | |
| 35 | + # # ## ### ##### ######## ############# | |
| 36 | + ## Internal methods | |
| 37 | + | |
| 38 | + # # ## ### ##### ######## ############# | |
| 39 | + ## Configuration | |
| 40 | + | |
| 41 | + pragma -hastypeinfo no ; # no type introspection | |
| 42 | + pragma -hasinfo no ; # no object introspection | |
| 43 | + pragma -hastypemethods no ; # type is not relevant. | |
| 44 | + pragma -simpledispatch yes ; # simple fast dispatch | |
| 45 | + | |
| 46 | + # # ## ### ##### ######## ############# | |
| 47 | +} | |
| 48 | + | |
| 49 | +namespace eval ::vc::fossil::import::cvs::project { | |
| 50 | + namespace export lodmgr | |
| 51 | +} | |
| 52 | + | |
| 53 | +# # ## ### ##### ######## ############# ##################### | |
| 54 | +## Ready | |
| 55 | + | |
| 56 | +package provide vc::fossil::import::cvs:: |
| --- a/tools/cvs2fossil/lib/c2f_plodmgr.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_plodmgr.tcl | |
| @@ -0,0 +1,56 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_plodmgr.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_plodmgr.tcl | |
| @@ -0,0 +1,56 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # ## ### ##### ######## ############# ##################### |
| 3 | ## Copyright (c) 2007 Andreas Kupries. |
| 4 | # |
| 5 | # This software is licensed as described in the file LICENSE, which |
| 6 | # you should have received as part of this distribution. |
| 7 | # |
| 8 | # This software consists of voluntary contributions made by many |
| 9 | # individuals. For exact contribution history, see the revision |
| 10 | # history and logs, available at http://fossil-scm.hwaci.com/fossil |
| 11 | # # ## ### ##### ######## ############# ##################### |
| 12 | |
| 13 | ## Lines of Development in a project (Symbols, and the trunk). |
| 14 | |
| 15 | # # ## ### ##### ######## ############# ##################### |
| 16 | ## Requirements |
| 17 | |
| 18 | package require Tcl 8.4 ; # Required runtime. |
| 19 | package require snit ; # OO system. |
| 20 | |
| 21 | # # ## ### ##### ######## ############# ##################### |
| 22 | ## |
| 23 | |
| 24 | snit::type ::vc::fossil::import::cvs::project::lodmgr { |
| 25 | # # ## ### ##### ######## ############# |
| 26 | ## Public API |
| 27 | |
| 28 | constructor {} { |
| 29 | return |
| 30 | } |
| 31 | |
| 32 | # # ## ### ##### ######## ############# |
| 33 | ## State |
| 34 | |
| 35 | # # ## ### ##### ######## ############# |
| 36 | ## Internal methods |
| 37 | |
| 38 | # # ## ### ##### ######## ############# |
| 39 | ## Configuration |
| 40 | |
| 41 | pragma -hastypeinfo no ; # no type introspection |
| 42 | pragma -hasinfo no ; # no object introspection |
| 43 | pragma -hastypemethods no ; # type is not relevant. |
| 44 | pragma -simpledispatch yes ; # simple fast dispatch |
| 45 | |
| 46 | # # ## ### ##### ######## ############# |
| 47 | } |
| 48 | |
| 49 | namespace eval ::vc::fossil::import::cvs::project { |
| 50 | namespace export lodmgr |
| 51 | } |
| 52 | |
| 53 | # # ## ### ##### ######## ############# ##################### |
| 54 | ## Ready |
| 55 | |
| 56 | package provide vc::fossil::import::cvs:: |
| --- a/tools/cvs2fossil/lib/c2f_prev.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_prev.tcl | ||
| @@ -0,0 +1 @@ | ||
| 1 | +suc= dict (item -> li; # OO system} {hastypemethods no |
| --- a/tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -0,0 +1 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_prev.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_prev.tcl | |
| @@ -0,0 +1 @@ | |
| 1 | suc= dict (item -> li; # OO system} {hastypemethods no |
| --- a/tools/cvs2fossil/lib/c2f_psym.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_psym.tcl | ||
| @@ -0,0 +1,28 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # #" -*- tcl -*- | |
| 3 | +# # ## ### ##### #### # No user based guidance yet.state ; # State storage. | |
| 4 | + | |
| 5 | +# # #" -*- tcl -*- | |
| 6 | +# # ## ### ##### #### # No user based guida-*- tcl -*- | |
| 7 | +# # ## ### ##### #### # No user based guidance yet.## -*- tcl -*- | |
| 8 | +# # #" -*- tcl -*- | |
| 9 | +# # ## ### ##### #### # No user based guidance yet.01tagsbranch3of unknown type.hastypemethods notypevariable mytag2## -*- tcl -*- | |
| 10 | +# # - | |
| 11 | +# # ## ### ##### #### # No user based guidance yet.state ; # State storage. | |
| 12 | + | |
| 13 | +# # #" -*- tcl -*- | |
| 14 | +# # ## ### ##### #### # No user based guida-*- tcl -*- | |
| 15 | +# # ## ### ##### #### # No user based guidance yet.## -cl -*- | |
| 16 | +# # #" -*- tcl -*- | |
| 17 | +# # ## ### ##### #### # No user based guidanc; # OO system. | |
| 18 | + | |
| 19 | +##### #### was in memory.branch_count,cl -*- | |
| 20 | +# # #" -*- tcl -*- | |
| 21 | +# # ## ### ##### #### # No user based gu0, 0, 0);} { | |
| 22 | + set myname$idname symbol. | |
| 23 | + # project as | |
| 24 | + # well.} | |
| 25 | + | |
| 26 | +##### #### } { | |
| 27 | + return | |
| 28 | + }State |
| --- a/tools/cvs2fossil/lib/c2f_psym.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_psym.tcl | |
| @@ -0,0 +1,28 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_psym.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_psym.tcl | |
| @@ -0,0 +1,28 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # #" -*- tcl -*- |
| 3 | # # ## ### ##### #### # No user based guidance yet.state ; # State storage. |
| 4 | |
| 5 | # # #" -*- tcl -*- |
| 6 | # # ## ### ##### #### # No user based guida-*- tcl -*- |
| 7 | # # ## ### ##### #### # No user based guidance yet.## -*- tcl -*- |
| 8 | # # #" -*- tcl -*- |
| 9 | # # ## ### ##### #### # No user based guidance yet.01tagsbranch3of unknown type.hastypemethods notypevariable mytag2## -*- tcl -*- |
| 10 | # # - |
| 11 | # # ## ### ##### #### # No user based guidance yet.state ; # State storage. |
| 12 | |
| 13 | # # #" -*- tcl -*- |
| 14 | # # ## ### ##### #### # No user based guida-*- tcl -*- |
| 15 | # # ## ### ##### #### # No user based guidance yet.## -cl -*- |
| 16 | # # #" -*- tcl -*- |
| 17 | # # ## ### ##### #### # No user based guidanc; # OO system. |
| 18 | |
| 19 | ##### #### was in memory.branch_count,cl -*- |
| 20 | # # #" -*- tcl -*- |
| 21 | # # ## ### ##### #### # No user based gu0, 0, 0);} { |
| 22 | set myname$idname symbol. |
| 23 | # project as |
| 24 | # well.} |
| 25 | |
| 26 | ##### #### } { |
| 27 | return |
| 28 | }State |
| --- a/tools/cvs2fossil/lib/c2f_ptrunk.tcl | ||
| +++ b/tools/cvs2fossil/lib/c2f_ptrunk.tcl | ||
| @@ -0,0 +1,16 @@ | ||
| 1 | +## -*- tcl -*- | |
| 2 | +# # ## ### ##### ######## ############# ##################### | |
| 3 | +## Copyright (c) 2007 | |
| 4 | +## Copyright (c) 2007-2008 Andreas Kupries. | |
| 5 | +# | |
| 6 | +# This software is licensed as described in the file LICENSE, which | |
| 7 | +# you should have received as part of this distribution. | |
| 8 | +# | |
| 9 | +# This software consists of voluntary contributions made by many | |
| 10 | +# individuals. For exact contribution history, see the revision | |
| 11 | +# history and logs, available at http://fossil-scm.hwaci.com/fossil | |
| 12 | +# # ## ### ##### ######## ############# ##################### | |
| 13 | + | |
| 14 | +## Trunk, the special main line of development in a project. | |
| 15 | + | |
| 16 | +# # ## ### ##### ######## ############# #################id [ pragma -simpledispatch y} {:trunk:{} # # ## ### # |
| --- a/tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| @@ -0,0 +1,16 @@ | |
| --- a/tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| +++ b/tools/cvs2fossil/lib/c2f_ptrunk.tcl | |
| @@ -0,0 +1,16 @@ | |
| 1 | ## -*- tcl -*- |
| 2 | # # ## ### ##### ######## ############# ##################### |
| 3 | ## Copyright (c) 2007 |
| 4 | ## Copyright (c) 2007-2008 Andreas Kupries. |
| 5 | # |
| 6 | # This software is licensed as described in the file LICENSE, which |
| 7 | # you should have received as part of this distribution. |
| 8 | # |
| 9 | # This software consists of voluntary contributions made by many |
| 10 | # individuals. For exact contribution history, see the revision |
| 11 | # history and logs, available at http://fossil-scm.hwaci.com/fossil |
| 12 | # # ## ### ##### ######## ############# ##################### |
| 13 | |
| 14 | ## Trunk, the special main line of development in a project. |
| 15 | |
| 16 | # # ## ### ##### ######## ############# #################id [ pragma -simpledispatch y} {:trunk:{} # # ## ### # |
+21
-13
| --- tools/cvs2fossil/lib/pkgIndex.tcl | ||
| +++ tools/cvs2fossil/lib/pkgIndex.tcl | ||
| @@ -1,19 +1,27 @@ | ||
| 1 | 1 | # # ## ### ##### ######## ############# ##################### |
| 2 | 2 | ## Package management. |
| 3 | 3 | ## Index of the local packages required by cvs2fossil |
| 4 | 4 | # # ## ### ##### ######## ############# ##################### |
| 5 | 5 | if {![package vsatisfies [package require Tcl] 8.4]} return |
| 6 | -package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]] | |
| 7 | -package ifneeded vc::fossil::import::cvs::file 1.0 [list source [file join $dir c2f_file.tcl]] | |
| 8 | -package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]] | |
| 9 | -package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]] | |
| 10 | -package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]] | |
| 11 | -package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]] | |
| 12 | -package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]] | |
| 13 | -package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]] | |
| 14 | -package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]] | |
| 15 | -package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]] | |
| 16 | -package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]] | |
| 17 | -package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]] | |
| 18 | -package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]] | |
| 6 | +package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]] | |
| 7 | +package ifneeded vc::fossil::import::cvs::file 1.0 [list source [file join $dir c2f_file.tcl]] | |
| 8 | +package ifneeded vc::fossil::import::cvs::file::lodmgr 1.0 [list source [file join $dir c2f_flodmgr.tcl]] | |
| 9 | +package ifneeded vc::fossil::import::cvs::file::rev 1.0 [list source [file join $dir c2f_frev.tcl]] | |
| 10 | +package ifneeded vc::fossil::import::cvs::file::sym 1.0 [list source [file join $dir c2f_fsym.tcl]] | |
| 11 | +package ifneeded vc::fossil::import::cvs::file::trunk 1.0 [list source [file join $dir c2f_ftrunk.tcl]] | |
| 12 | +package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]] | |
| 13 | +package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]] | |
| 14 | +package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]] | |
| 15 | +package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]] | |
| 16 | +package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]] | |
| 17 | +package ifneeded vc::fossil::import::cvs::project::lodmgr 1.0 [list source [file join $dir c2f_plodmgr.tcl]] | |
| 18 | +package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]] | |
| 19 | +package ifneeded vc::fossil::import::cvs::project::sym 1.0 [list source [file join $dir c2f_psym.tcl]] | |
| 20 | +package ifneeded vc::fossil::import::cvs::project::trunk 1.0 [list source [file join $dir c2f_ptrunk.tcl]] | |
| 21 | +package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]] | |
| 22 | +package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]] | |
| 23 | +package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]] | |
| 24 | +package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]] | |
| 25 | +package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]] | |
| 26 | +package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]] | |
| 19 | 27 | |
| 20 | 28 |
| --- tools/cvs2fossil/lib/pkgIndex.tcl | |
| +++ tools/cvs2fossil/lib/pkgIndex.tcl | |
| @@ -1,19 +1,27 @@ | |
| 1 | # # ## ### ##### ######## ############# ##################### |
| 2 | ## Package management. |
| 3 | ## Index of the local packages required by cvs2fossil |
| 4 | # # ## ### ##### ######## ############# ##################### |
| 5 | if {![package vsatisfies [package require Tcl] 8.4]} return |
| 6 | package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]] |
| 7 | package ifneeded vc::fossil::import::cvs::file 1.0 [list source [file join $dir c2f_file.tcl]] |
| 8 | package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]] |
| 9 | package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]] |
| 10 | package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]] |
| 11 | package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]] |
| 12 | package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]] |
| 13 | package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]] |
| 14 | package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]] |
| 15 | package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]] |
| 16 | package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]] |
| 17 | package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]] |
| 18 | package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]] |
| 19 | |
| 20 |
| --- tools/cvs2fossil/lib/pkgIndex.tcl | |
| +++ tools/cvs2fossil/lib/pkgIndex.tcl | |
| @@ -1,19 +1,27 @@ | |
| 1 | # # ## ### ##### ######## ############# ##################### |
| 2 | ## Package management. |
| 3 | ## Index of the local packages required by cvs2fossil |
| 4 | # # ## ### ##### ######## ############# ##################### |
| 5 | if {![package vsatisfies [package require Tcl] 8.4]} return |
| 6 | package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]] |
| 7 | package ifneeded vc::fossil::import::cvs::file 1.0 [list source [file join $dir c2f_file.tcl]] |
| 8 | package ifneeded vc::fossil::import::cvs::file::lodmgr 1.0 [list source [file join $dir c2f_flodmgr.tcl]] |
| 9 | package ifneeded vc::fossil::import::cvs::file::rev 1.0 [list source [file join $dir c2f_frev.tcl]] |
| 10 | package ifneeded vc::fossil::import::cvs::file::sym 1.0 [list source [file join $dir c2f_fsym.tcl]] |
| 11 | package ifneeded vc::fossil::import::cvs::file::trunk 1.0 [list source [file join $dir c2f_ftrunk.tcl]] |
| 12 | package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]] |
| 13 | package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]] |
| 14 | package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]] |
| 15 | package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]] |
| 16 | package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]] |
| 17 | package ifneeded vc::fossil::import::cvs::project::lodmgr 1.0 [list source [file join $dir c2f_plodmgr.tcl]] |
| 18 | package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]] |
| 19 | package ifneeded vc::fossil::import::cvs::project::sym 1.0 [list source [file join $dir c2f_psym.tcl]] |
| 20 | package ifneeded vc::fossil::import::cvs::project::trunk 1.0 [list source [file join $dir c2f_ptrunk.tcl]] |
| 21 | package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]] |
| 22 | package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]] |
| 23 | package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]] |
| 24 | package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]] |
| 25 | package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]] |
| 26 | package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]] |
| 27 | |
| 28 |