:i	static char d_poll_sccs_id[] = "%W% %G%";
:1#include "V_s_lc.h"
/*#include <stropts.h>*/
#if HAS_poll
#include <poll.h>

d_poll(fds,nfds,timeout)
	struct pollfd *fds;
	size_t nfds;
	int timeout;
{	int i, r=0;
	int e;
:f	Fenter("Poll");
:6	P6s "%s\tpoll(%08X,%d,%d)",Vtime(),fds,nfds,timeout D;
:5	for (i=0; i<nfds; i++)
:5		V5s "File %d: fd=%d  events=%04X",i,fds[i].fd,fds[i].events D;

	r = poll(fds,nfds,timeout);

	e = errno;
:5	P5s "%s\tpoll(%08X,%d,%d)=%d [Err %d=%s=%s]",Vtime(),fds,nfds,timeout,r,Errinfo D;
:5	for (i=0; i<nfds; i++)
:5		V5s "File %d: fd=%d revents=%04X",i,fds[i].fd,fds[i].revents D;

fail:
done:
	errno = e;
:f	Fexit;
	return r;
}
#endif