Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Got fix for history |
---|---|
Timelines: | family | ancestors | descendants | both | more-vtypes |
Files: | files | file ages | folders |
SHA1: |
a94ac7b70190388e7fc24914a7eb7192 |
User & Date: | aku 2015-03-10 03:01:41 |
Context
2015-03-28
| ||
02:21 | Fix year validation bug with misbehaving "clock scan" (more likely me misunderstanding it before) check-in: 75e8dc5ee8 user: aku tags: more-vtypes | |
2015-03-10
| ||
03:01 | Got fix for history check-in: a94ac7b701 user: aku tags: more-vtypes | |
2015-03-06
| ||
20:44 | Fix bug in history mgmt for a save-file in a directory. Ensure that the directory exists before writing/creating the file itself. check-in: 06c0827602 user: andreask tags: trunk | |
19:14 | And more vtypes: positive ints, years, and weekdays check-in: 307a15e657 user: aku tags: more-vtypes | |
Changes
Changes to history.tcl.
243 244 245 246 247 248 249 250 251 252 253 254 255 256 ... 269 270 271 272 273 274 275 276 277 278 279 280 281 282 ... 413 414 415 416 417 418 419 420 421 |
debug.cmdr/history {} variable file variable cache debug.cmdr/history {file = $file} debug.cmdr/history {cache len = [llength $cache]} fileutil::appendToFile $file [lindex $cache end]\n return } proc ::cmdr::history::SaveAll {} { debug.cmdr/history {} ................................................................................ append contents "#limit=$limit\n" } if {[llength $cache]} { append contents "[join $cache \n]\n" } fileutil::writeFile $file $contents return } proc ::cmdr::history::Load {} { CheckActive ................................................................................ } else { return "Keep $limit entries" } } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::history 0 return |
> > | |
243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 ... 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 ... 415 416 417 418 419 420 421 422 423 |
debug.cmdr/history {} variable file variable cache debug.cmdr/history {file = $file} debug.cmdr/history {cache len = [llength $cache]} file mkdir [file dirname $file] fileutil::appendToFile $file [lindex $cache end]\n return } proc ::cmdr::history::SaveAll {} { debug.cmdr/history {} ................................................................................ append contents "#limit=$limit\n" } if {[llength $cache]} { append contents "[join $cache \n]\n" } file mkdir [file dirname $file] fileutil::writeFile $file $contents return } proc ::cmdr::history::Load {} { CheckActive ................................................................................ } else { return "Keep $limit entries" } } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::history 0.1 return |