racket-static/run.rkt

#lang racket/base

(require ffi/unsafe)

(displayln "hello world")

(void (for/list ([i (in-list '(1 2 3 4 5))]) (printf "loop: ~a\n" i)))

(define table (dynamic-require ''static-ffi 'table))
(displayln "ffi table")
(displayln table)

(define func (cast (cadr (car table)) _int64 (_fun -> _void)))

(displayln "calling")
(func)
(displayln "back")

; (error "meow meow")
initial commit 2020-10-13 08:37:53 +00:00			`#lang racket/base`

add demo of static binary ffi this adds a demo where the embedding C wrapper creates a new primitive module with an ffi table which can be accessed and used from the racket side to call functions, even when the runtime is hosted in a static binary 2020-10-14 22:17:24 +00:00			`(require ffi/unsafe)`

initial commit 2020-10-13 08:37:53 +00:00			`(displayln "hello world")`
add demo of static binary ffi this adds a demo where the embedding C wrapper creates a new primitive module with an ffi table which can be accessed and used from the racket side to call functions, even when the runtime is hosted in a static binary 2020-10-14 22:17:24 +00:00
			`(void (for/list ([i (in-list '(1 2 3 4 5))]) (printf "loop: ~a\n" i)))`

			`(define table (dynamic-require ''static-ffi 'table))`
			`(displayln "ffi table")`
			`(displayln table)`

			`(define func (cast (cadr (car table)) _int64 (_fun -> _void)))`

			`(displayln "calling")`
			`(func)`
			`(displayln "back")`
install top level error escape handler 2020-10-15 02:18:35 +00:00
			`; (error "meow meow")`