Differences From Artifact [122176da29]:
- File
kitsh/buildsrc/kitsh-0.0/mk4tcl.tcl
— part of check-in
[096098536d]
at
2010-09-26 04:42:20
on branch trunk
— Updated to implement "vfs::mkcl" using Readkit
Updated local Readkit implementation to not attempt to replace Mk4tcl (user: rkeene, size: 34093) [annotate] [blame] [check-ins using]
To Artifact [320b85c042]:
- File
kitsh/buildsrc/kitsh-0.0/mk4tcl.tcl
— part of check-in
[265eb37604]
at
2010-09-26 04:42:36
on branch trunk
— Updated to support using vfs::zstreamed
Removed zlib hack (user: rkeene, size: 34044) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
632 633 634 635 636 637 638 |
lappend r $x
}
set v [mvec $rowref $x]
if {[string range $v 0 8] == "get_view "} {
# XXX: ?!?!?: TODO: FIX
set v 1
}
| < < < | 632 633 634 635 636 637 638 639 640 641 642 643 644 645 |
lappend r $x
}
set v [mvec $rowref $x]
if {[string range $v 0 8] == "get_view "} {
# XXX: ?!?!?: TODO: FIX
set v 1
}
if {$sized} {
lappend r [string length $v]
} else {
lappend r $v
}
}
if {[llength $args] == 1} {
|
| ︙ | ︙ | |||
1124 1125 1126 1127 1128 1129 1130 |
}
}
namespace eval mkcl_vfs {
variable compress 1 ;# HACK - needs to be part of "Super-Block"
variable flush 5000 ;# Auto-Commit frequency
variable direct 0 ;# read through a memchan, or from Mk4tcl if zero
| | | 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 |
}
}
namespace eval mkcl_vfs {
variable compress 1 ;# HACK - needs to be part of "Super-Block"
variable flush 5000 ;# Auto-Commit frequency
variable direct 0 ;# read through a memchan, or from Mk4tcl if zero
variable zstreamed 1 ;# decompress on the fly (needs zlib 1.1)
namespace eval v {
variable seq 0
variable mode ;# array key is db, value is mode
# (readwrite/translucent/readonly)
variable timer ;# array key is db, set to afterid, periodicCommit
|
| ︙ | ︙ |