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

Allow non-native byte orders on primitives

Browse source
This commit is contained in:
Joshua Suskalo 2022-01-18 14:15:18 -06:00
parent 104db6b8fd
commit 7c62207613
1 changed files with 24 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -604,32 +604,44 @@
byte-layout)
(defmethod c-layout ::short
[_type]
short-layout)
[type]
(if (sequential? type)
(.withOrder short-layout (second type))
short-layout))
(defmethod c-layout ::int
[_type]
int-layout)
[type]
(if (sequential? type)
(.withOrder int-layout (second type))
int-layout))
(defmethod c-layout ::long
[_type]
long-layout)
[type]
(if (sequential? type)
(.withOrder long-layout (second type))
long-layout))
(defmethod c-layout ::long-long
[_type]
long-long-layout)
[type]
(if (sequential? type)
(.withOrder long-long-layout (second type))
long-long-layout))
(defmethod c-layout ::char
[_type]
char-layout)
(defmethod c-layout ::float
[_type]
float-layout)
[type]
(if (sequential? type)
(.withOrder float-layout (second type))
float-layout))
(defmethod c-layout ::double
[_type]
double-layout)
[type]
(if (sequential? type)
(.withOrder double-layout (second type))
double-layout))
(defmethod c-layout ::pointer
[_type]