44 lines
1.1 KiB
Scheme
44 lines
1.1 KiB
Scheme
(define-library
|
|
(foreign c-mit-scheme)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme char)
|
|
(scheme file)
|
|
(scheme inexact)
|
|
;(scheme load)
|
|
(scheme process-context)
|
|
;(only (mit legacy runtime) load-option all-packages)
|
|
(only (mit legacy runtime)
|
|
load
|
|
load-option
|
|
->pathname
|
|
dld-load-file
|
|
call-alien
|
|
;compile-file
|
|
make-alien-function
|
|
;generate-shim
|
|
)
|
|
)
|
|
(export hello)
|
|
#;(begin
|
|
;(declare (usual-integrations))
|
|
|
|
;(C-include "mit-scheme-foreign-c")
|
|
|
|
(define (hello)
|
|
;(puts "Hello from puts")
|
|
(display "Not from puts")
|
|
(newline)
|
|
))
|
|
;(C-call "puts" "Hello world")
|
|
;(include "c/internal.scm")
|
|
(include "c/primitives/mit-scheme.scm")
|
|
;(include "c/c-types.scm")
|
|
;(include "c/main.scm")
|
|
;(include "c/libc.scm")
|
|
;(include "c/c-bytevectors.scm")
|
|
;(include "c/pointer.scm")
|
|
;(include "c/array.scm")
|
|
;(include "c/struct.scm")
|
|
)
|