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

Renaming and restructuring the library

This commit is contained in:
retropikzel 2025-04-26 12:29:02 +03:00
parent 8d012a5ba2
commit 66d2cb9a0c
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c.sld
View File

@ -299,9 +299,7 @@
void) void)
(include "c/primitives/chicken.scm")) (include "c/primitives/chicken.scm"))
(chicken-6 (include-relative "c/primitives/chicken.scm")) (chicken-6 (include-relative "c/primitives/chicken.scm"))
(cyclone (export calculate-struct-size-and-offsets (cyclone (include "c/primitives/cyclone.scm"))
struct-make)
(include "c/primitives/cyclone.scm"))
(gambit (include "c/primitives/gambit.scm")) (gambit (include "c/primitives/gambit.scm"))
(gauche (include "c/primitives/gauche.scm")) (gauche (include "c/primitives/gauche.scm"))
(gerbil (include "c/primitives/gerbil.scm")) (gerbil (include "c/primitives/gerbil.scm"))

5
foreign/c/primitives/cyclone.scm
View File

@ -20,7 +20,7 @@
((equal? type 'double) double) ((equal? type 'double) double)
((equal? type 'pointer) opaque) ((equal? type 'pointer) opaque)
((equal? type 'void) c-void) ((equal? type 'void) c-void)
((equal? type 'struct) 'c-pointer) ((equal? type 'callback) opaque)
(else (error "pffi-type->native-type -- No such pffi type" type))))) (else (error "pffi-type->native-type -- No such pffi type" type)))))
(define c-bytevector? (define c-bytevector?
@ -52,6 +52,7 @@
((equal? type 'double) 'double) ((equal? type 'double) 'double)
((equal? type 'pointer) 'opaque) ((equal? type 'pointer) 'opaque)
((equal? type 'void) 'c-void) ((equal? type 'void) 'c-void)
((equal? type 'callback) 'opaque)
(else (error "pffi-type->native-type -- No such pffi type" type))))) (else (error "pffi-type->native-type -- No such pffi type" type)))))
(scheme-name (cadr expr)) (scheme-name (cadr expr))
(c-name (symbol->string (car (cdr (car (cdr (cdr (cdr expr)))))))) (c-name (symbol->string (car (cdr (car (cdr (cdr (cdr expr))))))))
@ -66,7 +67,7 @@
`(c-define ,scheme-name `(c-define ,scheme-name
,return-type ,c-name ,@argument-types)))))) ,return-type ,c-name ,@argument-types))))))
(define pffi-define-callback (define define-c-callback
(lambda (scheme-name return-type argument-types procedure) (lambda (scheme-name return-type argument-types procedure)
(error "pffi-define-callback not yet implemented on Cyclone"))) (error "pffi-define-callback not yet implemented on Cyclone")))