0. #lang racket/base
1.  
2. (provide compile-c-module
3.          from-c)
4.  
5. (require racket/file
6.          dynext/file
7.          dynext/compile
8.          dynext/link
9.          (for-syntax racket/base
10.                      racket/set
11.                      syntax/parse
12.                      racket/require-transform
13.                      racket/file
14.                      dynext/file
15.                      dynext/compile
16.                      dynext/link))
17.  
18. (define-syntax-rule (define-for-syntax-and-runtime f ...)
19.   (begin (define f ...)
20.          (define-for-syntax f ...)))
21.  
22. (define-for-syntax-and-runtime (compile-c-module c-source)
23.   (define extensionless-source (path-replace-suffix c-source ""))
24.   (define object-target-path
25.     (build-path "compiled" "native" (system-library-subpath)))
26.   (define object-target
27.     (build-path object-target-path (append-object-suffix extensionless-source)))
28.   (define shared-object-target
29.     (build-path object-target-path (append-extension-suffix extensionless-source)))
30.   (make-directory* object-target-path)
31.   (compile-extension #t c-source object-target '())
32.   (link-extension #t (list object-target) shared-object-target))
33.  
34. (define-for-syntax linked-files (mutable-set))
35.  
36. (define-syntax from-c
37.   (make-require-transformer
38.    (lambda (stx)
39.      (syntax-parse stx
40.        [(_ c-source:str)
41.         (define f (syntax-e #'c-source))
42.         (define complete-file (path->complete-path (string->path f)))
43.         (when (set-member? linked-files complete-file)
44.           (raise-user-error 'from-c
45.                             "Cannot load ~a more then once, please restart Racket"
46.                             f))
47.         (set-add! linked-files complete-file)
48.         (compile-c-module f)
49.         (expand-import (datum->syntax stx (path->string (path-replace-suffix f ""))))]))))

=>