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

using the name for the source.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-18 12:09:10 -06:00
parent 4b84eda6f4
commit 6a393c1fdb
3 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,9 @@ jQuery(document).ready(function() {
// The machine. // The machine.
var M; var M;
var interactionsCount = 0;
var sendOutputToBottom = function() { var sendOutputToBottom = function() {
output.get(0).scrollTop = output.get(0).scrollHeight; output.get(0).scrollTop = output.get(0).scrollHeight;
}; };
@ -206,7 +209,9 @@ jQuery(document).ready(function() {
writeErrorMessage("internal server error"); writeErrorMessage("internal server error");
after(); after();
}; };
xhr.replCompile(src, onCompile, onServerError); xhr.replCompile("<interactions" + interactionsCount + ">",
src, onCompile, onServerError);
interactionsCount = interactionsCount + 1;
}; };

5
whalesong/repl-prototype/htdocs/rpc.js
View File

@ -1,7 +1,7 @@
(function () { (function () {
"use strict"; "use strict";
var url = "/compile"; var url = "/compile";
var replCompile = function(code, onDone, onDoneError) { var replCompile = function(name, code, onDone, onDoneError) {
jQuery.ajax({ 'url': url, jQuery.ajax({ 'url': url,
'cache': false, 'cache': false,
'success': function(data, textStatus, jqXHR) { 'success': function(data, textStatus, jqXHR) {
@ -10,7 +10,8 @@
'error': function(jqXHR, textStatus, errorThrown) { 'error': function(jqXHR, textStatus, errorThrown) {
onDoneError(errorThrown); onDoneError(errorThrown);
}, },
'data': {'src' : code }, 'data': {'name' : name,
'src' : code },
'dataType': 'json' 'dataType': 'json'
}); });
}; };

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

@ -64,6 +64,9 @@
(define (start req) (define (start req)
(define-values (response op) (define-values (response op)
(make-port-response #:mime-type #"text/json" #:with-cors? #t)) (make-port-response #:mime-type #"text/json" #:with-cors? #t))
(define name (if (exists-binding? 'name (request-bindings req))
(extract-binding/single 'name (request-bindings req))
#f))
(define text-src (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)) (define as-mod? (match (extract-bindings 'm (request-bindings req))
[(list (or "t" "true")) [(list (or "t" "true"))
@ -79,7 +82,7 @@
(port-count-lines! ip) (port-count-lines! ip)
(define assembled-codes (define assembled-codes
(let loop () (let loop ()
(define sexp (read-syntax #f ip)) (define sexp (read-syntax name ip))
(cond [(eof-object? sexp) (cond [(eof-object? sexp)
'()] '()]
[else [else