Another update from ingydotnet^djgoku

Task/Sockets/AutoIt/sockets.autoit

@@ -0,0 +1,7 @@
+Func _HelloWorldSocket()
+	TCPStartup()
+	$Socket = TCPConnect("127.0.0.1", 256)
+	TCPSend($Socket, "Hello World")
+	TCPCloseSocket($Socket)
+	TCPShutdown()
+EndFunc

Task/Sockets/BBC-BASIC/sockets.bbc

@@ -2,7 +2,7 @@
       PROC_initsockets
 
       socket% = FN_tcpconnect("localhost", "256")
-      IF socket% = 0 ERROR 100, "Failed to open socket"
+      IF socket% <=0 ERROR 100, "Failed to open socket"
 
       REM Don't use FN_writesocket since an error is expected
       msg$ = "hello socket world"

Task/Sockets/C++/sockets.cpp

@@ -0,0 +1,16 @@
+//compile with g++ main.cpp -lboost_system -pthread
+
+#include <boost/asio.hpp>
+
+int main()
+{
+  boost::asio::io_service io_service;
+  boost::asio::ip::tcp::socket sock(io_service);
+  boost::asio::ip::tcp::resolver resolver(io_service);
+  boost::asio::ip::tcp::resolver::query query("localhost", "4321");
+
+  boost::asio::connect(sock, resolver.resolve(query));
+  boost::asio::write(sock, boost::asio::buffer("Hello world socket\r\n"));
+
+  return 0;
+}

Task/Sockets/Emacs-Lisp/sockets.l

@@ -0,0 +1,5 @@
+(let ((proc (make-network-process :name "my sock"
+                                  :host 'local    ;; or hostname string
+                                  :service 256)))
+  (process-send-string proc "hello socket world")
+  (delete-process proc))

Task/Sockets/Go/sockets.go

@@ -11,10 +11,9 @@ func main() {
         fmt.Println(err)
         return
     }
+    defer conn.Close()
     _, err = conn.Write([]byte("hello socket world"))
     if err != nil {
         fmt.Println(err)
-        return
     }
-    conn.Close()
 }

Task/Sockets/Prolog/sockets.pro

@@ -0,0 +1,6 @@
+start(Port) :- socket('AF_INET',Socket),
+               socket_connect(Socket, 'AF_INET'(localhost,Port), Input, Output),
+               write(Output, 'hello socket world'),
+               flush_output(Output),
+               close(Output),
+               close(Input).

Task/Sockets/Rust/sockets.rust

@@ -0,0 +1,11 @@
+use std::io::prelude::*;
+use std::net::TcpStream;
+
+fn main() {
+    // Open a tcp socket connecting to 127.0.0.1:256, no error handling (unwrap)
+    let mut my_stream = TcpStream::connect("127.0.0.1:256").unwrap();
+
+    // Write 'hello socket world' to the stream, ignoring the result of write
+    let _ = my_stream.write(b"hello socket world");
+
+} // <- my_stream's drop function gets called, which closes the socket