cmdr
Check-in [a94ac7b701]
Not logged in

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:a94ac7b70190388e7fc24914a7eb7192a6425777
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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