130 lines
3.6 KiB
Racket
130 lines
3.6 KiB
Racket
#lang racket/base
|
|
|
|
(require "assemble.rkt"
|
|
"quote-cdata.rkt"
|
|
"../make.rkt"
|
|
"../make-structs.rkt"
|
|
"get-runtime.rkt"
|
|
(prefix-in racket: racket/base))
|
|
|
|
|
|
|
|
(provide package
|
|
package-anonymous
|
|
package-standalone-xhtml)
|
|
|
|
;; Packager: produce single .js files to be included to execute a
|
|
;; program. Follows module dependencies.
|
|
|
|
|
|
|
|
(define (package-anonymous source-code
|
|
#:should-follow? should-follow?
|
|
#:output-port op)
|
|
(fprintf op "(function() {\n")
|
|
(package source-code
|
|
#:should-follow? should-follow?
|
|
#:output-port op)
|
|
(fprintf op " return invoke; })\n"))
|
|
|
|
|
|
|
|
|
|
;; package: Source (path -> boolean) output-port -> void
|
|
|
|
;; Compile package for the given source program. should-follow?
|
|
;; indicates whether we should continue following module paths.
|
|
;;
|
|
;; The generated output defines a function called 'invoke' with
|
|
;; four arguments (MACHINE, SUCCESS, FAIL, PARAMS). When called, it'll
|
|
;; execute the code to either run standalone expressions or
|
|
;; load in modules.
|
|
(define (package source-code
|
|
#:should-follow? should-follow?
|
|
#:output-port op)
|
|
(define packaging-configuration
|
|
(make-Configuration
|
|
|
|
should-follow?
|
|
|
|
;; on
|
|
(lambda (ast stmts)
|
|
(assemble/write-invoke stmts op)
|
|
(fprintf op "(MACHINE, function() { "))
|
|
|
|
;; after
|
|
(lambda (ast stmts)
|
|
(fprintf op " }, FAIL, PARAMS);"))
|
|
|
|
;; last
|
|
(lambda ()
|
|
(fprintf op "SUCCESS();"))))
|
|
|
|
|
|
(fprintf op "var invoke = (function(MACHINE, SUCCESS, FAIL, PARAMS) {")
|
|
(make (cons only-bootstrapped-code
|
|
(list (make-MainModuleSource source-code)))
|
|
packaging-configuration)
|
|
(fprintf op "});\n"))
|
|
|
|
|
|
|
|
|
|
;; package-standalone-xhtml: X output-port -> void
|
|
(define (package-standalone-xhtml source-code op)
|
|
(fprintf op #<<EOF
|
|
<!DOCTYPE html>
|
|
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
|
<head>
|
|
<meta charset="utf-8"/>
|
|
<title>Example</title>
|
|
</head>
|
|
<script>
|
|
EOF
|
|
)
|
|
(display (quote-as-cdata (get-runtime)) op)
|
|
(let ([buffer (open-output-string)])
|
|
(package source-code
|
|
#:should-follow? (lambda (p) #t)
|
|
#:output-port buffer)
|
|
(write-string (quote-as-cdata (get-output-string buffer))
|
|
op))
|
|
|
|
|
|
;; FIXME: Finally, invoke the main module.
|
|
(display (quote-as-cdata #<<EOF
|
|
|
|
var invokeMainModule = function() {
|
|
var MACHINE = new plt.runtime.Machine();
|
|
invoke(MACHINE,
|
|
function() {
|
|
MACHINE.modules['*main*'].invoke(
|
|
MACHINE,
|
|
function() {
|
|
// On main module invokation success
|
|
},
|
|
function(MACHINE, e) {
|
|
// On main module invokation failure
|
|
if (console && console.log) {
|
|
console.log(e.stack || e);
|
|
}
|
|
})},
|
|
function() {
|
|
// On module loading failure
|
|
if (console && console.log) {
|
|
console.log(e.stack || e);
|
|
}
|
|
},
|
|
{
|
|
currentDisplayer : function(v) {
|
|
document.body.appendChild(
|
|
document.createTextNode(String(v)));
|
|
document.body.appendChild(
|
|
document.createElement("br"));
|
|
}
|
|
});
|
|
};
|
|
EOF
|
|
) op)
|
|
(display " </script>\n<body onload='invokeMainModule()'>\n</body>\n</html>" op))
|