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) (declare thaw-from-in)
(defmacro read-bytes [in & [small?]] (defmacro read-bytes [in & [small?]]
`(let [in# ~in (if small? ; Optimization, must be known before id's written
size# (if ~small? ; Optimization, must be known before id's written `(let [in# ~in
(.readByte in#) size# (.readByte in#)
(.readInt in#)) ba# (byte-array size#)]
ba# (byte-array size#)] (.readFully in# ba# 0 size#)
(.readFully in# ba# 0 size#) ba#)) 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-biginteger [in] `(BigInteger. (read-bytes ~in)))
(defmacro read-utf8 [in & [small?]] (defmacro read-utf8 [in & [small?]]