Sockets: Difference between revisions

{{task|Networking and Web Interaction}}

 

=={{header|Ada}}==

{{libheader|GNAT RTL}}

 

begin

Initialize;

 

=={{header|AutoHotkey}}==

modified from

[http://www.autohotkey.com/forum/topic13829.html script] by zed gecko.

Network_Address = 127.0.0.1

NewData := false

ExitSub:

DllCall("Ws2_32\WSACleanup")

 

=={{header|C}}==

{{works with|gcc|4.2.2}}

 

 

#include <string.h>

#include <sys/types.h>

#include <sys/socket.h>

#include <netdb.h>

 

 

int main()

if ( connect(sock, addrs->ai_addr, addrs->ai_addrlen) >= 0 )

{

do

{

freeaddrinfo(addrs);

}

 

=={{header|C sharp|C#}}==

 

using System.IO;

using System.Net.Sockets;

tcp.Close();

}

 

=={{header|Common Lisp}}==

{{libheader|usocket}}

 

(write-line "hello socket world" stream)

(values))

 

 

=={{header|D}}==

import std.stdio ;

import std.socket ;

}

void main() {

auto socket = new Socket(AddressFamily.INET, SocketType.STREAM) ;

socket.connect(new InternetAddress("localhost",256)) ;

socket.close() ;

 

=={{header|Factor}}==

 

=={{header|Forth}}==

{{works with|GNU Forth|0.7.0}}

 

s" localhost" 256 open-socket

dup s" hello socket world" rot write-socket

 

 

=={{header|Haskell}}==

 

 

procedure main ()

hello("localhost", 1024)

end

procedure hello (host, port)

write(tconnect(host, port) | stop("unable to connect to", host, ":", port) , "hello socket world")

 

=={{header|IDL}}==

 

printf,unit,"hello socket world"

 

"Well-known" port numbers (under 1024 -- such as 256) can also be specified by name (in this case 'RAP').

 

=={{header|J}}==

 

socket =. >{.sdcheck sdsocket'' NB. Open a socket

host =. sdcheck sdgethostbyname 'localhost' NB. Resolve host

sdcheck sdconnect socket ; host ,< 256 NB. Create connection to port 256

 

=={{header|Java}}==

import java.net.*;

public class SocketSend {

sock.close();

}

Encapsulating the <code>Socket</code>'s <code>OutputStream</code> in a <code>PrintStream</code> (for data) or <code>PrintWriter</code> (for text) may be easier in more complex programs for their auto-flush abilities, encoding management, and their overloaded <code>print</code> and <code>println</code> methods. The <code>write</code> method from the original <code>OutputStream</code> will still be available.

 

=={{header|OCaml}}==

 

 

let init_socket addr port =

let outchan = out_channel_of_descr sock in

let inchan = in_channel_of_descr sock in

 

let ic, oc = init_socket "localhost" 256 in

output_string oc "hello socket world";

 

=={{header|Perl}}==

 

$host = gethostbyname('localhost');

connect(Socket_Handle, $in);

send(Socket_Handle, 'hello socket world', 0, $in);

 

Object oriented version.

 

$sock = Socket::Class->new(

) || die Socket::Class->error;

$sock->send('hello socket world');

 

=={{header|PHP}}==

fputs($socket, 'hello socket world');

 

=={{header|Pike}}==

 

int main(){

con->write("hello socket world");

con->close();

 

=={{header|Python}}==

 

=={{header|Rhope}}==

{{works with|Rhope|alpha 1}}

|:

[New@Net Client["localhost",256]]Put String["hello socket world"]

The connection is automatically closed when the object is freed.

 

=={{header|Ruby}}==

sock = TCPSocket.open("localhost", 256)

sock.write("hello socket world")

 

=={{header|Seed7}}==

include "socket.s7i";

 

writeln(sock, "hello socket world");

close(sock);

 

 

=={{header|Slate}}==

This uses fairly verbose and low level messages. This will probably be simplified in the future.

 

[ | addr stream |

addr: (Net SocketAddress newOn: '127.0.0.1:256').

socket connectTo: addr.

stream: (Net SocketStream newOn: socket).

] ensure: [socket close]

 

=={{header|Smalltalk}}==

This is taken from [http://sblinn.jottit.com/GNU_Smalltalk_SimpleEcho_TCP_Server here] with few modification to fit the task better.

 

 

Object subclass: #HelloSocket

Smalltalk at: #helloServer put: (HelloSocket port: 2560).

 

 

=={{header|Tcl}}==

puts -nonewline $io "hello socket world"

 

=={{header|Toka}}==

 

#! A simple abstraction layer that makes writing trivial servers easy

 

#! The actual server

 

 

=={{header|UNIX Shell}}==