57 lines
2.2 KiB
Racket
57 lines
2.2 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 ...)
|
|
#:provided-values (provided-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")]
|
|
[(internal-name ...) (generate-temporaries #'(provided-name ...))])
|
|
(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))
|
|
;;(record-exported-name! key 'internal-name 'provided-name) ...
|
|
))
|
|
|
|
(require racket-module-name)
|
|
(define internal-name provided-name) ...
|
|
(provide (rename-out [internal-name provided-name] ...)))))]))
|
|
|
|
|
|
(provide declare-implementation
|
|
(rename-out [#%plain-module-begin #%module-begin])) |