gnuvince / clj-starcraft / changeset / 49513e3ec01f

 (defmacro make-reader
-  [type get-fn mask-fn]
+  [get-fn mask-fn]
   `(fn [#^ByteBuffer buf# len#]
      (if (= len# 1)
        (~mask-fn (. buf# (~get-fn)))
-       (let [arr# #^"[I" (make-array (. Integer TYPE) len#)]
+       (let [#^"[I" arr# (int-array len#)]
          (dotimes [i# len#]
-           (aset arr# i# (~mask-fn (. buf# (~get-fn)))))
+           (aset-int arr# i# (~mask-fn (. buf# (~get-fn)))))
          arr#))))
 (def read-field
      (let [mask8 (fn [x] (bit-and x 0xff))
            mask16 (fn [x] (bit-and x 0xffff))
            read-bytes (make-reader Byte get mask8)
            read-shorts (make-reader Short getShort mask16)
            read-ints (make-reader Integer getInt identity)
            getters {Byte read-bytes
            read-bytes (make-reader get mask8)
            read-shorts (make-reader getShort mask16)
            read-ints (make-reader getInt identity)
            readers {Byte read-bytes
                     Short read-shorts
                     Integer read-ints
                     String read-null-string}]
          (let [real-size (if (vector? size)
                            (apply read-field buf size)
                            size)]
-           ((getters type) buf real-size)))))
+           ((readers type) buf real-size)))))
 (defn parse-buffer