Difference between revisions of "Nszlib"
Jump to navigation
Jump to search
(imported from WiKit id 142) |
|||
Line 5: | Line 5: | ||
Download: http://www.crystalballinc.com/vlad/software/ | Download: http://www.crystalballinc.com/vlad/software/ | ||
+ | |||
+ | '''EXAMPLES''' | ||
+ | |||
+ | # Compress Tcl string | ||
+ | set test "This is test string for compression" | ||
+ | |||
+ | set data [ns_zlib compress $test] | ||
+ | |||
+ | set test [ns_zlib uncompress $data] | ||
+ | ns_log Debug Uncompress: $test | ||
+ | |||
+ | # Compress the string into gzip format | ||
+ | set gzip [ns_zlib gzip $test] | ||
+ | |||
+ | # Save as gzip file | ||
+ | set fd [open /tmp/test.gz w] | ||
+ | fconfigure $fd -translation binary -encoding binary | ||
+ | puts -nonewline $fd $gzip | ||
+ | close $fd | ||
+ | |||
+ | |||
+ | # Uncompress gzipped file | ||
+ | set test [ns_zlib gunzip /tmp/test.gz] | ||
+ | ns_log Debug Ungzipped: $test |
Revision as of 11:42, 30 March 2006
Author: Vlad Seryakov
This is AOLserver module that implements Zlib interface. Allows compressing/uncompressing Tcl strings as well as gzip file support.
Download: http://www.crystalballinc.com/vlad/software/
EXAMPLES
# Compress Tcl string set test "This is test string for compression"
set data [ns_zlib compress $test]
set test [ns_zlib uncompress $data] ns_log Debug Uncompress: $test
# Compress the string into gzip format set gzip [ns_zlib gzip $test]
# Save as gzip file set fd [open /tmp/test.gz w] fconfigure $fd -translation binary -encoding binary puts -nonewline $fd $gzip close $fd
- Uncompress gzipped file
set test [ns_zlib gunzip /tmp/test.gz] ns_log Debug Ungzipped: $test