nbt.clj

(ns test
  (:use [gloss core io]))

(defcodec tag (enum :byte :end :byte :int16 :int32 :int64 :float32 :float64 :bytes :string :list :compound))

(defcodec tstring (finite-frame :int16 (string :utf-8)))
(defcodec tbytes (repeated :byte))

(declare tcompound)
(declare tlist)

(defn get-tag [t]
  (get
    {:bytes tbytes, :string tstring, :list tlist, :compound tcompound}
    t t))

(defcodec tlist (header tag
                        (memoize #(compile-frame [(name %) (repeated (get-tag %))]))
                        (comp symbol first)))

(defcodec tcompound (repeated
                      (header tag
                              (memoize #(compile-frame [(name %) tstring (get-tag %)]))
                              (comp symbol first))
                      :prefix :none
                      :delimiters ["\0"]))

(defcodec nbt [tag tstring tcompound])