linking problem when using sockets with gnat 3.10p1 for NT

linking problem when using sockets with gnat 3.10p1 for NT

[Frans Bouwmans]

I'm trying to use sockets in ada with gnat 3.10
I used glade as an example for calling to windows socket calls
however I get problems with linking
This is a part of the code showing the problem

--
with interfaces.c;
pragma Linker_Options ("-lwsock32");


procedure test_sock is
   package c renames interfaces.c;

   package net is
      function C_Listen (S, Backlog : C.int) return C.int;

   private
      pragma Import (C, C_Listen, "listen");
   end net;

  s,backlog,result : C.int;
begin
  result := net.C_Listen(s,backlog);
end test_sock;


-- this program compiles correctly but does not link it gives the following
error:

gnatlink test_sock.ali -lwsock32

./test_sock.o: In function `ada_test_sock':
//C/USR/ada/l11/test_sock.adb:17: undefined reference to `listen'

the linker can find the libwsock32.a because when i change the name it
cannot find it

Frans

Re: linking problem when using sockets with gnat 3.10p1 for NT

[Jerry van Dijk]

Frans Bouwmans (fbouwmans@spiditel.nl) wrote:

: I'm trying to use sockets in ada with gnat 3.10

: gnatlink test_sock.ali -lwsock32

I think you are using the NT compiler. If you go to my homepage
(http://stad.dsl.nl/~jvandyk) you can find a Win32 port of the
AdaSockets package. That should get you started.

Jerry.

-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada
-- Ada & Win32: http://stad.dsl.nl/~jvandyk

Re: linking problem when using sockets with gnat 3.10p1 for NT

[Tom Griest]

Frans Bouwmans <fbouwmans@spiditel.nl> wrote in article <6p5k11$iof$1@cadmium.aware.nl>...
> I'm trying to use sockets in ada with gnat 3.10

[lots-o-snips]

>       function C_Listen (S, Backlog : C.int) return C.int;
> 
>       pragma Import (C, C_Listen, "listen");

WinSock is a WinAPI (as opposed to a "C" library) which means
that it uses the "Stdcall" interface rather than "C".

Try:   pragma Import (Stdcall, C_Listen, "listen");


-Tom Griest

Re: linking problem when using sockets with gnat 3.10p1 for NT

[Frans Bouwmans]

Tom Griest heeft geschreven in bericht
<01bdb5d6$db0ad170$50c809c0@Saturn>...
>Frans Bouwmans <fbouwmans@spiditel.nl> wrote in article
<6p5k11$iof$1@cadmium.aware.nl>...
>> I'm trying to use sockets in ada with gnat 3.10
>
>[lots-o-snips]
>
This indeed solved the linking problem, later I found that I also have to
call "WSAstartup" before
a connection can be made. Unfortunately my code which was originally for
sparc used representation
clause to specify the layout of records to be sent over the socket. It took
a day to find the actual
translation from big endian to little endian so the rep clauses match. But I
got it working.

Unfortunately I started of with the socket programming before I read the
reply of Jerry van Dijk, so
I wrote my own socket server generic

Thanks for the prompt replies

Frans Bouwmans