haskal
/
racket-static
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
racket-static/run.rkt

28 lines
528 B
Racket
Raw Normal View History

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")
committing ELF crimes (part 1) make a dynamic binary that works under both glibc and musl (given you invoke ld.so directly and create a fake musl libc pointing to glibc)
2020-10-17 03:33:50 +00:00
(module gui-test racket/gui
(provide run-test)
(define (run-test)
(message-box "hello" "hello world")))
(require (submod "." gui-test))
(run-test)