File tree Expand file tree Collapse file tree 1 file changed +9
-9
lines changed
Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Original file line number Diff line number Diff line change 11(ns simple-stress-test-converter
22 (:require [aux :as a]
3- [clojure.edn :as edn]
4- [metrics :as m])
5- (:import [org.fressian.handlers ConvertList ILookup]))
3+ [clojure.edn :as edn])
4+ (:import [clojure.lang LazilyPersistentVector]
5+ [org.fressian.handlers ConvertList ILookup])
6+ (:gen-class ))
7+
8+ (def list-converter (reify ConvertList
9+ (convertList [_ items]
10+ (LazilyPersistentVector/createOwning items))))
611
712(def custom-read-handlers
813 (reify ILookup
914 (valAt [_ k]
10- (get {" fressian/list"
11- (reify ConvertList
12- (convertList [_ items]
13- (vec items)))}
14- k))))
15+ (get {" fressian/list" list-converter} k))))
1516
1617(defn -main [& args]
1718 (let [parsed-args (map edn/read-string args)
1819 argmap (zipmap [:struct-type :struct-size :convert-list? ] parsed-args)]
19- (m/initialize-and-return-metrics )
2020 (a/stress-test argmap custom-read-handlers)
2121 (System/exit 0 )))
You can’t perform that action at this time.
0 commit comments