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

Make examples use scopes

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-15 12:47:06 -05:00
parent a568c1c5d6
commit c5df70ac1a
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
src/coffi/ffi.clj
View file

@ -244,11 +244,12 @@
"Gets some output value"
"someFunc" [::pointer] ::int
[]
(let [out-int (alloc-instance ::int)
success? (zero? (some-func (address-of out-int)))]
(if success?
(deserialize ::int out-int)
(throw (ex-info (getErrorString) {})))))
(with-open [scope (stack-scope)]
(let [out-int (alloc-instance ::int scope)
success? (zero? (some-func (address-of out-int)))]
(if success?
(deserialize ::int out-int)
(throw (ex-info (getErrorString) {}))))))
;; This function probably wouldn't actually get wrapped, since the cost of
;; marshalling is greater than the speed boost of using an in-place sort. That
@ -259,14 +260,14 @@
[::pointer ::long ::long (fn [::pointer ::pointer] ::int)]
::void
[type comparator list]
(let [copied-list (alloc (* (count list) (size-of type)))
_ (for [segment (seq-of type copied-list)]
(serialize type segment))
comp-fn (fn [addr1 addr2]
(let [obj1 (deserialize type (slice-global addr1 (size-of type)))
obj2 (deserialize type (slice-global addr2 (size-of type)))]
(comparator obj1 obj2)))]
(qsort copied-list (count list) (size-of type) comp-fn)
(for [segment (seq-of type copied-list)]
(deserialize type segment))))
(with-open [scope (stack-scope)]
(let [copied-list (alloc (* (count list) (size-of type)) scope)
_ (dorun (map #(serialize* %1 type %2 scope) list (seq-of type copied-list)))
comp-fn (fn [addr1 addr2]
(let [obj1 (deserialize type (slice-global addr1 (size-of type)))
obj2 (deserialize type (slice-global addr2 (size-of type)))]
(comparator obj1 obj2)))]
(qsort copied-list (count list) (size-of type) comp-fn)
(for [segment (seq-of type copied-list)]
(deserialize type segment)))))
)