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