luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

BREAKING: Clean up (experimental) Compressable-LZMA2

Browse source
This commit is contained in:
Peter Taoussanis 2014-01-21 12:56:36 +07:00
parent c11d4e36a8
commit 32e4e82091
1 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/taoensso/nippy.clj
View file

@ -484,19 +484,13 @@
ba-len (alength ba) ba-len (alength ba)
compress? (> ba-len 1024)] compress? (> ba-len 1024)]
(.writeBoolean st compress?) (.writeBoolean st compress?)
(if-not compress? (if-not compress? (write-bytes st ba)
(do (.writeLong st ba-len) (let [ba* (compression/compress compression/lzma2-compressor ba)]
(.write st ba 0 ba-len)) (write-bytes st ba*)))))
(let [ba* (compression/compress compression/lzma2-compressor ba)
ba*-len (alength ba*)]
(.writeLong st ba*-len)
(.write st ba* 0 ba*-len)))))
(extend-thaw 128 [st] (extend-thaw 128 [st]
(let [compressed? (.readBoolean st) (let [compressed? (.readBoolean st)
ba-len (.readLong st) ba (read-bytes st)]
ba (byte-array ba-len)]
(.read st ba 0 ba-len)
(thaw (wrap-header ba {:compressed? compressed? :encrypted? false}) (thaw (wrap-header ba {:compressed? compressed? :encrypted? false})
{:compressor compression/lzma2-compressor}))) {:compressor compression/lzma2-compressor})))