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

Remove ffi/ qualifier from keywords in example

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-15 11:11:21 -05:00
parent 5eec39791e
commit ae99c534c2
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/coffi/ffi.clj
View file

@ -113,18 +113,18 @@
;; body ;; body
(defcfun strlen (defcfun strlen
"Counts the number of bytes in a C String." "Counts the number of bytes in a C String."
"strlen" [::ffi/c-string] ::ffi/integer) "strlen" [::c-string] ::integer)
​ ​
;; This function has an output parameter and requires some clojure code to ;; This function has an output parameter and requires some clojure code to
;; translate the values from the c fn to something sensible in clojure. ;; translate the values from the c fn to something sensible in clojure.
(defcfun some-func (defcfun some-func
"Gets some output value" "Gets some output value"
"someFunc" [::ffi/pointer] ::ffi/integer "someFunc" [::pointer] ::integer
[] []
(let [out-int (ffi/alloc-instance ::ffi/integer) (let [out-int (alloc-instance ::integer)
success? (zero? (some-func out-int))] success? (zero? (some-func out-int))]
(if success? (if success?
(ffi/deserialize ::ffi/integer out-int) (deserialize ::integer out-int)
(throw (ex-info (getErrorString) {}))))) (throw (ex-info (getErrorString) {})))))
​ ​
;; This function probably wouldn't actually get wrapped, since the cost of ;; This function probably wouldn't actually get wrapped, since the cost of
@ -133,17 +133,17 @@
(defcfun qsort (defcfun qsort
"Quicksort implementation" "Quicksort implementation"
"qsort" "qsort"
[::ffi/pointer ::ffi/long ::ffi/long (fn [::ffi/pointer ::ffi/pointer] ::ffi/integer)] [::pointer ::long ::long (fn [::pointer ::pointer] ::integer)]
::ffi/void ::void
[type comparator list] [type comparator list]
(let [copied-list (ffi/alloc (* (count list) (ffi/size-of type))) (let [copied-list (alloc (* (count list) (size-of type)))
_ (for [segment (ffi/seq-of type copied-list)] _ (for [segment (seq-of type copied-list)]
(ffi/serialize type segment)) (serialize type segment))
comp-fn (fn [addr1 addr2] comp-fn (fn [addr1 addr2]
(let [obj1 (ffi/deserialize type (ffi/slice-global addr1 (ffi/size-of type))) (let [obj1 (deserialize type (slice-global addr1 (size-of type)))
obj2 (ffi/deserialize type (ffi/slice-global addr2 (ffi/size-of type)))] obj2 (deserialize type (slice-global addr2 (size-of type)))]
(comparator obj1 obj2)))] (comparator obj1 obj2)))]
(qsort copied-list (count list) (ffi/size-of type) comp-fn) (qsort copied-list (count list) (size-of type) comp-fn)
(for [segment (ffi/seq-of type copied-list)] (for [segment (seq-of type copied-list)]
(ffi/deserialize type segment)))) (deserialize type segment))))
) )