Fossil SCM

Moved the import control code into its own package. The application has been reduced to command line processing and handing over to the new package.

aku 2007-09-08 06:33 trunk
Commit c172959c326501ac205a8cc423cec6e22cd602e6
Parent be32ebcb41cfeab…
3 files changed +46 -108 +91 +2 -1
~ tools/import-cvs.tcl + tools/lib/importcvs.tcl ~ tools/lib/pkgIndex.tcl
M tools/import-cvs.tcl
+46 -108
--- tools/import-cvs.tcl
+++ tools/import-cvs.tcl
@@ -40,91 +40,42 @@
4040
4141
 # -----------------------------------------------------------------------------
4242
 # Requirements
4343
4444
 package require Tcl 8.4
45
-package require cvs ; # Frontend, reading from source repository
46
-package require fossil ; # Backend, writing to destination repository.
47
-package require tools::log
48
-
49
-::tools::log::system import
45
+package require tools::log ; # User Feedback
46
+package require import::cvs ; # Importer Control
5047
5148
 # -----------------------------------------------------------------------------
5249
5350
 proc main {} {
54
- global argv tot nto cvs fossil ntrunk stopat nmax ntfmt nmfmt
55
-
56
- commandline
57
-
58
- cvs::at $cvs ; # Define location of CVS repository
59
- cvs::scan ; # Gather revision data from the archives
60
- cvs::csets ; # Group changes into sets
61
- cvs::rtree ; # Build revision tree (trunk only right now).
62
-
63
- set tot 0.0
64
- set nto 0
65
-
66
- ::tools::log::write 0 import {Begin conversion}
67
- ::tools::log::write 0 import {Setting up workspaces}
68
-
69
- cvs::workspace ; # cd's to workspace
70
- fossil::new ; # Uses cwd as workspace to connect to.
71
-
72
- set ntrunk [cvs::ntrunk] ; set ntfmt %[string length $ntrunk]s
73
- set nmax [cvs::ncsets] ; set nmfmt %[string length $nmax]s
74
-
75
- cvs::foreach_cset cset [cvs::root] {
76
- import $cset
77
- if {$stopat == $cset} exit
78
- }
79
- cvs::wsclear
80
-
81
- ::tools::log::write 0 import "========= [string repeat = 61]"
82
- ::tools::log::write 0 import "Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]"
83
- ::tools::log::write 0 import "Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
84
-
85
- fossil::destination $fossil
86
-
87
- ::tools::log::write 0 import Ok.
51
+ commandline -> cvs fossil
52
+ import::cvs::run $cvs $fossil
8853
 return
8954
 }
9055
91
-
9256
 # -----------------------------------------------------------------------------
