packages/libc/src/sselect.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33


Function FD_ISSET(fd: longint; const fdset: _fd_set): Boolean;

begin
  Result:=(fdset.fds_bits[__FDELT(fd)] and __FDMASK(fd))<>0;
end;


Procedure FD_SET(fd: longint; var fdset: _fd_set);

begin
  fdset.fds_bits[__FDELT(fd)]:=fdset.fds_bits[__FDELT(fd)] or __FDMASK(fd);
end;


Procedure FD_CLR(fd: longint; var fdset: _fd_set);

begin
  fdset.fds_bits[__FDELT(fd)]:=fdset.fds_bits[__FDELT(fd)] and (not __FDMASK(fd));
end;


Procedure FD_ZERO(var fdset: _fd_set);

var
  I: Integer;

begin
  with fdset do
    for I:=Low(fds_bits) to High(fds_bits) do
      fds_bits[I]:=0;
end;