e863077

src/net/bowmap/packets/server.clj modified (view file)

@@ -18,22 +18,6 @@                (apply (read/composite-readers codec) args))              (read/readers t)))) -#_(defn build-packet [packet-id schema]-    (let [fn-name (symbol (str "decode-" (name packet-id)))-          buf (gensym "buf__")--          fields (map :field schema)-          types (map :type schema)-          name-codec-pairs (for [t types]-                             [(gensym "decode__") (type->codec t)])-          codec-calls (for [[codec-binding] name-codec-pairs]-                        `(~codec-binding ~buf))-          names->codecs (apply concat name-codec-pairs)]-      `(let [~@names->codecs]-         (fn ~fn-name [~buf]-           (assoc (zipmap [~@fields] [~@codec-calls])-                  ::pk/id ~packet-id)))))- (defn build-packet [packet-id schema]   (let [fn-name (symbol (str "decode-" (name packet-id)))         buf (gensym "buf__")