forked from FundingCircle/jackdaw
-
Notifications
You must be signed in to change notification settings - Fork 1
/
fressian.clj
48 lines (41 loc) · 1.63 KB
/
fressian.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(ns jackdaw.serdes.fressian
"Implements a Fressian SerDes (Serializer/Deserializer)."
{:license "BSD 3-Clause License <https://github.com/FundingCircle/jackdaw/blob/master/LICENSE>"}
(:require [clojure.data.fressian :as fressian]
[jackdaw.serdes.fn :as jsfn])
(:import org.apache.kafka.common.serialization.Serde
org.apache.kafka.common.serialization.Serdes
[java.io ByteArrayOutputStream Closeable]
org.fressian.FressianWriter)
(:gen-class
:implements [org.apache.kafka.common.serialization.Serde]
:prefix "FressianSerde-"
:name jackdaw.serdes.FressianSerde))
(set! *warn-on-reflection* true)
(defn- fressian-bytes
[obj options]
(with-open [bos (ByteArrayOutputStream.)
^FressianWriter writer (apply fressian/create-writer bos options)]
(fressian/write-object writer obj)
(fressian/write-footer writer)
(.toByteArray bos)))
(defn fressian-serializer
"Returns a Fressian serializer. Takes the same options as
`clojure.data.fressian/create-writer`."
[& options]
(jsfn/new-serializer {:serialize (fn [_ _ data]
(when data (fressian-bytes data options)))}))
(defn fressian-deserializer
"Returns a Fressian deserializer. Takes the same options as
`clojure.data.fressian/read`."
[& options]
(jsfn/new-deserializer {:deserialize (fn [_ _ data]
(apply fressian/read data options))}))
(def FressianSerde-configure
(constantly nil))
(defn FressianSerde-serializer
[& _]
(fressian-serializer))
(defn FressianSerde-deserializer
[& _]
(fressian-deserializer))