gmane.comp.lang.ada.sockets

Trouble Installing adasockets 1.8.6

Euan McVie — 2007-12-11T18:20:41

Hi Am trying to install adasockets using cygwin under win xp. I get the following error on make install. Any help appreciated. $ make install Making install in src make[1]: Entering directory `/home/Euan/tmp/src' gnatmake -g -O2 ../../adasockets-1.8.6/src/split.adb gcc -c -I../../adasockets-1.8.6/src/ -g -O2 -I- ../../adasockets-1.8.6/src/split .adb gnatbind -x split.ali gnatlink split.ali -g gcc -I. -o constants_nodef ../../adasockets-1.8.6/src/constants.c In file included from ../../adasockets-1.8.6/src/constants.c:93: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/windows.h:90:2: war ning: #warning "The Win32_Winsock macro name is deprecated. Please use __USE _W32_SOCKETS instead" In file included from /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32a pi/windows.h:98, from ../../adasockets-1.8.6/src/constants.c:93: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:103:2: w arning: #warning "fd_set and associated macros have been defined in sys/types. This may cause runtime problems with W32 sockets" In file included from /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32a pi/windows.h:98, from ../../adasockets-1.8.6/src/constants.c:93: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:109: err or: redefinition of `struct timeval' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:120: err or: redefinition of `struct hostent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:128: err or: redefinition of `struct linger' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:155: err or: redefinition of `struct netent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:161: err or: redefinition of `struct servent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:167: err or: redefinition of `struct protoent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:223: err or: redefinition of `struct in_addr' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:254: err or: redefinition of `struct sockaddr_in' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:336: err or: redefinition of `struct sockaddr' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:356: err or: redefinition of `struct sockaddr_storage' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:536: err or: conflicting types for 'accept' /usr/include/sys/socket.h:29: error: previous declaration of 'accept' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:536: err or: conflicting types for 'accept' /usr/include/sys/socket.h:29: error: previous declaration of 'accept' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:537: err or: conflicting types for 'bind' /usr/include/sys/socket.h:30: error: previous declaration of 'bind' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:537: err or: conflicting types for 'bind' /usr/include/sys/socket.h:30: error: previous declaration of 'bind' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:539: err or: conflicting types for 'connect' /usr/include/sys/socket.h:31: error: previous declaration of 'connect' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:539: err or: conflicting types for 'connect' /usr/include/sys/socket.h:31: error: previous declaration of 'connect' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:541: err or: conflicting types for 'getpeername' /usr/include/sys/socket.h:32: error: previous declaration of 'getpeername' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:541: err or: conflicting types for 'getpeername' /usr/include/sys/socket.h:32: error: previous declaration of 'getpeername' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:542: err or: conflicting types for 'getsockname' /usr/include/sys/socket.h:33: error: previous declaration of 'getsockname' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:542: err or: conflicting types for 'getsockname' /usr/include/sys/socket.h:33: error: previous declaration of 'getsockname' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:543: err or: conflicting types for 'getsockopt' /usr/include/sys/socket.h:46: error: previous declaration of 'getsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:543: err or: conflicting types for 'getsockopt' /usr/include/sys/socket.h:46: error: previous declaration of 'getsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:546: err or: conflicting types for 'listen' /usr/include/sys/socket.h:34: error: previous declaration of 'listen' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:546: err or: conflicting types for 'listen' /usr/include/sys/socket.h:34: error: previous declaration of 'listen' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:547: err or: conflicting types for 'recv' /usr/include/sys/socket.h:35: error: previous declaration of 'recv' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:547: err or: conflicting types for 'recv' /usr/include/sys/socket.h:35: error: previous declaration of 'recv' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:548: err or: conflicting types for 'recvfrom' /usr/include/sys/socket.h:37: error: previous declaration of 'recvfrom' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:548: err or: conflicting types for 'recvfrom' /usr/include/sys/socket.h:37: error: previous declaration of 'recvfrom' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:549: err or: conflicting types for 'send' /usr/include/sys/socket.h:39: error: previous declaration of 'send' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:549: err or: conflicting types for 'send' /usr/include/sys/socket.h:39: error: previous declaration of 'send' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:550: err or: conflicting types for 'sendto' /usr/include/sys/socket.h:42: error: previous declaration of 'sendto' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:550: err or: conflicting types for 'sendto' /usr/include/sys/socket.h:42: error: previous declaration of 'sendto' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:551: err or: conflicting types for 'setsockopt' /usr/include/sys/socket.h:44: error: previous declaration of 'setsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:551: err or: conflicting types for 'setsockopt' /usr/include/sys/socket.h:44: error: previous declaration of 'setsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:552: err or: conflicting types for 'shutdown' /usr/include/sys/socket.h:47: error: previous declaration of 'shutdown' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:552: err or: conflicting types for 'shutdown' /usr/include/sys/socket.h:47: error: previous declaration of 'shutdown' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:553: err or: conflicting types for 'socket' /usr/include/sys/socket.h:48: error: previous declaration of 'socket' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:553: err or: conflicting types for 'socket' /usr/include/sys/socket.h:48: error: previous declaration of 'socket' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:554: err or: conflicting types for 'gethostbyaddr' /usr/include/netdb.h:139: error: previous declaration of 'gethostbyaddr' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:554: err or: conflicting types for 'gethostbyaddr' /usr/include/netdb.h:139: error: previous declaration of 'gethostbyaddr' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:555: err or: conflicting types for 'gethostbyname' /usr/include/netdb.h:140: error: previous declaration of 'gethostbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:555: err or: conflicting types for 'gethostbyname' /usr/include/netdb.h:140: error: previous declaration of 'gethostbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:556: err or: conflicting types for 'getservbyport' /usr/include/netdb.h:149: error: previous declaration of 'getservbyport' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:556: err or: conflicting types for 'getservbyport' /usr/include/netdb.h:149: error: previous declaration of 'getservbyport' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:557: err or: conflicting types for 'getservbyname' /usr/include/netdb.h:148: error: previous declaration of 'getservbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:557: err or: conflicting types for 'getservbyname' /usr/include/netdb.h:148: error: previous declaration of 'getservbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:558: err or: conflicting types for 'getprotobynumber' /usr/include/netdb.h:146: error: previous declaration of 'getprotobynumber' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:558: err or: conflicting types for 'getprotobynumber' /usr/include/netdb.h:146: error: previous declaration of 'getprotobynumber' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:559: err or: conflicting types for 'getprotobyname' /usr/include/netdb.h:145: error: previous declaration of 'getprotobyname' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:559: err or: conflicting types for 'getprotobyname' /usr/include/netdb.h:145: error: previous declaration of 'getprotobyname' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:628: err or: conflicting types for 'htonl' /usr/include/asm/byteorder.h:30: error: previous declaration of 'htonl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:628: err or: conflicting types for 'htonl' /usr/include/asm/byteorder.h:30: error: previous declaration of 'htonl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:629: err or: conflicting types for 'ntohl' /usr/include/asm/byteorder.h:28: error: previous declaration of 'ntohl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:629: err or: conflicting types for 'ntohl' /usr/include/asm/byteorder.h:28: error: previous declaration of 'ntohl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:630: err or: conflicting types for 'htons' /usr/include/asm/byteorder.h:31: error: previous declaration of 'htons' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:630: err or: conflicting types for 'htons' /usr/include/asm/byteorder.h:31: error: previous declaration of 'htons' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:631: err or: conflicting types for 'ntohs' /usr/include/asm/byteorder.h:29: error: previous declaration of 'ntohs' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:631: err or: conflicting types for 'ntohs' /usr/include/asm/byteorder.h:29: error: previous declaration of 'ntohs' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:632: err or: conflicting types for 'select' /usr/include/sys/select.h:31: error: previous declaration of 'select' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:632: err or: conflicting types for 'select' /usr/include/sys/select.h:31: error: previous declaration of 'select' was here In file included from ../../adasockets-1.8.6/src/constants.c:96: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/ws2tcpip.h:124: err or: redefinition of `struct ip_mreq' make[1]: *** [constants_nodef] Error 1 make[1]: Leaving directory `/home/Euan/tmp/src' make: *** [install-recursive] Error 1 _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

static

Thomas De Contes — 2007-12-06T14:24:35

hi :-) is it possible to install adasockets so that it is static ?

for Casing use "mixedcase";

Thomas De Contes — 2007-11-28T01:54:19

hi :-) Help ! I have a very big problem ! (I can't continue to programm :-( ) for Casing use "mixedcase"; is not compatible with adasockets Could you test this, to know whether this problem is portable or is specific to Mac OS X, please ? http://dl.free.fr/mFaw1bRg3/mixedcase.zip When i run compil.command, i get : b~igswprincipal.ads:196:30: external name duplicates name given at line 190 b~igswprincipal.ads:197:30: external name duplicates name given at line 191 gnatmake: *** link failed.

AdaSockets 1.9-alpha1 is available

Samuel Tardieu — 2007-11-06T18:27:39

I'd like people to test the AdaSockets 1.9-alpha1 release. In the last few days, I have rewritten large parts of AdaSockets to use GNAT.Sockets while trying to be 100% compatible with the established usage. In this release, there are no more system-specific files as GNAT.Sockets takes care of the system-dependent parts already. You can get it from: http://www.rfc1149.net/download/adasockets/experimental/adasockets-1.9-alpha1.tar.gz The release notes for this version are: | * New in AdaSockets 1.9 | | AdaSockets 1.9 is a rewrite of large parts of AdaSockets. It is based on | GNAT.Sockets while keeping an interface compatible with the 1.8.x branch | of AdaSockets. | | Some rarely used user-visible subprograms and constants have been removed: | - Sockets.Customized_Setsockopt | - Sockets.Socketpair | - Sockets.SO_REUSEPORT | - Function depending on internal type Sockets.Types.In_Addr in | package Sockets.Naming It has been tested on Debian GNU/Linux x86 with gcc-4.1 and current gcc development branch as well as on SunOS 5.10 Sparc with GNAT Pro 6.0.1. Sam

AdaSockets 1.8.6

Samuel Tardieu — 2007-11-04T21:04:46

AdaSockets 1.8.6 has been released and contains Joel Sherrill's RTEMS port. You can get it from http://www.rfc1149.net/devel/adasockets Sam

adasockets / GNAT.Sockets

Thomas De Contes — 2007-10-30T13:14:34

hi :-) Which is the advantage of adasockets compared to GNAT.Sockets ? I thought that it was the streams, because GNAT.Sockets would not allow to use streams as easily as adasockets, but it seems that it's wrong (or is it an innovation of ada 2005 ?) Is there sth else ? ps : trashgod< at >GMAIL.COM said me that he tried posting to this list, but the message never came back. Could you look at it, please ?

mac os x / intel

Thomas De Contes — 2007-10-14T02:59:48

hi :-) adasockets 1.8.5 works fine on mac os x / ppc, but not on mac os x / intel : gcc -dynamiclib ${wl}-flat_namespace ${wl}-undefined ${wl}suppress - o .libs/libadasockets.0.0.0.dylib .libs/sockets-constants.o .libs/ sockets-link.o .libs/sockets-multicast.o .libs/sockets-naming.o .libs/ sockets-stream_io.o .libs/sockets-thin.o .libs/sockets-types.o .libs/ sockets-utils.o .libs/sockets.o -install_name /Users/thomas/ Documents/info/bin/autoinstall/autre/lib/libadasockets.0.dylib -Wl,- compatibility_version -Wl,1 -Wl,-current_version -Wl,1.0 /usr/bin/ld: unknown flag: -compatibility_version do you need the complete log ? ps : http://www.rfc1149.net/download/adasockets/adasockets.pdf is old you could delete it, since it is in the .tgz (or have ou a specific reason to keep it ?)

RTEMS Port of Ada Sockets

Joel Sherrill — 2007-09-17T20:55:55

Hi, I now have a port of Ada Sockets to RTEMS. I have tested on the i386 and PowerPC. There are two issues but those aren't enough to make this not worth submitting at this point. + As best I can call, stream_listener and stream_sender MUST be on the same endian CPUs. I assume this is just an issue with the example but will defer to more those more knowledgeable about what is going on in the test. + multicast does not work from Ada. But as of this moment in time, I don't have a working C example on RTEMS so I can't blame that on my port. I did NOT autoconf the RTEMS port. I followed the VMS model of dedicated Makefiles. There is a shell script to generate the C program to run on the RTEMS target to get the sockets-constants.ads. Once you get that, you build the src, then the examples. There is a README.RTEMS in the top directory. Hopefully this is worth merging. Please let me know. --joel _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

Cross Compiling Ada Sockets

Joel Sherrill — 2007-09-10T23:21:22

Hi, Samuel .. hello .. it has been a long time :-D I am trying to compile adasockets 1.8.5 to on Fedora 7 to target powerpc-rtems4.8. The cross compiler itself works well. I can't seem to make the autoconf script happy at all. This was my most obvious attempt: ../adasockets-1.8.5/configure \ --disable-examples \ --build=`../adasockets-1.8.5/support/config.guess` \ --host=`../adasockets-1.8.5/support/config.guess` \ --target=powerpc-rtems4.8 I ended up with a set of i386 ELF .o's. Not what I wanted. So I tried this: ../adasockets-1.8.5/configure \ --disable-examples \ --build=`../adasockets-1.8.5/support/config.guess` \ --host=powerpc-rtems4.8 \ --target=powerpc-rtems4.8 This is MUCH closer I think but support/adacompiler looks to be hard-coded to the native gnatmake. And I need to pass in some extra CFLAGS and LDFLAGS to the cross C compiler. Any suggestions on compiling this cross would be most appreciated Thanks in advance. --joel sherrill _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

404 Not Found

Thomas De Contes — 2007-06-03T14:45:42

hi :-) why http://www.rfc1149.net/devel/adasockets is no longer available ?

AdaSockets 1.8.5 is released

Samuel Tardieu — 2007-04-21T23:03:17

You can get it from the usual location: http://www.rfc1149.net/devel/adasockets Here are the changes since 1.8.5. Thanks to Karl A. Nyberg for helping prepare this release. * New in AdaSockets 1.8.5 Fix locking race condition in naming routines. Bug found and fix sent by Dmitriy Anisimkov ada-ru.org>. Allow explicit interface selection for multicast sockets. Patch sent by Guillaume Foliard wanadoo.fr>. Use inet_aton instead of inet_addr. Patch sent by Guillaume Foliard wanadoo.fr>. Use -lresolv on Solaris for inet_aton. Update build process with latest autotools. Use stdlib.h and string.h in constants.c when appropriate.

PATCH - Replace inet_addr with inet_aton

Guillaume Foliard — 2007-01-27T21:35:30

Hello, Here is a patch which replaces the call to inet_addr with a call to inet_aton. According to the inet_addr man page, this function is obsoleted by inet_aton. Reviews and comments are welcome. Guillaume _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

PATCH - Allow explicit interface selection formulticast socket

Guillaume Foliard — 2007-01-27T21:35:27

Hello, Here is a patch which modifies the multicast API so the caller can explicitly ask for the interface to use when opening a multicast socket. Reviews and comments are welcome. Sam is it possible for you to consider this patch and the following one (entitled "Replace inet_addr with inet_aton") to be part of a new release of AdaSockets ? Guillaume _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

More AdaSockets

pierre bodilis — 2006-09-07T09:57:24

Hi everyone I don't know if Samuel Tardieu got my email, but I'll post that here in case someone find it useful :) I needed a poll function, so I made one which could be useful at some point. I also made a Send_Some (same as receive_some), of which I'm still wondering if it is truely useful or it's just a stupid idea of mine (and in anycase, I need it, so I'll keep it). And finally, I also adapted 2 functions from GNAT.Sockets : Get_Service_By_Name and Port_Number. I'd think a Poll function would be fine in AdaSockets :) ---------------------------------------------------------------------------------------------------------------------- --- specs : with Ada.Streams; use Ada.Streams; with Sockets; use Sockets; package More_AdaSockets is type Poll_Option is (POLLNULL, -- nothing... POLLIN, -- There is data to read POLLPRI, -- There is urgent data to read POLLOUT, -- Writing now will not block POLLERR, -- Error condition POLLHUP, -- Hung up POLLNVAL, -- Invalid request: fd not open -- When compiling XPG4.2 source also has POLLRDNORM, -- Normal data may be read POLLRDBAND, -- Priority data may be read POLLWRNORM, -- Writing now will not block POLLWRBAND, -- Priority data may be written -- Finally, Linux knows about POLLMSG); -------------------------------------------------------------------------- procedure Poll(Socket : in Socket_FD; Timeout : in Duration; Option : in Poll_Option; Timed_Out : out Boolean); -------------------------------------------------------------------------- -------------------------------------------------------------------------- procedure Send_Some (Socket : in Socket_FD; Data : in Stream_Element_Array; Last : in out Stream_Element_Offset); -------------------------------------------------------------------------- -------------------------------------------------------------------------- type Service_Entry_Type (Aliases_Length : Natural) is private; -- Service entries provide complete information on a given service: the -- official name, an array of alternative names or aliases and the port -- number. -------------------------------------------------------------------------- -------------------------------------------------------------------------- Service_Error : exception; -------------------------------------------------------------------------- -------------------------------------------------------------------------- function Get_Service_By_Name (Name : String; Protocol : String) return Service_Entry_Type; -------------------------------------------------------------------------- -------------------------------------------------------------------------- function Port_Number (S : Service_Entry_Type) return Natural; -------------------------------------------------------------------------- private Max_Name_Length : constant := 64; -- The constant MAXHOSTNAMELEN is usually set to 64 subtype Name_Index is Natural range 1 .. Max_Name_Length; type Name_Type (Length : Name_Index := Max_Name_Length) is record Name : String (1 .. Length); end record; -- We need fixed strings to avoid access types in host entry type type Name_Array is array (Natural range <>) of Name_Type; type Port_Type is new Natural; -- Classical port definition. No_Port provides a special value to -- denote uninitialized port. Any_Port provides a special value -- enabling all ports. type Service_Entry_Type (Aliases_Length : Natural) is record Official : Name_Type; Aliases : Name_Array (1 .. Aliases_Length); Port : Port_Type; Protocol : Name_Type; end record; protected Serv_Lock is entry Lock; procedure Unlock; private Locked : Boolean := False; end Serv_Lock; end More_AdaSockets; ---------------------------------------------------------------------------------------------------------------------- --- impl : with Sockets; use Sockets; with Sockets.Thin; use Sockets.Thin; with Sockets.Types; use Sockets.Types; with Sockets.Constants; with More_AdaSockets.Thin; use More_AdaSockets.Thin; with Interfaces.C; with Interfaces.C.Strings; with Ada.Exceptions; use Ada.Exceptions; with System; use System; package body More_AdaSockets is package C renames Interfaces.C; package Const renames Sockets.Constants; Poll_Value : constant array (POLL_OPTION) of C.short := ( -- Message Null POLLNULL => 16#0000#, -- Those messages can be used for both events and revents POLLIN => Const.Pollin, POLLPRI => Const.Pollpri, POLLOUT => Const.Pollout, -- Those messages can be used only for revents POLLERR => Const.Pollerr, POLLHUP => Const.Pollhup, POLLNVAL => Const.Pollnval, -- When compiling XPG4.2 source also has POLLRDNORM => 16#0040#, POLLRDBAND => 16#0080#, POLLWRNORM => 16#0100#, POLLWRBAND => 16#0200#, -- Finally, Linux knows about POLLMSG => 16#0400#); -------------------------------------------------------------------------- procedure Poll (Socket : in Socket_FD; Timeout : in Duration; Option : in Poll_Option; Timed_Out : out Boolean) is use C; Event : C.short := Poll_Value(Option); -- poll number Revent : C.short := Poll_Value(POLLNULL); -- by default, revent is null Pfd : aliased Pollfd; -- Ptrable Pollfd Result : C.int; TO : C.int := C.int(Timeout*1000); -- with Poll, time is in ms begin Pfd := (FD => Get_FD(Socket), -- Socket FD Events => Event, -- Events to wait for Revents => Revent); -- Events to get Result := C_Poll(FDS => Pfd'Address, -- our Poll File Descriptpor NFDS => 1, -- 1 FS to poll Timeout => TO); -- Time in millisecond case Result is when -1 => -- error ! Raise_Exception (Socket_Error'Identity, "Polling error! " & Integer'Image(Integer(errno))); when 0 => -- timeout ! Timed_Out := True; when 1 => -- something happened ! Timed_Out := False; when others => -- something strange happened... raise Socket_Error; end case; end Poll; -------------------------------------------------------------------------- -------------------------------------------------------------------------- procedure Send_Some (Socket : in Socket_FD; Data : in Stream_Element_Array; Last : in out Stream_Element_Offset) is use C; Index : Stream_Element_Offset := Data'First; Rest : Stream_Element_Count := Last; Count : C.int; begin

AdaSockets mercurial repository

Samuel Tardieu — 2006-06-20T23:27:48

Just in case you need it, the AdaSockets repository is available on-line at http://www.rfc1149.net/mercurial/adasockets (you need Mercurial from http://www.selenic.com/mercurial to access it). Sam

Building adasockets 1.8.4.7 on mac os 10.2 or 10.3

Thomas — 2006-03-16T10:40:24

hi :-) I dont succeed in Building adasockets 1.8.4.7 on mac os 10.2 or 10.3. Here is the log on mac os 10.2, but it is near the same on mac os 10.3 : PS : Sorry for have miss the capitals, and for the duplication, it seems that the replace function doesn't works on this forum.

Building adasockets 1.8.4.7 on mac os 10.2 or 10.3

Thomas — 2006-03-14T12:36:14

hi :-) i dont succeed in Building adasockets 1.8.4.7 on mac os 10.2 or 10.3 here is the log on mac os 10.2, but it is near the same on mac os 10.3 :

test

Thomas — 2005-11-29T23:21:37

does someone receive my msg ? i don't succeed in subscribe to this list, it seems to be broken

Building adasockets 1.8.4.7 on Windows XP

Roger Blum — 2005-08-16T01:41:21

Hi, I am trying to build the current version of AdaSockets on my Windows XP machine (with current installation of cygwin). "./configure --prefix=/usr/local" works without problem. "make install" gives me a list of warnings and errors: $ make install Making install in src make[1]: Entering directory `/cygdrive/f/Development/Ada/adasockets-1.8.4.7/src' gnatmake -g -O2 ./split.adb gcc -c -I./ -g -O2 -I- ./split.adb gnatbind -x split.ali gnatlink split.ali -g cd .. && /bin/sh /cygdrive/f/Development/Ada/adasockets-1.8.4.7/support/missing --run autoheader rm -f stamp-h1 touch config.h.in cd .. && /bin/sh ./config.status src/config.h config.status: creating src/config.h config.status: src/config.h is unchanged gcc -I. -o constants_nodef ./constants.c In file included from ./constants.c:85: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/windows.h:90:2: war ning: #warning "The Win32_Winsock macro name is deprecated. Please use __USE _W32_SOCKETS instead" In file included from /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32a pi/windows.h:98, from ./constants.c:85: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:95:2: wa rning: #warning "fd_set and associated macros have been defined in sys/types. This may cause runtime problems with W32 sockets" In file included from /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32a pi/windows.h:98, from ./constants.c:85: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:101: err or: redefinition of `struct timeval' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:112: err or: redefinition of `struct hostent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:120: err or: redefinition of `struct linger' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:147: err or: redefinition of `struct netent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:153: err or: redefinition of `struct servent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:159: err or: redefinition of `struct protoent' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:215: err or: redefinition of `struct in_addr' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:246: err or: redefinition of `struct sockaddr_in' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:327: err or: redefinition of `struct sockaddr' /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:515: err or: conflicting types for 'accept' /usr/include/sys/socket.h:29: error: previous declaration of 'accept' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:515: err or: conflicting types for 'accept' /usr/include/sys/socket.h:29: error: previous declaration of 'accept' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:516: err or: conflicting types for 'bind' /usr/include/sys/socket.h:30: error: previous declaration of 'bind' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:516: err or: conflicting types for 'bind' /usr/include/sys/socket.h:30: error: previous declaration of 'bind' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:518: err or: conflicting types for 'connect' /usr/include/sys/socket.h:31: error: previous declaration of 'connect' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:518: err or: conflicting types for 'connect' /usr/include/sys/socket.h:31: error: previous declaration of 'connect' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:520: err or: conflicting types for 'getpeername' /usr/include/sys/socket.h:32: error: previous declaration of 'getpeername' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:520: err or: conflicting types for 'getpeername' /usr/include/sys/socket.h:32: error: previous declaration of 'getpeername' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:521: err or: conflicting types for 'getsockname' /usr/include/sys/socket.h:33: error: previous declaration of 'getsockname' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:521: err or: conflicting types for 'getsockname' /usr/include/sys/socket.h:33: error: previous declaration of 'getsockname' was h ere /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:522: err or: conflicting types for 'getsockopt' /usr/include/sys/socket.h:44: error: previous declaration of 'getsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:522: err or: conflicting types for 'getsockopt' /usr/include/sys/socket.h:44: error: previous declaration of 'getsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:525: err or: conflicting types for 'listen' /usr/include/sys/socket.h:34: error: previous declaration of 'listen' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:525: err or: conflicting types for 'listen' /usr/include/sys/socket.h:34: error: previous declaration of 'listen' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:526: err or: conflicting types for 'recv' /usr/include/sys/socket.h:35: error: previous declaration of 'recv' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:526: err or: conflicting types for 'recv' /usr/include/sys/socket.h:35: error: previous declaration of 'recv' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:527: err or: conflicting types for 'recvfrom' /usr/include/sys/socket.h:37: error: previous declaration of 'recvfrom' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:527: err or: conflicting types for 'recvfrom' /usr/include/sys/socket.h:37: error: previous declaration of 'recvfrom' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:528: err or: conflicting types for 'send' /usr/include/sys/socket.h:39: error: previous declaration of 'send' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:528: err or: conflicting types for 'send' /usr/include/sys/socket.h:39: error: previous declaration of 'send' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:529: err or: conflicting types for 'sendto' /usr/include/sys/socket.h:42: error: previous declaration of 'sendto' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:529: err or: conflicting types for 'sendto' /usr/include/sys/socket.h:42: error: previous declaration of 'sendto' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:530: err or: conflicting types for 'setsockopt' /usr/include/sys/socket.h:43: error: previous declaration of 'setsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:530: err or: conflicting types for 'setsockopt' /usr/include/sys/socket.h:43: error: previous declaration of 'setsockopt' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:531: err or: conflicting types for 'shutdown' /usr/include/sys/socket.h:45: error: previous declaration of 'shutdown' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:531: err or: conflicting types for 'shutdown' /usr/include/sys/socket.h:45: error: previous declaration of 'shutdown' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:532: err or: conflicting types for 'socket' /usr/include/sys/socket.h:46: error: previous declaration of 'socket' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:532: err or: conflicting types for 'socket' /usr/include/sys/socket.h:46: error: previous declaration of 'socket' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:533: err or: conflicting types for 'gethostbyaddr' /usr/include/netdb.h:139: error: previous declaration of 'gethostbyaddr' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:533: err or: conflicting types for 'gethostbyaddr' /usr/include/netdb.h:139: error: previous declaration of 'gethostbyaddr' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:534: err or: conflicting types for 'gethostbyname' /usr/include/netdb.h:140: error: previous declaration of 'gethostbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:534: err or: conflicting types for 'gethostbyname' /usr/include/netdb.h:140: error: previous declaration of 'gethostbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:535: err or: conflicting types for 'getservbyport' /usr/include/netdb.h:149: error: previous declaration of 'getservbyport' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:535: err or: conflicting types for 'getservbyport' /usr/include/netdb.h:149: error: previous declaration of 'getservbyport' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:536: err or: conflicting types for 'getservbyname' /usr/include/netdb.h:148: error: previous declaration of 'getservbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:536: err or: conflicting types for 'getservbyname' /usr/include/netdb.h:148: error: previous declaration of 'getservbyname' was her e /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:537: err or: conflicting types for 'getprotobynumber' /usr/include/netdb.h:146: error: previous declaration of 'getprotobynumber' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:537: err or: conflicting types for 'getprotobynumber' /usr/include/netdb.h:146: error: previous declaration of 'getprotobynumber' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:538: err or: conflicting types for 'getprotobyname' /usr/include/netdb.h:145: error: previous declaration of 'getprotobyname' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:538: err or: conflicting types for 'getprotobyname' /usr/include/netdb.h:145: error: previous declaration of 'getprotobyname' was he re /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:607: err or: conflicting types for 'htonl' /usr/include/asm/byteorder.h:36: error: previous declaration of 'htonl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:607: err or: conflicting types for 'htonl' /usr/include/asm/byteorder.h:36: error: previous declaration of 'htonl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:608: err or: conflicting types for 'ntohl' /usr/include/asm/byteorder.h:34: error: previous declaration of 'ntohl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:608: err or: conflicting types for 'ntohl' /usr/include/asm/byteorder.h:34: error: previous declaration of 'ntohl' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:609: err or: conflicting types for 'htons' /usr/include/asm/byteorder.h:37: error: previous declaration of 'htons' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:609: err or: conflicting types for 'htons' /usr/include/asm/byteorder.h:37: error: previous declaration of 'htons' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:610: err or: conflicting types for 'ntohs' /usr/include/asm/byteorder.h:35: error: previous declaration of 'ntohs' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:610: err or: conflicting types for 'ntohs' /usr/include/asm/byteorder.h:35: error: previous declaration of 'ntohs' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:611: err or: conflicting types for 'select' /usr/include/sys/select.h:31: error: previous declaration of 'select' was here /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/winsock2.h:611: err or: conflicting types for 'select' /usr/include/sys/select.h:31: error: previous declaration of 'select' was here In file included from ./constants.c:88: /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../include/w32api/ws2tcpip.h:124: err or: redefinition of `struct ip_mreq' make[1]: *** [constants_nodef] Error 1 make[1]: Leaving directory `/cygdrive/f/Development/Ada/adasockets-1.8.4.7/src' make: *** [install-recursive] Error 1 What am I missing or doing wrong? Thanks for your help, Roger _______________________________________________ AdaSockets mailing list AdaSockets< at >lists.rfc1149.net http://lists.rfc1149.net/mailman/listinfo/adasockets

mac os x

Thomas — 2005-05-02T15:10:52

hi :-) will it be possible to compile adasockets on mac s x ? :-)

mac os x

Thomas — 2005-05-02T15:10:52

hi :-) will it be possible to compile adasockets on mac s x ? :-)