Fossil SCM

Code cleanup. Removed trailing whitespace across the board.

aku 2007-11-25 07:54 trunk
Commit b679ca335656a8c1390c0f11744777ad1b7a6c11
Parent 1ea319fb6786f7e…
33 files changed +2 -2 +3 -3 +1 -1 +2 -2 +8 -8 +1 -1 +8 -1 +1 -1 +6 -6 +2 -2 +1 -1 +1 -1 +1 -1 +2 -2 +3 -3 +2 -2 +3 -3 +2 -2 +1 -1 +4 -4 +1 -1 +1 -1 +1 -1 +3 -3 +1 -1 +1 -1 +1 -1 +1 -1 +1 -1 +1 -1 +1 -1 +3 -3 +1 -1
~ tools/cvs2fossil/lib/c2f_cyclebreaker.tcl ~ tools/cvs2fossil/lib/c2f_file.tcl ~ 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_integrity.tcl ~ tools/cvs2fossil/lib/c2f_option.tcl ~ tools/cvs2fossil/lib/c2f_pass.tcl ~ tools/cvs2fossil/lib/c2f_patopsort.tcl ~ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl ~ tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl ~ tools/cvs2fossil/lib/c2f_pbreakscycle.tcl ~ tools/cvs2fossil/lib/c2f_pcollar.tcl ~ tools/cvs2fossil/lib/c2f_pcollrev.tcl ~ tools/cvs2fossil/lib/c2f_pcollsym.tcl ~ tools/cvs2fossil/lib/c2f_pfiltersym.tcl ~ tools/cvs2fossil/lib/c2f_pinitcsets.tcl ~ tools/cvs2fossil/lib/c2f_plodmgr.tcl ~ tools/cvs2fossil/lib/c2f_prev.tcl ~ tools/cvs2fossil/lib/c2f_prevlink.tcl ~ tools/cvs2fossil/lib/c2f_project.tcl ~ tools/cvs2fossil/lib/c2f_prtopsort.tcl ~ tools/cvs2fossil/lib/c2f_psym.tcl ~ tools/cvs2fossil/lib/c2f_ptrunk.tcl ~ tools/cvs2fossil/lib/c2f_repository.tcl ~ tools/cvs2fossil/lib/c2f_state.tcl ~ tools/cvs2fossil/lib/cvs2fossil.tcl ~ tools/cvs2fossil/lib/dot.tcl ~ tools/cvs2fossil/lib/log.tcl ~ tools/cvs2fossil/lib/misc.tcl ~ tools/cvs2fossil/lib/rcsparser.tcl ~ tools/cvs2fossil/lib/trouble.tcl
M tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
+++ tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
@@ -26,11 +26,11 @@
2626
 package require vc::tools::misc ; # Text formatting.
2727
 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
2828
 package require vc::fossil::import::cvs::project::revlink ; # Cycle links.
2929
3030
 # # ## ### ##### ######## ############# #####################
