Fossil

Check-in [7817ff22]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Time information extended to include a total summed over all passes. Output extended to include formatted time data (hours, minutes, seconds).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7817ff2212d9c201b42d28d55599a2e239662e52
User & Date: aku 2008-02-12 05:39:21
Context
2008-02-12
06:23
Extended my notes. check-in: de03c8b1 user: aku tags: trunk
05:39
Time information extended to include a total summed over all passes. Output extended to include formatted time data (hours, minutes, seconds). check-in: 7817ff22 user: aku tags: trunk
04:25
Report destination file for repository, and fix bug with the naming of the destination triggered when importing a repository in toto. check-in: 0d02fe6c user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/lib/c2f_pass.tcl.

141
142
143
144
145
146
147

148
149

150

151
152
153
154













155

156
157
158
159
160
161
162
	lappend    mytime $pass $seconds
	ShowTime          $pass $seconds
	return
    }

    proc ShowTimes {} {
	::variable mytime

	foreach {pass seconds} $mytime {
	    ShowTime $pass $seconds

	}

	return
    }

    proc ShowTime {pass seconds} {













	log write 0 pass "[format %8d $seconds] sec/$pass"

	return
    }

    proc Ok? {code label ov {emptyok 1}} {
	upvar 1 $ov ok
	::variable mydesc
	if {$emptyok && ($code eq "")} return







>


>

>




>
>
>
>
>
>
>
>
>
>
>
>
>
|
>







141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
	lappend    mytime $pass $seconds
	ShowTime          $pass $seconds
	return
    }

    proc ShowTimes {} {
	::variable mytime
	set total 0
	foreach {pass seconds} $mytime {
	    ShowTime $pass $seconds
	    incr total $seconds
	}
	ShowTime Total $total
	return
    }

    proc ShowTime {pass seconds} {
	if {$seconds > 3600} {
	    set hr  [expr {$seconds / 3600}]
	    set min [expr {$seconds % 3600}]
	    set sec [expr {$min % 60}]
	    set min [expr {$min / 60}]

	    log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $hr hour] [nsp $min minute] [nsp $sec second])"
	} elseif {$seconds > 60} {
	    set min [expr {$seconds / 60}]
	    set sec [expr {$seconds % 60}]

	    log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $min minute] [nsp $sec second])"
	} else {
	    log write 0 pass "[format %8d $seconds] sec/$pass"
	}
	return
    }

    proc Ok? {code label ov {emptyok 1}} {
	upvar 1 $ov ok
	::variable mydesc
	if {$emptyok && ($code eq "")} return