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
|