Read whole buffers at once, rather than a character at a time

cook-port.rkt

@@ -45,26 +45,30 @@
   (define-values (cooked-in cooked-out) (make-pipe))
   (thread
    (lambda ()
+     (define input-buffer (make-bytes 4096))
      (let loop ((b (buffer '() #f)))
        (if (port-closed? cooked-out)
 	   ;; our job here is
 	   'done
-	   (let ((s (read-string 1 raw-in)))
+	   (let ((count (read-bytes-avail! input-buffer raw-in)))
-	     (if (eof-object? s)
+	     (if (eof-object? count)
 		 (begin (close-output-port cooked-out)
 			(loop b))
-		 (begin (update-buffer b (string-ref s 0) prompt
+		 (let process-bytes ((i 0) (b b))
-				       (lambda ()
+		   (if (>= i count)
-					 (close-output-port cooked-out)
+		       (loop b)
-					 (close-input-port raw-in))
+		       (update-buffer b (integer->char (bytes-ref input-buffer i)) prompt
-				       (lambda (line new-b)
+				      (lambda ()
-					 (write-string "\r\n" raw-out)
+					(close-output-port cooked-out)
-					 (write-string line cooked-out)
+					(close-input-port raw-in))
-					 (newline cooked-out)
+				      (lambda (line new-b)
-					 (loop new-b))
+					(write-string "\r\n" raw-out)
-				       (lambda (new-b feedback)
+					(write-string line cooked-out)
-					 (write-string feedback raw-out)
+					(newline cooked-out)
-					 (loop new-b))))))))))
+					(process-bytes (+ i 1) new-b))
+				      (lambda (new-b feedback)
+					(write-string feedback raw-out)
+					(process-bytes (+ i 1) new-b)))))))))))
   (values cooked-in (cook-output raw-out)))
 
 (define (cook-output raw-out)