31
-##
31
+##
3232
3333
 snit::type ::vc::fossil::import::cvs::cyclebreaker {
3434
 # # ## ### ##### ######## #############
3535
 ## Public API
3636
@@ -41,11 +41,11 @@
4141
4242
 typemethod savecmd {cmd} {
4343
 ::variable mysavecmd $cmd
4444
 return
4545
 }
46
-
46
+
4747
 typemethod breakcmd {cmd} {
4848
 ::variable mybreakcmd $cmd
4949
 return
5050
 }
5151
5252
--- tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
+++ tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
@@ -26,11 +26,11 @@
26 package require vc::tools::misc ; # Text formatting.
27 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
28 package require vc::fossil::import::cvs::project::revlink ; # Cycle links.
29
30 # # ## ### ##### ######## ############# #####################
31 ##
32
33 snit::type ::vc::fossil::import::cvs::cyclebreaker {
34 # # ## ### ##### ######## #############
35 ## Public API
36
@@ -41,11 +41,11 @@
41
42 typemethod savecmd {cmd} {
43 ::variable mysavecmd $cmd
44 return
45 }
46
47 typemethod breakcmd {cmd} {
48 ::variable mybreakcmd $cmd
49 return
50 }
51
52
--- tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
+++ tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
@@ -26,11 +26,11 @@
26 package require vc::tools::misc ; # Text formatting.
27 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
28 package require vc::fossil::import::cvs::project::revlink ; # Cycle links.
29
30 # # ## ### ##### ######## ############# #####################
31 ##
32
33 snit::type ::vc::fossil::import::cvs::cyclebreaker {
34 # # ## ### ##### ######## #############
35 ## Public API
36
@@ -41,11 +41,11 @@
41
42 typemethod savecmd {cmd} {
43 ::variable mysavecmd $cmd
44 return
45 }
46
47 typemethod breakcmd {cmd} {
48 ::variable mybreakcmd $cmd
49 return
50 }
51
52
M tools/cvs2fossil/lib/c2f_file.tcl
+3 -3
--- tools/cvs2fossil/lib/c2f_file.tcl
+++ tools/cvs2fossil/lib/c2f_file.tcl
@@ -25,11 +25,11 @@
2525
 package require vc::tools::trouble ; # Error reporting.
2626
 package require vc::tools::log ; # User feedback
2727
 package require vc::tools::misc ; # Text formatting
2828
2929
 # # ## ### ##### ######## ############# #####################
30
-##
30
+##
3131
3232
 snit::type ::vc::fossil::import::cvs::file {
3333
 # # ## ### ##### ######## #############
3434
 ## Public API
3535
@@ -565,19 +565,19 @@
565565
 # No default branch, but the file appears to have been
566566
 # imported. So our educated guess is that all revisions
567567
 # on the '1.1.1' branch with timestamps prior to the
568568
 # timestamp of '1.2' were non-trunk default branch
569569
 # revisions.
570
-
570
+
571571
 # This really only processes standard '1.1.1.*'-style
572572
 # vendor revisions. One could conceivably have a file
573573
 # whose default branch is 1.1.3 or whatever, or was that
574574
 # at some point in time, with vendor revisions 1.1.3.1,
575575
 # 1.1.3.2, etc. But with the default branch gone now,
576576
 # we'd have no basis for assuming that the non-standard
577577
 # vendor branch had ever been the default branch anyway.
578
-
578
+
579579
 # Note that we rely on comparisons between the timestamps
580580
 # of the revisions on the vendor branch and that of
581581
 # revision 1.2, even though the timestamps might be
582582
 # incorrect due to clock skew. We could do a slightly
583583
 # better job if we used the changeset timestamps, as it is
584584
--- tools/cvs2fossil/lib/c2f_file.tcl
+++ tools/cvs2fossil/lib/c2f_file.tcl
@@ -25,11 +25,11 @@
25 package require vc::tools::trouble ; # Error reporting.
26 package require vc::tools::log ; # User feedback
27 package require vc::tools::misc ; # Text formatting
28
29 # # ## ### ##### ######## ############# #####################
30 ##
31
32 snit::type ::vc::fossil::import::cvs::file {
33 # # ## ### ##### ######## #############
34 ## Public API
35
@@ -565,19 +565,19 @@
565 # No default branch, but the file appears to have been
566 # imported. So our educated guess is that all revisions
567 # on the '1.1.1' branch with timestamps prior to the
568 # timestamp of '1.2' were non-trunk default branch
569 # revisions.
570
571 # This really only processes standard '1.1.1.*'-style
572 # vendor revisions. One could conceivably have a file
573 # whose default branch is 1.1.3 or whatever, or was that
574 # at some point in time, with vendor revisions 1.1.3.1,
575 # 1.1.3.2, etc. But with the default branch gone now,
576 # we'd have no basis for assuming that the non-standard
577 # vendor branch had ever been the default branch anyway.
578
579 # Note that we rely on comparisons between the timestamps
580 # of the revisions on the vendor branch and that of
581 # revision 1.2, even though the timestamps might be
582 # incorrect due to clock skew. We could do a slightly
583 # better job if we used the changeset timestamps, as it is
584
--- tools/cvs2fossil/lib/c2f_file.tcl
+++ tools/cvs2fossil/lib/c2f_file.tcl
@@ -25,11 +25,11 @@
25 package require vc::tools::trouble ; # Error reporting.
26 package require vc::tools::log ; # User feedback
27 package require vc::tools::misc ; # Text formatting
28
29 # # ## ### ##### ######## ############# #####################
30 ##
31
32 snit::type ::vc::fossil::import::cvs::file {
33 # # ## ### ##### ######## #############
34 ## Public API
35
@@ -565,19 +565,19 @@
565 # No default branch, but the file appears to have been
566 # imported. So our educated guess is that all revisions
567 # on the '1.1.1' branch with timestamps prior to the
568 # timestamp of '1.2' were non-trunk default branch
569 # revisions.
570
571 # This really only processes standard '1.1.1.*'-style
572 # vendor revisions. One could conceivably have a file
573 # whose default branch is 1.1.3 or whatever, or was that
574 # at some point in time, with vendor revisions 1.1.3.1,
575 # 1.1.3.2, etc. But with the default branch gone now,
576 # we'd have no basis for assuming that the non-standard
577 # vendor branch had ever been the default branch anyway.
578
579 # Note that we rely on comparisons between the timestamps
580 # of the revisions on the vendor branch and that of
581 # revision 1.2, even though the timestamps might be
582 # incorrect due to clock skew. We could do a slightly
583 # better job if we used the changeset timestamps, as it is
584
M tools/cvs2fossil/lib/c2f_flodmgr.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_flodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_flodmgr.tcl
@@ -17,11 +17,11 @@
1717
1818
 package require Tcl 8.4 ; # Required runtime.
1919
 package require snit ; # OO system.
2020
2121
 # # ## ### ##### ######## ############# #####################
22
-##
22
+##
2323
2424
 snit::type ::vc::fossil::import::cvs::file::lodmgr {
2525
 # # ## ### ##### ######## #############
2626
 ## Public API
2727
2828
--- tools/cvs2fossil/lib/c2f_flodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_flodmgr.tcl
@@ -17,11 +17,11 @@
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
--- tools/cvs2fossil/lib/c2f_flodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_flodmgr.tcl
@@ -17,11 +17,11 @@
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
M tools/cvs2fossil/lib/c2f_frev.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_frev.tcl
+++ tools/cvs2fossil/lib/c2f_frev.tcl
@@ -19,11 +19,11 @@
1919
 package require snit ; # OO system.
2020
 package require vc::tools::misc ; # Text formatting
2121
 package require vc::fossil::import::cvs::state ; # State storage.
2222
2323
 # # ## ### ##### ######## ############# #####################
24
-##
24
+##
2525
2626
 snit::type ::vc::fossil::import::cvs::file::rev {
2727
 # # ## ### ##### ######## #############
2828
 ## Public API
2929
@@ -396,11 +396,11 @@
396396
 # myparentbranch - revision.bparent
397397
 # myoperation - revision.op
398398
 # myisondefaultbranch - revision.isdefault
399399
 # mydbparent - revision.dbparent
400400
 # mydbchild - revision.dbchild
401
-
401
+
402402
403403
 typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
404404
 # First a nonzero even number of digit groups with trailing dot
405405
 # CVS then sticks an extra 0 in here; RCS does not.
406406
 # And the last digit group.
407407
--- tools/cvs2fossil/lib/c2f_frev.tcl
+++ tools/cvs2fossil/lib/c2f_frev.tcl
@@ -19,11 +19,11 @@
19 package require snit ; # OO system.
20 package require vc::tools::misc ; # Text formatting
21 package require vc::fossil::import::cvs::state ; # State storage.
22
23 # # ## ### ##### ######## ############# #####################
24 ##
25
26 snit::type ::vc::fossil::import::cvs::file::rev {
27 # # ## ### ##### ######## #############
28 ## Public API
29
@@ -396,11 +396,11 @@
396 # myparentbranch - revision.bparent
397 # myoperation - revision.op
398 # myisondefaultbranch - revision.isdefault
399 # mydbparent - revision.dbparent
400 # mydbchild - revision.dbchild
401
402
403 typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
404 # First a nonzero even number of digit groups with trailing dot
405 # CVS then sticks an extra 0 in here; RCS does not.
406 # And the last digit group.
407
--- tools/cvs2fossil/lib/c2f_frev.tcl
+++ tools/cvs2fossil/lib/c2f_frev.tcl
@@ -19,11 +19,11 @@
19 package require snit ; # OO system.
20 package require vc::tools::misc ; # Text formatting
21 package require vc::fossil::import::cvs::state ; # State storage.
22
23 # # ## ### ##### ######## ############# #####################
24 ##
25
26 snit::type ::vc::fossil::import::cvs::file::rev {
27 # # ## ### ##### ######## #############
28 ## Public API
29
@@ -396,11 +396,11 @@
396 # myparentbranch - revision.bparent
397 # myoperation - revision.op
398 # myisondefaultbranch - revision.isdefault
399 # mydbparent - revision.dbparent
400 # mydbchild - revision.dbchild
401
402
403 typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
404 # First a nonzero even number of digit groups with trailing dot
405 # CVS then sticks an extra 0 in here; RCS does not.
406 # And the last digit group.
407
M tools/cvs2fossil/lib/c2f_fsym.tcl
+8 -8
--- tools/cvs2fossil/lib/c2f_fsym.tcl
+++ tools/cvs2fossil/lib/c2f_fsym.tcl
@@ -20,11 +20,11 @@
2020
 package require vc::tools::trouble ; # Error reporting.
2121
 package require vc::fossil::import::cvs::file::rev ; # CVS per file revisions.
2222
 package require vc::fossil::import::cvs::state ; # State storage.
2323
2424
 # # ## ### ##### ######## ############# #####################
25
-##
25
+##
2626
2727
 snit::type ::vc::fossil::import::cvs::file::sym {
2828
 # # ## ### ##### ######## #############
2929
 ## Public API
3030
@@ -204,19 +204,19 @@
204204
205205
 # # ## ### ##### ######## #############
206206
 ## State
207207
208208
 # Persistent:
209
- # Tag: myid - tag.tid
210
- # myfile - tag.fid
211
- # mylod - tag.lod
212
- # mysymbol - tag.sid
209
+ # Tag: myid - tag.tid
210
+ # myfile - tag.fid
211
+ # mylod - tag.lod
212
+ # mysymbol - tag.sid
213213
 # mytagrev - tag.rev
214214
 #
215
- # Branch: myid - branch.bid
216
- # myfile - branch.fid
217
- # mylod - branch.lod
215
+ # Branch: myid - branch.bid
216
+ # myfile - branch.fid
217
+ # mylod - branch.lod
218218
 # mysymbol - branch.sid
219219
 # mybranchparent - branch.root
220220
 # mybranchchild - branch.first
221221
 # mynr - branch.bra
222222
223223
--- tools/cvs2fossil/lib/c2f_fsym.tcl
+++ tools/cvs2fossil/lib/c2f_fsym.tcl
@@ -20,11 +20,11 @@
20 package require vc::tools::trouble ; # Error reporting.
21 package require vc::fossil::import::cvs::file::rev ; # CVS per file revisions.
22 package require vc::fossil::import::cvs::state ; # State storage.
23
24 # # ## ### ##### ######## ############# #####################
25 ##
26
27 snit::type ::vc::fossil::import::cvs::file::sym {
28 # # ## ### ##### ######## #############
29 ## Public API
30
@@ -204,19 +204,19 @@
204
205 # # ## ### ##### ######## #############
206 ## State
207
208 # Persistent:
209 # Tag: myid - tag.tid
210 # myfile - tag.fid
211 # mylod - tag.lod
212 # mysymbol - tag.sid
213 # mytagrev - tag.rev
214 #
215 # Branch: myid - branch.bid
216 # myfile - branch.fid
217 # mylod - branch.lod
218 # mysymbol - branch.sid
219 # mybranchparent - branch.root
220 # mybranchchild - branch.first
221 # mynr - branch.bra
222
223
--- tools/cvs2fossil/lib/c2f_fsym.tcl
+++ tools/cvs2fossil/lib/c2f_fsym.tcl
@@ -20,11 +20,11 @@
20 package require vc::tools::trouble ; # Error reporting.
21 package require vc::fossil::import::cvs::file::rev ; # CVS per file revisions.
22 package require vc::fossil::import::cvs::state ; # State storage.
23
24 # # ## ### ##### ######## ############# #####################
25 ##
26
27 snit::type ::vc::fossil::import::cvs::file::sym {
28 # # ## ### ##### ######## #############
29 ## Public API
30
@@ -204,19 +204,19 @@
204
205 # # ## ### ##### ######## #############
206 ## State
207
208 # Persistent:
209 # Tag: myid - tag.tid
210 # myfile - tag.fid
211 # mylod - tag.lod
212 # mysymbol - tag.sid
213 # mytagrev - tag.rev
214 #
215 # Branch: myid - branch.bid
216 # myfile - branch.fid
217 # mylod - branch.lod
218 # mysymbol - branch.sid
219 # mybranchparent - branch.root
220 # mybranchchild - branch.first
221 # mynr - branch.bra
222
223
M tools/cvs2fossil/lib/c2f_ftrunk.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_ftrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ftrunk.tcl
@@ -17,11 +17,11 @@
1717
1818
 package require Tcl 8.4 ; # Required runtime.
1919
 package require snit ; # OO system.
2020
2121
 # # ## ### ##### ######## ############# #####################
22
-##
22
+##
2323
2424
 snit::type ::vc::fossil::import::cvs::file::trunk {
2525
 # # ## ### ##### ######## #############
2626
 ## Public API
2727
2828
--- tools/cvs2fossil/lib/c2f_ftrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ftrunk.tcl
@@ -17,11 +17,11 @@
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::trunk {
25 # # ## ### ##### ######## #############
26 ## Public API
27
28
--- tools/cvs2fossil/lib/c2f_ftrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ftrunk.tcl
@@ -17,11 +17,11 @@
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::trunk {
25 # # ## ### ##### ######## #############
26 ## Public API
27
28
M tools/cvs2fossil/lib/c2f_integrity.tcl
+8 -1
--- tools/cvs2fossil/lib/c2f_integrity.tcl
+++ tools/cvs2fossil/lib/c2f_integrity.tcl
@@ -21,11 +21,11 @@
2121
 package require vc::tools::trouble ; # Error reporting.
2222
 package require vc::tools::log ; # User feedback.
2323
 package require vc::fossil::import::cvs::state ; # State storage.
2424
2525
 # # ## ### ##### ######## ############# #####################
26
-##
26
+##
2727
2828
 snit::type ::vc::fossil::import::cvs::integrity {
2929
 # # ## ### ##### ######## #############
3030
 ## Public API
3131
@@ -39,10 +39,17 @@
3939
 typemethod metarelaxed {} {
4040
 set n 0
4141
 AllButMeta
4242
 return
4343
 }
44
+
45
+ typemethod changesets {} {
46
+ set n 0
47
+ RevisionChangesets
48
+ SymbolChangesets
49
+ return
50
+ }
4451
4552
 # # ## ### ##### ######## #############
4653
 ## Internal methods
4754
4855
 proc AllButMeta {} {
4956
--- tools/cvs2fossil/lib/c2f_integrity.tcl
+++ tools/cvs2fossil/lib/c2f_integrity.tcl
@@ -21,11 +21,11 @@
21 package require vc::tools::trouble ; # Error reporting.
22 package require vc::tools::log ; # User feedback.
23 package require vc::fossil::import::cvs::state ; # State storage.
24
25 # # ## ### ##### ######## ############# #####################
26 ##
27
28 snit::type ::vc::fossil::import::cvs::integrity {
29 # # ## ### ##### ######## #############
30 ## Public API
31
@@ -39,10 +39,17 @@
39 typemethod metarelaxed {} {
40 set n 0
41 AllButMeta
42 return
43 }
 
 
 
 
 
 
 
44
45 # # ## ### ##### ######## #############
46 ## Internal methods
47
48 proc AllButMeta {} {
49
--- tools/cvs2fossil/lib/c2f_integrity.tcl
+++ tools/cvs2fossil/lib/c2f_integrity.tcl
@@ -21,11 +21,11 @@
21 package require vc::tools::trouble ; # Error reporting.
22 package require vc::tools::log ; # User feedback.
23 package require vc::fossil::import::cvs::state ; # State storage.
24
25 # # ## ### ##### ######## ############# #####################
26 ##
27
28 snit::type ::vc::fossil::import::cvs::integrity {
29 # # ## ### ##### ######## #############
30 ## Public API
31
@@ -39,10 +39,17 @@
39 typemethod metarelaxed {} {
40 set n 0
41 AllButMeta
42 return
43 }
44
45 typemethod changesets {} {
46 set n 0
47 RevisionChangesets
48 SymbolChangesets
49 return
50 }
51
52 # # ## ### ##### ######## #############
53 ## Internal methods
54
55 proc AllButMeta {} {
56
M tools/cvs2fossil/lib/c2f_option.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_option.tcl
+++ tools/cvs2fossil/lib/c2f_option.tcl
@@ -29,11 +29,11 @@
2929
 package require vc::fossil::import::cvs::state ; # State storage
3030
 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
3131
 package require vc::fossil::import::cvs::cyclebreaker ; # Breaking dependency cycles.
3232
3333
 # # ## ### ##### ######## ############# #####################
34
-##
34
+##
3535
3636
 snit::type ::vc::fossil::import::cvs::option {
3737
 # # ## ### ##### ######## #############
3838
 ## Public API, Options.
3939
4040
--- tools/cvs2fossil/lib/c2f_option.tcl
+++ tools/cvs2fossil/lib/c2f_option.tcl
@@ -29,11 +29,11 @@
29 package require vc::fossil::import::cvs::state ; # State storage
30 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
31 package require vc::fossil::import::cvs::cyclebreaker ; # Breaking dependency cycles.
32
33 # # ## ### ##### ######## ############# #####################
34 ##
35
36 snit::type ::vc::fossil::import::cvs::option {
37 # # ## ### ##### ######## #############
38 ## Public API, Options.
39
40
--- tools/cvs2fossil/lib/c2f_option.tcl
+++ tools/cvs2fossil/lib/c2f_option.tcl
@@ -29,11 +29,11 @@
29 package require vc::fossil::import::cvs::state ; # State storage
30 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
31 package require vc::fossil::import::cvs::cyclebreaker ; # Breaking dependency cycles.
32
33 # # ## ### ##### ######## ############# #####################
34 ##
35
36 snit::type ::vc::fossil::import::cvs::option {
37 # # ## ### ##### ######## #############
38 ## Public API, Options.
39
40
M tools/cvs2fossil/lib/c2f_pass.tcl
+6 -6
--- tools/cvs2fossil/lib/c2f_pass.tcl
+++ tools/cvs2fossil/lib/c2f_pass.tcl
@@ -24,11 +24,11 @@
2424
 package require vc::tools::trouble ; # Error reporting.
2525
 package require vc::tools::log ; # User feedback.
2626
 package require struct::list ; # Portable lassign
2727
2828
 # # ## ### ##### ######## ############# #####################
29
-##
29
+##
3030
3131
 snit::type ::vc::fossil::import::cvs::pass {
3232
 # # ## ### ##### ######## #############
3333
 ## Public API, Methods (Setup, query)
3434
@@ -102,25 +102,25 @@
102102
 set skipped [lrange $mypasses 0 [expr {$mystart - 1}]]
103103
 set run [lrange $mypasses $mystart $myend]
104104
 set defered [lrange $mypasses [expr {$myend + 1}] end]
105105
106106
 foreach p $skipped {
107
- log write 0 pass "Skip $p"
107
+ log write 0 pass "Skip $p"
108108
 Call $p load
109109
 }
110110
 foreach p $run {
111
- log write 0 pass "Setup $p"
111
+ log write 0 pass "Setup $p"
112112
 Call $p setup
113113
 }
114114
 foreach p $run {
115
- log write 0 pass "Begin $p"
115
+ log write 0 pass "Begin $p"
116116
 Time $p [lindex [time {Call $p run} 1] 0]
117117
 log write 0 pass "Done $p"
118118
 trouble abort?
119119
 }
120120
 foreach p $defered {
121
- log write 0 pass "Defer $p"
121
+ log write 0 pass "Defer $p"
122122
 Call $p discard
123123
 }
124124
125125
 state release
126126
 ShowTimes
@@ -199,15 +199,15 @@
199199
 namespace export pass
200200
 namespace eval pass {
201201
 namespace import ::vc::fossil::import::cvs::state
202202
 namespace import ::vc::tools::misc::*
203203
 namespace import ::vc::tools::trouble
204
- namespace import ::vc::tools::log
204
+ namespace import ::vc::tools::log
205205
 log register pass
206206
 }
207207
 }
208208
209209
 # # ## ### ##### ######## ############# #####################
210210
 ## Ready
211211
212212
 package provide vc::fossil::import::cvs::pass 1.0
213213
 return
214214
--- tools/cvs2fossil/lib/c2f_pass.tcl
+++ tools/cvs2fossil/lib/c2f_pass.tcl
@@ -24,11 +24,11 @@
24 package require vc::tools::trouble ; # Error reporting.
25 package require vc::tools::log ; # User feedback.
26 package require struct::list ; # Portable lassign
27
28 # # ## ### ##### ######## ############# #####################
29 ##
30
31 snit::type ::vc::fossil::import::cvs::pass {
32 # # ## ### ##### ######## #############
33 ## Public API, Methods (Setup, query)
34
@@ -102,25 +102,25 @@
102 set skipped [lrange $mypasses 0 [expr {$mystart - 1}]]
103 set run [lrange $mypasses $mystart $myend]
104 set defered [lrange $mypasses [expr {$myend + 1}] end]
105
106 foreach p $skipped {
107 log write 0 pass "Skip $p"
108 Call $p load
109 }
110 foreach p $run {
111 log write 0 pass "Setup $p"
112 Call $p setup
113 }
114 foreach p $run {
115 log write 0 pass "Begin $p"
116 Time $p [lindex [time {Call $p run} 1] 0]
117 log write 0 pass "Done $p"
118 trouble abort?
119 }
120 foreach p $defered {
121 log write 0 pass "Defer $p"
122 Call $p discard
123 }
124
125 state release
126 ShowTimes
@@ -199,15 +199,15 @@
199 namespace export pass
200 namespace eval pass {
201 namespace import ::vc::fossil::import::cvs::state
202 namespace import ::vc::tools::misc::*
203 namespace import ::vc::tools::trouble
204 namespace import ::vc::tools::log
205 log register pass
206 }
207 }
208
209 # # ## ### ##### ######## ############# #####################
210 ## Ready
211
212 package provide vc::fossil::import::cvs::pass 1.0
213 return
214
--- tools/cvs2fossil/lib/c2f_pass.tcl
+++ tools/cvs2fossil/lib/c2f_pass.tcl
@@ -24,11 +24,11 @@
24 package require vc::tools::trouble ; # Error reporting.
25 package require vc::tools::log ; # User feedback.
26 package require struct::list ; # Portable lassign
27
28 # # ## ### ##### ######## ############# #####################
29 ##
30
31 snit::type ::vc::fossil::import::cvs::pass {
32 # # ## ### ##### ######## #############
33 ## Public API, Methods (Setup, query)
34
@@ -102,25 +102,25 @@
102 set skipped [lrange $mypasses 0 [expr {$mystart - 1}]]
103 set run [lrange $mypasses $mystart $myend]
104 set defered [lrange $mypasses [expr {$myend + 1}] end]
105
106 foreach p $skipped {
107 log write 0 pass "Skip $p"
108 Call $p load
109 }
110 foreach p $run {
111 log write 0 pass "Setup $p"
112 Call $p setup
113 }
114 foreach p $run {
115 log write 0 pass "Begin $p"
116 Time $p [lindex [time {Call $p run} 1] 0]
117 log write 0 pass "Done $p"
118 trouble abort?
119 }
120 foreach p $defered {
121 log write 0 pass "Defer $p"
122 Call $p discard
123 }
124
125 state release
126 ShowTimes
@@ -199,15 +199,15 @@
199 namespace export pass
200 namespace eval pass {
201 namespace import ::vc::fossil::import::cvs::state
202 namespace import ::vc::tools::misc::*
203 namespace import ::vc::tools::trouble
204 namespace import ::vc::tools::log
205 log register pass
206 }
207 }
208
209 # # ## ### ##### ######## ############# #####################
210 ## Ready
211
212 package provide vc::fossil::import::cvs::pass 1.0
213 return
214
M tools/cvs2fossil/lib/c2f_patopsort.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_patopsort.tcl
+++ tools/cvs2fossil/lib/c2f_patopsort.tcl
@@ -33,11 +33,11 @@
3333
 AllTopologicalSort \
3434
 {Topologically Sort All ChangeSets} \
3535
 ::vc::fossil::import::cvs::pass::atopsort
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::atopsort {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
@@ -148,11 +148,11 @@
148148
 return $mylasttimestamp
149149
 }
150150
151151
 typevariable mysymchangesets {} ; # Set of the symbol changesets.
152152
 typevariable mylasttimestamp 0 ; # Last delivered timestamp.
153
- typevariable mymaxtimestamp
153
+ typevariable mymaxtimestamp
154154
155155
 typeconstructor {
156156
 # The maximum timestamp considered as reasonable is
157157
 # "now + 1 day".
158158
 set mymaxtimestamp [clock seconds]
159159
--- tools/cvs2fossil/lib/c2f_patopsort.tcl
+++ tools/cvs2fossil/lib/c2f_patopsort.tcl
@@ -33,11 +33,11 @@
33 AllTopologicalSort \
34 {Topologically Sort All ChangeSets} \
35 ::vc::fossil::import::cvs::pass::atopsort
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::atopsort {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -148,11 +148,11 @@
148 return $mylasttimestamp
149 }
150
151 typevariable mysymchangesets {} ; # Set of the symbol changesets.
152 typevariable mylasttimestamp 0 ; # Last delivered timestamp.
153 typevariable mymaxtimestamp
154
155 typeconstructor {
156 # The maximum timestamp considered as reasonable is
157 # "now + 1 day".
158 set mymaxtimestamp [clock seconds]
159
--- tools/cvs2fossil/lib/c2f_patopsort.tcl
+++ tools/cvs2fossil/lib/c2f_patopsort.tcl
@@ -33,11 +33,11 @@
33 AllTopologicalSort \
34 {Topologically Sort All ChangeSets} \
35 ::vc::fossil::import::cvs::pass::atopsort
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::atopsort {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -148,11 +148,11 @@
148 return $mylasttimestamp
149 }
150
151 typevariable mysymchangesets {} ; # Set of the symbol changesets.
152 typevariable mylasttimestamp 0 ; # Last delivered timestamp.
153 typevariable mymaxtimestamp
154
155 typeconstructor {
156 # The maximum timestamp considered as reasonable is
157 # "now + 1 day".
158 set mymaxtimestamp [clock seconds]
159
M tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
@@ -38,11 +38,11 @@
3838
 BreakAllCsetCycles \
3939
 {Break Remaining ChangeSet Dependency Cycles} \
4040
 ::vc::fossil::import::cvs::pass::breakacycle
4141
4242
 # # ## ### ##### ######## ############# #####################
43
-##
43
+##
4444
4545
 snit::type ::vc::fossil::import::cvs::pass::breakacycle {
4646
 # # ## ### ##### ######## #############
4747
 ## Public API
4848
4949
--- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
@@ -38,11 +38,11 @@
38 BreakAllCsetCycles \
39 {Break Remaining ChangeSet Dependency Cycles} \
40 ::vc::fossil::import::cvs::pass::breakacycle
41
42 # # ## ### ##### ######## ############# #####################
43 ##
44
45 snit::type ::vc::fossil::import::cvs::pass::breakacycle {
46 # # ## ### ##### ######## #############
47 ## Public API
48
49
--- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
@@ -38,11 +38,11 @@
38 BreakAllCsetCycles \
39 {Break Remaining ChangeSet Dependency Cycles} \
40 ::vc::fossil::import::cvs::pass::breakacycle
41
42 # # ## ### ##### ######## ############# #####################
43 ##
44
45 snit::type ::vc::fossil::import::cvs::pass::breakacycle {
46 # # ## ### ##### ######## #############
47 ## Public API
48
49
M tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
@@ -34,11 +34,11 @@
3434
 BreakRevCsetCycles \
3535
 {Break Revision ChangeSet Dependency Cycles} \
3636
 ::vc::fossil::import::cvs::pass::breakrcycle
3737
3838
 # # ## ### ##### ######## ############# #####################
39
-##
39
+##
4040
4141
 snit::type ::vc::fossil::import::cvs::pass::breakrcycle {
4242
 # # ## ### ##### ######## #############
4343
 ## Public API
4444
4545
--- tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
@@ -34,11 +34,11 @@
34 BreakRevCsetCycles \
35 {Break Revision ChangeSet Dependency Cycles} \
36 ::vc::fossil::import::cvs::pass::breakrcycle
37
38 # # ## ### ##### ######## ############# #####################
39 ##
40
41 snit::type ::vc::fossil::import::cvs::pass::breakrcycle {
42 # # ## ### ##### ######## #############
43 ## Public API
44
45
--- tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakrcycle.tcl
@@ -34,11 +34,11 @@
34 BreakRevCsetCycles \
35 {Break Revision ChangeSet Dependency Cycles} \
36 ::vc::fossil::import::cvs::pass::breakrcycle
37
38 # # ## ### ##### ######## ############# #####################
39 ##
40
41 snit::type ::vc::fossil::import::cvs::pass::breakrcycle {
42 # # ## ### ##### ######## #############
43 ## Public API
44
45
M tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
@@ -33,11 +33,11 @@
3333
 BreakSymCsetCycles \
3434
 {Break Symbol ChangeSet Dependency Cycles} \
3535
 ::vc::fossil::import::cvs::pass::breakscycle
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::breakscycle {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
4444
--- tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
@@ -33,11 +33,11 @@
33 BreakSymCsetCycles \
34 {Break Symbol ChangeSet Dependency Cycles} \
35 ::vc::fossil::import::cvs::pass::breakscycle
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::breakscycle {
41 # # ## ### ##### ######## #############
42 ## Public API
43
44
--- tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
+++ tools/cvs2fossil/lib/c2f_pbreakscycle.tcl
@@ -33,11 +33,11 @@
33 BreakSymCsetCycles \
34 {Break Symbol ChangeSet Dependency Cycles} \
35 ::vc::fossil::import::cvs::pass::breakscycle
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::breakscycle {
41 # # ## ### ##### ######## #############
42 ## Public API
43
44
M tools/cvs2fossil/lib/c2f_pcollar.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_pcollar.tcl
+++ tools/cvs2fossil/lib/c2f_pcollar.tcl
@@ -35,11 +35,11 @@
3535
 CollectAr \
3636
 {Collect archives in repository} \
3737
 ::vc::fossil::import::cvs::pass::collar
3838
3939
 # # ## ### ##### ######## ############# #####################
40
-##
40
+##
4141
4242
 snit::type ::vc::fossil::import::cvs::pass::collar {
4343
 # # ## ### ##### ######## #############
4444
 ## Public API
4545
@@ -78,11 +78,11 @@
7878
 UNIQUE (pid, name) -- file names are unique within a project
7979
 }
8080
 return
8181
 }
8282
83
- typemethod load {} {
83
+ typemethod load {} {
8484
 # Pass manager interface. Executed for all passes before the
8585
 # run passes, to load all data of their pass from the state,
8686
 # as if it had been computed by the pass itself.
8787
8888
 state reading project
8989
--- tools/cvs2fossil/lib/c2f_pcollar.tcl
+++ tools/cvs2fossil/lib/c2f_pcollar.tcl
@@ -35,11 +35,11 @@
35 CollectAr \
36 {Collect archives in repository} \
37 ::vc::fossil::import::cvs::pass::collar
38
39 # # ## ### ##### ######## ############# #####################
40 ##
41
42 snit::type ::vc::fossil::import::cvs::pass::collar {
43 # # ## ### ##### ######## #############
44 ## Public API
45
@@ -78,11 +78,11 @@
78 UNIQUE (pid, name) -- file names are unique within a project
79 }
80 return
81 }
82
83 typemethod load {} {
84 # Pass manager interface. Executed for all passes before the
85 # run passes, to load all data of their pass from the state,
86 # as if it had been computed by the pass itself.
87
88 state reading project
89
--- tools/cvs2fossil/lib/c2f_pcollar.tcl
+++ tools/cvs2fossil/lib/c2f_pcollar.tcl
@@ -35,11 +35,11 @@
35 CollectAr \
36 {Collect archives in repository} \
37 ::vc::fossil::import::cvs::pass::collar
38
39 # # ## ### ##### ######## ############# #####################
40 ##
41
42 snit::type ::vc::fossil::import::cvs::pass::collar {
43 # # ## ### ##### ######## #############
44 ## Public API
45
@@ -78,11 +78,11 @@
78 UNIQUE (pid, name) -- file names are unique within a project
79 }
80 return
81 }
82
83 typemethod load {} {
84 # Pass manager interface. Executed for all passes before the
85 # run passes, to load all data of their pass from the state,
86 # as if it had been computed by the pass itself.
87
88 state reading project
89
M tools/cvs2fossil/lib/c2f_pcollrev.tcl
+3 -3
--- tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -35,11 +35,11 @@
3535
 CollectRev \
3636
 {Collect revisions and symbols} \
3737
 ::vc::fossil::import::cvs::pass::collrev
3838
3939
 # # ## ### ##### ######## ############# #####################
40
-##
40
+##
4141
4242
 snit::type ::vc::fossil::import::cvs::pass::collrev {
4343
 # # ## ### ##### ######## #############
4444
 ## Public API
4545
@@ -212,20 +212,20 @@
212212
213213
 state writing blocker {
214214
 -- For each symbol we save which other symbols are
215215
 -- blocking its removal (if the user asks for it).
216216
217
- sid INTEGER NOT NULL REFERENCES symbol, --
217
+ sid INTEGER NOT NULL REFERENCES symbol, --
218218
 bid INTEGER NOT NULL REFERENCES symbol, -- Sprouted from sid, blocks it.
219219
 UNIQUE (sid, bid)
220220
 }
221221
222222
 state writing parent {
223223
 -- For each symbol we save which other symbols can act as
224224
 -- a possible parent in some file, and how often.
225225
226
- sid INTEGER NOT NULL REFERENCES symbol, --
226
+ sid INTEGER NOT NULL REFERENCES symbol, --
227227
 pid INTEGER NOT NULL REFERENCES symbol, -- Possible parent of sid
228228
 n INTEGER NOT NULL, -- How often pid can act as parent.
229229
 UNIQUE (sid, pid)
230230
 }
231231
232232
--- tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -35,11 +35,11 @@
35 CollectRev \
36 {Collect revisions and symbols} \
37 ::vc::fossil::import::cvs::pass::collrev
38
39 # # ## ### ##### ######## ############# #####################
40 ##
41
42 snit::type ::vc::fossil::import::cvs::pass::collrev {
43 # # ## ### ##### ######## #############
44 ## Public API
45
@@ -212,20 +212,20 @@
212
213 state writing blocker {
214 -- For each symbol we save which other symbols are
215 -- blocking its removal (if the user asks for it).
216
217 sid INTEGER NOT NULL REFERENCES symbol, --
218 bid INTEGER NOT NULL REFERENCES symbol, -- Sprouted from sid, blocks it.
219 UNIQUE (sid, bid)
220 }
221
222 state writing parent {
223 -- For each symbol we save which other symbols can act as
224 -- a possible parent in some file, and how often.
225
226 sid INTEGER NOT NULL REFERENCES symbol, --
227 pid INTEGER NOT NULL REFERENCES symbol, -- Possible parent of sid
228 n INTEGER NOT NULL, -- How often pid can act as parent.
229 UNIQUE (sid, pid)
230 }
231
232
--- tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -35,11 +35,11 @@
35 CollectRev \
36 {Collect revisions and symbols} \
37 ::vc::fossil::import::cvs::pass::collrev
38
39 # # ## ### ##### ######## ############# #####################
40 ##
41
42 snit::type ::vc::fossil::import::cvs::pass::collrev {
43 # # ## ### ##### ######## #############
44 ## Public API
45
@@ -212,20 +212,20 @@
212
213 state writing blocker {
214 -- For each symbol we save which other symbols are
215 -- blocking its removal (if the user asks for it).
216
217 sid INTEGER NOT NULL REFERENCES symbol, --
218 bid INTEGER NOT NULL REFERENCES symbol, -- Sprouted from sid, blocks it.
219 UNIQUE (sid, bid)
220 }
221
222 state writing parent {
223 -- For each symbol we save which other symbols can act as
224 -- a possible parent in some file, and how often.
225
226 sid INTEGER NOT NULL REFERENCES symbol, --
227 pid INTEGER NOT NULL REFERENCES symbol, -- Possible parent of sid
228 n INTEGER NOT NULL, -- How often pid can act as parent.
229 UNIQUE (sid, pid)
230 }
231
232
M tools/cvs2fossil/lib/c2f_pcollsym.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_pcollsym.tcl
+++ tools/cvs2fossil/lib/c2f_pcollsym.tcl
@@ -33,11 +33,11 @@
3333
 CollateSymbols \
3434
 {Collate symbols} \
3535
 ::vc::fossil::import::cvs::pass::collsym
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::collsym {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
@@ -182,11 +182,11 @@
182182
 AND S.type = $tag
183183
 AND S.commit_count > 0
184184
 }] {
185185
 trouble fatal "$pname : The symbol '$sname' cannot be forced to be converted as tag because it has commits."
186186
 }
187
- return
187
+ return
188188
 }
189189
190190
 proc DropExcludedSymbolsFromReferences {} {
191191
 # The excluded symbols cann be used as blockers nor as
192192
 # possible parent for other symbols. We now drop the relevant
193193
--- tools/cvs2fossil/lib/c2f_pcollsym.tcl
+++ tools/cvs2fossil/lib/c2f_pcollsym.tcl
@@ -33,11 +33,11 @@
33 CollateSymbols \
34 {Collate symbols} \
35 ::vc::fossil::import::cvs::pass::collsym
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::collsym {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -182,11 +182,11 @@
182 AND S.type = $tag
183 AND S.commit_count > 0
184 }] {
185 trouble fatal "$pname : The symbol '$sname' cannot be forced to be converted as tag because it has commits."
186 }
187 return
188 }
189
190 proc DropExcludedSymbolsFromReferences {} {
191 # The excluded symbols cann be used as blockers nor as
192 # possible parent for other symbols. We now drop the relevant
193
--- tools/cvs2fossil/lib/c2f_pcollsym.tcl
+++ tools/cvs2fossil/lib/c2f_pcollsym.tcl
@@ -33,11 +33,11 @@
33 CollateSymbols \
34 {Collate symbols} \
35 ::vc::fossil::import::cvs::pass::collsym
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::collsym {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -182,11 +182,11 @@
182 AND S.type = $tag
183 AND S.commit_count > 0
184 }] {
185 trouble fatal "$pname : The symbol '$sname' cannot be forced to be converted as tag because it has commits."
186 }
187 return
188 }
189
190 proc DropExcludedSymbolsFromReferences {} {
191 # The excluded symbols cann be used as blockers nor as
192 # possible parent for other symbols. We now drop the relevant
193
M tools/cvs2fossil/lib/c2f_pfiltersym.tcl
+3 -3
--- tools/cvs2fossil/lib/c2f_pfiltersym.tcl
+++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl
@@ -33,11 +33,11 @@
3333
 FilterSymbols \
3434
 {Filter symbols, remove all excluded pieces} \
3535
 ::vc::fossil::import::cvs::pass::filtersym
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::filtersym {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
@@ -314,21 +314,21 @@
314314
 FROM tag T, preferedparent P, symbol S, revision R
315315
 WHERE T.sid = P.sid
316316
 AND T.lod != P.pid
317317
 AND P.pid = S.sid
318318
 AND S.name != ':trunk:'
319
- AND T.rev = R.rid
319
+ AND T.rev = R.rid
320320
 }]
321321
322322
 set branchestoadjust [state run {
323323
 SELECT B.bid, B.fid, B.lod, B.pos, P.pid, S.name, R.rev, R.rid
324324
 FROM branch B, preferedparent P, symbol S, revision R
325325
 WHERE B.sid = P.sid
326326
 AND B.lod != P.pid
327327
 AND P.pid = S.sid
328328
 AND S.name != ':trunk:'
329
- AND B.root = R.rid
329
+ AND B.root = R.rid
330330
 }]
331331
332332
 set tmax [expr {[llength $tagstoadjust] / 7}]
333333
 set bmax [expr {[llength $branchestoadjust] / 8}]
334334
335335
--- tools/cvs2fossil/lib/c2f_pfiltersym.tcl
+++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl
@@ -33,11 +33,11 @@
33 FilterSymbols \
34 {Filter symbols, remove all excluded pieces} \
35 ::vc::fossil::import::cvs::pass::filtersym
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::filtersym {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -314,21 +314,21 @@
314 FROM tag T, preferedparent P, symbol S, revision R
315 WHERE T.sid = P.sid
316 AND T.lod != P.pid
317 AND P.pid = S.sid
318 AND S.name != ':trunk:'
319 AND T.rev = R.rid
320 }]
321
322 set branchestoadjust [state run {
323 SELECT B.bid, B.fid, B.lod, B.pos, P.pid, S.name, R.rev, R.rid
324 FROM branch B, preferedparent P, symbol S, revision R
325 WHERE B.sid = P.sid
326 AND B.lod != P.pid
327 AND P.pid = S.sid
328 AND S.name != ':trunk:'
329 AND B.root = R.rid
330 }]
331
332 set tmax [expr {[llength $tagstoadjust] / 7}]
333 set bmax [expr {[llength $branchestoadjust] / 8}]
334
335
--- tools/cvs2fossil/lib/c2f_pfiltersym.tcl
+++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl
@@ -33,11 +33,11 @@
33 FilterSymbols \
34 {Filter symbols, remove all excluded pieces} \
35 ::vc::fossil::import::cvs::pass::filtersym
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::filtersym {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -314,21 +314,21 @@
314 FROM tag T, preferedparent P, symbol S, revision R
315 WHERE T.sid = P.sid
316 AND T.lod != P.pid
317 AND P.pid = S.sid
318 AND S.name != ':trunk:'
319 AND T.rev = R.rid
320 }]
321
322 set branchestoadjust [state run {
323 SELECT B.bid, B.fid, B.lod, B.pos, P.pid, S.name, R.rev, R.rid
324 FROM branch B, preferedparent P, symbol S, revision R
325 WHERE B.sid = P.sid
326 AND B.lod != P.pid
327 AND P.pid = S.sid
328 AND S.name != ':trunk:'
329 AND B.root = R.rid
330 }]
331
332 set tmax [expr {[llength $tagstoadjust] / 7}]
333 set bmax [expr {[llength $branchestoadjust] / 8}]
334
335
M tools/cvs2fossil/lib/c2f_pinitcsets.tcl
+2 -2
--- tools/cvs2fossil/lib/c2f_pinitcsets.tcl
+++ tools/cvs2fossil/lib/c2f_pinitcsets.tcl
@@ -33,11 +33,11 @@
3333
 InitCsets \
3434
 {Initialize ChangeSets} \
3535
 ::vc::fossil::import::cvs::pass::initcsets
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::initcsets {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
@@ -78,11 +78,11 @@
7878
 # within a changeset. They are unique within the changeset.
7979
 # The revisions are in principle unique, if we were looking
8080
 # only at revision changesets. However a revision can appear
8181
 # in both revision and symbol changesets, and in multiple
8282
 # symbol changesets as well. So we can only say that it is
83
- # unique within the changeset.
83
+ # unique within the changeset.
8484
 #
8585
 # TODO: Check if integrity checks are possible.
8686
8787
 state writing csrevision {
8888
 cid INTEGER NOT NULL REFERENCES changeset,
8989
--- tools/cvs2fossil/lib/c2f_pinitcsets.tcl
+++ tools/cvs2fossil/lib/c2f_pinitcsets.tcl
@@ -33,11 +33,11 @@
33 InitCsets \
34 {Initialize ChangeSets} \
35 ::vc::fossil::import::cvs::pass::initcsets
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::initcsets {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -78,11 +78,11 @@
78 # within a changeset. They are unique within the changeset.
79 # The revisions are in principle unique, if we were looking
80 # only at revision changesets. However a revision can appear
81 # in both revision and symbol changesets, and in multiple
82 # symbol changesets as well. So we can only say that it is
83 # unique within the changeset.
84 #
85 # TODO: Check if integrity checks are possible.
86
87 state writing csrevision {
88 cid INTEGER NOT NULL REFERENCES changeset,
89
--- tools/cvs2fossil/lib/c2f_pinitcsets.tcl
+++ tools/cvs2fossil/lib/c2f_pinitcsets.tcl
@@ -33,11 +33,11 @@
33 InitCsets \
34 {Initialize ChangeSets} \
35 ::vc::fossil::import::cvs::pass::initcsets
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::initcsets {
41 # # ## ### ##### ######## #############
42 ## Public API
43
@@ -78,11 +78,11 @@
78 # within a changeset. They are unique within the changeset.
79 # The revisions are in principle unique, if we were looking
80 # only at revision changesets. However a revision can appear
81 # in both revision and symbol changesets, and in multiple
82 # symbol changesets as well. So we can only say that it is
83 # unique within the changeset.
84 #
85 # TODO: Check if integrity checks are possible.
86
87 state writing csrevision {
88 cid INTEGER NOT NULL REFERENCES changeset,
89
M tools/cvs2fossil/lib/c2f_plodmgr.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_plodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_plodmgr.tcl
@@ -17,11 +17,11 @@
1717
1818
 package require Tcl 8.4 ; # Required runtime.
1919
 package require snit ; # OO system.
2020
2121
 # # ## ### ##### ######## ############# #####################
22
-##
22
+##
2323
2424
 snit::type ::vc::fossil::import::cvs::project::lodmgr {
2525
 # # ## ### ##### ######## #############
2626
 ## Public API
2727
2828
--- tools/cvs2fossil/lib/c2f_plodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_plodmgr.tcl
@@ -17,11 +17,11 @@
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
--- tools/cvs2fossil/lib/c2f_plodmgr.tcl
+++ tools/cvs2fossil/lib/c2f_plodmgr.tcl
@@ -17,11 +17,11 @@
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
M tools/cvs2fossil/lib/c2f_prev.tcl
+4 -4
--- tools/cvs2fossil/lib/c2f_prev.tcl
+++ tools/cvs2fossil/lib/c2f_prev.tcl
@@ -23,11 +23,11 @@
2323
 package require vc::tools::log ; # User feedback.
2424
 package require vc::fossil::import::cvs::state ; # State storage.
2525
 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
2626
2727
 # # ## ### ##### ######## ############# #####################
28
-##
28
+##
2929
3030
 snit::type ::vc::fossil::import::cvs::project::rev {
3131
 # # ## ### ##### ######## #############
3232
 ## Public API
3333
@@ -37,12 +37,12 @@
3737
 } else {
3838
 set myid [incr mycounter]
3939
 }
4040
4141
 set myproject $project
42
- set mytype $cstype
43
- set mysrcid $srcid
42
+ set mytype $cstype
43
+ set mysrcid $srcid
4444
 set myrevisions $revisions
4545
 set mypos {} ; # Commit location is not known yet.
4646
4747
 # Keep track of the generated changesets and of the inverse
4848
 # mapping from revisions to them.
@@ -571,11 +571,11 @@
571571
 array set pos {}
572572
 array set cross {}
573573
 array set depc {}
574574
 set range {}
575575
 set n 0
576
- foreach rev $revisions {
576
+ foreach rev $revisions {
577577
 lappend range $n
578578
 set pos($rev) $n
579579
 set cross($n) 0
580580
 incr n
581581
 }
582582
--- tools/cvs2fossil/lib/c2f_prev.tcl
+++ tools/cvs2fossil/lib/c2f_prev.tcl
@@ -23,11 +23,11 @@
23 package require vc::tools::log ; # User feedback.
24 package require vc::fossil::import::cvs::state ; # State storage.
25 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::project::rev {
31 # # ## ### ##### ######## #############
32 ## Public API
33
@@ -37,12 +37,12 @@
37 } else {
38 set myid [incr mycounter]
39 }
40
41 set myproject $project
42 set mytype $cstype
43 set mysrcid $srcid
44 set myrevisions $revisions
45 set mypos {} ; # Commit location is not known yet.
46
47 # Keep track of the generated changesets and of the inverse
48 # mapping from revisions to them.
@@ -571,11 +571,11 @@
571 array set pos {}
572 array set cross {}
573 array set depc {}
574 set range {}
575 set n 0
576 foreach rev $revisions {
577 lappend range $n
578 set pos($rev) $n
579 set cross($n) 0
580 incr n
581 }
582
--- tools/cvs2fossil/lib/c2f_prev.tcl
+++ tools/cvs2fossil/lib/c2f_prev.tcl
@@ -23,11 +23,11 @@
23 package require vc::tools::log ; # User feedback.
24 package require vc::fossil::import::cvs::state ; # State storage.
25 package require vc::fossil::import::cvs::project::sym ; # Project level symbols
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::project::rev {
31 # # ## ### ##### ######## #############
32 ## Public API
33
@@ -37,12 +37,12 @@
37 } else {
38 set myid [incr mycounter]
39 }
40
41 set myproject $project
42 set mytype $cstype
43 set mysrcid $srcid
44 set myrevisions $revisions
45 set mypos {} ; # Commit location is not known yet.
46
47 # Keep track of the generated changesets and of the inverse
48 # mapping from revisions to them.
@@ -571,11 +571,11 @@
571 array set pos {}
572 array set cross {}
573 array set depc {}
574 set range {}
575 set n 0
576 foreach rev $revisions {
577 lappend range $n
578 set pos($rev) $n
579 set cross($n) 0
580 incr n
581 }
582
M tools/cvs2fossil/lib/c2f_prevlink.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -29,11 +29,11 @@
2929
 package require vc::tools::log ; # User feedback.
3030
 package require vc::fossil::import::cvs::state ; # State storage.
3131
 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
3232
3333
 # # ## ### ##### ######## ############# #####################
34
-##
34
+##
3535
3636
 snit::type ::vc::fossil::import::cvs::project::revlink {
3737
 # # ## ### ##### ######## #############
3838
 ## Public API
3939
4040
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -29,11 +29,11 @@
29 package require vc::tools::log ; # User feedback.
30 package require vc::fossil::import::cvs::state ; # State storage.
31 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
32
33 # # ## ### ##### ######## ############# #####################
34 ##
35
36 snit::type ::vc::fossil::import::cvs::project::revlink {
37 # # ## ### ##### ######## #############
38 ## Public API
39
40
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -29,11 +29,11 @@
29 package require vc::tools::log ; # User feedback.
30 package require vc::fossil::import::cvs::state ; # State storage.
31 package require vc::fossil::import::cvs::project::rev ; # Project level changesets
32
33 # # ## ### ##### ######## ############# #####################
34 ##
35
36 snit::type ::vc::fossil::import::cvs::project::revlink {
37 # # ## ### ##### ######## #############
38 ## Public API
39
40
M tools/cvs2fossil/lib/c2f_project.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_project.tcl
+++ tools/cvs2fossil/lib/c2f_project.tcl
@@ -23,11 +23,11 @@
2323
 package require vc::fossil::import::cvs::project::trunk ; # Per project trunk, main lod
2424
 package require vc::tools::log ; # User feedback
2525
 package require struct::list ; # Advanced list operations..
2626
2727
 # # ## ### ##### ######## ############# #####################
28
-##
28
+##
2929
3030
 snit::type ::vc::fossil::import::cvs::project {
3131
 # # ## ### ##### ######## #############
3232
 ## Public API
3333
3434
--- tools/cvs2fossil/lib/c2f_project.tcl
+++ tools/cvs2fossil/lib/c2f_project.tcl
@@ -23,11 +23,11 @@
23 package require vc::fossil::import::cvs::project::trunk ; # Per project trunk, main lod
24 package require vc::tools::log ; # User feedback
25 package require struct::list ; # Advanced list operations..
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::project {
31 # # ## ### ##### ######## #############
32 ## Public API
33
34
--- tools/cvs2fossil/lib/c2f_project.tcl
+++ tools/cvs2fossil/lib/c2f_project.tcl
@@ -23,11 +23,11 @@
23 package require vc::fossil::import::cvs::project::trunk ; # Per project trunk, main lod
24 package require vc::tools::log ; # User feedback
25 package require struct::list ; # Advanced list operations..
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::project {
31 # # ## ### ##### ######## #############
32 ## Public API
33
34
M tools/cvs2fossil/lib/c2f_prtopsort.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_prtopsort.tcl
+++ tools/cvs2fossil/lib/c2f_prtopsort.tcl
@@ -33,11 +33,11 @@
3333
 RevTopologicalSort \
3434
 {Topologically Sort Revision ChangeSets} \
3535
 ::vc::fossil::import::cvs::pass::rtopsort
3636
3737
 # # ## ### ##### ######## ############# #####################
38
-##
38
+##
3939
4040
 snit::type ::vc::fossil::import::cvs::pass::rtopsort {
4141
 # # ## ### ##### ######## #############
4242
 ## Public API
4343
4444
--- tools/cvs2fossil/lib/c2f_prtopsort.tcl
+++ tools/cvs2fossil/lib/c2f_prtopsort.tcl
@@ -33,11 +33,11 @@
33 RevTopologicalSort \
34 {Topologically Sort Revision ChangeSets} \
35 ::vc::fossil::import::cvs::pass::rtopsort
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::rtopsort {
41 # # ## ### ##### ######## #############
42 ## Public API
43
44
--- tools/cvs2fossil/lib/c2f_prtopsort.tcl
+++ tools/cvs2fossil/lib/c2f_prtopsort.tcl
@@ -33,11 +33,11 @@
33 RevTopologicalSort \
34 {Topologically Sort Revision ChangeSets} \
35 ::vc::fossil::import::cvs::pass::rtopsort
36
37 # # ## ### ##### ######## ############# #####################
38 ##
39
40 snit::type ::vc::fossil::import::cvs::pass::rtopsort {
41 # # ## ### ##### ######## #############
42 ## Public API
43
44
M tools/cvs2fossil/lib/c2f_psym.tcl
+3 -3
--- tools/cvs2fossil/lib/c2f_psym.tcl
+++ tools/cvs2fossil/lib/c2f_psym.tcl
@@ -22,11 +22,11 @@
2222
 package require vc::tools::misc ; # Text formatting.
2323
 package require vc::fossil::import::cvs::state ; # State storage.
2424
 package require struct::set ; # Set handling.
2525
2626
 # # ## ### ##### ######## ############# #####################
27
-##
27
+##
2828
2929
 snit::type ::vc::fossil::import::cvs::project::sym {
3030
 # # ## ### ##### ######## #############
3131
 ## Public API
3232
@@ -57,11 +57,11 @@
5757
 # - Is usage unambigous ?
5858
 # - Was there ever a commit on the symbol ?
5959
 # - More used as tag, or more used as branch ?
6060
 # - At last, what has the user told us about it ?
6161
 # - Fail
62
-
62
+
6363
 foreach rule {
6464
 UserConfig
6565
 Unambigous
6666
 HasCommits
6767
 VoteCounts
@@ -336,11 +336,11 @@
336336
337337
 method Unambigous {} {
338338
 # If a symbol is used unambiguously as a tag/branch, convert
339339
 # it as such.
340340
341
- set istag [expr {$mytagcount > 0}]
341
+ set istag [expr {$mytagcount > 0}]
342342
 set isbranch [expr {$mybranchcount > 0 || $mycommitcount > 0}]
343343
344344
 if {$istag && $isbranch} { return $myundef }
345345
 if {$istag} { return $mytag }
346346
 if {$isbranch} { return $mybranch }
347347
--- tools/cvs2fossil/lib/c2f_psym.tcl
+++ tools/cvs2fossil/lib/c2f_psym.tcl
@@ -22,11 +22,11 @@
22 package require vc::tools::misc ; # Text formatting.
23 package require vc::fossil::import::cvs::state ; # State storage.
24 package require struct::set ; # Set handling.
25
26 # # ## ### ##### ######## ############# #####################
27 ##
28
29 snit::type ::vc::fossil::import::cvs::project::sym {
30 # # ## ### ##### ######## #############
31 ## Public API
32
@@ -57,11 +57,11 @@
57 # - Is usage unambigous ?
58 # - Was there ever a commit on the symbol ?
59 # - More used as tag, or more used as branch ?
60 # - At last, what has the user told us about it ?
61 # - Fail
62
63 foreach rule {
64 UserConfig
65 Unambigous
66 HasCommits
67 VoteCounts
@@ -336,11 +336,11 @@
336
337 method Unambigous {} {
338 # If a symbol is used unambiguously as a tag/branch, convert
339 # it as such.
340
341 set istag [expr {$mytagcount > 0}]
342 set isbranch [expr {$mybranchcount > 0 || $mycommitcount > 0}]
343
344 if {$istag && $isbranch} { return $myundef }
345 if {$istag} { return $mytag }
346 if {$isbranch} { return $mybranch }
347
--- tools/cvs2fossil/lib/c2f_psym.tcl
+++ tools/cvs2fossil/lib/c2f_psym.tcl
@@ -22,11 +22,11 @@
22 package require vc::tools::misc ; # Text formatting.
23 package require vc::fossil::import::cvs::state ; # State storage.
24 package require struct::set ; # Set handling.
25
26 # # ## ### ##### ######## ############# #####################
27 ##
28
29 snit::type ::vc::fossil::import::cvs::project::sym {
30 # # ## ### ##### ######## #############
31 ## Public API
32
@@ -57,11 +57,11 @@
57 # - Is usage unambigous ?
58 # - Was there ever a commit on the symbol ?
59 # - More used as tag, or more used as branch ?
60 # - At last, what has the user told us about it ?
61 # - Fail
62
63 foreach rule {
64 UserConfig
65 Unambigous
66 HasCommits
67 VoteCounts
@@ -336,11 +336,11 @@
336
337 method Unambigous {} {
338 # If a symbol is used unambiguously as a tag/branch, convert
339 # it as such.
340
341 set istag [expr {$mytagcount > 0}]
342 set isbranch [expr {$mybranchcount > 0 || $mycommitcount > 0}]
343
344 if {$istag && $isbranch} { return $myundef }
345 if {$istag} { return $mytag }
346 if {$isbranch} { return $mybranch }
347
M tools/cvs2fossil/lib/c2f_ptrunk.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_ptrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ptrunk.tcl
@@ -17,11 +17,11 @@
1717
1818
 package require Tcl 8.4 ; # Required runtime.
1919
 package require snit ; # OO system.
2020
2121
 # # ## ### ##### ######## ############# #####################
22
-##
22
+##
2323
2424
 snit::type ::vc::fossil::import::cvs::project::trunk {
2525
 # # ## ### ##### ######## #############
2626
 ## Public API
2727
2828
--- tools/cvs2fossil/lib/c2f_ptrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ptrunk.tcl
@@ -17,11 +17,11 @@
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::trunk {
25 # # ## ### ##### ######## #############
26 ## Public API
27
28
--- tools/cvs2fossil/lib/c2f_ptrunk.tcl
+++ tools/cvs2fossil/lib/c2f_ptrunk.tcl
@@ -17,11 +17,11 @@
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::trunk {
25 # # ## ### ##### ######## #############
26 ## Public API
27
28
M tools/cvs2fossil/lib/c2f_repository.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_repository.tcl
+++ tools/cvs2fossil/lib/c2f_repository.tcl
@@ -27,11 +27,11 @@
2727
 package require vc::fossil::import::cvs::state ; # State storage.
2828
 package require struct::list ; # List operations.
2929
 package require fileutil ; # File operations.
3030
3131
 # # ## ### ##### ######## ############# #####################
32
-##
32
+##
3333
3434
 snit::type ::vc::fossil::import::cvs::repository {
3535
 # # ## ### ##### ######## #############
3636
 ## Public API
3737
3838
--- tools/cvs2fossil/lib/c2f_repository.tcl
+++ tools/cvs2fossil/lib/c2f_repository.tcl
@@ -27,11 +27,11 @@
27 package require vc::fossil::import::cvs::state ; # State storage.
28 package require struct::list ; # List operations.
29 package require fileutil ; # File operations.
30
31 # # ## ### ##### ######## ############# #####################
32 ##
33
34 snit::type ::vc::fossil::import::cvs::repository {
35 # # ## ### ##### ######## #############
36 ## Public API
37
38
--- tools/cvs2fossil/lib/c2f_repository.tcl
+++ tools/cvs2fossil/lib/c2f_repository.tcl
@@ -27,11 +27,11 @@
27 package require vc::fossil::import::cvs::state ; # State storage.
28 package require struct::list ; # List operations.
29 package require fileutil ; # File operations.
30
31 # # ## ### ##### ######## ############# #####################
32 ##
33
34 snit::type ::vc::fossil::import::cvs::repository {
35 # # ## ### ##### ######## #############
36 ## Public API
37
38
M tools/cvs2fossil/lib/c2f_state.tcl
+1 -1
--- tools/cvs2fossil/lib/c2f_state.tcl
+++ tools/cvs2fossil/lib/c2f_state.tcl
@@ -23,11 +23,11 @@
2323
 package require sqlite3 ; # Database access.
2424
 package require vc::tools::trouble ; # Error reporting.
2525
 package require vc::tools::log ; # User feedback.
2626
2727
 # # ## ### ##### ######## ############# #####################
28
-##
28
+##
2929
3030
 snit::type ::vc::fossil::import::cvs::state {
3131
 # # ## ### ##### ######## #############
3232
 ## Public API
3333
3434
--- tools/cvs2fossil/lib/c2f_state.tcl
+++ tools/cvs2fossil/lib/c2f_state.tcl
@@ -23,11 +23,11 @@
23 package require sqlite3 ; # Database access.
24 package require vc::tools::trouble ; # Error reporting.
25 package require vc::tools::log ; # User feedback.
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::state {
31 # # ## ### ##### ######## #############
32 ## Public API
33
34
--- tools/cvs2fossil/lib/c2f_state.tcl
+++ tools/cvs2fossil/lib/c2f_state.tcl
@@ -23,11 +23,11 @@
23 package require sqlite3 ; # Database access.
24 package require vc::tools::trouble ; # Error reporting.
25 package require vc::tools::log ; # User feedback.
26
27 # # ## ### ##### ######## ############# #####################
28 ##
29
30 snit::type ::vc::fossil::import::cvs::state {
31 # # ## ### ##### ######## #############
32 ## Public API
33
34
M tools/cvs2fossil/lib/cvs2fossil.tcl
+1 -1
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -47,11 +47,11 @@
4747
 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
4848
 package require vc::fossil::import::cvs::pass ; # Pass management
4949
 package require vc::tools::log ; # User feedback
5050
5151
 # # ## ### ##### ######## ############# #####################
52
-##
52
+##
5353
5454
 snit::type ::vc::fossil::import::cvs {
5555
 # # ## ### ##### ######## #############
5656
 ## Public API, Methods
5757
5858
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -47,11 +47,11 @@
47 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
48 package require vc::fossil::import::cvs::pass ; # Pass management
49 package require vc::tools::log ; # User feedback
50
51 # # ## ### ##### ######## ############# #####################
52 ##
53
54 snit::type ::vc::fossil::import::cvs {
55 # # ## ### ##### ######## #############
56 ## Public API, Methods
57
58
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -47,11 +47,11 @@
47 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
48 package require vc::fossil::import::cvs::pass ; # Pass management
49 package require vc::tools::log ; # User feedback
50
51 # # ## ### ##### ######## ############# #####################
52 ##
53
54 snit::type ::vc::fossil::import::cvs {
55 # # ## ### ##### ######## #############
56 ## Public API, Methods
57
58
M tools/cvs2fossil/lib/dot.tcl
+1 -1
--- tools/cvs2fossil/lib/dot.tcl
+++ tools/cvs2fossil/lib/dot.tcl
@@ -19,11 +19,11 @@
1919
 package require Tcl 8.4 ; # Required runtime
2020
 package require snit ; # OO system.
2121
 package require fileutil ; # Helper commands.
2222
2323
 # # ## ### ##### ######## ############# #####################
24
-##
24
+##
2525
2626
 snit::type ::vc::tools::dot {
2727
 # # ## ### ##### ######## #############
2828
 ## Public API, Methods
2929
3030
--- tools/cvs2fossil/lib/dot.tcl
+++ tools/cvs2fossil/lib/dot.tcl
@@ -19,11 +19,11 @@
19 package require Tcl 8.4 ; # Required runtime
20 package require snit ; # OO system.
21 package require fileutil ; # Helper commands.
22
23 # # ## ### ##### ######## ############# #####################
24 ##
25
26 snit::type ::vc::tools::dot {
27 # # ## ### ##### ######## #############
28 ## Public API, Methods
29
30
--- tools/cvs2fossil/lib/dot.tcl
+++ tools/cvs2fossil/lib/dot.tcl
@@ -19,11 +19,11 @@
19 package require Tcl 8.4 ; # Required runtime
20 package require snit ; # OO system.
21 package require fileutil ; # Helper commands.
22
23 # # ## ### ##### ######## ############# #####################
24 ##
25
26 snit::type ::vc::tools::dot {
27 # # ## ### ##### ######## #############
28 ## Public API, Methods
29
30
M tools/cvs2fossil/lib/log.tcl
+1 -1
--- tools/cvs2fossil/lib/log.tcl
+++ tools/cvs2fossil/lib/log.tcl
@@ -17,11 +17,11 @@
1717
1818
 package require Tcl 8.4 ; # Required runtime
1919
 package require snit ; # OO system.
2020
2121
 # # ## ### ##### ######## ############# #####################
22
-##
22
+##
2323
2424
 snit::type ::vc::tools::log {
2525
 # # ## ### ##### ######## #############
2626
 ## Public API, Methods
2727
2828
--- tools/cvs2fossil/lib/log.tcl
+++ tools/cvs2fossil/lib/log.tcl
@@ -17,11 +17,11 @@
17
18 package require Tcl 8.4 ; # Required runtime
19 package require snit ; # OO system.
20
21 # # ## ### ##### ######## ############# #####################
22 ##
23
24 snit::type ::vc::tools::log {
25 # # ## ### ##### ######## #############
26 ## Public API, Methods
27
28
--- tools/cvs2fossil/lib/log.tcl
+++ tools/cvs2fossil/lib/log.tcl
@@ -17,11 +17,11 @@
17
18 package require Tcl 8.4 ; # Required runtime
19 package require snit ; # OO system.
20
21 # # ## ### ##### ######## ############# #####################
22 ##
23
24 snit::type ::vc::tools::log {
25 # # ## ### ##### ######## #############
26 ## Public API, Methods
27
28
M tools/cvs2fossil/lib/misc.tcl
+1 -1
--- tools/cvs2fossil/lib/misc.tcl
+++ tools/cvs2fossil/lib/misc.tcl
@@ -16,11 +16,11 @@
1616
 ## Requirements
1717
1818
 package require Tcl 8.4 ; # Required runtime
1919
2020
 # # ## ### ##### ######## ############# #####################
21
-##
21
+##
2222
2323
 namespace eval ::vc::tools::misc {
2424
 # # ## ### ##### ######## #############
2525
 ## Public API, Methods
2626
2727
--- tools/cvs2fossil/lib/misc.tcl
+++ tools/cvs2fossil/lib/misc.tcl
@@ -16,11 +16,11 @@
16 ## Requirements
17
18 package require Tcl 8.4 ; # Required runtime
19
20 # # ## ### ##### ######## ############# #####################
21 ##
22
23 namespace eval ::vc::tools::misc {
24 # # ## ### ##### ######## #############
25 ## Public API, Methods
26
27
--- tools/cvs2fossil/lib/misc.tcl
+++ tools/cvs2fossil/lib/misc.tcl
@@ -16,11 +16,11 @@
16 ## Requirements
17
18 package require Tcl 8.4 ; # Required runtime
19
20 # # ## ### ##### ######## ############# #####################
21 ##
22
23 namespace eval ::vc::tools::misc {
24 # # ## ### ##### ######## #############
25 ## Public API, Methods
26
27
M tools/cvs2fossil/lib/rcsparser.tcl
+3 -3
--- tools/cvs2fossil/lib/rcsparser.tcl
+++ tools/cvs2fossil/lib/rcsparser.tcl
@@ -25,11 +25,11 @@
2525
 package require fileutil ; # File utilities.
2626
 package require vc::tools::log ; # User feedback.
2727
 package require struct::list ; # Advanced list ops.
2828
2929
 # # ## ### ##### ######## ############# #####################
30
-##
30
+##
3131
3232
 snit::type ::vc::rcs::parser {
3333
 # # ## ### ##### ######## #############
3434
 ## Public API
3535
@@ -424,19 +424,19 @@
424424
 proc Expected {x} {
425425
 ::variable mydata
426426
 ::variable mypos
427427
 set e $mypos ; incr e 30
428428
 return -code error -errorcode vc::rcs::parser \
429
- "Expected $x @ '[string range $mydata $mypos $e]...'"
429
+ "Expected $x @ '[string range $mydata $mypos $e]...'"
430430
 }
431431
432432
 proc Bad {x} {
433433
 ::variable mydata
434434
 ::variable mypos
435435
 set e $mypos ; incr e 30
436436
 return -code error -errorcode vc::rcs::parser \
437
- "Bad $x @ '[string range $mydata $mypos $e]...'"
437
+ "Bad $x @ '[string range $mydata $mypos $e]...'"
438438
 }
439439
440440
 # # ## ### ##### ######## #############
441441
 ## Setup, callbacks.
442442
443443
--- tools/cvs2fossil/lib/rcsparser.tcl
+++ tools/cvs2fossil/lib/rcsparser.tcl
@@ -25,11 +25,11 @@
25 package require fileutil ; # File utilities.
26 package require vc::tools::log ; # User feedback.
27 package require struct::list ; # Advanced list ops.
28
29 # # ## ### ##### ######## ############# #####################
30 ##
31
32 snit::type ::vc::rcs::parser {
33 # # ## ### ##### ######## #############
34 ## Public API
35
@@ -424,19 +424,19 @@
424 proc Expected {x} {
425 ::variable mydata
426 ::variable mypos
427 set e $mypos ; incr e 30
428 return -code error -errorcode vc::rcs::parser \
429 "Expected $x @ '[string range $mydata $mypos $e]...'"
430 }
431
432 proc Bad {x} {
433 ::variable mydata
434 ::variable mypos
435 set e $mypos ; incr e 30
436 return -code error -errorcode vc::rcs::parser \
437 "Bad $x @ '[string range $mydata $mypos $e]...'"
438 }
439
440 # # ## ### ##### ######## #############
441 ## Setup, callbacks.
442
443
--- tools/cvs2fossil/lib/rcsparser.tcl
+++ tools/cvs2fossil/lib/rcsparser.tcl
@@ -25,11 +25,11 @@
25 package require fileutil ; # File utilities.
26 package require vc::tools::log ; # User feedback.
27 package require struct::list ; # Advanced list ops.
28
29 # # ## ### ##### ######## ############# #####################
30 ##
31
32 snit::type ::vc::rcs::parser {
33 # # ## ### ##### ######## #############
34 ## Public API
35
@@ -424,19 +424,19 @@
424 proc Expected {x} {
425 ::variable mydata
426 ::variable mypos
427 set e $mypos ; incr e 30
428 return -code error -errorcode vc::rcs::parser \
429 "Expected $x @ '[string range $mydata $mypos $e]...'"
430 }
431
432 proc Bad {x} {
433 ::variable mydata
434 ::variable mypos
435 set e $mypos ; incr e 30
436 return -code error -errorcode vc::rcs::parser \
437 "Bad $x @ '[string range $mydata $mypos $e]...'"
438 }
439
440 # # ## ### ##### ######## #############
441 ## Setup, callbacks.
442
443
M tools/cvs2fossil/lib/trouble.tcl
+1 -1
--- tools/cvs2fossil/lib/trouble.tcl
+++ tools/cvs2fossil/lib/trouble.tcl
@@ -18,11 +18,11 @@
1818
 package require Tcl 8.4 ; # Required runtime.
1919
 package require vc::tools::log ; # Basic log generation.
2020
 package require snit ; # OO system.
2121
2222
 # # ## ### ##### ######## ############# #####################
23
-##
23
+##
2424
2525
 snit::type ::vc::tools::trouble {
2626
 # # ## ### ##### ######## #############
2727
 ## Public API, Methods
2828
2929
--- tools/cvs2fossil/lib/trouble.tcl
+++ tools/cvs2fossil/lib/trouble.tcl
@@ -18,11 +18,11 @@
18 package require Tcl 8.4 ; # Required runtime.
19 package require vc::tools::log ; # Basic log generation.
20 package require snit ; # OO system.
21
22 # # ## ### ##### ######## ############# #####################
23 ##
24
25 snit::type ::vc::tools::trouble {
26 # # ## ### ##### ######## #############
27 ## Public API, Methods
28
29
--- tools/cvs2fossil/lib/trouble.tcl
+++ tools/cvs2fossil/lib/trouble.tcl
@@ -18,11 +18,11 @@
18 package require Tcl 8.4 ; # Required runtime.
19 package require vc::tools::log ; # Basic log generation.
20 package require snit ; # OO system.
21
22 # # ## ### ##### ######## ############# #####################
23 ##
24
25 snit::type ::vc::tools::trouble {
26 # # ## ### ##### ######## #############
27 ## Public API, Methods
28
29

Keyboard Shortcuts

Open search /
Next entry (timeline) j
Previous entry (timeline) k
Open focused entry Enter
Show this help ?
Toggle theme Top nav button