18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # Management of statistics for an import run. 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # Requirements 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: package require Tcl 8.4 18251642f3 2007-09-14 aku: package require vc::tools::log ; # User feedback 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: namespace eval ::vc::fossil::import::stats { 18251642f3 2007-09-14 aku: vc::tools::log::system stats 18251642f3 2007-09-14 aku: namespace import ::vc::tools::log::write 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # API 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # vc::fossil::import::stats 18251642f3 2007-09-14 aku: # setup n m - Initialize module, expect n changesets, of m. 18251642f3 2007-09-14 aku: # done - Write final statistics. 18251642f3 2007-09-14 aku: # csbegin id - Import of identified changeset begins. 18251642f3 2007-09-14 aku: # csend x - It took x seconds to import the changeset. 18251642f3 2007-09-14 aku: # 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # API Implementation - Functionality 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::init {n m} { 18251642f3 2007-09-14 aku: variable total_csets $n 18251642f3 2007-09-14 aku: variable total_running 0 18251642f3 2007-09-14 aku: variable total_seconds 0.0 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: variable ntfmt %[string length $n]s 18251642f3 2007-09-14 aku: variable nmfmt %[string length $m]s 18251642f3 2007-09-14 aku: return 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::done {} { 18251642f3 2007-09-14 aku: variable total_csets 18251642f3 2007-09-14 aku: variable total_seconds 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: write 0 stats "========= [string repeat = 61]" 18251642f3 2007-09-14 aku: write 0 stats "Imported $total_csets [expr {($total_csets == 1) ? "changeset" : "changesets"}]" 18251642f3 2007-09-14 aku: write 0 stats "Within [F $tot] seconds (avg [F [Avg]] seconds/changeset)" 18251642f3 2007-09-14 aku: return 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::csbegin {cset} { 18251642f3 2007-09-14 aku: variable nmfmt 18251642f3 2007-09-14 aku: variable ntfmt 18251642f3 2007-09-14 aku: write 0 stats "ChangeSet [format $nmfmt $cset] @ [format $ntfmt $total_running]/$total_csets ([F6 [expr {$total_running*100.0/$total_csets}]]%)" 18251642f3 2007-09-14 aku: return 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::csend {seconds} { 18251642f3 2007-09-14 aku: variable total_csets 18251642f3 2007-09-14 aku: variable total_seconds 18251642f3 2007-09-14 aku: variable total_running 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: incr total_running 18251642f3 2007-09-14 aku: set total_seconds [expr {$total_seconds + $sec}] 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: set avg [Avg] 18251642f3 2007-09-14 aku: set end [expr {$total_csets * $avg}] 18251642f3 2007-09-14 aku: set rem [expr {$end - $total_seconds}] 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: write 2 stats "Imported in [F7 $seconds] seconds" 18251642f3 2007-09-14 aku: write 3 stats "Average Time/Cset [F7 $avg] seconds" 18251642f3 2007-09-14 aku: write 3 stats "Current Runtime [FTime $total_seconds]" 18251642f3 2007-09-14 aku: write 3 stats "Total Runtime (E) [FTime $end]" 18251642f3 2007-09-14 aku: write 3 stats "Remaining Time (E) [FTime $rem]" 18251642f3 2007-09-14 aku: # (E) for Estimated. 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: return 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # Internal helper commands. 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::FTime {s} { 18251642f3 2007-09-14 aku: set m [expr {$s / 60}] 18251642f3 2007-09-14 aku: set h [expr {$s / 3600}] 18251642f3 2007-09-14 aku: return "[F7 $s] sec [F6 $m] min [F5 $h] hr" 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::F {x} { format %.2f $x } 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::F5 {x} { format %5.2f $x } 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::F6 {x} { format %6.2f $x } 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::F7 {x} { format %7.2f $x } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: proc ::vc::fossil::import::stats::Avg {} { 18251642f3 2007-09-14 aku: variable total_seconds 18251642f3 2007-09-14 aku: variable total_running 18251642f3 2007-09-14 aku: return [expr {$total_seconds/$total_running}] 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: namespace eval ::vc::fossil::import::stats { 18251642f3 2007-09-14 aku: namespace export setup done begin add 18251642f3 2007-09-14 aku: } 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: # ----------------------------------------------------------------------------- 18251642f3 2007-09-14 aku: # Ready 18251642f3 2007-09-14 aku: 18251642f3 2007-09-14 aku: package provide vc::fossil::import::stats 1.0 18251642f3 2007-09-14 aku: return
File Annotation