Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove requirement for zlibtcl if running in 8.6 |
|---|---|
| Timelines: | family | ancestors | descendants | both | odie |
| Files: | files | file ages | folders |
| SHA1: |
d6e8de82771cf8e43ddd1eae8670a81b |
| User & Date: | hypnotoad 2014-10-15 13:46:00 |
Context
|
2014-10-15
| ||
| 17:26 | Removing the requirement for Trf to do zipfile::encode/decode in tcl 8.6+. Those functions are now built into Tcl after 8.6 check-in: c226c6f116 user: hypnotoad tags: odie | |
| 13:46 | Remove requirement for zlibtcl if running in 8.6 check-in: d6e8de8277 user: hypnotoad tags: odie | |
|
2014-09-27
| ||
| 11:10 | Fix a typo and some inaccuracies regarding integer divisions if arguments are integer Add several test cases to at least insure the procedures have no obvious errors check-in: df7aaaff9c user: markus tags: trunk | |
Changes
Changes to modules/zip/decode.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # -*- tcl -*- # ### ### ### ######### ######### ######### ## Copyright (c) 2008-2012 ActiveState Software Inc. ## Andreas Kupries ## BSD License ## # Package providing commands for the decoding of basic zip-file # structures. package require Tcl 8.4 package require fileutil::magic::mimetype ; # Tcllib. File type determination via magic constants package require fileutil::decode 0.2 ; # Framework for easy decoding of files. package require Trf ; # Wrapper to zlib | > > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
# -*- tcl -*-
# ### ### ### ######### ######### #########
## Copyright (c) 2008-2012 ActiveState Software Inc.
## Andreas Kupries
## BSD License
##
# Package providing commands for the decoding of basic zip-file
# structures.
package require Tcl 8.4
package require fileutil::magic::mimetype ; # Tcllib. File type determination via magic constants
package require fileutil::decode 0.2 ; # Framework for easy decoding of files.
package require Trf ; # Wrapper to zlib
if {[package vcompare $tcl_patchLevel "8.6"] < 0} {
# Only needed pre-8.6
package require zlibtcl ; # Zlib usage. No commands, access through Trf
}
namespace eval ::zipfile::decode {
namespace import ::fileutil::decode::*
}
# ### ### ### ######### ######### #########
## Convenience command, decode and copy to dir
|
| ︙ | ︙ |
Changes to modules/zip/encode.tcl.
| ︙ | ︙ | |||
9 10 11 12 13 14 15 | # FUTURE: Write convenience command to zip up a whole directory. package require Tcl 8.4 package require logger ; # Tracing package require Trf ; # Wrapper to zlib package require crc32 ; # Tcllib, crc calculation package require snit ; # Tcllib, OO core | < > > > | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# FUTURE: Write convenience command to zip up a whole directory.
package require Tcl 8.4
package require logger ; # Tracing
package require Trf ; # Wrapper to zlib
package require crc32 ; # Tcllib, crc calculation
package require snit ; # Tcllib, OO core
package require fileutil ; # zipdir convenience method
if {[package vcompare $tcl_patchLevel "8.6"] < 0} {
# Only needed pre-8.6
package require zlibtcl ; # Zlib usage. No commands, access through Trf
}
# ### ### ### ######### ######### #########
##
logger::initNamespace ::zipfile::encode
snit::type ::zipfile::encode {
constructor {} {}
|
| ︙ | ︙ |