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

Move seq-of def

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-16 15:14:33 -05:00
parent e3292bdff4
commit 6dd90d279c
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/coffi/ffi.clj
View file

@ -123,17 +123,6 @@
[scope action]
(.addCloseAction ^ResourceScope scope action))
#_(defn seq-of
"Constructs a lazy sequence of `type` elements deserialized from `segment`."
[type segment]
(let [size (size-of type)]
(letfn [(rec [segment]
(lazy-seq
(when (>= (.byteSize ^MemorySegment segment) size)
(cons (deserialize-from type segment)
(rec (slice segment size))))))]
(rec segment))))
(def primitive-types
"A set of keywords representing all the primitive types which may be passed to
or returned from native functions."
@ -405,6 +394,16 @@
deserialize-from)
obj type)))
#_(defn seq-of
"Constructs a lazy sequence of `type` elements deserialized from `segment`."
[type segment]
(let [size (size-of type)]
(letfn [(rec [segment]
(lazy-seq
(when (>= (.byteSize ^MemorySegment segment) size)
(cons (deserialize-from type segment)
(rec (slice segment size))))))]
(rec segment))))
(defn load-system-library
"Loads the library named `libname` from the system's load path."