steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compression.zlib: faster by using byte-vectors.

db4
John Benediktsson 2013-03-25 11:36:08 -07:00
parent c3917cdd02
commit 2b030bc068
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/compression/zlib/zlib.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.data alien.syntax byte-arrays USING: alien alien.c-types alien.data alien.syntax byte-vectors
combinators kernel math math.functions sequences system combinators kernel math math.functions sequences system
accessors libc ; accessors libc ;
QUALIFIED: compression.zlib.ffi QUALIFIED: compression.zlib.ffi
@ -36,15 +36,19 @@ ERROR: zlib-failed n string ;
: compress ( byte-array -- compressed ) : compress ( byte-array -- compressed )
[ [
[ compressed-size <byte-array> dup length ulong <ref> ] keep [ [
compressed-size
[ <byte-vector> dup underlying>> ] keep ulong <ref>
] keep [
dup length compression.zlib.ffi:compress zlib-error dup length compression.zlib.ffi:compress zlib-error
] 3keep drop ulong deref head ] 2keep drop ulong deref >>length B{ } like
] keep length <compressed> ; ] keep length <compressed> ;
: uncompress ( compressed -- byte-array ) : uncompress ( compressed -- byte-array )
[ [
length>> [ <byte-array> ] keep ulong <ref> 2dup length>> [ <byte-vector> dup underlying>> ] keep
ulong <ref>
] [ ] [
data>> dup length data>> dup length pick
compression.zlib.ffi:uncompress zlib-error [ compression.zlib.ffi:uncompress zlib-error ] dip
] bi ulong deref head ; ] bi ulong deref >>length B{ } like ;