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

making the repl use the wescheme language

Browse Source
This commit is contained in:
Danny Yoo 2013-03-04 13:00:22 -07:00
parent f55c15e0d7
commit 57034cf5a5
5 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
whalesong/repl-prototype/htdocs/index.html
View File

@ -2,7 +2,7 @@
<html>
<head>
<script src="collects/runtime.js"></script>
<script src="collects/whalesong-lang.js"></script>
<script src="collects/library.js"></script>
<script src="repl.js"></script>
</head>
<body>

2
whalesong/repl-prototype/htdocs/repl.js
View File

@ -19,7 +19,7 @@ $(document).ready(function() {
// We then want to initialize the language module.
var initializeLanguage = function(afterLanguageInitialization) {
// Load up the language.
M.modules['whalesong/lang/whalesong.rkt'].invoke(
M.modules['whalesong/wescheme/lang/semantics.rkt'].invoke(
M,
function() {
console.log("Environment initialized.");

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

@ -26,6 +26,10 @@
(define-runtime-path htdocs (build-path "htdocs"))
(define language 'whalesong/wescheme/lang/semantics)
;; make-port-response: (values response/incremental output-port)
;; Creates a response that's coupled to an output-port: whatever you
;; write into the output will be pushed into the response.
@ -69,7 +73,7 @@
(cond [(eof-object? sexp)
'()]
[else
(define raw-bytecode (repl-compile sexp #:lang 'whalesong/lang/whalesong))
(define raw-bytecode (repl-compile sexp #:lang language))
(define op (open-output-bytes))
(write raw-bytecode op)
(define whalesong-bytecode (parse-bytecode (open-input-bytes (get-output-bytes op))))

7
whalesong/repl-prototype/write-runtime.rkt
View File

@ -11,7 +11,8 @@
(provide write-repl-runtime-files)
(define-runtime-path collects-path (build-path "htdocs" "collects"))
(define-runtime-path whalesong-lang (build-path "../lang/whalesong.rkt"))
(define-runtime-path language-path
(build-path "../wescheme/lang/semantics.rkt"))
@ -50,10 +51,10 @@
(display (get-runtime) op))
#:exists 'replace)
(call-with-output-file* (make-output-js-filename 'whalesong-lang)
(call-with-output-file* (make-output-js-filename 'library)
(lambda (op)
(display (get-inert-code (make-ModuleSource
(normalize-path whalesong-lang))
(normalize-path language-path))
make-output-js-filename)
op))
#:exists 'replace)

4
whalesong/wescheme/lang/semantics.rkt
View File

@ -1,7 +1,9 @@
#lang whalesong
(require whalesong/image
whalesong/world
whalesong/lang/whalesong)
(provide (all-from-out whalesong/lang/whalesong)
(all-from-out whalesong/image))
(all-from-out whalesong/image)
(all-from-out whalesong/world))