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 (define value->object
(lambda (value type) (lambda (value type)
(display "VALUE HERE: ")
(write value)
(newline)
(write type)
(newline)
(write (invoke (invoke value 'getClass) 'getName))
(newline)
(cond ((equal? type 'byte) (cond ((equal? type 'byte)
(java.lang.Byte value)) (java.lang.Byte value))
((equal? type 'uint8) ((equal? type 'uint8)
(display "VALUE HERE: ")
(display (invoke (java.lang.Integer value) 'toBinaryString value))
(newline)
(java.lang.Int value)) (java.lang.Int 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: ")
(display (invoke (java.lang.Integer value) 'toBinaryString value))
(newline)
(java.lang.Integer value)) (java.lang.Integer value))
((equal? type 'unsigned-int) ((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)) (java.lang.Integer value))
((equal? type 'long) ((equal? type 'long)
(java.lang.Long value)) (java.lang.Long value))