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:27:57 +03:00
parent a5eda8008d
commit b4c6497af0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,6 +10,12 @@
((equal? type 'int8) ((equal? type 'int8)
(java.lang.Integer value)) (java.lang.Integer value))
((equal? type 'uint8) ((equal? type 'uint8)
(java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum)))
((equal? type 'short)
(java.lang.Short value))
((equal? type 'unsigned-short)
(java.lang.Short value))
((equal? type 'int)
(display "VALUE HERE: ") (display "VALUE HERE: ")
(write value) (write value)
(newline) (newline)
@ -17,12 +23,6 @@
(newline) (newline)
(write (invoke (invoke value 'getClass) 'getName)) (write (invoke (invoke value 'getClass) 'getName))
(newline) (newline)
(java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum)))
((equal? type 'short)
(java.lang.Short value))
((equal? type 'unsigned-short)
(java.lang.Short value))
((equal? type 'int)
(java.lang.Integer value)) (java.lang.Integer value))
((equal? type 'unsigned-int) ((equal? type 'unsigned-int)
(java.lang.Integer value)) (java.lang.Integer value))