Check-in [265eb37604]
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