luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move dispatch for unions into the kwargs

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-25 12:27:40 -05:00
parent 7ead50641b
commit 415c842af1
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/clj/coffi/ffi.clj
View file

@ -495,13 +495,17 @@
;;; Union types ;;; Union types
(defmethod c-layout ::union (defmethod c-layout ::union
[[_union _dispatch types & {:as _opts} :as _type]] [[_union types & {:as _opts} :as _type]]
(let [items (map c-layout types)] (let [items (map c-layout types)]
(MemoryLayout/unionLayout (MemoryLayout/unionLayout
(into-array MemoryLayout items)))) (into-array MemoryLayout items))))
(defmethod serialize-into ::union (defmethod serialize-into ::union
[obj [_union dispatch _types & {:keys [extract]}] segment scope] [obj [_union _types & {:keys [dispatch extract]} :as type] segment scope]
(when-not dispatch
(throw (ex-info "Attempted to serialize a union with no dispatch function"
{:type type
:value obj})))
(let [type (dispatch obj)] (let [type (dispatch obj)]
(serialize-into (serialize-into
(if extract (if extract