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

Bring in the shared pointer->string and string->pointer implementation

This commit is contained in:
retropikzel 2025-03-15 06:46:19 +02:00
parent a88d110c3d
commit 45be7ae8c6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
retropikzel/pffi/ypsilon.scm
View File

@ -53,13 +53,13 @@
(and (pffi-pointer? pointer) (and (pffi-pointer? pointer)
(= (pffi-pointer-address pointer) 0)))) (= (pffi-pointer-address pointer) 0))))
(define pffi-pointer->string #;(define pffi-pointer->string
(lambda (pointer) (lambda (pointer)
(c-string-ref pointer))) (c-string-ref pointer)))
(define c-memset(c-function int memset (void* int int))) ;(define c-memset(c-function int memset (void* int int)))
(define c-snprintf (c-function int snprintf (void* size_t void*) (long double))) ;(define c-snprintf (c-function int snprintf (void* size_t void*) (long double)))
(define pffi-string->pointer #;(define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
(let* ((c-string (make-c-string string-content)) (let* ((c-string (make-c-string string-content))
(c-string-length (bytevector-length c-string)) (c-string-length (bytevector-length c-string))