32 lines
1023 B
Scheme
32 lines
1023 B
Scheme
|
|
(module embed mzscheme
|
|
(require (lib "unitsig.ss")
|
|
(lib "contract.ss"))
|
|
|
|
(require "sig.ss")
|
|
|
|
(require "embed-unit.ss"
|
|
"embed-sig.ss")
|
|
|
|
(define-values/invoke-unit/sig compiler:embed^
|
|
compiler:embed@
|
|
#f)
|
|
|
|
(provide/contract [make-embedding-executable
|
|
(opt-> (path-string?
|
|
any/c
|
|
any/c
|
|
(listof (list/c (union boolean? symbol?) any/c))
|
|
(listof path-string?)
|
|
any/c
|
|
(listof string?))
|
|
((listof (cons/c symbol? any/c))
|
|
any/c
|
|
symbol?)
|
|
void?)])
|
|
(provide write-module-bundle
|
|
embedding-executable-is-directory?
|
|
embedding-executable-put-file-extension+style+filters
|
|
embedding-executable-add-suffix))
|
|
|