Overview
| Comment: | Updated to support using vfs::zstreamed
Removed zlib hack |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 265eb376044039c78810d2479ede53d8aaf810cc |
| User & Date: | rkeene on 2010-09-26 04:42:36 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:42 | KitCreator 0.2.3.x check-in: 98787f352d user: rkeene tags: trunk, 0.2.3 | |
| 04:42 |
Updated to support using vfs::zstreamed
Removed zlib hack check-in: 265eb37604 user: rkeene tags: trunk | |
| 04:42 |
KitCreator 0.2.2.x
Upgraded to latest ZLib Updated ZLIB URL to work even when it is not the latest version, since the zlib website only hosts the current version check-in: 6221943337 user: rkeene tags: trunk, 0.2.2 | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/mk4tcl.tcl from [122176da29] to [320b85c042].
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
....
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
|
lappend r $x
}
set v [mvec $rowref $x]
if {[string range $v 0 8] == "get_view "} {
# XXX: ?!?!?: TODO: FIX
set v 1
}
catch {
set v [zlib decompress $v]
}
if {$sized} {
lappend r [string length $v]
} else {
lappend r $v
}
}
if {[llength $args] == 1} {
................................................................................
}
}
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 0 ;# 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
|
<
<
<
|
|
632
633
634
635
636
637
638
639
640
641
642
643
644
645
....
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
|
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} {
................................................................................
}
}
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
|