OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g-socket.ads, [...]: Improve documentation of GNAT.Sockets... 

2008-04-08  Thomas Quinot  <quinot@adacore.com>

	* g-socket.ads, g-socket.adb: Improve documentation of GNAT.Sockets:
	add a pointer to generic sockets literature
	do not mention that the given example is "typical" usage.
	Remove obsolete comment about multicast not being supported on Windows.
	(Connect_Socket): Make Server mode IN rather than IN OUT
	since this formal is never modified.

From-SVN: r134036
This commit is contained in:
Thomas Quinot 2008-04-08 08:52:09 +02:00 committed by Arnaud Charlet
parent 4dcfaf779c
commit 64f7d845ef
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/g-socket.adb
View File

@ -574,10 +574,8 @@ package body GNAT.Sockets is
procedure Connect_Socket
(Socket : Socket_Type;
Server : in out Sock_Addr_Type)
Server : Sock_Addr_Type)
is
pragma Warnings (Off, Server);
Res : C.int;
Sin : aliased Sockaddr_In;
Len : constant C.int := Sin'Size / 8;

20
gcc/ada/g-socket.ads
View File

@ -39,8 +39,7 @@
-- Multicast is available only on systems which provide support for this
-- feature, so it is not available if Multicast is not supported, or not
-- installed. In particular Multicast is not available with the Windows
-- version.
-- installed.
-- The VMS implementation was implemented using the DECC RTL Socket API,
-- and is thus subject to limitations in the implementation of this API.
@ -58,8 +57,13 @@ with System;
package GNAT.Sockets is
-- Sockets are designed to provide a consistent communication facility
-- between applications. This package provides an Ada-like interface
-- similar to that proposed as part of the BSD socket layer.
-- between applications. This package provides an Ada binding to the
-- the de-facto standard BSD sockets API. The documentation below covers
-- only the specific binding provided by this package. It assumes that
-- the reader is already familiar with general network programming and
-- sockets usage. A useful reference on this matter is W. Richard Stevens'
-- "UNIX Network Programming: The Sockets Networking API"
-- (ISBN: 0131411551).
-- GNAT.Sockets has been designed with several ideas in mind
@ -78,7 +82,7 @@ package GNAT.Sockets is
-- notification of an asynchronous connect failure is delivered in the
-- write socket set (POSIX) instead of the exception socket set (NT).
-- Here is a typical example of what you can do:
-- The example below demonstrates various features of GNAT.Sockets:
-- with GNAT.Sockets; use GNAT.Sockets;
@ -773,9 +777,9 @@ package GNAT.Sockets is
procedure Connect_Socket
(Socket : Socket_Type;
Server : in out Sock_Addr_Type);
-- Make a connection to another socket which has the address of
-- Server. Raises Socket_Error on error.
Server : Sock_Addr_Type);
-- Make a connection to another socket which has the address of Server.
-- Raises Socket_Error on error.
procedure Control_Socket
(Socket : Socket_Type;