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

remove typename argument from typelist

Browse source
This commit is contained in:
Kristin Rutenkolk 2025-01-04 21:02:25 +01:00
parent 637f156663
commit 06cd910279
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/clj/coffi/mem.clj
View file

@ -1863,19 +1863,18 @@
(generate-deserialize-array-as-array array-type n offset segment-source-form)
(generate-deserialize-array-as-vector array-type n offset segment-source-form)))
(defn- typelist [typename fields]
(defn- typelist [fields]
(->>
(partition 2 2 (interleave (reductions + 0 (map (comp size-of second) fields)) fields))
(filter (fn [[_ [_ field-type]]] (not (and (vector? field-type) (= "padding" (name (first field-type)))))))))
(defn register-new-struct-deserialization [typename [_struct fields]]
(let [typelist (typelist typename fields)]
(defmethod generate-deserialize typename [_type global-offset segment-source-form]
(->> typelist
(map-indexed
(fn [index [offset [_ field-type]]]
(generate-deserialize field-type (+ global-offset offset) segment-source-form)))
(cons (symbol (str (name typename) ".")))))))
(defmethod generate-deserialize typename [_type global-offset segment-source-form]
(->> (typelist fields)
(map-indexed
(fn [index [offset [_ field-type]]]
(generate-deserialize field-type (+ global-offset offset) segment-source-form)))
(cons (symbol (str (name typename) "."))))))
(defmulti generate-serialize (fn [& xs] (if (vector? (first xs)) (ffirst xs) (first xs))))
@ -1944,10 +1943,9 @@
(generate-serialize-vector-as-array member-type length source-form offset segment-source-form)))
(defn register-new-struct-serialization [typename [_struct fields]]
(let [typelist (typelist typename fields)
fieldnames (filter #(not= "padding" (name %)) (map first fields))]
(let [fieldnames (filter #(not= "padding" (name %)) (map first fields))]
(defmethod generate-serialize typename [_type source-form global-offset segment-source-form]
(->> typelist
(->> (typelist fields)
(map-indexed
(fn [index [offset [_ field-type]]]
(generate-serialize field-type (list (symbol (str "." (name (nth fieldnames index)))) 'source-obj) (if (number? global-offset) (+ global-offset offset) `(+ ~global-offset ~offset)) segment-source-form)))