packet_serialization.clj

Bowmap · bowmap.git · Tickets

Branches > main > dab4740 > files / src / net / bowmap / server / protocol / packet_serialization.clj

(ns net.bowmap.server.protocol.packet-serialization
  (:require
   [net.bowmap.server.protocol.buffer :as buffer]
   [net.bowmap.server.protocol.clientbound-packets :as clientbound]
   [net.bowmap.server.protocol.frame :as frame]
   [net.bowmap.server.protocol.packet :as packet]
   [net.bowmap.server.protocol.phase :as phase]
   [net.bowmap.server.protocol.readers :as readers]
   [net.bowmap.server.protocol.serverbound-packets :as serverbound]
   [net.bowmap.server.protocol.writers :as writers]))

(defn encode-packet
  "Encodes a packet into a frame.
   Throws when the packet cannot be encoded."
  [{::phase/keys! [phase]} {::packet/keys! [id] :as packet}]
  (let [numeric-id (req! (clientbound/phase->id->numeric-id phase) id)
        writer (req! (clientbound/phase->id->writer phase) id)]
    (buffer/->frame
      (-> (buffer/write-buffer)
          (writers/varint> numeric-id)
          (writer packet)))))

(defn decode-frame
  "Decodes a packet from a frame.
   Can throw if the frame does not contain a valid packet."
  [{:keys! [::phase/phase]} frame]
  (let [buf (frame/->ByteBuf frame)
        numeric-id (readers/varint< buf)
        id (req! (serverbound/phase->numeric-id->id phase) numeric-id)
        reader (req! (serverbound/phase->id->reader phase) id)]
    (assoc (reader buf)
           ::packet/id id)))