Just another update

Task/Echo-server/Haskell/echo-server-2.hs

@@ -0,0 +1,18 @@
+global mlck, nCons
+
+procedure main()
+    mlck := mutex()
+    nCons := 0
+    while f := open(":12321","na") do {
+        handle_client(f)
+        critical mlck: if nCons <= 0 then close(f)
+        }
+end
+
+procedure handle_client(f)
+    critical mlck: nCons +:= 1
+    thread {
+        select(f,1000) & repeat writes(f,reads(f))
+        critical mlck: nCons -:= 1
+        }
+end

Task/Echo-server/Java/echo-server.java

@@ -56,7 +56,7 @@ class ClientHandler implements Runnable {
 			String inputLine, outputLine;
 			while((inputLine = in.readLine()) != null){
 				outputLine = inputLine;
-				System.out.println("recieved: " + outputLine);
+				System.out.println("received: " + outputLine);
 				out.write(outputLine+"\n");
 				out.flush();
 				if (outputLine.equals("exit"))

Task/Echo-server/REALbasic/echo-server.realbasic

@@ -29,5 +29,5 @@ Inherits ConsoleApplication
       DoEvents() 'pump the event loop
     Wend
   End Function
-  Private Listener As EchoListener
+  Private Listener As EchoServer
 End Class