about summary refs log tree commit diff stats
path: root/092socket.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-10-24 08:49:12 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-10-24 08:49:12 -0700
commit55800f65587a18576f46d4973fa8177133a5efa4 (patch)
treede40f082a4474981d161cfb55eb27776c667c925 /092socket.mu
parent16cf7896576c61467e0c40c396256ab559a37813 (diff)
downloadmu-55800f65587a18576f46d4973fa8177133a5efa4.tar.gz
3585
Diffstat (limited to '092socket.mu')
-rw-r--r--092socket.mu7
1 files changed, 0 insertions, 7 deletions
diff --git a/092socket.mu b/092socket.mu
index eacc501f..57c8120d 100644
--- a/092socket.mu
+++ b/092socket.mu
@@ -16,12 +16,10 @@ F - example-server-test: $open-server-socket failed]
   ]
   source:&:source:char <- start-reading-from-network 0/real-resources, [localhost/], port
   response:text <- drain source
-#?   $print [app: done draining], 10/newline
   10:@:char/raw <- copy *response
   memory-should-contain [
     10:array:character <- [abc]
   ]
-#?   $print [app: closing server socket], 10/newline
   $close-socket socket
 ]
 # helper just for this scenario
@@ -65,7 +63,6 @@ F - example-server-test: $accept failed]
   query:text <- drain contents
   response:text <- call request-handler, query
   write-to-socket session, response
-#?   $print [app: closing session socket], 10/newline
   $close-socket session
 ]
 
@@ -122,7 +119,6 @@ def receive-from-socket socket:num, sink:&:sink:char -> sink:&:sink:char [
       done?:bool <- greater-or-equal i, bytes-read
       break-if done?
       c:char <- index *req, i  # todo: unicode
-#?       $print [read ], c, 10/newline
       sink <- write sink, c
       i <- add i, 1
       loop
@@ -130,14 +126,12 @@ def receive-from-socket socket:num, sink:&:sink:char -> sink:&:sink:char [
     loop-unless eof?
   }
   sink <- close sink
-#?   $print [read status: ] found? [ ] eof? [ ] error 10/newline
 ]
 
 def receive-from-client-socket-and-close socket:num, sink:&:sink:char -> sink:&:sink:char [
   local-scope
   load-ingredients
   sink <- receive-from-socket socket, sink
-#?   $print [app: closing socket after reading], 10/newline
   $close-socket socket
 ]
 
@@ -149,7 +143,6 @@ def write-to-socket socket:num, s:text [
   {
     done?:bool <- greater-or-equal i, len
     break-if done?
-#?     $print i, 10/newline
     c:char <- index *s, i
     $write-to-socket socket, c
     i <- add i, 1