Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing Kawa

This commit is contained in:
retropikzel 2025-07-26 14:37:17 +03:00
parent 37e8ba070a
commit 708ab89d28
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
foreign/c/primitives/kawa.scm
View File

@ -10,19 +10,12 @@
((equal? type 'int8) ((equal? type 'int8)
(java.lang.Integer value)) (java.lang.Integer value))
((equal? type 'uint8) ((equal? type 'uint8)
(java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum))) (java.lang.Integer value))
((equal? type 'short) ((equal? type 'short)
(java.lang.Short value)) (java.lang.Short value))
((equal? type 'unsigned-short) ((equal? type 'unsigned-short)
(java.lang.Short value)) (java.lang.Short value))
((equal? type 'int) ((equal? type 'int)
(display "VALUE HERE: ")
(write value)
(newline)
(write type)
(newline)
(write (invoke (invoke value 'getClass) 'getName))
(newline)
(java.lang.Integer value)) (java.lang.Integer value))
((equal? type 'unsigned-int) ((equal? type 'unsigned-int)
(java.lang.Integer value)) (java.lang.Integer value))
@ -41,7 +34,7 @@
(define type->native-type (define type->native-type
(lambda (type) (lambda (type)
(cond (cond
((equal? type 'int8) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_BYTE) 'withByteAlignment 1)) ((equal? type 'int8) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) 'withByteAlignment 1))
((equal? type 'uint8) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_BYTE) 'withByteAlignment 1)) ((equal? type 'uint8) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_BYTE) 'withByteAlignment 1))
((equal? type 'int16) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) 'withByteAlignment 2)) ((equal? type 'int16) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) 'withByteAlignment 2))
((equal? type 'uint16) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) 'withByteAlignment 2)) ((equal? type 'uint16) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) 'withByteAlignment 2))
@ -179,10 +172,21 @@
(define c-bytevector-u8-ref (define c-bytevector-u8-ref
(lambda (c-bytevector k) (lambda (c-bytevector k)
(invoke (invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE) (display "HERE:")
'get (display (invoke (invoke (invoke (invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE)
u8-value-layout 'get
k))) u8-value-layout
k)
'getClass)
'getName))
(newline)
(invoke
(invoke
(invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE)
'get
u8-value-layout
k)
'intValue)))
(define pointer-value-layout (define pointer-value-layout
(invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS) (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS)