Hello!
I use the following programfor testing, mostly as in examples.
And I can not understand why calling eof(sin) after the ACCEPT,
blocks until something arrived in sin ?!?!?
The socket is (I think so) is changed to non-blocking.
Program alabala;
uses Linux, Sockets, Crt, SysUtils;
const port : word = 99;
var Ad : TInetSockAddr;
S : Longint;
sin, sout : text;
procedure Perror(const S:string);
begin
writeln(S, SocketError);
halt(100);
end;
Begin
Ad.family := AF_INET;
Ad.port := swap(port);
Ad.addr := 0;
S := Socket(AF_INET, SOCK_STREAM, 0);
if SocketError <> 0 then Perror('Server: Socket: ');
if not Bind(S, Ad, sizeof(Ad)) then Perror('Server: Bind: ');
if not Listen(S, 1) then Perror('Server: Listen: ');
Writeln('Waiting for connecttion on port:', swap(Ad.port));
{ any suggestions about next dirty work - more clean, more pascalish, etc. }
// long live to linux man pages !!!
fcntl(S,F_SETFL,OPEN_NONBLOCK); // MAKE SOCKET NON-BLOCKING
repeat // wait for incoming connection
write('.');
delay(200);
until accept(S, Ad, Sin, Sout);
reset(sin);
writeln(eof(sin)); // this blocks the program, if no data pending in sin.
shutdown(S, 2); //and after some data comes, we obviously get "FALSE"
End. // and program continues.
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
