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 {} {} |
︙ | ︙ |