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

typehint inline functions

Browse source
This commit is contained in:
Kristin Rutenkolk 2024-12-28 01:08:45 +01:00
parent a358fb6d77
commit 7bcdb8c227
1 changed files with 144 additions and 160 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

304
src/clj/coffi/mem.clj
View file

@ -284,6 +284,17 @@
"The alignment in bytes of a c-sized pointer." "The alignment in bytes of a c-sized pointer."
(.byteAlignment pointer-layout)) (.byteAlignment pointer-layout))
(defmacro with-typehints [bindings form]
(let [bindmap (->> bindings
(partition 3)
(map (fn [[sym src hint]] [sym (with-meta (gensym (str (name sym))) {:src-expr src :tag (symbol (str (name hint)))})]))
(into (hash-map)))
letbinds (->> bindmap
(map (fn [[_ newsym]] [(with-meta newsym {}) (:src-expr (meta newsym))]))
(reduce concat)
(vec))]
`(let ~letbinds ~(clojure.walk/postwalk (fn [x] (get bindmap x x)) form))))
(defn read-byte (defn read-byte
"Reads a [[byte]] from the `segment`, at an optional `offset`." "Reads a [[byte]] from the `segment`, at an optional `offset`."
{:inline {:inline
@ -462,14 +473,14 @@
{:inline {:inline
(fn write-byte-inline (fn write-byte-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value byte]
(.set ^MemorySegment segment# ^ValueLayout$OfByte byte-layout 0 value#))) (.set segment ^ValueLayout$OfByte byte-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value int]
(.set ^MemorySegment segment# ^ValueLayout$OfByte byte-layout offset# value#))))} (.set segment ^ValueLayout$OfByte byte-layout offset value))))}
([^MemorySegment segment value] ([^MemorySegment segment value]
(.set segment ^ValueLayout$OfByte byte-layout 0 ^byte value)) (.set segment ^ValueLayout$OfByte byte-layout 0 ^byte value))
([^MemorySegment segment ^long offset value] ([^MemorySegment segment ^long offset value]
@ -482,20 +493,20 @@
{:inline {:inline
(fn write-short-inline (fn write-short-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value short]
(.set ^MemorySegment segment# ^ValueLayout$OfShort short-layout 0 value#))) (.set segment ^ValueLayout$OfShort short-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value short]
(.set ^MemorySegment segment# ^ValueLayout$OfShort short-layout offset# value#))) (.set segment ^ValueLayout$OfShort short-layout offset value)))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
byte-order# ~byte-order byte-order ~byte-order java.nio.ByteOrder
value# ~value] value ~value short]
(.set ^MemorySegment segment# (.withOrder ^ValueLayout$OfShort short-layout ^ByteOrder byte-order#) offset# value#))))} (.set segment (.withOrder ^ValueLayout$OfShort short-layout byte-order) offset value))))}
([^MemorySegment segment value] ([^MemorySegment segment value]
(.set segment ^ValueLayout$OfShort short-layout 0 ^short value)) (.set segment ^ValueLayout$OfShort short-layout 0 ^short value))
([^MemorySegment segment ^long offset value] ([^MemorySegment segment ^long offset value]
@ -510,20 +521,20 @@
{:inline {:inline
(fn write-int-inline (fn write-int-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value int]
(.set ^MemorySegment segment# ^ValueLayout$OfInt int-layout 0 value#))) (.set segment ^ValueLayout$OfInt int-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value int]
(.set ^MemorySegment segment# ^ValueLayout$OfInt int-layout offset# value#))) (.set segment ^ValueLayout$OfInt int-layout offset value)))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
byte-order# ~byte-order byte-order ~byte-order java.nio.ByteOrder
value# ~value] value ~value int]
(.set ^MemorySegment segment# (.withOrder ^ValueLayout$OfInt int-layout ^ByteOrder byte-order#) offset# value#))))} (.set segment (.withOrder ^ValueLayout$OfInt int-layout byte-order) offset value))))}
([^MemorySegment segment value] ([^MemorySegment segment value]
(.set segment ^ValueLayout$OfInt int-layout 0 ^int value)) (.set segment ^ValueLayout$OfInt int-layout 0 ^int value))
([^MemorySegment segment ^long offset value] ([^MemorySegment segment ^long offset value]
@ -538,20 +549,20 @@
{:inline {:inline
(fn write-long-inline (fn write-long-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value long]
(.set ^MemorySegment segment# ^ValueLayout$OfLong long-layout 0 value#))) (.set segment ^ValueLayout$OfLong long-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value long]
(.set ^MemorySegment segment# ^ValueLayout$OfLong long-layout offset# value#))) (.set segment ^ValueLayout$OfLong long-layout offset value)))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
byte-order# ~byte-order byte-order ~byte-order java.nio.ByteOrder
value# ~value] value ~value long]
(.set ^MemorySegment segment# (.withOrder ^ValueLayout$OfLong long-layout ^ByteOrder byte-order#) offset# value#))))} (.set segment (.withOrder ^ValueLayout$OfLong long-layout byte-order) offset value))))}
(^long [^MemorySegment segment ^long value] (^long [^MemorySegment segment ^long value]
(.set segment ^ValueLayout$OfLong long-layout 0 value)) (.set segment ^ValueLayout$OfLong long-layout 0 value))
(^long [^MemorySegment segment ^long offset ^long value] (^long [^MemorySegment segment ^long offset ^long value]
@ -564,14 +575,14 @@
{:inline {:inline
(fn write-char-inline (fn write-char-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value char]
(.set ^MemorySegment segment# ^ValueLayout$OfByte byte-layout 0 (unchecked-byte (unchecked-int value#))))) (.set segment ^ValueLayout$OfByte byte-layout 0 (unchecked-byte (unchecked-int value)))))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value char]
(.set ^MemorySegment segment# ^ValueLayout$OfByte byte-layout offset# (unchecked-byte (unchecked-int value#))))))} (.set segment ^ValueLayout$OfByte byte-layout offset (unchecked-byte (unchecked-int value))))))}
([^MemorySegment segment value] ([^MemorySegment segment value]
(.set (.set
segment segment
@ -590,20 +601,20 @@
{:inline {:inline
(fn write-float-inline (fn write-float-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value float]
(.set ^MemorySegment segment# ^ValueLayout$OfFloat float-layout 0 value#))) (.set segment ^ValueLayout$OfFloat float-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value float]
(.set ^MemorySegment segment# ^ValueLayout$OfFloat float-layout offset# value#))) (.set segment ^ValueLayout$OfFloat float-layout offset value)))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
byte-order# ~byte-order byte-order ~byte-order java.nio.ByteOrder
value# ~value] value ~value float]
(.set ^MemorySegment segment# (.withOrder ^ValueLayout$OfFloat float-layout ^ByteOrder byte-order#) offset# value#))))} (.set segment (.withOrder ^ValueLayout$OfFloat float-layout byte-order) offset value))))}
([^MemorySegment segment value] ([^MemorySegment segment value]
(.set segment ^ValueLayout$OfFloat float-layout 0 ^float value)) (.set segment ^ValueLayout$OfFloat float-layout 0 ^float value))
([^MemorySegment segment ^long offset value] ([^MemorySegment segment ^long offset value]
@ -618,20 +629,20 @@
{:inline {:inline
(fn write-double-inline (fn write-double-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value double]
(.set ^MemorySegment segment# ^ValueLayout$OfDouble double-layout 0 value#))) (.set segment ^ValueLayout$OfDouble double-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value double]
(.set ^MemorySegment segment# ^ValueLayout$OfDouble double-layout offset# value#))) (.set segment ^ValueLayout$OfDouble double-layout offset value)))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
byte-order# ~byte-order byte-order ~byte-order java.nio.ByteOrder
value# ~value] value ~value double]
(.set ^MemorySegment segment# (.withOrder ^ValueLayout$OfDouble double-layout ^ByteOrder byte-order#) offset# value#))))} (.set segment (.withOrder ^ValueLayout$OfDouble double-layout byte-order) offset value))))}
(^double [^MemorySegment segment ^double value] (^double [^MemorySegment segment ^double value]
(.set segment ^ValueLayout$OfDouble double-layout 0 value)) (.set segment ^ValueLayout$OfDouble double-layout 0 value))
(^double [^MemorySegment segment ^long offset ^double value] (^double [^MemorySegment segment ^long offset ^double value]
@ -644,14 +655,14 @@
{:inline {:inline
(fn write-address-inline (fn write-address-inline
([segment value] ([segment value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
value# ~value] value ~value java.lang.foreign.MemorySegment]
(.set ^MemorySegment segment# ^AddressLayout pointer-layout 0 ^MemorySegment value#))) (.set segment ^AddressLayout pointer-layout 0 value)))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
offset# ~offset offset ~offset long
value# ~value] value ~value java.lang.foreign.MemorySegment]
(.set ^MemorySegment segment# ^AddressLayout pointer-layout offset# ^MemorySegment value#))))} (.set segment ^AddressLayout pointer-layout offset value))))}
([^MemorySegment segment ^MemorySegment value] ([^MemorySegment segment ^MemorySegment value]
(.set segment ^AddressLayout pointer-layout 0 value)) (.set segment ^AddressLayout pointer-layout 0 value))
([^MemorySegment segment ^long offset ^MemorySegment value] ([^MemorySegment segment ^long offset ^MemorySegment value]
@ -660,18 +671,16 @@
(defn write-bytes (defn write-bytes
"Writes n elements from a [[byte]] array to the `segment`, at an optional `offset`." "Writes n elements from a [[byte]] array to the `segment`, at an optional `offset`."
{:inline {:inline
(fn write-byte-inline (fn write-bytes-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value bytes]
value# ~(with-meta value {:tag 'bytes})] (MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout 0 ~n)))
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte byte-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value bytes]
value# ~(with-meta value {:tag 'bytes})] (MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout offset ~n))))}
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte byte-layout offset# n#))))}
([^MemorySegment segment n ^bytes value] ([^MemorySegment segment n ^bytes value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout 0 ^int n))
([^MemorySegment segment n offset ^bytes value] ([^MemorySegment segment n offset ^bytes value]
@ -684,16 +693,14 @@
{:inline {:inline
(fn write-shorts-inline (fn write-shorts-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value shorts]
value# ~(with-meta value {:tag 'shorts})] (MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout 0 ~n)))
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort short-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value shorts]
value# ~(with-meta value {:tag 'shorts})] (MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout offset ~n))))}
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort short-layout ^long offset# n#))))}
([^MemorySegment segment n ^shorts value] ([^MemorySegment segment n ^shorts value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^shorts value] ([^MemorySegment segment n ^long offset ^shorts value]
@ -706,22 +713,18 @@
{:inline {:inline
(fn write-ints-inline (fn write-ints-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value ints]
value# ~(with-meta value {:tag 'shorts})] (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout 0 ~n)))
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt int-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value ints]
value# ~(with-meta value {:tag 'shorts})] (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout offset ~n))))}
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt int-layout ^long offset# n#)))
)}
([^MemorySegment segment n ^ints value] ([^MemorySegment segment n ^ints value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^ints value] ([^MemorySegment segment n ^long offset ^ints value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout ^long offset ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout ^long offset ^int n)))
)
(defn write-longs (defn write-longs
"Writes n elements from a [[long]] array to the `segment`, at an optional `offset`. "Writes n elements from a [[long]] array to the `segment`, at an optional `offset`.
@ -730,25 +733,18 @@
{:inline {:inline
(fn write-longs-inline (fn write-longs-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value longs]
value# ~(with-meta value {:tag 'longs})] (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout 0 ~n)))
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong long-layout 0 n#)
))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value longs]
value# ~(with-meta value {:tag 'longs})] (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout offset ~n))))}
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong long-layout ^long offset# n#)
))
)}
([^MemorySegment segment n ^longs value] ([^MemorySegment segment n ^longs value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^longs value] ([^MemorySegment segment n ^long offset ^longs value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout ^long offset ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout ^long offset ^int n)))
)
(defn write-chars (defn write-chars
"Writes n elements from a [[char]] array to the `segment`, at an optional `offset`. "Writes n elements from a [[char]] array to the `segment`, at an optional `offset`.
@ -757,17 +753,14 @@
{:inline {:inline
(fn write-chars-inline (fn write-chars-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value chars]
value# ~(with-meta value {:tag 'chars})] (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout 0 ~n)))
(MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar char-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value chars]
value# ~(with-meta value {:tag 'chars})] (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout offset ~n))))}
(MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar char-layout ^long offset# n#)))
)}
([^MemorySegment segment n ^chars value] ([^MemorySegment segment n ^chars value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout 0 ^int n)) (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^chars value] ([^MemorySegment segment n ^long offset ^chars value]
@ -780,16 +773,14 @@
{:inline {:inline
(fn write-floats-inline (fn write-floats-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value floats]
value# ~(with-meta value {:tag 'floats})] (MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout 0 ~n)))
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat float-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value floats]
value# ~(with-meta value {:tag 'floats})] (MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout offset ~n))))}
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat float-layout ^long offset# n#))))}
([^MemorySegment segment n ^floats value] ([^MemorySegment segment n ^floats value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^floats value] ([^MemorySegment segment n ^long offset ^floats value]
@ -802,27 +793,20 @@
{:inline {:inline
(fn write-doubles-inline (fn write-doubles-inline
([segment n value] ([segment n value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment value ~value doubles]
value# ~(with-meta value {:tag 'doubles})] (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout 0 ~n)))
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble double-layout 0 n#)))
([segment n offset value] ([segment n offset value]
`(let [n# ~n `(with-typehints [segment ~segment java.lang.foreign.MemorySegment
segment# ~segment offset ~offset long
offset# ~offset value ~value doubles]
value# ~(with-meta value {:tag 'doubles})] (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout offset ~n))))}
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble double-layout ^long offset# n#))))}
([^MemorySegment segment n ^doubles value] ([^MemorySegment segment n ^doubles value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout 0 ^int n)) (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout 0 ^int n))
([^MemorySegment segment n ^long offset ^doubles value] ([^MemorySegment segment n ^long offset ^doubles value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout ^long offset ^int n))) (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout ^long offset ^int n)))
(defn read-bytes (defn read-bytes
"reads `n` elements from a `segment` to a [[byte]] array, at an optional `offset`." "reads `n` elements from a `segment` to a [[byte]] array, at an optional `offset`."
{:inline {:inline