Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renaming c-size-of typ c-type-size

This commit is contained in:
retropikzel 2025-06-03 19:04:26 +03:00
parent ee16934bac
commit 1b765a38cd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
README.md
View File

@ -83,7 +83,7 @@ to being portable by conforming to some specification.
### Primitives 1 table ### Primitives 1 table
| | c-size-of | c-bytevector-u8-set! |c-bytevector-u8-ref | define-c-library | c-bytevector? | define-c-procedure | | | c-type-size | c-bytevector-u8-set! |c-bytevector-u8-ref | define-c-library | c-bytevector? | define-c-procedure |
|------------------|:------------:|:--------------------:|:------------------:|:-------------------:|:-------------:|:-------------------:| |------------------|:------------:|:--------------------:|:------------------:|:-------------------:|:-------------:|:-------------------:|
| **Chibi** | X | X |X | X | X | X | | **Chibi** | X | X |X | X | X | X |
| **Chicken** | X | X |X | X | X | X | | **Chicken** | X | X |X | X | X | X |
@ -306,17 +306,17 @@ Example:
((< a b) -1))))) ((< a b) -1)))))
; Create new array of ints to be sorted ; Create new array of ints to be sorted
(define array (make-c-bytevector (* (c-size-of 'int) 3))) (define array (make-c-bytevector (* (c-type-size 'int) 3)))
(pffi-pointer-set! array 'int (* (c-size-of 'int) 0) 3) (pffi-pointer-set! array 'int (* (c-type-size 'int) 0) 3)
(pffi-pointer-set! array 'int (* (c-size-of 'int) 1) 2) (pffi-pointer-set! array 'int (* (c-type-size 'int) 1) 2)
(pffi-pointer-set! array 'int (* (c-size-of 'int) 2) 1) (pffi-pointer-set! array 'int (* (c-type-size 'int) 2) 1)
(display array) (display array)
(newline) (newline)
;> (3 2 1) ;> (3 2 1)
; Sort the array ; Sort the array
(qsort array 3 (c-size-of 'int) compare) (qsort array 3 (c-type-size 'int) compare)
(display array) (display array)
(newline) (newline)