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

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

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

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

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