9357
94
-proc commandline {} {
95
- global argv cvs fossil nosign debugcommit stopat
58
+proc commandline {__ cv fv} {
59
+ global argv
60
+ upvar 1 $cv cvs $fv fossil
9661
97
- set nosign 0
98
- set debugcommit 0
99
- set stopat {}
10062
 set verbosity 0
10163
102
- while {[string match "-*" [set opt [lindex $argv 0]]]} {
103
- if {$opt eq "--nosign"} {
104
- set nosign 1
105
- set argv [lrange $argv 1 end]
106
- continue
107
- }
108
- if {$opt eq "--debugcommit"} {
109
- set debugcommit 1
110
- set argv [lrange $argv 1 end]
111
- continue
112
- }
113
- if {$opt eq "--stopat"} {
114
- set stopat [lindex $argv 1]
115
- set argv [lrange $argv 2 end]
116
- continue
117
- }
118
- if {$opt eq "-v"} {
119
- incr verbosity
120
- ::tools::log::verbosity $verbosity
121
- set argv [lrange $argv 1 end]
122
- continue
123
- }
124
- usage
125
- }
64
+ clinit
65
+ while {[string match "-*" [set opt [this]]]} {
66
+ switch -exact -- $opt {
67
+ --nosign { import::cvs::configure -nosign 1 }
68
+ --debugcommit { import::cvs::configure -debugcommit 1 }
69
+ --stopat { next ; import::cvs::configure -stopat [this] }
70
+ -v { incr verbosity ; ::tools::log::verbosity $verbosity }
71
+ default usage
72
+ }
73
+ next
74
+ }
75
+
76
+ remainder
12677
 if {[llength $argv] != 2} usage
12778
 foreach {cvs fossil} $argv break
12879
12980
 if {
13081
 ![file exists $cvs] ||
@@ -134,58 +85,45 @@
13485
 usage "CVS directory missing, not readable, or not a directory."
13586
 } elseif {[file exists $fossil]} {
13687
 usage "Fossil destination repository exists already."
13788
 }
13889
139
- fossil::debugcommit $debugcommit
90
+ return
91
+}
92
+
93
+proc this {} {
94
+ global argv
95
+ upvar 1 at at
96
+ return [lindex $argv $at]
97
+}
98
+
99
+proc next {} {
100
+ upvar 1 at at
101
+ incr at
102
+ return
103
+}
104
+
105
+proc remainder {} {
106
+ upvar 1 at at
107
+ global argv
108
+ set argv [lrange $argv $at end]
109
+ return
110
+}
111
+
112
+proc clinit {} {
113
+ upvar 1 at at
114
+ set at 0
140115
 return
141116
 }
142117
143118
 proc usage {{text {}}} {
144119
 global argv0
145
- puts stderr "Usage: $argv0 ?--nosign? cvs-repository fossil-rpeository"
120
+ puts stderr "Usage: $argv0 ?--nosign? ?-v? ?--stopat id? ?--debugcommit? cvs-repository fossil-repository"
146121
 if {$text eq ""} return
147122
 puts stderr " $text"
148123
 exit
149124
 }
150125
151
-proc import {cset} {
152
- global tot nto nosign ntrunk stopat ntfmt nmfmt
153
- ::tools::log::write 0 import "ChangeSet [format $nmfmt $cset] @ [format $ntfmt $nto]/$ntrunk ([format %6.2f [expr {$nto*100.0/$ntrunk}]]%)"
154
-
155
- if {$stopat == $cset} {
156
- fossil::commit 1 cvs2fossil $nosign \
157
- [cvs::wssetup $cset] \
158
- ::cvs::wsignore
159
- ::tools::log::write 1 import {%% STOP}
160
- return
161
- }
162
-
163
- set usec [lindex [time {
164
- foreach {uuid ad rm ch} [fossil::commit 0 cvs2fossil $nosign \
165
- [cvs::wssetup $cset] \
166
- ::cvs::wsignore] break
167
- } 1] 0]
168
- cvs::uuid $cset $uuid
169
-
170
- set sec [expr {$usec/1e6}]
171
- set tot [expr {$tot + $sec}]
172
- incr nto
173
-
174
- ::tools::log::write 2 import "== $uuid +${ad}-${rm}*${ch}"
175
- ::tools::log::write 2 import "st in [format %.2f $sec] sec"
176
-
177
- set avg [expr {$tot/$nto}]
178
- set max [expr {$ntrunk * $avg}]
179
- set rem [expr {$max - $tot}]
180
-
181
- ::tools::log::write 3 import "st avg [format %.2f $avg] sec"
182
- ::tools::log::write 3 import "st run [format %7.2f $tot] sec [format %6.2f [expr {$tot/60}]] min [format %5.2f [expr {$tot/3600}]] hr"
183
- ::tools::log::write 3 import "st end [format %7.2f $max] sec [format %6.2f [expr {$max/60}]] min [format %5.2f [expr {$max/3600}]] hr"
184
- ::tools::log::write 3 import "st rem [format %7.2f $rem] sec [format %6.2f [expr {$rem/60}]] min [format %5.2f [expr {$rem/3600}]] hr"
185
- return
186
-}
187
-
188126
 # -----------------------------------------------------------------------------
189127
190128
 main
191129
 exit
192130
193131
ADDED tools/lib/importcvs.tcl
--- tools/import-cvs.tcl
+++ tools/import-cvs.tcl
@@ -40,91 +40,42 @@
40
41 # -----------------------------------------------------------------------------
42 # Requirements
43
44 package require Tcl 8.4
45 package require cvs ; # Frontend, reading from source repository
46 package require fossil ; # Backend, writing to destination repository.
47 package require tools::log
48
49 ::tools::log::system import
50
51 # -----------------------------------------------------------------------------
52
53 proc main {} {
54 global argv tot nto cvs fossil ntrunk stopat nmax ntfmt nmfmt
55
56 commandline
57
58 cvs::at $cvs ; # Define location of CVS repository
59 cvs::scan ; # Gather revision data from the archives
60 cvs::csets ; # Group changes into sets
61 cvs::rtree ; # Build revision tree (trunk only right now).
62
63 set tot 0.0
64 set nto 0
65
66 ::tools::log::write 0 import {Begin conversion}
67 ::tools::log::write 0 import {Setting up workspaces}
68
69 cvs::workspace ; # cd's to workspace
70 fossil::new ; # Uses cwd as workspace to connect to.
71
72 set ntrunk [cvs::ntrunk] ; set ntfmt %[string length $ntrunk]s
73 set nmax [cvs::ncsets] ; set nmfmt %[string length $nmax]s
74
75 cvs::foreach_cset cset [cvs::root] {
76 import $cset
77 if {$stopat == $cset} exit
78 }
79 cvs::wsclear
80
81 ::tools::log::write 0 import "========= [string repeat = 61]"
82 ::tools::log::write 0 import "Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]"
83 ::tools::log::write 0 import "Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
84
85 fossil::destination $fossil
86
87 ::tools::log::write 0 import Ok.
88 return
89 }
90
91
92 # -----------------------------------------------------------------------------
93
94 proc commandline {} {
95 global argv cvs fossil nosign debugcommit stopat
 
96
97 set nosign 0
98 set debugcommit 0
99 set stopat {}
100 set verbosity 0
101
102 while {[string match "-*" [set opt [lindex $argv 0]]]} {
103 if {$opt eq "--nosign"} {
104 set nosign 1
105 set argv [lrange $argv 1 end]
106 continue
107 }
108 if {$opt eq "--debugcommit"} {
109 set debugcommit 1
110 set argv [lrange $argv 1 end]
111 continue
112 }
113 if {$opt eq "--stopat"} {
114 set stopat [lindex $argv 1]
115 set argv [lrange $argv 2 end]
116 continue
117 }
118 if {$opt eq "-v"} {
119 incr verbosity
120 ::tools::log::verbosity $verbosity
121 set argv [lrange $argv 1 end]
122 continue
123 }
124 usage
125 }
126 if {[llength $argv] != 2} usage
127 foreach {cvs fossil} $argv break
128
129 if {
130 ![file exists $cvs] ||
@@ -134,58 +85,45 @@
134 usage "CVS directory missing, not readable, or not a directory."
135 } elseif {[file exists $fossil]} {
136 usage "Fossil destination repository exists already."
137 }
138
139 fossil::debugcommit $debugcommit
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
140 return
141 }
142
143 proc usage {{text {}}} {
144 global argv0
145 puts stderr "Usage: $argv0 ?--nosign? cvs-repository fossil-rpeository"
146 if {$text eq ""} return
147 puts stderr " $text"
148 exit
149 }
150
151 proc import {cset} {
152 global tot nto nosign ntrunk stopat ntfmt nmfmt
153 ::tools::log::write 0 import "ChangeSet [format $nmfmt $cset] @ [format $ntfmt $nto]/$ntrunk ([format %6.2f [expr {$nto*100.0/$ntrunk}]]%)"
154
155 if {$stopat == $cset} {
156 fossil::commit 1 cvs2fossil $nosign \
157 [cvs::wssetup $cset] \
158 ::cvs::wsignore
159 ::tools::log::write 1 import {%% STOP}
160 return
161 }
162
163 set usec [lindex [time {
164 foreach {uuid ad rm ch} [fossil::commit 0 cvs2fossil $nosign \
165 [cvs::wssetup $cset] \
166 ::cvs::wsignore] break
167 } 1] 0]
168 cvs::uuid $cset $uuid
169
170 set sec [expr {$usec/1e6}]
171 set tot [expr {$tot + $sec}]
172 incr nto
173
174 ::tools::log::write 2 import "== $uuid +${ad}-${rm}*${ch}"
175 ::tools::log::write 2 import "st in [format %.2f $sec] sec"
176
177 set avg [expr {$tot/$nto}]
178 set max [expr {$ntrunk * $avg}]
179 set rem [expr {$max - $tot}]
180
181 ::tools::log::write 3 import "st avg [format %.2f $avg] sec"
182 ::tools::log::write 3 import "st run [format %7.2f $tot] sec [format %6.2f [expr {$tot/60}]] min [format %5.2f [expr {$tot/3600}]] hr"
183 ::tools::log::write 3 import "st end [format %7.2f $max] sec [format %6.2f [expr {$max/60}]] min [format %5.2f [expr {$max/3600}]] hr"
184 ::tools::log::write 3 import "st rem [format %7.2f $rem] sec [format %6.2f [expr {$rem/60}]] min [format %5.2f [expr {$rem/3600}]] hr"
185 return
186 }
187
188 # -----------------------------------------------------------------------------
189
190 main
191 exit
192
193 DDED tools/lib/importcvs.tcl
--- tools/import-cvs.tcl
+++ tools/import-cvs.tcl
@@ -40,91 +40,42 @@
40
41 # -----------------------------------------------------------------------------
42 # Requirements
43
44 package require Tcl 8.4
45 package require tools::log ; # User Feedback
46 package require import::cvs ; # Importer Control
 
 
 
47
48 # -----------------------------------------------------------------------------
49
50 proc main {} {
51 commandline -> cvs fossil
52 import::cvs::run $cvs $fossil
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
53 return
54 }
55
 
56 # -----------------------------------------------------------------------------
57
58 proc commandline {__ cv fv} {
59 global argv
60 upvar 1 $cv cvs $fv fossil
61
 
 
 
62 set verbosity 0
63
64 clinit
65 while {[string match "-*" [set opt [this]]]} {
66 switch -exact -- $opt {
67 --nosign { import::cvs::configure -nosign 1 }
68 --debugcommit { import::cvs::configure -debugcommit 1 }
69 --stopat { next ; import::cvs::configure -stopat [this] }
70 -v { incr verbosity ; ::tools::log::verbosity $verbosity }
71 default usage
72 }
73 next
74 }
75
76 remainder
 
 
 
 
 
 
 
 
 
 
 
77 if {[llength $argv] != 2} usage
78 foreach {cvs fossil} $argv break
79
80 if {
81 ![file exists $cvs] ||
@@ -134,58 +85,45 @@
85 usage "CVS directory missing, not readable, or not a directory."
86 } elseif {[file exists $fossil]} {
87 usage "Fossil destination repository exists already."
88 }
89
90 return
91 }
92
93 proc this {} {
94 global argv
95 upvar 1 at at
96 return [lindex $argv $at]
97 }
98
99 proc next {} {
100 upvar 1 at at
101 incr at
102 return
103 }
104
105 proc remainder {} {
106 upvar 1 at at
107 global argv
108 set argv [lrange $argv $at end]
109 return
110 }
111
112 proc clinit {} {
113 upvar 1 at at
114 set at 0
115 return
116 }
117
118 proc usage {{text {}}} {
119 global argv0
120 puts stderr "Usage: $argv0 ?--nosign? ?-v? ?--stopat id? ?--debugcommit? cvs-repository fossil-repository"
121 if {$text eq ""} return
122 puts stderr " $text"
123 exit
124 }
125
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
126 # -----------------------------------------------------------------------------
127
128 main
129 exit
130
131 DDED tools/lib/importcvs.tcl
A tools/lib/importcvs.tcl
+91
--- a/tools/lib/importcvs.tcl
+++ b/tools/lib/importcvs.tcl
@@ -0,0 +1,91 @@
1
+#Bols::log::system import
2
+ namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
3
+ cvs::scan ; # Gather revision data from the archives
4
+ cvs::csets ; # Group changes into sets
5
+ cvs::rtree ; # Build revision tnly right ncvs n trenly right now).
6
+
7
+ write 0 imporfossil ce
8
+ fossil::begin [pwd] ; # Uses cwd trunk_cset cset [cvs::rootools::log
9
+ ot]cvs::wcvs::wssetup $cset}break
10
+ cvs::uot/$nts] ; set nmfmt %[string length $nmax]swrite 0 import "ChangeSet [format $nmfmt $cset] @ [format $ntfing is boolean -strict /$ntrunk ([format %6.2f [edebugcommito]/$ntrunk ([format %6.2f [estopat nk ([format %6.2f [expr { []
11
+ }"========= [string repeat = 61]""Imported: "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
12
+et useccvs::uuid $cset $uuid
13
+
14
+ st in [fing is boolean -strict $value]} {
15
+ Expected boolean, got \"$value\""
16
+ }
17
+ fossil::debugcommit $value
18
+ }
19
+ -nosign {
20
+ vc::fossil::wsn, got \"$value\""
21
+ }
22
+ set nosign $value
23
+ }
24
+ -stopatdebugcommit, -nosign, or -stopatvarifossilols::log::system import
25
+ namw impor#Bols::log::system import
26
+ namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
27
+ cvs::scan ; # Gather revision data from the archives
28
+ cvs::csets ; # Group changes into sets
29
+ cvs::rtree ; # Build revision trenly right now).
30
+
31
+ write 0 import {Begin conversion}
32
+ write 0 impo cvce
33
+ fossil::begin [p t cset [cvs::root]
34
+ cvs::scan r message timestamp}uid ad ad rm ch}break
35
+ cvs cvs::uuid $cset $uuid$uuid +${ad}-${rm}*${ch}"#Bols::log::system #Bols::log::system import
36
+ (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
37
+et use <bool>, set tot 0.0
38
+ sevc::fossil::ws::newk
39
+ cvs::uuid } [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
40
+encsets] ; set nmfmt %[string length $nmax]swrite 0 import "Chang#Bols::log::system import
41
+system import
42
+:new Am@_u,6:fossilGz@kt,6:fossil2x@114,6:fossilBT@14E,gZpn3;::vc::tools::log::======= [string repeat = 61]""Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
43
+et useccvs::uuid $cset $uuid
44
+
45
+ st in [format %.2f debugcot] seconds (avg [ []
46
+ }"========= [string repeat = 61]""Imported: "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
47
+et useccvs::uuid $cset $uuid
48
+
49
+ st in [fing is boolean -strict $value]} {
50
+ Expected boolean, got \"$value\""
51
+ }
52
+ fossil::debugcommit $value
53
+ }
54
+ -nosign {
55
+ vc::fossil::wsn, got \"$value\""
56
+ }
57
+ set nosign $value
58
+ }
59
+ -stopatdebugcommit, -nosign, or -stopatvarifossilols::log::system import
60
+ namw impor#Bols::log::system import
61
+ namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
62
+ cvs::scan ; # Gather revision data from the archives
63
+ cvs::csets ; # Group changes into sets
64
+ cvs::rtree ; # Build revision trenly right now).
65
+
66
+ write 0 import {Begin conversion}
67
+ write 0 impo cvce
68
+ fossil::begin [p t cset [cvs::root]
69
+ cvs::scan r message timestamp}uid ad ad rm ch}break
70
+ cvs cvs::uuid $cset $uuid$uuot] seconds (avg [format %.2f [ystem #Bols::log::system import
71
+ ot] seconds (avg [format %.2f []] seconds/changeset)"
72
+et use <bool>, set tot 0.0
73
+ sevc::fossil::ws::newk
74
+ot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
75
+encsets] ; set nmfmt %[string length $nmax]swrite 0 import "Chang#Bolot] seconds (avg [format %.2f [system import
76
+system import
77
+:new Am@_u,6:fossilGz@kt,6:fossil2x@114,6:fossilBT@14E,gZpn3;::vc::tools::log::======= [string repeat = 61]""Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
78
+et useccvs::uuid $cset $uuid
79
+
80
+ st in [format %.2f debugcommit {
81
+ if {![string is boolean -strict $value]} {
82
+ Expected boolean, got \"$value\""
83
+ }
84
+ fossil::debugcommit $value
85
+ }
86
+ -nosign {
87
+ vc::fossil::wsn, got \"$value\""
88
+ }
89
+ set nosign $value
90
+ }
91
+ -stopatdebugcommitot] seconds (avg [ot] seconds (avg [
--- a/tools/lib/importcvs.tcl
+++ b/tools/lib/importcvs.tcl
@@ -0,0 +1,91 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/tools/lib/importcvs.tcl
+++ b/tools/lib/importcvs.tcl
@@ -0,0 +1,91 @@
1 #Bols::log::system import
2 namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
3 cvs::scan ; # Gather revision data from the archives
4 cvs::csets ; # Group changes into sets
5 cvs::rtree ; # Build revision tnly right ncvs n trenly right now).
6
7 write 0 imporfossil ce
8 fossil::begin [pwd] ; # Uses cwd trunk_cset cset [cvs::rootools::log
9 ot]cvs::wcvs::wssetup $cset}break
10 cvs::uot/$nts] ; set nmfmt %[string length $nmax]swrite 0 import "ChangeSet [format $nmfmt $cset] @ [format $ntfing is boolean -strict /$ntrunk ([format %6.2f [edebugcommito]/$ntrunk ([format %6.2f [estopat nk ([format %6.2f [expr { []
11 }"========= [string repeat = 61]""Imported: "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
12 et useccvs::uuid $cset $uuid
13
14 st in [fing is boolean -strict $value]} {
15 Expected boolean, got \"$value\""
16 }
17 fossil::debugcommit $value
18 }
19 -nosign {
20 vc::fossil::wsn, got \"$value\""
21 }
22 set nosign $value
23 }
24 -stopatdebugcommit, -nosign, or -stopatvarifossilols::log::system import
25 namw impor#Bols::log::system import
26 namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
27 cvs::scan ; # Gather revision data from the archives
28 cvs::csets ; # Group changes into sets
29 cvs::rtree ; # Build revision trenly right now).
30
31 write 0 import {Begin conversion}
32 write 0 impo cvce
33 fossil::begin [p t cset [cvs::root]
34 cvs::scan r message timestamp}uid ad ad rm ch}break
35 cvs cvs::uuid $cset $uuid$uuid +${ad}-${rm}*${ch}"#Bols::log::system #Bols::log::system import
36 (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
37 et use <bool>, set tot 0.0
38 sevc::fossil::ws::newk
39 cvs::uuid } [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
40 encsets] ; set nmfmt %[string length $nmax]swrite 0 import "Chang#Bols::log::system import
41 system import
42 :new Am@_u,6:fossilGz@kt,6:fossil2x@114,6:fossilBT@14E,gZpn3;::vc::tools::log::======= [string repeat = 61]""Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
43 et useccvs::uuid $cset $uuid
44
45 st in [format %.2f debugcot] seconds (avg [ []
46 }"========= [string repeat = 61]""Imported: "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
47 et useccvs::uuid $cset $uuid
48
49 st in [fing is boolean -strict $value]} {
50 Expected boolean, got \"$value\""
51 }
52 fossil::debugcommit $value
53 }
54 -nosign {
55 vc::fossil::wsn, got \"$value\""
56 }
57 set nosign $value
58 }
59 -stopatdebugcommit, -nosign, or -stopatvarifossilols::log::system import
60 namw impor#Bols::log::system import
61 namwsigno Legal keys: -nosign <bool>, -saveto cvs::at $src ; # Define location of CVS repository
62 cvs::scan ; # Gather revision data from the archives
63 cvs::csets ; # Group changes into sets
64 cvs::rtree ; # Build revision trenly right now).
65
66 write 0 import {Begin conversion}
67 write 0 impo cvce
68 fossil::begin [p t cset [cvs::root]
69 cvs::scan r message timestamp}uid ad ad rm ch}break
70 cvs cvs::uuid $cset $uuid$uuot] seconds (avg [format %.2f [ystem #Bols::log::system import
71 ot] seconds (avg [format %.2f []] seconds/changeset)"
72 et use <bool>, set tot 0.0
73 sevc::fossil::ws::newk
74 ot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
75 encsets] ; set nmfmt %[string length $nmax]swrite 0 import "Chang#Bolot] seconds (avg [format %.2f [system import
76 system import
77 :new Am@_u,6:fossilGz@kt,6:fossil2x@114,6:fossilBT@14E,gZpn3;::vc::tools::log::======= [string repeat = 61]""Imported $nto [expr {($nto == 1) ? "changeset" : "changesets"}]""Within [format %.2f $tot] seconds (avg [format %.2f [expr {$tot/$nto}]] seconds/changeset)"
78 et useccvs::uuid $cset $uuid
79
80 st in [format %.2f debugcommit {
81 if {![string is boolean -strict $value]} {
82 Expected boolean, got \"$value\""
83 }
84 fossil::debugcommit $value
85 }
86 -nosign {
87 vc::fossil::wsn, got \"$value\""
88 }
89 set nosign $value
90 }
91 -stopatdebugcommitot] seconds (avg [ot] seconds (avg [
M tools/lib/pkgIndex.tcl
+2 -1
--- tools/lib/pkgIndex.tcl
+++ tools/lib/pkgIndex.tcl
@@ -1,5 +1,6 @@
11
 if {![package vsatisfies [package require Tcl] 8.4]} return
22
 package ifneeded rcsparser 1.0 [list source [file join $dir rcsparser.tcl]]
33
 package ifneeded cvs 1.0 [list source [file join $dir cvs.tcl]]
44
 package ifneeded fossil 1.0 [list source [file join $dir fossil.tcl]]
5
-package ifneeded tools::log 1.0 [list source [file join $dir log.tcl]]
5
+package ifneeded tools::log 1.0 [list source [file join $dir log.tcl]]
6
+package ifneeded import::cvs 1.0 [list source [file join $dir importcvs.tcl]]
67
--- tools/lib/pkgIndex.tcl
+++ tools/lib/pkgIndex.tcl
@@ -1,5 +1,6 @@
1 if {![package vsatisfies [package require Tcl] 8.4]} return
2 package ifneeded rcsparser 1.0 [list source [file join $dir rcsparser.tcl]]
3 package ifneeded cvs 1.0 [list source [file join $dir cvs.tcl]]
4 package ifneeded fossil 1.0 [list source [file join $dir fossil.tcl]]
5 package ifneeded tools::log 1.0 [list source [file join $dir log.tcl]]
 
6
--- tools/lib/pkgIndex.tcl
+++ tools/lib/pkgIndex.tcl
@@ -1,5 +1,6 @@
1 if {![package vsatisfies [package require Tcl] 8.4]} return
2 package ifneeded rcsparser 1.0 [list source [file join $dir rcsparser.tcl]]
3 package ifneeded cvs 1.0 [list source [file join $dir cvs.tcl]]
4 package ifneeded fossil 1.0 [list source [file join $dir fossil.tcl]]
5 package ifneeded tools::log 1.0 [list source [file join $dir log.tcl]]
6 package ifneeded import::cvs 1.0 [list source [file join $dir importcvs.tcl]]
7

Keyboard Shortcuts

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