Differences From:
File
tools/cvs2fossil/lib/c2f_repository.tcl
part of check-in
[38b967dcf5]
- Merge aku's CVS import changes into the main line. Fix a small bug in diff.c.
by
drh on
2007-11-17 00:29:42.
Also file
tools/cvs2fossil/lib/c2f_repository.tcl
part of check-in
[96b7bfb834]
- Added convenience command to the state package when the sql returns a single row. Added more statistics about revisions, tags, branches, symbols, changesets to various passes.
by
aku on
2007-11-16 08:32:40.
[view]
To:
File
tools/cvs2fossil/lib/c2f_repository.tcl
part of check-in
[2630e50610]
- Tweaked the log output for the statistics a bit.
by
aku on
2007-11-22 07:21:12.
[view]
@@ -196,9 +196,9 @@
}
foreach p $prlist {
set pid [$p id]
- set prefix "Statistics: Project [format $bfmt \"[$p printbase]\"]"
+ set prefix "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 }]
@@ -207,14 +207,14 @@
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}]"
+ log write 2 repository "Statistics: $prefix$sep[format $fmt $rcount] [sp $rcount revision]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $tcount] [sp $tcount tag]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $bcount] [sp $bcount branch branches]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $scount] [sp $scount symbol]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $acount] [sp $acount author]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $ccount] [sp $ccount {log message}]"
}
return
}
@@ -302,19 +302,19 @@
}
foreach p $prlist {
set pid [$p id]
- set prefix "Statistics: Project [format $bfmt \"[$p printbase]\"]"
+ set prefix "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}]"
+ log write 2 repository "Statistics: $prefix$sep[format $fmt $ccount] [sp $ccount changeset]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $rcount] [sp $rcount {revision changeset}]"
+ log write 2 repository "Statistics: $blanks$sep[format $fmt $scount] [sp $scount {symbol changeset}]"
}
return
}