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.852 |
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 |
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 {}
| > | 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 |
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 {}
|
| ︙ | ︙ | |||
269 270 271 272 273 274 275 276 277 278 279 280 281 282 |
append contents "#limit=$limit\n"
}
if {[llength $cache]} {
append contents "[join $cache \n]\n"
}
fileutil::writeFile $file $contents
return
}
proc ::cmdr::history::Load {} {
CheckActive
| > | 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 |
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
|
| ︙ | ︙ | |||
413 414 415 416 417 418 419 |
} else {
return "Keep $limit entries"
}
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 415 416 417 418 419 420 421 422 423 |
} else {
return "Keep $limit entries"
}
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::history 0.1
return
|