Parse backend message header and read entire message

parse-header-read-message.clj

(defn- parse-header [bb]
  (let [_ (.flip bb)
        tag (.get bb)
        len (.getInt bb)]
    (log/info (str "RECEIVED TAG: " tag ", LENGTH: " len))
    [tag len]))

(defn- read-message [tag len client]
  (let [bb (ByteBuffer/allocate (+ 1 len)) ;; Allocate for full message
        _  (.put bb tag) ;; Add back tag
        _  (.putInt bb len) ;; Add back length
        _  (.read client bb)] ;; Read rest of message
    (.flip bb)))