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:26:56 +03:00
parent e766d22562
commit a5eda8008d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,11 @@
(define value->object (define value->object
(lambda (value type) (lambda (value type)
(cond ((equal? type 'byte)
(java.lang.Byte value))
((equal? type 'int8)
(java.lang.Integer value))
((equal? type 'uint8)
(display "VALUE HERE: ") (display "VALUE HERE: ")
(write value) (write value)
(newline) (newline)
@ -12,11 +17,6 @@
(newline) (newline)
(write (invoke (invoke value 'getClass) 'getName)) (write (invoke (invoke value 'getClass) 'getName))
(newline) (newline)
(cond ((equal? type 'byte)
(java.lang.Byte value))
((equal? type 'int8)
(java.lang.Integer value))
((equal? type 'uint8)
(java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum))) (java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum)))
((equal? type 'short) ((equal? type 'short)
(java.lang.Short value)) (java.lang.Short value))