continuing to get the communication between server and client working.

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});
     };
 
 });

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)