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

Add auto-size read-bytes

Browse source
This commit is contained in:
Peter Taoussanis 2020-07-24 14:20:11 +02:00
parent e554dbb1c5
commit 57eae96c7b
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/taoensso/nippy.clj
View file

@ -1056,11 +1056,19 @@
;;;; Thawing ;;;; Thawing
(defn- read-bytes [^DataInput in len] (defn- read-bytes
([^DataInput in len]
(let [ba (byte-array len)] (let [ba (byte-array len)]
(.readFully in ba 0 len) (.readFully in ba 0 len)
ba)) ba))
([^DataInput in]
(enc/case-eval (.readByte in)
id-bytes-0 (byte-array 0)
id-bytes-sm (read-bytes in (read-sm-count in))
id-bytes-md (read-bytes in (read-md-count in))
id-bytes-lg (read-bytes in (read-lg-count in)))))
(defn- read-bytes-sm [^DataInput in] (read-bytes in (read-sm-count in))) (defn- read-bytes-sm [^DataInput in] (read-bytes in (read-sm-count in)))
(defn- read-bytes-md [^DataInput in] (read-bytes in (read-md-count in))) (defn- read-bytes-md [^DataInput in] (read-bytes in (read-md-count in)))
(defn- read-bytes-lg [^DataInput in] (read-bytes in (read-lg-count in))) (defn- read-bytes-lg [^DataInput in] (read-bytes in (read-lg-count in)))