From a5fb4e26d07b5a0f68b3e14b2507c677a1824c8d Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Tue, 26 Feb 2013 15:41:35 -0700
Subject: [PATCH] continuing to get the communication between server and client
 working.

---
 whalesong/repl-prototype/htdocs/repl.js | 21 ++++++++++++++++-----
 whalesong/repl-prototype/server.rkt     |  4 +++-
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/whalesong/repl-prototype/htdocs/repl.js b/whalesong/repl-prototype/htdocs/repl.js
index 591cbe9..ab08666 100644
--- a/whalesong/repl-prototype/htdocs/repl.js
+++ b/whalesong/repl-prototype/htdocs/repl.js
@@ -1,7 +1,7 @@
-"use strict";
-
 $(document).ready(function() {
-    
+    "use strict";    
+
+    // Hook up a simple one-line REPL with enter triggering evaluation.
     $("#repl").keypress(function(e) {
         if (e.which == 13) {
             var repl = $(this);
@@ -17,9 +17,20 @@ $(document).ready(function() {
 
     var evaluate = function(src, after) {
         console.log("about to eval", src);
+        var onCompile = function(compiledResult) {
+            console.log("compilation got", compiledResult);
+            after();
+        };
+        var onError = function(x) {
+            console.log("error", err);
+            after();
+        };
 
-        // fill me in.
-        setTimeout(after, 1000);
+        $.ajax({dataType: 'json',
+                url: '/compile',
+                data: { src: src },
+                success: onCompile,
+                error: onError});
     };
 
 });
diff --git a/whalesong/repl-prototype/server.rkt b/whalesong/repl-prototype/server.rkt
index fe4c440..0f2e264 100644
--- a/whalesong/repl-prototype/server.rkt
+++ b/whalesong/repl-prototype/server.rkt
@@ -17,7 +17,7 @@
 ;; Creates a response that's coupled to an output-port: whatever you
 ;; write into the output will be pushed into the response.
 (define (make-port-response #:mime-type (mime-type #"application/octet-stream")
-                            #:with-gzip? (with-gzip? #f))
+                            #:with-gzip? (with-gzip? #t))
   (define headers (if with-gzip?
                       (list (header #"Content-Encoding" #"gzip"))
                       (list)))
@@ -41,6 +41,8 @@
   (define-values (response op) 
     (make-port-response #:mime-type #"text/json"))
   (define source (extract-binding/single 'src (request-bindings req)))
+
+  (printf "program is: ~s\n" source)
   ;; Compile the program here...
   ;; Send it back as json text....
   (write-json '(1 2 3) op)