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

syntax errors caught.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-05 14:57:38 -06:00
parent 90851d27c6
commit 753e1d80f9
3 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,28 +140,32 @@
Repl.prototype.executeCompiledProgram = function(compiledResult,
onDoneSuccess, onDoneFail) {
var that = this;
// compiledResult.compiledCodes is an array of function chunks.
// The evaluation leaves the value register of the machine
// to contain the list of values from toplevel evaluation.
var compiledCodes = compiledResult.compiledCodes;
forEachK(compiledCodes,
function(code, k) {
// Indirect eval usage here is deliberate.
var codeFunction = (0,eval)(code);
var onGoodEvaluation = function() {
var resultList = that.M.v;
while(resultList !== plt.baselib.lists.EMPTY) {
print(that, resultList.first);
resultList = resultList.rest;
if (compiledResult.type === 'error') {
return onDoneFail(compiledResult);
} else {
// compiledResult.compiledCodes is an array of function chunks.
// The evaluation leaves the value register of the machine
// to contain the list of values from toplevel evaluation.
var compiledCodes = compiledResult.compiledCodes;
forEachK(compiledCodes,
function(code, k) {
// Indirect eval usage here is deliberate.
var codeFunction = (0,eval)(code);
var onGoodEvaluation = function() {
var resultList = that.M.v;
while(resultList !== plt.baselib.lists.EMPTY) {
print(that, resultList.first);
resultList = resultList.rest;
};
k();
};
k();
};
var onBadEvaluation = function(M, err) {
onDoneFail(err);
};
codeFunction(that.M, onGoodEvaluation, onBadEvaluation);
},
onDoneSuccess);
var onBadEvaluation = function(M, err) {
onDoneFail(err);
};
codeFunction(that.M, onGoodEvaluation, onBadEvaluation);
},
onDoneSuccess);
}
};

1
whalesong/repl-prototype/sandboxed-server.rkt
View File

@ -25,6 +25,7 @@
(let loop ()
(define eval
(parameterize ([sandbox-memory-limit 256]
[sandbox-eval-limits '(+inf.0 256)]
[sandbox-output (current-output-port)]
[sandbox-network-guard my-network-guard])
(printf "memory limit: ~s mb\n" (sandbox-memory-limit))

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

@ -77,7 +77,6 @@
[else #f]))
;; Compile the program here...
(with-handlers ([exn:fail? (lambda (exn)
(printf "Error: ~s\n" (exn-message exn))
(write-json (hash 'type "error"
'message (exn-message exn))
op))])