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:13:26 +03:00
parent 712ee0941c
commit bd2dca3b17
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,30 +5,24 @@
(define value->object
(lambda (value type)
(display "VALUE HERE: ")
(write value)
(newline)
(write type)
(newline)
(write (invoke (invoke value 'getClass) 'getName))
(newline)
(cond ((equal? type 'byte)
(java.lang.Byte value))
((equal? type 'uint8)
(display "VALUE HERE: ")
(display (invoke (java.lang.Integer value) 'toBinaryString value))
(newline)
(java.lang.Int value))
((equal? type 'short)
(java.lang.Short value))
((equal? type 'unsigned-short)
(java.lang.Short value))
((equal? type 'int)
(display "VALUE HERE: ")
(display (invoke (java.lang.Integer value) 'toBinaryString value))
(newline)
(java.lang.Integer value))
((equal? type 'unsigned-int)
(display "VALUE HERE: ")
(display (invoke (java.lang.Integer value) 'toBinaryString value))
(newline)
(invoke (java.lang.Integer 1)
'parseInt
(invoke (java.lang.Integer value) 'toBinaryString value)
2)
(java.lang.Integer value))
((equal? type 'long)
(java.lang.Long value))