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

adjusting output so I can capture amount of time taken for javascript evaluation.

Browse Source
This commit is contained in:
Danny Yoo 2011-02-21 21:02:00 -05:00
parent 2050207334
commit 5d015c7db2
1 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
browser-evaluate.rkt
View File

@ -9,6 +9,8 @@
;; A hacky way to test the evaluation.
(provide evaluate)
(define port (+ 8000 (random 8000)))
;; Channel's meant to serialize use of the web server.
(define ch (make-channel))
@ -85,14 +87,18 @@ var whenLoaded = function() {
MACHINE.params.currentDisplayer = function(v) {
output.push(String(v));
};
var startTime = new Date();
invoke(function() {
var endTime = new Date();
document.body.appendChild(document.createTextNode("Program evaluated; sending back."));
sendRequest("/eval", function(req) {},
"r=" + encodeURIComponent(output.join('')) +
"&t=" + encodeURIComponent(String(endTime - startTime)));
});
setTimeout(
function() {
var startTime = new Date();
invoke(function() {
var endTime = new Date();
document.body.appendChild(document.createTextNode(
"Program evaluated; sending back to DrRacket."));
sendRequest("/eval", function(req) {},
"r=" + encodeURIComponent(output.join('')) +
"&t=" + encodeURIComponent(String(endTime - startTime)));
});
}, 0);
};
</script>
</head>
@ -121,13 +127,18 @@ EOF
#:banner? #f
#:launch-browser? #f
#:quit? #f
#:port 8080
#:port port
#:servlet-path "/eval"))))
;; evaluate: sexp -> (values string number)
;; A little driver to test the evalution of expressions, using a browser to help.
;; Returns the captured result of stdout, plus # of milliseconds it took to execute.
(define (evaluate e)
;; Send the program to the web browser, and wait for the thread to send back
(send-url "http://localhost:8080/eval?p=t" #f)
(send-url (format "http://localhost:~a/eval?p=t" port) #f)
(channel-put ch e)
(channel-get ch))
(let ([output+time (channel-get ch)])
(values (first output+time)
(string->number (second output+time)))))