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

All tests work now on Mosh. Callbacks do not pass.

This commit is contained in:
Retropikzel 2024-11-08 07:34:09 +00:00
parent f335b2ce4c
commit 6659b45712
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
retropikzel/r7rs-pffi/mosh.scm
View File

@ -129,7 +129,7 @@
((equal? type 'pointer) 'void*) ((equal? type 'pointer) 'void*)
((equal? type 'string) 'char*) ((equal? type 'string) 'char*)
((equal? type 'void) 'void) ((equal? type 'void) 'void)
((equal? type 'callback) 'callback) ((equal? type 'callback) 'void*)
(else (error "pffi-type->native-type -- No such pffi type" type))))) (else (error "pffi-type->native-type -- No such pffi type" type)))))
(define-syntax pffi-define (define-syntax pffi-define

5
test.scm
View File

@ -225,7 +225,6 @@
(pffi-pointer-free pointer-to-be-freed) (pffi-pointer-free pointer-to-be-freed)
(debug pointer-to-be-freed) (debug pointer-to-be-freed)
#|
;; pffi-pointer-set! and pffi-pointer-get 1/2 ;; pffi-pointer-set! and pffi-pointer-get 1/2
(print-header "pffi-pointer-set! and pffi-pointer-get 1/2") (print-header "pffi-pointer-set! and pffi-pointer-get 1/2")
@ -270,7 +269,6 @@
(debug (pffi-pointer-get set-pointer 'double offset)) (debug (pffi-pointer-get set-pointer 'double offset))
(assert = (pffi-pointer-get set-pointer 'double offset) 1.5) (assert = (pffi-pointer-get set-pointer 'double offset) 1.5)
|#
;; pffi-string->pointer ;; pffi-string->pointer
@ -323,7 +321,6 @@
(debug (pffi-pointer-get hello-string-pointer 'char 4)) (debug (pffi-pointer-get hello-string-pointer 'char 4))
(assert char=? (pffi-pointer-get hello-string-pointer 'char 4) #\o) (assert char=? (pffi-pointer-get hello-string-pointer 'char 4) #\o)
#|
;; pffi-pointer-set! and pffi-pointer-get 2/2 ;; pffi-pointer-set! and pffi-pointer-get 2/2
(print-header "pffi-pointer-set! and pffi-pointer-get 2/2") (print-header "pffi-pointer-set! and pffi-pointer-get 2/2")
@ -350,8 +347,6 @@
(pffi-pointer-set! set-pointer 'pointer offset (pffi-string->pointer string-to-be-set)) (pffi-pointer-set! set-pointer 'pointer offset (pffi-string->pointer string-to-be-set))
(assert string=? (pffi-pointer->string (pffi-pointer-get set-pointer 'pointer offset)) "FOOBAR") (assert string=? (pffi-pointer->string (pffi-pointer-get set-pointer 'pointer offset)) "FOOBAR")
|#
;; pffi-define ;; pffi-define
(print-header 'pffi-define) (print-header 'pffi-define)