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) (cond ((equal? type 'byte)
(java.lang.Byte value)) (java.lang.Byte value))
((equal? type 'uint8) ((equal? type 'uint8)
(gnu.math.UnsignedPrim value) (display "VALUE HERE: ")
;(java.lang.Int value) (display (invoke (java.lang.Integer value) 'toBinaryString value))
) (newline)
(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))