From f96df719ebfda7f066229ef5a3dee3809bf8c752 Mon Sep 17 00:00:00 2001 From: Kristin Rutenkolk Date: Thu, 10 Oct 2024 15:59:28 +0200 Subject: [PATCH] remove namespaced references --- src/clj/coffi/mem.clj | 82 ++++++++++++++++++++++--------------------- 1 file changed, 42 insertions(+), 40 deletions(-) diff --git a/src/clj/coffi/mem.clj b/src/clj/coffi/mem.clj index 99b1cda..906b85c 100644 --- a/src/clj/coffi/mem.clj +++ b/src/clj/coffi/mem.clj @@ -664,16 +664,16 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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/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/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 "Writes a [[short]] array to the `segment`, at an optional `offset`. @@ -684,24 +684,24 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 "Writes a [[int]] array to the `segment`, at an optional `offset`. @@ -712,26 +712,26 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 "Writes a [[long]] array to the `segment`, at an optional `offset`. @@ -742,26 +742,26 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 @@ -773,24 +773,24 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 "Writes a [[float]] array to the `segment`, at an optional `offset`. @@ -801,26 +801,26 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 "Writes a [[double]] array to the `segment`, at an optional `offset`. @@ -831,26 +831,26 @@ ([segment value] `(let [segment# ~segment 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] `(let [segment# ~segment offset# ~offset 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] `(let [segment# ~segment offset# ~offset byte-order# ~byte-order 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/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/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/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 "Gets a type dispatch value from a (potentially composite) type." @@ -1545,3 +1545,5 @@ (s/fdef defalias :args (s/cat :new-type qualified-keyword? :aliased-type any?)) + +