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

Minor sagittarius fixes

This commit is contained in:
retropikzel 2024-05-24 20:25:06 +03:00
parent 1a76cd85b7
commit 5abaab4ca1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -141,7 +141,7 @@ Arguments:
- scheme-name () The name of the procedure used on scheme side - scheme-name () The name of the procedure used on scheme side
- shared-object (object) The shared object - shared-object (object) The shared object
- Use pffi-shared-object-auto-load and pffi-shared-object-load to get this - Use pffi-shared-object-auto-load or pffi-shared-object-load to get this
- c-name (symbol) The name of the C function - c-name (symbol) The name of the C function
- return-type (symbol) The return type of the C function - return-type (symbol) The return type of the C function
- arguments-types (list (symbol) ...) The C function argument types - arguments-types (list (symbol) ...) The C function argument types

4
retropikzel/pffi/v0-2-0/sagittarius.scm
View File

@ -42,7 +42,7 @@
((equal? type 'float) 'float) ((equal? type 'float) 'float)
((equal? type 'double) 'double) ((equal? type 'double) 'double)
((equal? type 'pointer) 'void*) ((equal? type 'pointer) 'void*)
((equal? type 'string) 'void*) ((equal? type 'string) 'char*)
((equal? type 'void) 'void) ((equal? type 'void) 'void)
(else (error "pffi-type->native-type -- No such pffi type" type))))) (else (error "pffi-type->native-type -- No such pffi type" type)))))
@ -91,7 +91,7 @@
(define pffi-string->pointer (define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
(bytevector->pointer (string->utf8 (string-copy string-content))))) string-content))
(define pffi-pointer->string (define pffi-pointer->string
(lambda (pointer) (lambda (pointer)