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

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

@ -8,16 +8,27 @@
(cond ((equal? type 'byte)
(java.lang.Byte value))
((equal? type 'uint8)
(gnu.math.UnsignedPrim value)
;(java.lang.Int value)
)
(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))