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

Move chicken 6 code to shared pointer->string and string->pointer implementation

This commit is contained in:
retropikzel 2025-03-15 07:01:56 +02:00
parent 4d24c23a5c
commit 38d2567800
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
retropikzel/pffi/chicken6.scm
View File

@ -152,11 +152,11 @@
(lambda () (lambda ()
(address->pointer 0))) (address->pointer 0)))
(pffi-define strncpy-ps #f 'strncpy 'pointer (list 'pointer 'pointer 'int)) ;(pffi-define strncpy-ps #f 'strncpy 'pointer (list 'pointer 'pointer 'int))
(pffi-define puts #f 'puts 'int (list 'pointer)) ;(pffi-define puts #f 'puts 'int (list 'pointer))
(pffi-define memset #f 'memset 'void (list 'pointer 'int 'int)) ;(pffi-define memset #f 'memset 'void (list 'pointer 'int 'int))
(define pffi-string->pointer #;(define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
(let* ((size (string-length string-content)) (let* ((size (string-length string-content))
(pointer (pffi-pointer-allocate (+ size 1)))) (pointer (pffi-pointer-allocate (+ size 1))))
@ -174,7 +174,7 @@
;(pffi-define strncpy-pp #f 'strncpy 'pointer (list 'pointer 'pointer 'int)) ;(pffi-define strncpy-pp #f 'strncpy 'pointer (list 'pointer 'pointer 'int))
;(pffi-define strlen #f 'strlen 'int (list 'pointer)) ;(pffi-define strlen #f 'strlen 'int (list 'pointer))
(define pffi-pointer->string #;(define pffi-pointer->string
(foreign-lambda* c-string (foreign-lambda* c-string
((c-pointer p)) ((c-pointer p))
"C_return((char*)p);")) "C_return((char*)p);"))