peppi 2.1.2

Parser for Slippi replay files
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

(ns peppi-codegen.enums
  (:require
   [camel-snake-kebab.core :as csk]
   [clojure.data.json :as json]
   [clojure.java.io :as io]
   [clojure.pprint :refer [pprint]]
   [peppi-codegen.common :refer :all]))

(defn enum
  [[nm {ty :type, values :known_values}]]
  [:enum
   {:attrs {:derive ["Debug" "PartialEq" "Eq" "Clone" "Copy" "TryFromPrimitive"]
            :repr [ty]}}
   nm
   (-> values
       (update-keys (comp bigdec name))
       (->> (sort-by key)
            (mapv (juxt (comp csk/->PascalCase :ident val) key))))])

(defn -main [enum-name]
  (doseq [decl (mapv enum (read-json (format "enums/%s.json" enum-name)))]
    (println (emit-expr decl) "\n")))