22 lines
552 B
Scheme
22 lines
552 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(scheme eval)
|
|
(retropikzel r7rs-pffi version main))
|
|
|
|
(define libc
|
|
(if (string=? pffi-os-name "windows")
|
|
(pffi-shared-object-auto-load (list "stdio.h") (list) "ucrtbase" (list ""))
|
|
(pffi-shared-object-auto-load (list "stdio.h") (list) "c" (list "" ".6"))))
|
|
|
|
(pffi-define puts libc 'puts 'int (list 'pointer))
|
|
|
|
(display "=================")
|
|
(newline)
|
|
|
|
(puts (pffi-string->pointer "This is from C"))
|
|
|
|
(newline)
|
|
(display "=================")
|
|
(newline)
|