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

need to make quite a few changes to get repl to work.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-26 18:09:26 -07:00
parent a5fb4e26d0
commit ce653948cc
5 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -399,10 +399,11 @@ M.modules[~s] =
window.console.log('loaded ' + ~s); window.console.log('loaded ' + ~s);
} }
}, },
function(err) { function(M, err) {
if (window.console && window.console.log) { if (window.console && window.console.log) {
window.console.log('error: unable to load ' + ~s); window.console.log('error: unable to load ' + ~s);
} if (err && err.stack) { console.log(err.stack); }
}
}, },
{});" {});"
(format "~a" (source-name src)) (format "~a" (source-name src))

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

@ -1229,6 +1229,7 @@
exports['raiseOperatorApplicationError'] = raiseOperatorApplicationError; exports['raiseOperatorApplicationError'] = raiseOperatorApplicationError;
exports['raiseOperatorIsNotPrimitiveProcedure'] = raiseOperatorIsNotPrimitiveProcedure; exports['raiseOperatorIsNotPrimitiveProcedure'] = raiseOperatorIsNotPrimitiveProcedure;
exports['raiseUnimplementedPrimitiveError'] = raiseUnimplementedPrimitiveError; exports['raiseUnimplementedPrimitiveError'] = raiseUnimplementedPrimitiveError;
exports['raiseModuleLoadingError'] = raiseModuleLoadingError;
exports['finalizeClosureCall'] = finalizeClosureCall; exports['finalizeClosureCall'] = finalizeClosureCall;

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

@ -8,6 +8,8 @@
<body> <body>
<h1>Repl experiment</h1> <h1>Repl experiment</h1>
<div id="output"></div>
<br/>
<input id="repl" type="text" style="width:500px"></input> <input id="repl" type="text" style="width:500px"></input>
</body> </body>
</html> </html>

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

@ -1,10 +1,12 @@
var COMPILED = [];
$(document).ready(function() { $(document).ready(function() {
"use strict"; "use strict";
var repl = $("#repl");
// Hook up a simple one-line REPL with enter triggering evaluation. // Hook up a simple one-line REPL with enter triggering evaluation.
$("#repl").keypress(function(e) { $("#repl").keypress(function(e) {
if (e.which == 13) { if (e.which == 13 && !repl.attr('disabled')) {
var repl = $(this);
var src = repl.val(); var src = repl.val();
$(this).val(""); $(this).val("");
repl.attr('disabled', 'true'); repl.attr('disabled', 'true');
@ -19,9 +21,13 @@ $(document).ready(function() {
console.log("about to eval", src); console.log("about to eval", src);
var onCompile = function(compiledResult) { var onCompile = function(compiledResult) {
console.log("compilation got", compiledResult); console.log("compilation got", compiledResult);
COMPILED.push(compiledResult);
eval(compiledResult.compiled);
// FIXME
plt.runtime.currentMachine.modules['whalesong/repl-prototype/anonymous-module.rkt'].invoke();
after(); after();
}; };
var onError = function(x) { var onError = function(err) {
console.log("error", err); console.log("error", err);
after(); after();
}; };

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

@ -6,8 +6,11 @@
file/gzip file/gzip
racket/runtime-path racket/runtime-path
racket/port racket/port
racket/match
web-server/servlet-env web-server/servlet-env
web-server/servlet web-server/servlet
"../make/make-structs.rkt"
"../js-assembler/package.rkt"
"write-runtime.rkt" "write-runtime.rkt"
(for-syntax racket/base)) (for-syntax racket/base))
@ -40,13 +43,26 @@
(define (start req) (define (start req)
(define-values (response op) (define-values (response op)
(make-port-response #:mime-type #"text/json")) (make-port-response #:mime-type #"text/json"))
(define source (extract-binding/single 'src (request-bindings req))) (define text-src (extract-binding/single 'src (request-bindings req)))
(define as-mod? (match (extract-bindings 'm (request-bindings req))
(printf "program is: ~s\n" source) [(list (or "t" "true"))
#t]
[else #f]))
;; Compile the program here... ;; Compile the program here...
(define program-port (open-output-string))
(cond #;[(not as-mod?)
...]
[else
(package (SexpSource (parameterize ([read-accept-reader #t])
(read (open-input-string (string-append "#lang whalesong\n" text-src)))))
#:should-follow-children? (lambda (src) #f)
#:output-port program-port)
])
;; Send it back as json text.... ;; Send it back as json text....
(write-json '(1 2 3) op) (write-json (hash 'compiled (get-output-string program-port))
op)
(close-output-port op) (close-output-port op)
(printf "done\n")
response) response)