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

Micro optimization: read-bytes expansion

Browse source
This commit is contained in:
Peter Taoussanis 2015-09-28 10:21:15 +07:00
parent 7ae954a229
commit 956ce7df7e
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/taoensso/nippy.clj
View file

@ -435,12 +435,17 @@
(declare thaw-from-in)
(defmacro read-bytes [in & [small?]]
`(let [in# ~in
size# (if ~small? ; Optimization, must be known before id's written
(.readByte in#)
(.readInt in#))
ba# (byte-array size#)]
(.readFully in# ba# 0 size#) ba#))
(if small? ; Optimization, must be known before id's written
`(let [in# ~in
size# (.readByte in#)
ba# (byte-array size#)]
(.readFully in# ba# 0 size#)
ba#)
`(let [in# ~in
size# (.readInt in#)
ba# (byte-array size#)]
(.readFully in# ba# 0 size#)
ba#)))
(defmacro read-biginteger [in] `(BigInteger. (read-bytes ~in)))
(defmacro read-utf8 [in & [small?]]