Re: TCP/IP Sockets with GNAT.Sockets

["fabio de francesco" <fmdf@tiscali.it>]

Poul-Erik Andreasen wrote:
>
> [...]
>
> I have, actually i am using it rigth now and i works. however If the
> other end of the socket is a C-style server it will probely demand
> somthing like the following:

How can you know a priori if a remote service is coded in C or Ada or
everything else?

>
> String'Write( Channel, "Hello" & character'first);
>
> when i read i read characters and stop when i reach  character'first.
>
> Here is a fixed string sulution
>
> declare
>     Channel := Stream( Socket );
>     Word : string(1.. max_word);
>     counter : natural := 1
> begin
>    loop
>       word(counter) := Character'Input (Channel);
>       exit when  word(counter) = Character'First;
>       counter := counter + 1;
>    end loop;
>    -- her do what you have to do with Word(1..(counter -1))
> end;

Is your code reading character by character? If it is I don't think you
can use it for designing efficient programs.

> BTW my C-couterpart program dosn't seems to have anything against
> String'Output( Channel, "Hello" & character'first) ?

What I understand from this thread is that T'Output and T'Input add
some metadata to the stream. If it is true, communicating programs in
other languages must know how to read/write the streams in order to
differentiate data from metadata. May be your C-counterpart program
contains an algorithm that knows how to do it.

Ciao,

fabio de francesco