From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3858a89a714886ac
X-Google-Attributes: gid103376,public
From: David Botton <David@Botton.com>
Subject: Re: GNAT sockets
Date: 1998/12/30
Message-ID: <368A799A.4A59C97A@Botton.com>#1/1
X-Deja-AN: 427199241
Content-Transfer-Encoding: 7bit
References: <368a76d8.0@dial-in.encomix.es>
Content-Type: text/plain; charset=us-ascii
Organization: IQuest Internet, Inc.
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 1998-12-30T00:00:00+00:00
List-Id: <comp.lang.ada>

Take a look at

http://www.botton.com/ada/os

There are some Ada 95 examples of sockets and links to thick bindings
for Win32 and Unix.

David Botton
The Ada Source Code Treasury
http://www.botton.com/ada

Daniel Fanjul wrote:

> Hello,
>
> I wrote this code to be compiled with GNAT (for Windows 95):
>
>     #include "windows.h"
>     #include "windows32\sockets.h"
>
>     int main () {
>         SOCKET s;
>
>         s = socket (AF_INET, SOCK_STREAM, 0);
>         printf ("%d", s);
>         return 0;
>     }
>
> The output was -1.
>
> Can anybody help me?
>
> Thanks.
>
>     Daniel.