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

Improving error messages

This commit is contained in:
retropikzel 2025-07-25 11:41:56 +03:00
parent 7fd6e8f34f
commit 38dd3b391f
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
foreign/c.sld
View File

@ -147,8 +147,7 @@
cpointer-data-set! cpointer-data-set!
cpointer-set! cpointer-set!
cpointer-ref cpointer-ref
void? void?))
c-strlen))
(export ; calculate-struct-size-and-offsets (export ; calculate-struct-size-and-offsets
;struct-make ;struct-make
get-environment-variable get-environment-variable

14
foreign/c/pointer.scm
View File

@ -74,14 +74,12 @@
(lambda (bytevector-var) (lambda (bytevector-var)
(c-strlen bytevector-var))) (c-strlen bytevector-var)))
(define-syntax c-utf8->string (define c-utf8->string
(syntax-rules () (lambda (c-bytevector)
((_ c-bytevector) (when (c-null? c-bytevector)
(begin (error "Can not turn null pointer into string" c-bytevector))
(when (c-null? c-bytevector) (let ((size (c-strlen c-bytevector)))
(error "Can not turn null pointer into string" 'c-bytevector)) (utf8->string (c-bytevector->bytevector c-bytevector size)))))
(let ((size (c-strlen c-bytevector)))
(utf8->string (c-bytevector->bytevector c-bytevector size)))))))
(define string->c-utf8 (define string->c-utf8
(lambda (string-var) (lambda (string-var)