52 lines
1.9 KiB
Racket
52 lines
1.9 KiB
Racket
#lang scheme/base
|
|
(require (for-syntax racket/base
|
|
racket/file
|
|
racket/string
|
|
syntax/parse
|
|
syntax/modresolve
|
|
"record.rkt"))
|
|
|
|
(define-for-syntax (my-resolve-path a-module-path)
|
|
(parameterize ([current-directory (or (current-load-relative-directory)
|
|
(current-directory))])
|
|
(resolve-module-path a-module-path #f)))
|
|
|
|
|
|
(define-for-syntax (read-implementation a-module-path)
|
|
(let ([a-path (my-resolve-path a-module-path)])
|
|
(file->string a-path)))
|
|
|
|
|
|
(define-syntax (declare-implementation stx)
|
|
(syntax-parse stx
|
|
[(_ #:racket racket-module-name
|
|
#:javascript (javascript-module-name ...))
|
|
(with-syntax
|
|
([resolved-racket-module-name
|
|
(my-resolve-path (syntax-e #'racket-module-name))]
|
|
[impl
|
|
(string-join
|
|
(map (compose read-implementation syntax-e)
|
|
(syntax->list #'(javascript-module-name ...)))
|
|
"\n")])
|
|
(syntax/loc stx
|
|
(begin
|
|
|
|
;; Compile-time code: record the Javascript implementation here.
|
|
;; Also, record that any references to the racket-module name
|
|
;; should be redirected to this module.
|
|
(begin-for-syntax
|
|
(let* ([this-module
|
|
(variable-reference->resolved-module-path
|
|
(#%variable-reference))]
|
|
[key (resolved-module-path-name this-module)])
|
|
(record-redirection! (#%datum . resolved-racket-module-name)
|
|
key)
|
|
(record-javascript-implementation! key (#%datum . impl))))
|
|
|
|
(require racket-module-name)
|
|
(provide (all-from-out racket-module-name)))))]))
|
|
|
|
|
|
(provide declare-implementation
|
|
(rename-out [#%plain-module-begin #%module-begin])) |