18 lines
348 B
Racket
18 lines
348 B
Racket
#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")
|