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

Update qsort example

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-17 14:02:06 -05:00
parent 8159fdebad
commit 6cc17f463e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/coffi/ffi.clj
View file

@ -882,6 +882,7 @@
"qsort" "qsort"
[::pointer ::long ::long (fn [::pointer ::pointer] ::int)] [::pointer ::long ::long (fn [::pointer ::pointer] ::int)]
::void ::void
qsort-native
[type comparator list] [type comparator list]
(with-open [scope (stack-scope)] (with-open [scope (stack-scope)]
(let [copied-list (alloc (* (count list) (size-of type)) scope) (let [copied-list (alloc (* (count list) (size-of type)) scope)
@ -890,7 +891,7 @@
(let [obj1 (deserialize-from type (slice-global addr1 (size-of type))) (let [obj1 (deserialize-from type (slice-global addr1 (size-of type)))
obj2 (deserialize-from type (slice-global addr2 (size-of type)))] obj2 (deserialize-from type (slice-global addr2 (size-of type)))]
(comparator obj1 obj2)))] (comparator obj1 obj2)))]
(qsort copied-list (count list) (size-of type) comp-fn) (qsort-native copied-list (count list) (size-of type) comp-fn)
(for [segment (seq-of type copied-list)] (for [segment (seq-of type copied-list)]
(deserialize-from type segment))))) (deserialize-from type segment)))))
) )