87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
}
# pass I results
typemethod printstatistics {} {
set prlist [TheProjects]
set npr [llength $prlist]
log write 2 repository "Scanned [nsp $npr project]"
if {$npr > 1} {
set bmax [max [struct::list map $prlist [myproc .BaseLength]]]
incr bmax 2
set bfmt %-${bmax}s
set nmax [max [struct::list map $prlist [myproc .NFileLength]]]
set nfmt %${nmax}s
} else {
set bfmt %s
set nfmt %s
}
set keep {}
foreach p $prlist {
set nfiles [llength [$p filenames]]
set line "Project [format $bfmt \"[$p printbase]\"] : [format $nfmt $nfiles] [sp $nfiles file]"
if {$nfiles < 1} {
append line ", dropped"
} else {
lappend keep $p
}
log write 2 repository $line
}
|
|
|
|
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
}
# pass I results
typemethod printstatistics {} {
set prlist [TheProjects]
set npr [llength $prlist]
log write 2 repository "Statistics: Scanned [nsp $npr project]"
if {$npr > 1} {
set bmax [max [struct::list map $prlist [myproc .BaseLength]]]
incr bmax 2
set bfmt %-${bmax}s
set nmax [max [struct::list map $prlist [myproc .NFileLength]]]
set nfmt %${nmax}s
} else {
set bfmt %s
set nfmt %s
}
set keep {}
foreach p $prlist {
set nfiles [llength [$p filenames]]
set line "Statistics: Project [format $bfmt \"[$p printbase]\"] : [format $nfmt $nfiles] [sp $nfiles file]"
if {$nfiles < 1} {
append line ", dropped"
} else {
lappend keep $p
}
log write 2 repository $line
}
|
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
}
}
return
}
# pass II results
typemethod printrevstatistics {} {
log write 2 repository "Scanned ..."
# number of revisions, symbols, repository wide, per project ...
return
}
# pass II persistence
typemethod persistrev {} {
state transaction {
SaveAuthors
|
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
}
}
return
}
# pass II results
typemethod printrevstatistics {} {
log write 2 repository "Revision statistics"
# number of revisions, symbols, repository wide, and per project ...
set rcount [state one { SELECT COUNT (*) FROM revision }]
set tcount [state one { SELECT COUNT (*) FROM tag }]
set bcount [state one { SELECT COUNT (*) FROM branch }]
set scount [state one { SELECT COUNT (*) FROM symbol }]
set acount [state one { SELECT COUNT (*) FROM author }]
set ccount [state one { SELECT COUNT (*) FROM cmessage }]
set fmt %[string length [max [list $rcount $tcount $bcount $scount $acount $ccount]]]s
log write 2 repository "Statistics: [format $fmt $rcount] [sp $rcount revision]"
log write 2 repository "Statistics: [format $fmt $tcount] [sp $tcount tag]"
log write 2 repository "Statistics: [format $fmt $bcount] [sp $bcount branch branches]"
log write 2 repository "Statistics: [format $fmt $scount] [sp $scount symbol]"
log write 2 repository "Statistics: [format $fmt $acount] [sp $acount author]"
log write 2 repository "Statistics: [format $fmt $ccount] [sp $ccount {log message}]"
set prlist [TheProjects]
set npr [llength $prlist]
if {$npr > 1} {
set bmax [max [struct::list map $prlist [myproc .BaseLength]]]
incr bmax 2
set bfmt %-${bmax}s
} else {
set bfmt %s
}
foreach p $prlist {
set pid [$p id]
set prefix "Statistics: Project [format $bfmt \"[$p printbase]\"]"
regsub -all {[^ ]} $prefix { } blanks
set sep " : "
set rcount [state one { SELECT COUNT (*) FROM revision R, file F WHERE R.fid = F.fid AND F.pid = $pid }]
set tcount [state one { SELECT COUNT (*) FROM tag T, file F WHERE T.fid = F.fid AND F.pid = $pid }]
set bcount [state one { SELECT COUNT (*) FROM branch B, file F WHERE B.fid = F.fid AND F.pid = $pid }]
set scount [state one { SELECT COUNT (*) FROM symbol WHERE pid = $pid }]
set acount [state one { SELECT COUNT (*) FROM author WHERE aid IN (SELECT DISTINCT aid FROM meta WHERE pid = $pid) }]
set ccount [state one { SELECT COUNT (*) FROM cmessage WHERE cid IN (SELECT DISTINCT cid FROM meta WHERE pid = $pid) }]
log write 2 repository "$prefix$sep[format $fmt $rcount] [sp $rcount revision]"
log write 2 repository "$blanks$sep[format $fmt $tcount] [sp $tcount tag]"
log write 2 repository "$blanks$sep[format $fmt $bcount] [sp $bcount branch branches]"
log write 2 repository "$blanks$sep[format $fmt $scount] [sp $scount symbol]"
log write 2 repository "$blanks$sep[format $fmt $acount] [sp $acount author]"
log write 2 repository "$blanks$sep[format $fmt $ccount] [sp $ccount {log message}]"
}
return
}
# pass II persistence
typemethod persistrev {} {
state transaction {
SaveAuthors
|
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
return
}
typemethod projectof {pid} {
return $myprojmap($pid)
}
# # ## ### ##### ######## #############
## State
typevariable mybase {} ; # Base path to CVS repository.
typevariable myprojpaths {} ; # List of paths to all declared
# projects, relative to mybase.
typevariable myprojects {} ; # List of objects for all
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
|
return
}
typemethod projectof {pid} {
return $myprojmap($pid)
}
# pass IV+ results
typemethod printcsetstatistics {} {
log write 2 repository "Changeset statistics"
# number of revisions, symbols, repository wide, and per project ...
set ccount [state one { SELECT COUNT (*) FROM changeset }]
set rcount [state one { SELECT COUNT (*) FROM changeset WHERE type = 0 }]
set scount [state one { SELECT COUNT (*) FROM changeset WHERE type = 1 }]
set fmt %[string length [max [list $ccount $rcount $scount]]]s
log write 2 repository "Statistics: [format $fmt $ccount] [sp $ccount changeset]"
log write 2 repository "Statistics: [format $fmt $rcount] [sp $rcount {revision changeset}]"
log write 2 repository "Statistics: [format $fmt $scount] [sp $scount {symbol changeset}]"
set prlist [TheProjects]
set npr [llength $prlist]
if {$npr > 1} {
set bmax [max [struct::list map $prlist [myproc .BaseLength]]]
incr bmax 2
set bfmt %-${bmax}s
} else {
set bfmt %s
}
foreach p $prlist {
set pid [$p id]
set prefix "Statistics: Project [format $bfmt \"[$p printbase]\"]"
regsub -all {[^ ]} $prefix { } blanks
set sep " : "
set ccount [state one { SELECT COUNT (*) FROM changeset WHERE pid = $pid }]
set rcount [state one { SELECT COUNT (*) FROM changeset WHERE pid = $pid AND type = 0 }]
set scount [state one { SELECT COUNT (*) FROM changeset WHERE pid = $pid AND type = 1 }]
log write 2 repository "$prefix$sep[format $fmt $ccount] [sp $ccount changeset]"
log write 2 repository "$blanks$sep[format $fmt $rcount] [sp $rcount {revision changeset}]"
log write 2 repository "$blanks$sep[format $fmt $scount] [sp $scount {symbol changeset}]"
}
return
}
# # ## ### ##### ######## #############
## State
typevariable mybase {} ; # Base path to CVS repository.
typevariable myprojpaths {} ; # List of paths to all declared
# projects, relative to mybase.
typevariable myprojects {} ; # List of objects for all
|