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

remove namespaced references

Browse source
This commit is contained in:
Kristin Rutenkolk 2024-10-10 15:59:28 +02:00
parent 557cd27763
commit f96df719eb
1 changed files with 42 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -664,16 +664,16 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte mem/byte-layout 0 ^int (alength value#)))) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte byte-layout 0 ^int (alength value#))))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte mem/byte-layout offset# ^int (alength value#)))))} (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfByte byte-layout offset# ^int (alength value#)))))}
([^MemorySegment segment ^bytes value] ([^MemorySegment segment ^bytes value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfByte mem/byte-layout 0 (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout 0 (alength value)))
([^MemorySegment segment offset ^bytes value] ([^MemorySegment segment offset ^bytes value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfByte mem/byte-layout ^long offset ^int (alength value)))) (MemorySegment/copy value 0 segment ^ValueLayout$OfByte byte-layout ^long offset ^int (alength value))))
(defn write-shorts (defn write-shorts
"Writes a [[short]] array to the `segment`, at an optional `offset`. "Writes a [[short]] array to the `segment`, at an optional `offset`.
@ -684,24 +684,24 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort mem/short-layout 0 ^int (alength value#)))) (MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort short-layout 0 ^int (alength value#))))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort mem/short-layout ^long offset ^int (alength value#)))) (MemorySegment/copy value# 0 segment# ^ValueLayout$OfShort short-layout ^long offset ^int (alength value#))))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# (.withOrder ^ValueLayout$OfShort mem/short-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy value# 0 segment# (.withOrder ^ValueLayout$OfShort short-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^shorts value] ([^MemorySegment segment ^shorts value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfShort mem/short-layout 0 (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout 0 (alength value)))
([^MemorySegment segment ^long offset ^shorts value] ([^MemorySegment segment ^long offset ^shorts value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfShort mem/short-layout ^long offset (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfShort short-layout ^long offset (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^shorts value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^shorts value]
(MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfShort mem/short-layout byte-order) ^long offset (alength value)))) (MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfShort short-layout byte-order) ^long offset (alength value))))
(defn write-ints (defn write-ints
"Writes a [[int]] array to the `segment`, at an optional `offset`. "Writes a [[int]] array to the `segment`, at an optional `offset`.
@ -712,26 +712,26 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt mem/int-layout 0 ^int (alength value#)) (MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt int-layout 0 ^int (alength value#))
)) ))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt mem/int-layout ^long offset ^int (alength value#)) (MemorySegment/copy value# 0 segment# ^ValueLayout$OfInt int-layout ^long offset ^int (alength value#))
)) ))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy value# 0 segment# (.withOrder ^ValueLayout$OfInt mem/int-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy value# 0 segment# (.withOrder ^ValueLayout$OfInt int-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^ints value] ([^MemorySegment segment ^ints value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfInt mem/int-layout 0 (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout 0 (alength value)))
([^MemorySegment segment ^long offset ^ints value] ([^MemorySegment segment ^long offset ^ints value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfInt mem/int-layout ^long offset (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfInt int-layout ^long offset (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^ints value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^ints value]
(MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfInt mem/int-layout byte-order) ^long offset (alength value)))) (MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfInt int-layout byte-order) ^long offset (alength value))))
(defn write-longs (defn write-longs
"Writes a [[long]] array to the `segment`, at an optional `offset`. "Writes a [[long]] array to the `segment`, at an optional `offset`.
@ -742,26 +742,26 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong mem/long-layout 0 ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong long-layout 0 ^int (alength value#))
)) ))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong mem/long-layout ^long offset ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfLong long-layout ^long offset ^int (alength value#))
)) ))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfLong mem/long-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfLong long-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^longs value] ([^MemorySegment segment ^longs value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfLong mem/long-layout 0 ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout 0 ^int (alength value)))
([^MemorySegment segment ^long offset ^longs value] ([^MemorySegment segment ^long offset ^longs value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfLong mem/long-layout ^long offset ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfLong long-layout ^long offset ^int (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^longs value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^longs value]
(MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfLong mem/long-layout byte-order) ^long offset ^int (alength value)))) (MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfLong long-layout byte-order) ^long offset ^int (alength value))))
(defn write-chars (defn write-chars
@ -773,24 +773,24 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar mem/char-layout 0 ^int (alength value#)))) (MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar char-layout 0 ^int (alength value#))))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar mem/char-layout ^long offset ^int (alength value#)))) (MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# ^ValueLayout$OfChar char-layout ^long offset ^int (alength value#))))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# (.withOrder ^ValueLayout$OfChar mem/char-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy (bytes (byte-array (map unchecked-int value#))) 0 segment# (.withOrder ^ValueLayout$OfChar char-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^chars value] ([^MemorySegment segment ^chars value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar mem/char-layout 0 (alength value))) (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout 0 (alength value)))
([^MemorySegment segment ^long offset ^chars value] ([^MemorySegment segment ^long offset ^chars value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar mem/char-layout ^long offset (alength value))) (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment ^ValueLayout$OfChar char-layout ^long offset (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^chars value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^chars value]
(MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment (.withOrder ^ValueLayout$OfChar mem/char-layout byte-order) ^long offset (alength value)))) (MemorySegment/copy (bytes (byte-array (map unchecked-int value))) 0 segment (.withOrder ^ValueLayout$OfChar char-layout byte-order) ^long offset (alength value))))
(defn write-floats (defn write-floats
"Writes a [[float]] array to the `segment`, at an optional `offset`. "Writes a [[float]] array to the `segment`, at an optional `offset`.
@ -801,26 +801,26 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat mem/float-layout 0 ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat float-layout 0 ^int (alength value#))
)) ))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat mem/float-layout ^long offset ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfFloat float-layout ^long offset ^int (alength value#))
)) ))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfFloat mem/float-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfFloat float-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^floats value] ([^MemorySegment segment ^floats value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfFloat mem/float-layout 0 ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout 0 ^int (alength value)))
([^MemorySegment segment ^long offset ^floats value] ([^MemorySegment segment ^long offset ^floats value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfFloat mem/float-layout ^long offset ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfFloat float-layout ^long offset ^int (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^floats value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^floats value]
(MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfFloat mem/float-layout byte-order) ^long offset ^int (alength value)))) (MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfFloat float-layout byte-order) ^long offset ^int (alength value))))
(defn write-doubles (defn write-doubles
"Writes a [[double]] array to the `segment`, at an optional `offset`. "Writes a [[double]] array to the `segment`, at an optional `offset`.
@ -831,26 +831,26 @@
([segment value] ([segment value]
`(let [segment# ~segment `(let [segment# ~segment
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble mem/double-layout 0 ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble double-layout 0 ^int (alength value#))
)) ))
([segment offset value] ([segment offset value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble mem/double-layout ^long offset ^int (alength value#)) (MemorySegment/copy value# 0 ^MemorySegment segment# ^ValueLayout$OfDouble double-layout ^long offset ^int (alength value#))
)) ))
([segment offset byte-order value] ([segment offset byte-order value]
`(let [segment# ~segment `(let [segment# ~segment
offset# ~offset offset# ~offset
byte-order# ~byte-order byte-order# ~byte-order
value# ~value] value# ~value]
(MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfDouble mem/double-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))} (MemorySegment/copy value# 0 ^MemorySegment segment# (.withOrder ^ValueLayout$OfDouble double-layout ^ByteOrder byte-order#) ^long offset ^int (alength value#)))))}
([^MemorySegment segment ^doubles value] ([^MemorySegment segment ^doubles value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfDouble mem/double-layout 0 ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout 0 ^int (alength value)))
([^MemorySegment segment ^long offset ^doubles value] ([^MemorySegment segment ^long offset ^doubles value]
(MemorySegment/copy value 0 segment ^ValueLayout$OfDouble mem/double-layout ^long offset ^int (alength value))) (MemorySegment/copy value 0 segment ^ValueLayout$OfDouble double-layout ^long offset ^int (alength value)))
([^MemorySegment segment ^long offset ^ByteOrder byte-order ^doubles value] ([^MemorySegment segment ^long offset ^ByteOrder byte-order ^doubles value]
(MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfDouble mem/double-layout byte-order) ^long offset ^int (alength value)))) (MemorySegment/copy value 0 segment (.withOrder ^ValueLayout$OfDouble double-layout byte-order) ^long offset ^int (alength value))))
(defn- type-dispatch (defn- type-dispatch
"Gets a type dispatch value from a (potentially composite) type." "Gets a type dispatch value from a (potentially composite) type."
@ -1545,3 +1545,5 @@
(s/fdef defalias (s/fdef defalias
:args (s/cat :new-type qualified-keyword? :args (s/cat :new-type qualified-keyword?
:aliased-type any?)) :aliased-type any?))