Hi, This is probably not a very nice patch to add fpPoll(), but I really do not know anything about the layout of all the files.
Basic testing lets me assume that it works (I see no reason why it
should work in basic tests but fail under some other conditions).
Obviously, it will have to be added to other platforms as well (the poll
syscall number seems to be present in some already), but I know nothing
and don't have any other machine at hand.
Index: unix/bunxh.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/unix/bunxh.inc,v
retrieving revision 1.10
diff -u -r1.10 bunxh.inc
--- unix/bunxh.inc 27 Sep 2003 13:49:41 -0000 1.10
+++ unix/bunxh.inc 9 Nov 2003 22:23:43 -0000
@@ -98,6 +98,7 @@
Function FPSelect
(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cint;
Function FpIOCtl (Handle:cint;Ndx: culong;Data: Pointer):cint;
Function FpNanoSleep (req : ptimespec;rem : ptimespec):cint;
+ Function FpPoll (const ufds: PPollFD; const nfds: Cardinal; const timeout:
LongInt): LongInt;
Function FpGetEnv (name : pChar): pChar;
Function FpGetEnv (name : String): pChar;
Index: linux/ptypes.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/linux/ptypes.inc,v
retrieving revision 1.5
diff -u -r1.5 ptypes.inc
--- linux/ptypes.inc 27 Sep 2003 13:45:58 -0000 1.5
+++ linux/ptypes.inc 9 Nov 2003 22:23:44 -0000
@@ -120,6 +120,14 @@
ptimespec = ^timespec;
TTimeSpec = timespec;
+ pollfd = packed record
+ fd: LongInt; (* file descriptor *)
+ events, (* requested events *)
+ revents : word; (* returned events *)
+ end;
+ TPollFD = pollfd;
+ PPollFD = ^TPollFD;
+
CONST
{ System limits, POSIX value in parentheses, used for buffer and stack allocation }
{ took idefix' values}
Index: linux/bunxfunc.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/linux/bunxfunc.inc,v
retrieving revision 1.5
diff -u -r1.5 bunxfunc.inc
--- linux/bunxfunc.inc 27 Sep 2003 13:45:58 -0000 1.5
+++ linux/bunxfunc.inc 9 Nov 2003 22:23:44 -0000
@@ -431,6 +431,11 @@
fpSelect:=do_syscall(syscall_nr_select,longint(@selectarray));
end;
+function fpPoll(const ufds: PPollFD; const nfds: Cardinal; const timeout: LongInt):
LongInt;
+begin
+ fpPoll := do_syscall(syscall_nr_poll, longint(ufds), longint(nfds),
longint(timeout));
+end;
+
{
$Log: bunxfunc.inc,v $
Revision 1.5 2003/09/27 13:45:58 peter
Index: linux/bunxtype.inc
===================================================================
RCS file: /FPC/CVS/fpc/rtl/linux/bunxtype.inc,v
retrieving revision 1.3
diff -u -r1.3 bunxtype.inc
--- linux/bunxtype.inc 14 Sep 2003 20:15:01 -0000 1.3
+++ linux/bunxtype.inc 9 Nov 2003 22:23:44 -0000
@@ -241,6 +241,20 @@
WNOHANG = 1; { don't block waiting }
WUNTRACED = 2; { report status of stopped children }
+ { poll() constants }
+ POLLIN = $0001;
+ POLLPRI = $0002;
+ POLLOUT = $0004;
+ POLLERR = $0008;
+ POLLHUP = $0010;
+ POLLNVAL = $0020;
+ POLLRDNORM = $0040;
+ POLLRDBAND = $0080;
+ POLLWRNORM = $0100;
+ POLLWRBAND = $0200;
+ POLLMSG = $0400;
+
+
{*************************************************************************}
{ SIGNALS }
johannes
--
http://www.sipsolutions.de/
GnuPG key: http://www.sipsolutions.de/keys/JohannesBerg.asc
Key-ID: 9AB78CA5 Johannes Berg <[EMAIL PROTECTED]>
Fingerprint = AD02 0176 4E29 C137 1DF6 08D2 FC44 CF86 9AB7 8CA5
signature.asc
Description: This is a digitally signed message part
