suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cleaning up code

Browse Source
This commit is contained in:
Danny Yoo 2011-05-27 15:23:00 -04:00
parent 6028c19f80
commit 71d8854084
1 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
js-assembler/package.rkt
View File

@ -73,16 +73,7 @@
(define (package-standalone-xhtml source-code op)
(display *header* op)
(display (quote-cdata (get-runtime)) op)
(let ([buffer (open-output-string)])
(package source-code
#:should-follow? (lambda (p) #t)
#:output-port buffer)
(display (quote-cdata (get-output-string buffer))
op))
;; FIXME: Finally, invoke the main module.
(display (quote-cdata *invoke-main-module-text*) op)
(display (quote-cdata (get-code source-code)) op)
(display *footer* op))
@ -97,22 +88,23 @@
<title>Example</title>
</head>
<script>
EOF
)
(define (get-code source-code)
(let ([buffer (open-output-string)])
(package source-code
#:should-follow? (lambda (p) #t)
#:output-port buffer)
(get-output-string buffer)))
(define *footer*
#<<EOF
</script>
<body onload='invokeMainModule()'>
</body>
</html>
EOF
)
(define *invoke-main-module-text*
#<<EOF
<![CDATA[
var invokeMainModule = function() {
var MACHINE = new plt.runtime.Machine();
invoke(MACHINE,
@ -136,5 +128,11 @@ var invokeMainModule = function() {
},
{});
};
$(document).ready(invokeMainModule);
]]>
</script>
<body></body>
</html>
EOF
)