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

trying to make globalbuckets work.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-03 15:15:05 -07:00
parent 920f7cf85f
commit cd5e6ee180
6 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
whalesong/compiler/compiler.rkt
View File

@ -448,7 +448,9 @@
(make-EnvPrefixReference (ToplevelRef-depth exp)
(ToplevelRef-pos exp)
#t))])]
[else
[(or (eq? prefix-element #f)
(symbol? prefix-element)
(GlobalBucket? prefix-element))
(append-instruction-sequences
(if (ToplevelRef-check-defined? exp)
(make-Perform (make-CheckToplevelBound!
@ -485,7 +487,9 @@
(ToplevelSet-pos exp)
#t)
next-linkage/expects-single)]
[else
[(or (eq? prefix-element #f)
(symbol? prefix-element)
(GlobalBucket? prefix-element))
(compile (ToplevelSet-value exp)
cenv
(make-EnvPrefixReference (ToplevelSet-depth exp)

4
whalesong/js-assembler/assemble-perform-statement.rkt
View File

@ -41,9 +41,7 @@
[(eq? n #f)
"false"]
[(GlobalBucket? n)
;; FIXME: maybe we should keep a set of global variables here?
(format "M.primitives[~s]"
(symbol->string (GlobalBucket-name n)))]
(format "M.globals[~s]" (symbol->string (GlobalBucket-name n)))]
;; FIXME: this should be looking at the module path and getting
;; the value here! It shouldn't be looking into Primitives...
[(ModuleVariable? n)

8
whalesong/js-assembler/package.rkt
View File

@ -460,20 +460,20 @@ M.modules[~s] =
(display bytes op))]
[(cacheable? path)
(define string-op (open-output-bytes))
(assemble/write-invoke (my-force stmts) #t string-op)
(assemble/write-invoke (my-force stmts) string-op 'no-trampoline)
(save-in-cache! path (get-output-bytes string-op))
(display (get-output-string string-op) op)]
[else
(assemble/write-invoke (my-force stmts) #t op)])]
(assemble/write-invoke (my-force stmts) op 'no-trampoline)])]
[else
(assemble/write-invoke (my-force stmts) #t op)]))
(assemble/write-invoke (my-force stmts) op 'no-trampoline)]))
(cond
[(ModuleSource? src)
(on-path (ModuleSource-path src))]
[(MainModuleSource? src)
(on-path (MainModuleSource-path src))]
[else
(assemble/write-invoke (my-force stmts) #f op)]))
(assemble/write-invoke (my-force stmts) op 'without-preemption)]))
;; cached?: path -> (U false bytes)

1
whalesong/js-assembler/runtime-src/runtime.js
View File

@ -310,6 +310,7 @@
};
this.globals = {};
this.primitives = Primitives;
this.exclusiveLock = new ExclusiveLock();
};

0
whalesong/repl-compile.rkt → whalesong/repl-prototype/repl-compile.rkt
View File

6
whalesong/repl-prototype/server.rkt
View File

@ -2,7 +2,8 @@
(require json
(require "repl-compile.rkt"
json
file/gzip
racket/runtime-path
racket/port
@ -12,7 +13,6 @@
web-server/servlet
"../make/make-structs.rkt"
"../js-assembler/package.rkt"
"../repl-compile.rkt"
"../parser/parse-bytecode.rkt"
"../compiler/compiler.rkt"
"../compiler/expression-structs.rkt"
@ -98,7 +98,7 @@
;(write-repl-runtime-files)
(write-repl-runtime-files)
(serve/servlet start
#:servlet-path "/compile"
#:extra-files-paths (list htdocs)