Data update

Task/Sockets/Ada/sockets.ada

@@ -1,14 +0,0 @@
-with GNAT.Sockets;  use GNAT.Sockets;
-
-procedure Socket_Send is
-   Client : Socket_Type;
-begin
-   Initialize;
-   Create_Socket  (Socket => Client);
-   Connect_Socket (Socket => Client,
-                   Server => (Family => Family_Inet,
-                              Addr   => Inet_Addr ("127.0.0.1"),
-                              Port   => 256));
-   String'Write (Stream (Client), "hello socket world");
-   Close_Socket (Client);
-end Socket_Send;

Task/Sockets/AutoIt/sockets.autoit

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

Task/Sockets/C/sockets.c

@@ -1,38 +0,0 @@
-#include <stdio.h>
-#include <string.h>
-#include <sys/types.h>
-#include <sys/socket.h>
-#include <netdb.h>
-#include <unistd.h>
-
-const char *msg = "hello socket world";
-
-int main()
-{
-   int i, sock, len, slen;
-
-   struct addrinfo hints, *addrs;
-   memset(&hints, 0, sizeof(struct addrinfo));
-   hints.ai_family = AF_UNSPEC;
-   hints.ai_socktype = SOCK_STREAM;
-
-   if (0 == getaddrinfo("localhost", "256", &hints, &addrs))
-   {
-       sock = socket(addrs->ai_family, addrs->ai_socktype, addrs->ai_protocol);
-       if ( sock >= 0 )
-       {
-           if ( connect(sock, addrs->ai_addr, addrs->ai_addrlen) >= 0 )
-           {
-               const char *pm = msg;
-               do
-               {
-                  len = strlen(pm);
-                  slen = send(sock, pm, len, 0);
-                  pm += slen;
-               } while ((0 <= slen) && (slen < len));
-           }
-           close(sock);
-       }
-       freeaddrinfo(addrs);
-   }
-}

Task/Sockets/Elena/sockets.elena

@@ -5,8 +5,7 @@ import system'io;
 
 public program()
 {
-    var socket := new Socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
-    socket.connect("127.0.0.1",256);
+    var socket := NativeSocket.connect("127.0.0.1",256);
     var s := "hello socket world";
     socket.write(AnsiEncoder.toByteArray(0, s.Length, s));
     socket.close()

Task/Sockets/Emacs-Lisp/sockets.l

@@ -1,5 +0,0 @@
-(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))