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

js-impl now records just the paths in the implementation; compile time is when we suck the content into the file

Browse Source
This commit is contained in:
Danny Yoo 2011-09-05 12:01:17 -04:00
parent 69fe79c57a
commit 58fc1b400a
4 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
js-assembler/package.rkt
View File

@ -15,6 +15,8 @@
racket/promise
racket/set
racket/path
racket/string
racket/port
(prefix-in query: "../lang/js/query.rkt")
(prefix-in resource-query: "../resource/query.rkt")
(planet dyoo/closure-compile:1:1)
@ -138,10 +140,15 @@
[(MainModuleSource? src)
(get-javascript-implementation (MainModuleSource-source src))]
[(ModuleSource? src)
(let ([name (rewrite-path (ModuleSource-path src))]
[text (query:query `(file ,(path->string (ModuleSource-path src))))]
[module-requires (query:lookup-module-requires (ModuleSource-path src))]
[bytecode (parse-bytecode (ModuleSource-path src))])
(let* ([name (rewrite-path (ModuleSource-path src))]
[paths (query:query `(file ,(path->string (ModuleSource-path src))))]
[text (string-join
(map (lambda (p)
(call-with-input-file p port->string))
paths)
"\n")]
[module-requires (query:lookup-module-requires (ModuleSource-path src))]
[bytecode (parse-bytecode (ModuleSource-path src))])
(when (not (empty? module-requires))
(log-debug "~a requires ~a"
(ModuleSource-path src)

10
lang/js/js.rkt
View File

@ -12,9 +12,9 @@
(resolve-module-path a-module-path #f)))
(define-for-syntax (read-implementation a-module-path)
(define-for-syntax (resolve-implementation-path a-module-path)
(let ([a-path (my-resolve-path a-module-path)])
(file->string a-path)))
(path->string a-path)))
(define-syntax (declare-implementation stx)
@ -26,10 +26,8 @@
([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")]
(map (compose resolve-implementation-path syntax-e)
(syntax->list #'(javascript-module-name ...)))]
[(internal-name ...) (generate-temporaries #'(provided-name ...))])
(syntax/loc stx
(begin

2
lang/js/query.rkt
View File

@ -5,7 +5,7 @@
syntax/modresolve)
(provide/contract [query (module-path? . -> . string?)]
(provide/contract [query (module-path? . -> . (listof string?))]
[has-javascript-implementation? (module-path? . -> . boolean?)]
[redirected? (path? . -> . boolean?)]

11
web-world/js-impl.js
View File

@ -465,6 +465,11 @@
var parseStringAsHtml = function(str) {
var dom = $("<html/>").append($(str));
return dom;
};
// coerseToView: (U resource View) -> View
// Coerse a value into a view.
@ -474,7 +479,7 @@
return onSuccess(x);
} else if (isResource(x)) {
try {
dom = $("<html/>").append($(resourceContent(x).toString()))
dom = parseStringAsHtml(resourceContent(x).toString())
.css("margin", "0px")
.css("padding", "0px")
.css("border", "0px");
@ -502,7 +507,7 @@
return onSuccess(x);
} else if (isResource(x)) {
try {
dom = $("<html/>").append($(resourceContent(x).toString()))
dom = parseStringAsHtml(resourceContent(x).toString())
.css("margin", "0px")
.css("padding", "0px")
.css("border", "0px");
@ -534,7 +539,7 @@
return onSuccess(x);
} else if (isResource(x)) {
try {
dom = $(resourceContent(x).toString())
dom = parseStringAsHtml(resourceContent(x).toString())
.css("margin", "0px")
.css("padding", "0px")
.css("border", "0px");