From 6dd90d279c65bd9dd04d4dbdd1482a7cc719c4eb Mon Sep 17 00:00:00 2001 From: Joshua Suskalo Date: Thu, 16 Sep 2021 15:14:33 -0500 Subject: [PATCH] Move seq-of def --- src/coffi/ffi.clj | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/src/coffi/ffi.clj b/src/coffi/ffi.clj index bd22286..223c78c 100644 --- a/src/coffi/ffi.clj +++ b/src/coffi/ffi.clj @@ -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."