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> <html>
<head> <head>
<script src="collects/runtime.js"></script> <script src="collects/runtime.js"></script>
<script src="collects/whalesong-lang.js"></script> <script src="collects/library.js"></script>
<script src="repl.js"></script> <script src="repl.js"></script>
</head> </head>
<body> <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. // We then want to initialize the language module.
var initializeLanguage = function(afterLanguageInitialization) { var initializeLanguage = function(afterLanguageInitialization) {
// Load up the language. // Load up the language.
M.modules['whalesong/lang/whalesong.rkt'].invoke( M.modules['whalesong/wescheme/lang/semantics.rkt'].invoke(
M, M,
function() { function() {
console.log("Environment initialized."); console.log("Environment initialized.");

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

@ -26,6 +26,10 @@
(define-runtime-path htdocs (build-path "htdocs")) (define-runtime-path htdocs (build-path "htdocs"))
(define language 'whalesong/wescheme/lang/semantics)
;; make-port-response: (values response/incremental output-port) ;; make-port-response: (values response/incremental output-port)
;; Creates a response that's coupled to an output-port: whatever you ;; Creates a response that's coupled to an output-port: whatever you
;; write into the output will be pushed into the response. ;; write into the output will be pushed into the response.
@ -69,7 +73,7 @@
(cond [(eof-object? sexp) (cond [(eof-object? sexp)
'()] '()]
[else [else
(define raw-bytecode (repl-compile sexp #:lang 'whalesong/lang/whalesong)) (define raw-bytecode (repl-compile sexp #:lang language))
(define op (open-output-bytes)) (define op (open-output-bytes))
(write raw-bytecode op) (write raw-bytecode op)
(define whalesong-bytecode (parse-bytecode (open-input-bytes (get-output-bytes 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) (provide write-repl-runtime-files)
(define-runtime-path collects-path (build-path "htdocs" "collects")) (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)) (display (get-runtime) op))
#:exists 'replace) #:exists 'replace)
(call-with-output-file* (make-output-js-filename 'whalesong-lang) (call-with-output-file* (make-output-js-filename 'library)
(lambda (op) (lambda (op)
(display (get-inert-code (make-ModuleSource (display (get-inert-code (make-ModuleSource
(normalize-path whalesong-lang)) (normalize-path language-path))
make-output-js-filename) make-output-js-filename)
op)) op))
#:exists 'replace) #:exists 'replace)

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

@ -1,7 +1,9 @@
#lang whalesong #lang whalesong
(require whalesong/image (require whalesong/image
whalesong/world
whalesong/lang/whalesong) whalesong/lang/whalesong)
(provide (all-from-out 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))