Jump to content

Sockets: Difference between revisions

Sockets (view source)

Revision as of 11:11, 22 November 2009

71 bytes added ,  14 years ago
m
Fixed lang tags.
(→‎{{header|Python}}: Needs to be imported or referenced in its namespace)
m (Fixed lang tags.)
Line 4:
=={{header|Ada}}==
{{libheader|GNAT RTL}}
<lang ada>with GNAT.Sockets; use GNAT.Sockets;
with GNAT.Sockets; use GNAT.Sockets;
 
procedure SocketSend is
Line 24 ⟶ 23:
Initialize;
sendData ("127.0.0.1","Hello Socket World");
end;</lang>
</lang>▼
=={{header|AutoHotkey}}==
modified from
Line 153 ⟶ 151:
ExitSub:
DllCall("Ws2_32\WSACleanup")
ExitApp</lang>
</lang>
 
=={{header|C}}==
Line 229 ⟶ 226:
; No value</lang>
 
<lang lisp>aurora ~% sudo nc -l -p 256
hello socket world</lang>
 
Line 249 ⟶ 246:
=={{header|Forth}}==
{{works with|GNU Forth|0.7.0}}
<lang forth>include unix/socket.fs
include unix/socket.fs
 
s" localhost" 256 open-socket
Line 256 ⟶ 252:
dup s" hello socket world" rot write-socket
 
close-socket</lang>
</lang>
 
=={{header|Haskell}}==
<lang haskell>import Network
 
main = withSocketsDo $ sendTo "localhost" (PortNumber $ toEnum 256) "hello socket world"</lang>
 
=={{header|Icon}}==
<lang icon>link cfunc
procedure main ()
hello("localhost", 1024)
end
procedure hello (host, port)
write(tconnect(host, port) | stop("unable to connect to", host, ":", port) , "Hello socket world")
end</lang>
 
=={{header|IDL}}==
 
<tt>
<lang idl>socket, unit, 'localhost',256,/get_lun
printf,unit,"Hello socket world"
close, unit </lang>
</tt>
 
Line 350 ⟶ 345:
=={{header|Rhope}}==
{{works with|Rhope|alpha 1}}
<lang rhope>Socket Send(0,0)
|:
[New@Net Client["localhost",256]]Put String["hello socket world"]
▲:|</lang>
:|
The connection is automatically closed when the object is freed.
 
Line 363 ⟶ 358:
 
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
include "socket.s7i";
 
const proc: main is func
local
var file: sock is STD_NULL;
begin
sock := openInetSocket(256);
writeln(sock, "hello socket world");
close(sock);
end func;</lang>
 
 
Line 380 ⟶ 375:
This uses fairly verbose and low level messages. This will probably be simplified in the future.
 
<lang slate>[ | socket |
 
[ | socket |
[ | addr stream |
addr: (Net SocketAddress newOn: '127.0.0.1:256').
Line 390 ⟶ 383:
stream nextPutAll: ('hello socket world' as: ByteArray)
] ensure: [socket close]
] do.</lang>
</lang>
 
=={{header|Smalltalk}}==
Line 453 ⟶ 445:
 
=={{header|Toka}}==
<lang toka>needs sockets
 
#! A simple abstraction layer that makes writing trivial servers easy
value| server.socket server.connection server.action |
[ ( n- ) pBind to server.socket ] is server.setSocket
[ ( - ) server.socket pAccept to server.connection ] is server.acceptConnection
[ ( - ) server.connection pClose drop ] is server.closeConnection
[ ( $- ) >r server.connection r> string.getLength pWrite drop ] is server.send
[ ( an- ) server.connection -rot pRead drop ] is server.recieve
[ ( qn- ) swap to server.action server.setSocket
[ server.acceptConnection server.action invoke server.closeConnection TRUE ] whileTrue ] is server.start
 
#! The actual server
[ " hello socket world" server.send ] 256 server.start</lang>
 
=={{header|UnixPipes}}==
<lang bash>(echo "Hello World" | nc localhost 256 | exit 0)</lang>
 
=={{header|UNIX Shell}}==
Line 475 ⟶ 467:
Using the program <tt>netcat</tt> (<tt>nc</tt>)
 
<lang bash>echo "hello socket world" | netcat localhost 256</lang>▼
<pre>
▲echo "hello socket world" | netcat localhost 256
</pre>
 
{{omit from|TI-83 BASIC}} {{omit from|TI-89 BASIC}} <!-- Does not have network access. -->
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/46791"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information