Hello,
I'm learning Ada language and found that the following code
raise an error at runtime on OpenBSD 6.1 :
raised GNAT.SOCKETS.SOCKET_ERROR : [47] Address family not supported by
protocol family
The following code works on another operating system also using gnat
-->B------------------------------------------------>B---
with Ada.Text_IO; use Ada.Text_IO;
with GNAT.Sockets; use GNAT.Sockets;
with Ada.Streams; use Ada.Streams;
procedure Main is
Client : Socket_Type;
Address : Sock_Addr_Type;
Channel : Stream_Access;
Send : String := (1 => ASCII.CR, 2 => ASCII.LF,
3 => ASCII.CR, 4 => ASCII.LF);
Offset : Ada.Streams.Stream_Element_Count;
Data : Ada.Streams.Stream_Element_Array (1 .. 256);
begin
Address.Addr := Inet_Addr("163.172.223.238");
Address.Port := 70;
Create_Socket (Client);
Connect_Socket (Client, Address);
Channel := Stream(Client);
String'Write (Channel, "/" & Send);
loop
Read (Channel.All, Data, Offset);
exit when Offset = 0;
for I in 1 .. Offset loop
Ada.Text_IO.Put (Character'Val (Data (I)));
end loop;
end loop;
end Main;
-->B------------------------------------------------>B---
